;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Event_taming]
{
#IF

#SAY
Which monster do you want?\
<[ Normal ]/@TamingNormal(1,1)> - Costs Vary\
<[ Exchange Boss Souls For Scrolls ]/@ExchangeBoss>\
<[ Exchange BossSoulScrolls for Boss Pet ]/@BossSouls> - Lasts for 3 Hours\
<[ Random - 1 Hour ]/@TamingRandom(1,250000)> - Costs 250,000 Gold\
<[ Random - 2 Hours ]/@TamingRandom(2,400000)> - Costs 400,000 Gold\
<[ Random - 3 Hours ]/@TamingRandom(3,600000)> - Costs 600,000 Gold\
<[ Random - 12 Hours ]/@TamingRandom(12,1200000)> - Costs 1,200,000 Gold\
<[ Kill Pet ]/@KillPet> - Costs 2,500 Gold!\\
<[ Get NoobAid ]/@GetNoobAid>\\
<[ Exchange 5 BossSoulScrolls For BigSoulScrolls ]/@ExchangeBossBIG>\
Only Use this Option if you are saving for the\
DGS Quest Item\\
<[ Exit ]/@exit>\\\

[@GetNoobAid]
#IF
;!CheckLevel 22
checkmonrecall
#ACT
monrecall NoobAid 6 1
#SAY
There ya go

[@BossSouls]
#IF
checkmonrecall
#SAY
Which Boss would you like?\
You need 2 BossScroll's per Pet\\
<[ OmaKing ]/@CheckBossSoul(OmaKing)>\
<[ WoomaTaurus ]/@CheckBossSoul(WoomaTaurus)>\
<[ BoarKing ]/@CheckBossSoul(BoarKing)>\
<[ MinotaurKing ]/@CheckBossSoul(MinotaurKing)>\
<[ BlackKing ]/@CheckBossSoul(BlackKing)>\
<[ ZumaTaurus ]/@CheckBossSoul(ZumaTaurus)>\
<[ DemonicUnderlord ]/@CheckBossSoul(DemonicUnderlord)>\
<[ ForbiddenKing ]/@CheckBossSoul(ForbiddenKing)>\
<[ EvilEmperor ]/@CheckBossSoul(EvilEmperor)>\
<[ StingKing ]/@CheckBossSoul(StingKing)>\
<[ Tadanga ]/@CheckBossSoul1(Tadanga,Tadanga1)>\
<[ DeadSoul ]/@CheckBossSoul(DeadSoul)>\
<[ ToxinOma ]/@CheckBossSoul1(ToxinOma,ToxinOma1)>\
<[ BoneLord ]/@CheckBossSoul1(BoneLord,BoneLord1)>\
<[ AncientSoul ]/@CheckBossSoul(AncientSoul)>\
<[ AncientEmperor ]/@CheckBossSoul(AncientEmperor)>\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\
#ELSESAY
You already have a pet\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\


[@ExchangeBoss]
#SAY
Which BossSoul's do you have?\
I exchange 5 Soul's for 1 Scroll\\
<[ OmaKing ]/@CheckBossSoul5(OmaKing)>\
<[ WoomaTaurus ]/@CheckBossSoul5(WoomaTaurus)>\
<[ BoarKing ]/@CheckBossSoul5(BoarKing)>\
<[ MinotaurKing ]/@CheckBossSoul5(MinotaurKing)>\
<[ BlackKing ]/@CheckBossSoul5(BlackKing)>\
<[ ZumaTaurus ]/@CheckBossSoul5(ZumaTaurus)>\
<[ DemonicUnderlord ]/@CheckBossSoul5(DemonicUnderlord)>\
<[ ForbiddenKing ]/@CheckBossSoul5(ForbiddenKing)>\
<[ EvilEmperor ]/@CheckBossSoul5(EvilEmperor)>\
<[ StingKing ]/@CheckBossSoul5(StingKing)>\
<[ Tadanga ]/@CheckBossSoul5(Tadanga)>\
<[ DeadSoul ]/@CheckBossSoul5(DeadSoul)>\
<[ ToxinOma ]/@CheckBossSoul5(ToxinOma)>\
<[ BoneLord ]/@CheckBossSoul5(BoneLord)>\
<[ AncientSoul ]/@CheckBossSoul5(AncientSoul)>\
<[ AncientEmperor ]/@CheckBossSoul5(AncientEmperor)>\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\


[@ExchangeBossBIG]
#SAY
Which BossSoul's do you have?\
I exchange 5 SoulScrolls's for 1 BigSoulScroll\\
<[ OmaKing ]/@CheckBossSoulBIG5(OmaKing)>\
<[ WoomaTaurus ]/@CheckBossSoulBIG5(WoomaTaurus)>\
<[ BoarKing ]/@CheckBossSoulBIG5(BoarKing)>\
<[ MinotaurKing ]/@CheckBossSoulBIG5(MinotaurKing)>\
<[ BlackKing ]/@CheckBossSoulBIG5(BlackKing)>\
<[ ZumaTaurus ]/@CheckBossSoulBIG5(ZumaTaurus)>\
<[ DemonicUnderlord ]/@CheckBossSoulBIG5(DemonicUnderlord)>\
<[ ForbiddenKing ]/@CheckBossSoulBIG5(ForbiddenKing)>\
<[ DeadSoul ]/@CheckBossSoulBIG5(DeadSoul)>\
<[ AncientSoul ]/@CheckBossSoulBIG5(AncientSoul)>\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\


[@CheckBossSoulBIG5()]
#ACT
Mov  A0  %ARG(1)
Mov  A1  %A0
Mov  A2  %A0
AddStr  A1 "SoulScroll"
AddStr  A2 "BIGSoulScroll"
#IF
CheckItem %A1 5
#ACT
Take %A1 5
Give %A2 1
#SAY
Here is your <$OUTPUT(A2)>\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\
#ELSESAY
You don't have 5 of those Souls\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\


[@CheckBossSoul5()]
#ACT
Mov  A0  %ARG(1)
Mov  A1  %A0
Mov  A2  %A0
AddStr  A1 "Soul"
AddStr  A2 "SoulScroll"
#IF
CheckItem %A1 5
#ACT
Take %A1 5
Give %A2 1
#SAY
Here is your <$OUTPUT(A2)>\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\
#ELSESAY
You don't have 5 of those Souls\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\


[@CheckBossSoul()]
#ACT
Mov  A0  %ARG(1)
Mov  A1  %A0
AddStr  A1 "SoulSCroll"
#IF
CheckItem %A1 2
#ACT
Take %A1 2
MonRecall %A0 5 7
#SAY
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\
#ELSESAY
You don't have 2 of those SoulScrolls\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\

[@CheckBossSoul1()]
#ACT
Mov  A1  %ARG(1)
Mov  A0  %ARG(2)
AddStr  A1 "SoulScroll"
#IF
CheckItem %A1  2
#ACT
Take %A1 2
MonRecall %A0 5 7
#SAY
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\
#ELSESAY
You don't have 2 of those SoulScrolls\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\

[@KillPet]
#IF
!CheckMonRecall
CheckGold 2500
#ACT
KillSlave
Take Gold 2500
#SAY
Done...\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\\\


[@TamingNormal()]
#IF
#ACT
Mov D0 %ARG(1)
Mov D1 %ARG(2)

#IF
#SAY
Please Choose a Pet\\

#IF
checklevel 90
#SAY
Level 90:\
<[ DemonicUnderlord - 500000 ]/@TamingMon(DemonicUnderlord ,500000)>\ \
<[ Killer - 2000000 ]/@TamingMon(Killer ,2000000)>\ \

#IF
checklevel 75
#SAY
Level 75:\
<[ Killer - 4000000 ]/@TamingMon(Killer ,4000000)>\ \
<[ DemonicUnderlord - 1000000 ]/@TamingMon(DemonicUnderlord ,1000000)>\
<[ PaladinNecro - 100000 ]/@TamingMon(PaladinNecro ,100000)>\\

#IF
checklevel 64
#SAY
Level 64:\
<[ DemonicUnderlord - 2000000 ]/@TamingMon(DemonicUnderlord ,2000000)>\
<[ PaladinNecro - 200000 ]/@TamingMon(PaladinNecro ,200000)>\
<[ IceKing  - 85000 ]/@TamingMon(IceKing ,85000)>\ \

#IF
checklevel 56
#SAY
Level 56:\
<[ PaladinNecro - 400000 ]/@TamingMon(PaladinNecro ,400000)>\
<[ IceKing  - 170000 ]/@TamingMon(IceKing ,170000)>\
<[ WhiteBoar - 250000 ]/@TamingMon(WhiteBoar,250000)>\
<[ BessyHunter - 50000 ]/@TamingMon(BessyHunter,50000)>\ \

#IF
checklevel 48
#SAY
Level 48:\
<[ IceKing  - 340000 ]/@TamingMon(IceKing ,340000)>\
<[ WhiteBoar - 500000 ]/@TamingMon(WhiteBoar,500000)>\
<[ BessyHunter - 100000 ]/@TamingMon(BessyHunter,10000)>\
<[ FireMinotaur - 25000 ]/@TamingMon(FireMinotaur,25000)>\
<[ KillerRat - 25000 ]/@TamingMon(KillerRat,25000)>\\

#IF
checklevel 44
#SAY
Level 44:\
<[ WhiteBoar - 1000000 ]/@TamingMon(WhiteBoar,1000000)>\
<[ BessyHunter - 200000 ]/@TamingMon(BessyHunter,200000)>\
<[ FireMinotaur - 50000 ]/@TamingMon(FireMinotaur,50000)>\
<[ KillerRat - 50000 ]/@TamingMon(KillerRat,50000)>\
<[ Minotaur - 20000 ]/@TamingMon(Minotaur,20000)>\
<[ ZumaArcher - 12000 ]/@TamingMon(ZumaArcher,12000)>\\

#IF
checklevel 33
#SAY
Level 33:\
<[ FireMinotaur - 100000 ]/@TamingMon(FireMinotaur,100000)>\
<[ KillerRat - 100000 ]/@TamingMon(KillerRat,100000)>\
<[ Minotaur - 40000 ]/@TamingMon(Minotaur,40000)>\
<[ ZumaArcher - 24000 ]/@TamingMon(ZumaArcher,24000)>\
<[ NumaCaptain - 6000 ]/@TamingMon(NumaCaptain,6000)>\
<[ NumaMonk - 6000 ]/@TamingMon(NumaMonk,6000)>\\

#IF
checklevel 22
#SAY
Level 22:\
<[ Minotaur - 80000 ]/@TamingMon(Minotaur,80000)>\
<[ ZumaArcher - 48000 ]/@TamingMon(ZumaArcher,48000)>\
<[ NumaCaptain - 12000 ]/@TamingMon(NumaCaptain,12000)>\
<[ NumaMonk - 12000 ]/@TamingMon(NumaMonk,12000)>\
<[ RedBoar - 3000 ]/@TamingMon(RedBoar,3000)>\
<[ BlackBoar - 3000 ]/@TamingMon(BlackBoar,3000)>\\

#IF
checklevel 11
#SAY
Level 11:\
<[ NumaCaptain - 24000 ]/@TamingMon(NumaCaptain,24000)>\
<[ NumaMonk - 24000 ]/@TamingMon(NumaMonk,24000)>\
<[ RedBoar - 6000 ]/@TamingMon(RedBoar,6000)>\
<[ BlackBoar - 6000 ]/@TamingMon(BlackBoar,6000)>\
<[ Healer - 2000 ]/@TamingMon(Healer,2000)>\
<[ TigerSnake - 12000 ]/@TamingMon(TigerSnake,12000)>\\

#IF
checklevel 1
!checklevel 11
#SAY
You can only Rent a Pet at level 11+\\

#IF
#SAY
<[ Exit ]/@exit>\\\\


[@TamingMon()]
#IF
#ACT
Mov A1 %ARG(1)
Mov D2 %ARG(2)
Mov D3 %D2


#IF
#SAY
<[ Level 1 ]/@TrainMon(1)>\
<[ Level 2 ]/@TrainMon(2)>\
<[ Level 3 ]/@TrainMon(3)>\
<[ Level 4 ]/@TrainMon(4)>\
<[ Level 5 ]/@TrainMon(5)>\
<[ Level 6 ]/@TrainMon(6)>\
<[ Level 7 ]/@TrainMon(7)>\

[@TrainMon()]
#IF
#ACT
Mov D4 %ARG(1)
Mov P1 %D3
Mov P2 %D4
Mul P1 P2
Mov D5 %P9

#SAY
How long do you want it for?\\
<[ 1 Hour ]/@TrainMon1(1)>\
<[ 2 Hours ]/@TrainMon1(2)>\
<[ 3 Hours ]/@TrainMon1(3)>\

[@TrainMon1()]
#IF
#ACT
Mov D6 %ARG(1)
Mov P1 %D5
Mov P2 %D6
Mul P1 P2
Mov D5 %P9
#SAY
Renting a Level <$OUTPUT(D4)> <$OUTPUT(A1)>. This will cost you <$OUTPUT(D5)> Gold\
<[ Rent Pet ]/@TamingMon_Result>\
<[ Exit ]/@exit>\

[@TamingMon_Result]
#IF
checkgold %D5
checkmonrecall
#ACT
take Gold %D5
monrecall %A1 %D6 %D4
#ELSESAY
You already have a Pet or your short on cash\
<[ Exit ]/@exit>\
#ELSEACT
Break

#IF
#SAY
<$OUTPUT(A1)> is all yours!\
<[ Exit ]/@exit>\


[@TamingRandom()]

#IF
#ACT
Mov D0 %ARG(1)
Mov D1 %ARG(2)
Movr D2 6

#IF
checkgold %D1
checkmonrecall
#ELSESAY
You already have a Pet or you're short on cash\
<[ Exit ]/@exit>\
#ELSEACT
break

#IF
Equal D2 4
#ACT
Mov A1 "DemonicUnderlord"
goto @TamingRandom_Result
break

#IF
Equal D2 3
#ACT
Mov A1 "Killer"
goto @TamingRandom_Result
break

#IF
Equal D2 2
#ACT
Mov A1 "PaladinNecro"
goto @TamingRandom_Result
break

#IF
#ACT
Mov A1 "IceKing"
goto @TamingRandom_Result
break

[@TamingRandom_Result]
#IF
checkgold %D1
#ACT
take Gold %D1
monrecall %A1 %D0 0

#ELSESAY
You already have a Pet or your short on cash\\
<[ Exit ]/@exit>\
#ELSEACT
Break

#IF
#SAY
<$OUTPUT(A1)> is all yours!\\
<[ Kill Pet ]/@KillPet> - Costs 2500 Gold\\
<[ Back ]/@Event_taming>\
<[ Exit ]/@exit>\

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;