help horse script

[Vector]

hello all, I need to put in the script, when you buy a horse, you ask an item, the items are BrownHorse, Whitehorse and Redhorse, thanks I need help.

{FCOLOR/1}Comprar{FCOLOR/12} <Caballo Marron/@BuyHorse(Horse1,15,500000)> {FCOLOR/1}Precio{FCOLOR/1} {FCOLOR/10}500,000{FCOLOR/12}\
#IF
CheckLevel 40
#SAY
{FCOLOR/1}Comprar{FCOLOR/12} <Caballo Blanco/@BuyHorse(Horse2,40,20000000)> {FCOLOR/1}Precio{FCOLOR/1} {FCOLOR/10}20,000,000{FCOLOR/12}\
#IF
CheckLevel 52
#SAY
{FCOLOR/1}Comprar{FCOLOR/12} <Caballo Rojo/@BuyHorse(Horse3,52,50000000)> {FCOLOR/1}Precio{FCOLOR/1} {FCOLOR/10}50,000,000{FCOLOR/12}\

#IF
CheckHorse
#SAY
<Vender Caballo/@SellHorse>\
<Salir/@exit>\\

;-------------------------------------

[@BuyHorse()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)
goto @BuyHorse2

;-------------------------

[@BuyHorse2]
#IF
checkhorse
#SAY
Tú ya tienes un caballo.\\
<Salir/@Exit>
#ELSEACT
goto @BuyHorse3

;-------------------------

[@BuyHorse3]
#IF
CheckGold %D1
#ACT
take Gold %D1
horsecall %A0
#SAY
Este es tú caballo, cuida bien de el porfabor.\\
<Salir/@Exit>
#ELSESAY
Sorry.\
Tú no tienes{FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} de oro.\
Para comprar este caballo.\\
<Salir/@Exit>

;-------------------------

[@SellHorse]
#SAY
Seguro que quieres vender tú caballo?\\
#IF
checkhorse 1
#SAY
<Seguro/@Sell_Horse1>\
<Salir/@exit>

#IF
checkhorse 2
#SAY
<Seguro/@Sell_Horse2>\
<Salir/@exit>

#IF
checkhorse 3
#SAY
<Seguro/@Sell_Horse3>\
<Salir/@exit>

;-------------------------

[@Sell_Horse1]
#ACT
Give Gold 250000
KillHorse
CLOSE

[@Sell_Horse2]
#ACT
Give Gold 1000000
KillHorse
CLOSE

[@Sell_Horse3]
#ACT
Give Gold 25000000
KillHorse
CLOSE