;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@main]
#IF
checkpkpoint 2

#SAY
#INCLUDE [..\Market_Def\00BuySell_Std.txt] @Convert_BuySellStd_PK

#ELSESAY
Hi, My name is {FCOLOR/10}<$NPCNAME>{FCOLOR/12}\
I can give you a pet to rent.\
<[ Tell me more ]/@RentMonster>\
<[ Pet Token's ]/@PetTokens>\
<[ Exit ]/@exit>\

[@RentMonster]
#CALL [System\NewRentMobSystem.txt] @Event_taming

[@_Startup]
#IF
Random 3
#ACT
Speak "Get your NoobAid from here!"
DelayGoto [Grobal] 380 @_Startup
Break

#IF
Random 3
#ACT
Speak "I can give you pets!"
DelayGoto [Grobal] 380 @_Startup
Break

#IF
Random 3
#ACT
Speak "Exchange your Souls with me"
DelayGoto [Grobal] 380 @_Startup
Break

#IF
#ACT
DelayGoto [Grobal] 380 @_Startup
Break


[@PetTokens]
#SAY
Which Pet would you like?\\
{FCOLOR/1}1 Hour{FCOLOR/12}\\
<[ DemonSamurai Level 1 ]/@PetTokensRent(DemonSamurai1,3,1,1)> - 3 Tokens\
<[ DemonSamurai Level 2 ]/@PetTokensRent(DemonSamurai2,6,1,2)> - 6 Tokens\
<[ DemonSamurai Level 3 ]/@PetTokensRent(DemonSamurai3,9,1,3)> - 9 Tokens\
<[ DemonSamurai Level 4 ]/@PetTokensRent(DemonSamurai4,12,1,4)> - 12 Tokens\
<[ DemonSamurai Level 5 ]/@PetTokensRent(DemonSamurai5,15,1,5)> - 15 Tokens\\
{FCOLOR/1}2 Hours{FCOLOR/12}\\
<[ DemonSamurai Level 1 ]/@PetTokensRent(DemonSamurai1,5,2,1)> - 5 Tokens\
<[ DemonSamurai Level 2 ]/@PetTokensRent(DemonSamurai2,8,2,2)> - 8 Tokens\
<[ DemonSamurai Level 3 ]/@PetTokensRent(DemonSamurai3,11,2,3)> - 11 Tokens\
<[ DemonSamurai Level 4 ]/@PetTokensRent(DemonSamurai4,14,2,4)> - 14 Tokens\
<[ DemonSamurai Level 5 ]/@PetTokensRent(DemonSamurai5,17,2,5)> - 17 Tokens\\
{FCOLOR/1}1 Hour{FCOLOR/12}\\
<[ TheKing Level 1 ]/@PetTokensRent(TheKing1,9,1,1)> - 9 Tokens\
<[ TheKing Level 2 ]/@PetTokensRent(TheKing2,12,1,2)> - 12 Tokens\
<[ TheKing Level 3 ]/@PetTokensRent(TheKing3,15,1,3)> - 15 Tokens\
<[ TheKing Level 4 ]/@PetTokensRent(TheKing4,18,1,4)> - 18 Tokens\
<[ TheKing Level 5 ]/@PetTokensRent(TheKing5,21,1,5)> - 21 Tokens\\
{FCOLOR/1}2 Hours{FCOLOR/12}\\
<[ TheKing Level 1 ]/@PetTokensRent(TheKing1,11,2,1)> - 11 Tokens\
<[ TheKing Level 2 ]/@PetTokensRent(TheKing2,14,2,2)> - 14 Tokens\
<[ TheKing Level 3 ]/@PetTokensRent(TheKing3,17,2,3)> - 17 Tokens\
<[ TheKing Level 4 ]/@PetTokensRent(TheKing4,20,2,4)> - 20 Tokens\
<[ TheKing Level 5 ]/@PetTokensRent(TheKing5,23,2,5)> - 23 Tokens\\
<[ Exit ]/@exit>\\
PLEASE NOTE : \
Level does NOT denote the colour of the\
Pet, its a completely different Pet.\\\

[@PetTokensRent()]
#IF
#ACT
Mov   A1  %ARG(1)
Mov   D1  %ARG(2)
Mov   D2  %ARG(3)
Mov   D3  %ARG(4)

#IF
CheckMonRecall
CheckItem  PetToken  %D1
#ACT
Take       PetToken  %D1
MonRecall  %A1  %D2  0
#SAY
Congrats, here is your Level <$OUTPUT(D3)> <$OUTPUT(A1)>\\
<[ Exit ]/@exit>\\\
#ELSESAY
You do not have enough PetToken's or\
you already have a pet!\\
<[ Exit ]/@exit>\\\

[@SayHello]
#ACT
Speak "Hello Sting :P"
Break

[@SayGoodBye]
#ACT
Speak "Cya Sting :)"
Break

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;