'---------------
#org 0x201873
lock
faceplayer
setvar 0x8004 0x1
special 0xF5
compare LASTRESULT 0x0
if 0x5 goto 0x82017EE
special 0x28
msgbox 0x82C50C3 MSG_KEEPOPEN '"I welcome you to the BATTLE TENT\n..."
preparemsg 0x82C5129 '"Do you wish to take the VERDANTURF..."
waitmsg
multichoice 0x11 0x6 0x17 0x0
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x82018CF
compare 0x8000 0x1
if 0x1 goto 0x82019DB
compare 0x8000 0x2
if 0x1 goto 0x8201A37
compare 0x8000 0x7F
if 0x1 goto 0x8201A37
setvar 0x40CF 0x2
setvar 0x40CE 0x0
setvar LASTRESULT 0x2
setvar 0x8004 0xF
special 0xEA
compare 0x8004 0x1
if 0x1 goto 0x82019E8
setvar 0x8004 0x2
setvar 0x8005 0x1
setvar 0x8006 0x2
special 0xEA
msgbox 0x82C5633 MSG_KEEPOPEN '"Good. Now, you must select your\nt..."
fadescreen 0x1
setvar 0x8004 0x1
setvar 0x8005 0x3
special 0xF8
waitstate
compare LASTRESULT 0x0
if 0x1 goto 0x8201A34
msgbox 0x82C5662 MSG_YESNO '"I must save before I show you to\n..."
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x8201A34
compare 0x8000 0x1
if 0x1 goto 0x8201954
compare 0x8000 0x7F
if 0x1 goto 0x8201A34
setvar 0x4000 0x0
setvar 0x8004 0x2
setvar 0x8005 0x4
special 0xEA
setvar 0x8004 0x0
special 0xF5
setvar 0x8004 0x2
setvar 0x8005 0x0
setvar 0x8006 0x1
special 0xEA
setvar 0x8004 0x2
setvar 0x8005 0x3
setvar 0x8006 0x0
special 0xEA
special 0x29
closeonkeypress
pause 0x2
call 0x827134F
setvar 0x4000 0xFF
compare LASTRESULT 0x0
if 0x1 goto 0x8201A1D
special 0x28
setvar 0x8004 0x3
setvar 0x8005 0x3
special 0xEA
msgbox 0x82C56A2 MSG_KEEPOPEN '"Good.\nNow, follow me."
closeonkeypress
call 0x8201A41
warp 0x6 0x1 0xFF 0x2 0x7
setvar 0x4000 0x0
waitstate
end

'---------------
#org 0x2017EE
lockall
msgbox 0x82C5731 MSG_KEEPOPEN '"To achieve a 3-win streak[.]\pThe ..."
goto 0x8201791

'---------------
#org 0x2018CF
setvar 0x40CF 0x2
setvar 0x40CE 0x0
setvar LASTRESULT 0x2
setvar 0x8004 0xF
special 0xEA
compare 0x8004 0x1
if 0x1 goto 0x82019E8
setvar 0x8004 0x2
setvar 0x8005 0x1
setvar 0x8006 0x2
special 0xEA
msgbox 0x82C5633 MSG_KEEPOPEN '"Good. Now, you must select your\nt..."
fadescreen 0x1
setvar 0x8004 0x1
setvar 0x8005 0x3
special 0xF8
waitstate
compare LASTRESULT 0x0
if 0x1 goto 0x8201A34
msgbox 0x82C5662 MSG_YESNO '"I must save before I show you to\n..."
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x8201A34
compare 0x8000 0x1
if 0x1 goto 0x8201954
compare 0x8000 0x7F
if 0x1 goto 0x8201A34
setvar 0x4000 0x0
setvar 0x8004 0x2
setvar 0x8005 0x4
special 0xEA
setvar 0x8004 0x0
special 0xF5
setvar 0x8004 0x2
setvar 0x8005 0x0
setvar 0x8006 0x1
special 0xEA
setvar 0x8004 0x2
setvar 0x8005 0x3
setvar 0x8006 0x0
special 0xEA
special 0x29
closeonkeypress
pause 0x2
call 0x827134F
setvar 0x4000 0xFF
compare LASTRESULT 0x0
if 0x1 goto 0x8201A1D
special 0x28
setvar 0x8004 0x3
setvar 0x8005 0x3
special 0xEA
msgbox 0x82C56A2 MSG_KEEPOPEN '"Good.\nNow, follow me."
closeonkeypress
call 0x8201A41
warp 0x6 0x1 0xFF 0x2 0x7
setvar 0x4000 0x0
waitstate
end

'---------------
#org 0x2019DB
msgbox 0x82C5163 MSG_KEEPOPEN '"In the VERDANTURF BATTLE TENT,\nth..."
goto 0x8201893

'---------------
#org 0x201A37
msgbox 0x82C539A MSG_KEEPOPEN '"When you have fortified your heart..."
release
end

'---------------
#org 0x2019E8
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x8201A03
compare 0x8000 0x1
if 0x1 goto 0x8201A10
msgbox 0x82C543D MSG_KEEPOPEN '"Sigh[.]\pYou do not have the three..."
goto 0x8201A3F

'---------------
#org 0x201A34
special 0x29
msgbox 0x82C539A MSG_KEEPOPEN '"When you have fortified your heart..."
release
end

'---------------
#org 0x201954
setvar 0x4000 0x0
setvar 0x8004 0x2
setvar 0x8005 0x4
special 0xEA
setvar 0x8004 0x0
special 0xF5
setvar 0x8004 0x2
setvar 0x8005 0x0
setvar 0x8006 0x1
special 0xEA
setvar 0x8004 0x2
setvar 0x8005 0x3
setvar 0x8006 0x0
special 0xEA
special 0x29
closeonkeypress
pause 0x2
call 0x827134F
setvar 0x4000 0xFF
compare LASTRESULT 0x0
if 0x1 goto 0x8201A1D
special 0x28
setvar 0x8004 0x3
setvar 0x8005 0x3
special 0xEA
msgbox 0x82C56A2 MSG_KEEPOPEN '"Good.\nNow, follow me."
closeonkeypress
call 0x8201A41
warp 0x6 0x1 0xFF 0x2 0x7
setvar 0x4000 0x0
waitstate
end

'---------------
#org 0x27134F
special 0x60
waitstate
return

'---------------
#org 0x201A1D
setvar 0x8004 0x2
setvar 0x8005 0x0
setvar 0x8006 0x0
special 0xEA
goto 0x8201A37

'---------------
#org 0x201A41
applymovement 0x1 0x8201A70
applymovement MOVE_PLAYER 0x8201A70
waitmovement 0x0
setdooropened 0x6 0x1
doorchange
applymovement 0x1 0x8201A74
applymovement MOVE_PLAYER 0x8201A77
waitmovement 0x0
setdoorclosed 0x6 0x1
doorchange
return

'---------------
#org 0x201791
msgbox 0x82C57CD MSG_KEEPOPEN '"For the feat of your 3-win streak,..."
setvar 0x8004 0x7
special 0xF5
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x82017DD
setvar 0x8004 0x2
setvar 0x8005 0x0
setvar 0x8006 0x0
special 0xEA
preparemsg 0x824A554 '"[player] received the prize\n[buff..."
waitmsg
fanfare 0x172
waitfanfare
msgbox 0x82C539A MSG_KEEPOPEN '"When you have fortified your heart..."
closeonkeypress
setvar 0x4000 0xFF
releaseall
end

'---------------
#org 0x201893
preparemsg 0x82C5129 '"Do you wish to take the VERDANTURF..."
waitmsg
multichoice 0x11 0x6 0x17 0x0
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x82018CF
compare 0x8000 0x1
if 0x1 goto 0x82019DB
compare 0x8000 0x2
if 0x1 goto 0x8201A37
compare 0x8000 0x7F
if 0x1 goto 0x8201A37
setvar 0x40CF 0x2
setvar 0x40CE 0x0
setvar LASTRESULT 0x2
setvar 0x8004 0xF
special 0xEA
compare 0x8004 0x1
if 0x1 goto 0x82019E8
setvar 0x8004 0x2
setvar 0x8005 0x1
setvar 0x8006 0x2
special 0xEA
msgbox 0x82C5633 MSG_KEEPOPEN '"Good. Now, you must select your\nt..."
fadescreen 0x1
setvar 0x8004 0x1
setvar 0x8005 0x3
special 0xF8
waitstate
compare LASTRESULT 0x0
if 0x1 goto 0x8201A34
msgbox 0x82C5662 MSG_YESNO '"I must save before I show you to\n..."
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x8201A34
compare 0x8000 0x1
if 0x1 goto 0x8201954
compare 0x8000 0x7F
if 0x1 goto 0x8201A34
setvar 0x4000 0x0
setvar 0x8004 0x2
setvar 0x8005 0x4
special 0xEA
setvar 0x8004 0x0
special 0xF5
setvar 0x8004 0x2
setvar 0x8005 0x0
setvar 0x8006 0x1
special 0xEA
setvar 0x8004 0x2
setvar 0x8005 0x3
setvar 0x8006 0x0
special 0xEA
special 0x29
closeonkeypress
pause 0x2
call 0x827134F
setvar 0x4000 0xFF
compare LASTRESULT 0x0
if 0x1 goto 0x8201A1D
special 0x28
setvar 0x8004 0x3
setvar 0x8005 0x3
special 0xEA
msgbox 0x82C56A2 MSG_KEEPOPEN '"Good.\nNow, follow me."
closeonkeypress
call 0x8201A41
warp 0x6 0x1 0xFF 0x2 0x7
setvar 0x4000 0x0
waitstate
end

'---------------
#org 0x201A03
msgbox 0x82C543D MSG_KEEPOPEN '"Sigh[.]\pYou do not have the three..."
goto 0x8201A3F

'---------------
#org 0x201A10
msgbox 0x82C5538 MSG_KEEPOPEN '"Sigh[.]\pYou do not have the three..."
goto 0x8201A3F

'---------------
#org 0x201A3F
release
end

'---------------
#org 0x2017DD
msgbox 0x824E57B MSG_KEEPOPEN '"You seem to have no space for\nour..."
waitmsg
closeonkeypress
setvar 0x4000 0xFF
releaseall
end


'---------
' Strings
'---------
#org 0x2C50C3
= I welcome you to the BATTLE TENT\nVERDANTURF SITE!\pHere, the TRAINER's trust toward\nPOKéMON is tested.

#org 0x2C5129
= Do you wish to take the VERDANTURF\nBATTLE TENT challenge?

#org 0x2C5633
= Good. Now, you must select your\nthree POKéMON.

#org 0x2C5662
= I must save before I show you to\nthe BATTLE TENT. Is that okay?

#org 0x2C56A2
= Good.\nNow, follow me.

#org 0x2C5731
= To achieve a 3-win streak[.]\pThe bonds that bind your heart with\nyour POKéMON seem firm and true.

#org 0x2C5163
= In the VERDANTURF BATTLE TENT,\nthere is one crucial rule that must\lbe obeyed.\pTRAINERS are permitted only to switch\ntheir POKéMON in and out.\pTRAINERS are otherwise forbidden to\ncommand their POKéMON.\pThe POKéMON are to behave according\nto their nature and battle on their own.\pYou must put your trust in your\nPOKéMON and watch over them.\pIf you achieve the honor of beating\nthree TRAINERS in succession,\lwe will present you with a prize.\pIf you want to interrupt your\nchallenge, please save the game.\pIf you don't save before interrupting,\nyou will be disqualified.

#org 0x2C539A
= When you have fortified your heart\nand POKéMON, you must return.

#org 0x2C543D
= Sigh[.]\pYou do not have the three POKéMON\nrequired for the challenge.\pTo enter, you must provide three\ndifferent kinds of POKéMON.\pThey also must not be holding\nthe same kinds of items.\pEGGS[buffer1] ineligible.\pCome back when you have made\nyour preparations.

#org 0x2C57CD
= For the feat of your 3-win streak,\nwe present you with this prize.

#org 0x24A554
= [player] received the prize\n[buffer1].

#org 0x2C5538
= Sigh[.]\pYou do not have the three POKéMON\nrequired for the challenge.\pTo enter, you must provide three\ndifferent kinds of POKéMON.\pThey also must not be holding\nthe same kinds of items.\pEGGS[buffer1] ineligible.\pCome back when you have made\nyour preparations.

#org 0x24E57B
= You seem to have no space for\nour prize.\pYou should return when you have\norganized your BAG.


'-----------
' Movements
'-----------
#org 0x201A70
#raw 0x9 'Step Up (Normal)
#raw 0x9 'Step Up (Normal)
#raw 0x9 'Step Up (Normal)
#raw 0xFE 'End of Movements

#org 0x201A74
#raw 0x9 'Step Up (Normal)
#raw 0x54 'Hide
#raw 0xFE 'End of Movements

#org 0x201A77
#raw 0x9 'Step Up (Normal)
#raw 0x9 'Step Up (Normal)
#raw 0x54 'Hide
#raw 0xFE 'End of Movements