;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@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>\


[@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\\
<[ 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)> DemonSamurai\\
<[ Exit ]/@exit>\\\
#ELSESAY
You do not have enough PetToken's or\
you already have a pet!\\
<[ Exit ]/@exit>\\\

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

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

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