Added horse purchase function