;;Ҫɾ
[@Wizard]
{
#IF
CheckJob Wizard
#ACT
goto @Main_Wizard
#ELSESAY
Please use the {FCOLOR/10}Normal Pet{FCOLOR/12} Option.\\
<Back/@Main>\
<Leave/@Exit>\\

[@Main_Wizard]
#IF
#SAY
<Click Here To See What Pets You Can Rent/@TamingWizard(99,1)>\

[@TamingWizard()]
#IF
#ACT
Mov D0 %ARG(1)
Mov D1 %ARG(2)
#IF
#SAY
Here is the pets you can rent:\\
{FCOLOR/10}Level 7: <Spitting Spider/@TamingWizMon(SpittingSpider,100)>\

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

[@TamingWizMon()]
#IF
#ACT
Mov A1 %ARG(1)
Mov D2 %ARG(2)
Mul D2 D1
Mov D3 %P9
#IF
#SAY
What level <$OUTPUT(A1)> do you want to tame? \ \
<Level 0/@TrainWizMon(0)>\
<Level 1/@TrainWizMon(1)>\
<Level 2/@TrainWizMon(2)>\
<Level 3/@TrainWizMon(3)>\
<Level 4/@TrainWizMon(4)>\
<Level 5/@TrainWizMon(5)>\
<Level 6/@TrainWizMon(6)>\
<Level 7/@TrainWizMon(7)>\\
<Leave/@Exit>\

[@TrainWizMon()]
#IF
#ACT
Mov D4 %ARG(1)

#IF
Equal D4 0
#ACT
Mov D5 %D3
goto @TrainWizMon-3
#ELSEACT
Mul D3 D4
Mov D5 %P9
goto @TrainWizMon-3

[@TrainWizMon-3]
#SAY
Please Confirm That This is Correct:\\
Monster Name: {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}\
Monster Level: {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
Monster Price: {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12}\\
Rent This Pet:\
{FCOLOR/10}Amount: <1/@TamingWizMon_Result> | <2/@TamingWizMon_Result2> | <3/@TamingWizMon_Result3> \
<Leave/@exit>

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

[@TamingWizMon_Result]
#IF
checkgold %D5
checkmonrecall
#ACT
take Gold %D5
monrecall %A1 %D0 %D4
#SAY
There is your <$OUTPUT(A1)>. \ \
<Leave/@exit>
#ELSEACT
goto @TamingWizMon_Failed

[@TamingWizMon_Failed]
#IF
checkgold %D5
#SAY
Sorry.\
You already have a pet...\\\
<Leave/@exit>
#ELSESAY
You do not have {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12} Gold\\
<Leave/@exit>

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

[@TamingWizMon_Result2]
#IF
checkgold %D5
checkmonrecall
#ACT
take Gold %D5
monrecall %A1 %D0 %D4
goto @TamingWizMon_Result2-2
#ELSEACT
goto @TamingWizMon_Result2-2

[@TamingWizMon_Result2-2]
#IF
checkgold %D5
#ACT
monrecall %A1 %D0 %D4
take Gold %D5
#SAY
There is your <$OUTPUT(A1)>. \ \
<Leave/@exit>
#ELSEACT
goto @TamingWizMon_Failed

[@TamingWizMon_Failed]
#IF
checkgold %D5
#SAY
You already have a pet...\\\
<Leave/@exit>
#ELSESAY
Sorry.\
You do not have {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12} Gold\\
<Leave/@exit>

}
;;Ҫɾ