;;Ҫɾ
[@HorseSystem]
{
#IF
Checklevel 15
#SAY
How may i help you?\
To Ride Horse Use:{FCOLOR/10} @M{FCOLOR/12}\
To Get Off your Horse Use: {FCOLOR/10}@L{FCOLOR/12}\\
Buy: <Brown Horse/@BuyHorse(Horse1,15,500000)> Cost: {FCOLOR/10}500,000{FCOLOR/12}\
#INCLUDE [..\Convert_Def\QuestDiary\Main\Horse.txt] @Horse_0

#IF
CheckHorse
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\Horse.txt] @Horse_1

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

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

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

[@BuyHorse2]
#IF
checkhorse
#SAY
You Already Have A Horse.\\
<Leave/@Exit>
#ELSEACT
goto @BuyHorse3

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

[@BuyHorse3]
#IF
CheckGold %D1
#ACT
take Gold %D1
horsecall %A0
#SAY
There is your horse.\\
<Leave/@Exit>
#ELSESAY
Sorry.\
You do not have {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} Gold.\
To buy this horse.\\
<Leave/@Exit>

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

[@SellHorse]
#SAY
Are you sure you want to sell your horse?\\
#IF
checkhorse 1
#SAY
<Yes, Im Sure/@Sell_Horse1>\
<Leave/@exit>

#IF
checkhorse 2
#SAY
<Yes, Im Sure/@Sell_Horse2>\
<Leave/@exit>

#IF
checkhorse 3
#SAY
<Yes, Im Sure/@Sell_Horse3>\
<Leave/@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

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

}
;;Ҫɾ