'---------------
#org 0x27018B
lock
faceplayer
checkflag 0x97
if 0x1 goto 0x82700F7
goto 0x827004D

'---------------
#org 0x2700F7
checkflag 0x864
if 0x1 goto 0x827010A
msgbox 0x827077E MSG_KEEPOPEN '"I've been researching rain for man..."
release
end

'---------------
#org 0x27004D
msgbox 0x8270650 MSG_KEEPOPEN '"Thanks!\nThanks to you, we're safe..."
setvar 0x4001 0x181
givepokemon 0x181 0x19 0xD1 0x0 0x0 0x0
compare LASTRESULT 0x0
if 0x1 goto 0x8270085
compare LASTRESULT 0x1
if 0x1 goto 0x82700AD
goto 0x8273811

'---------------
#org 0x27010A
setvar 0x8004 0x0
checkflag 0x1BE
if 0x1 call 0x8270160
checkflag 0x1BF
if 0x1 call 0x8270160
compare 0x8004 0x2
if 0x1 goto 0x8270166
checkflag 0x2
if 0x0 call 0x8270159
special2 LASTRESULT 0x1EC
compare LASTRESULT 0x1
if 0x1 goto 0x827014F
msgbox 0x82707F1 MSG_KEEPOPEN '"I track weather patterns over\nthe..."
release
end

'---------------
#org 0x270085
call 0x82700DB
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x82700EA
call 0x827378B
call 0x82723DD
goto 0x82700EA

'---------------
#org 0x2700AD
call 0x82700DB
msgbox 0x8273374 MSG_YESNO '"Do you want to give a nickname to\..."
compare LASTRESULT 0x0
if 0x1 goto 0x82700D0
call 0x8273797
goto 0x82700D0

'---------------
#org 0x273811
msgbox 0x827331C MSG_KEEPOPEN '"There's no more room for POKéMON!\..."
release
end

'---------------
#org 0x270160
addvar 0x8004 0x1
return

'---------------
#org 0x270166
msgbox 0x82708FC MSG_KEEPOPEN '"Abnormal weather conditions are\nn..."
release
end

'---------------
#org 0x270159
special 0x1EB
setflag 0x2
return

'---------------
#org 0x27014F
msgbox 0x8270873 MSG_KEEPOPEN '"I track weather patterns over\nthe..."
release
end

'---------------
#org 0x2700DB
fanfare 0x172
preparemsg 0x82706E8 '"[player] received CASTFORM!"
waitmsg
waitfanfare
bufferpokemon 0x0 0x181
return

'---------------
#org 0x2700EA
msgbox 0x82706FE MSG_KEEPOPEN '"That POKéMON changes shape accordi..."
setflag 0x97
release
end

'---------------
#org 0x27378B
countpokemon
subvar LASTRESULT 0x1
copyvar 0x8004 LASTRESULT
return

'---------------
#org 0x2723DD
fadescreen 0x1
special 0xA1
waitstate
return

'---------------
#org 0x2700D0
call 0x82737A0
goto 0x82700EA

'---------------
#org 0x273797
fadescreen 0x1
special 0x1E6
waitstate
lock
faceplayer
return

'---------------
#org 0x2737A0
bufferboxname 0x0 0x4036
bufferpokemon 0x1 0x4001
checkflag 0x8AB
if 0x0 call 0x82737BB
checkflag 0x8AB
if 0x1 call 0x82737E6
return

'---------------
#org 0x2737BB
special2 LASTRESULT 0x1E8
compare LASTRESULT 0x1
if 0x1 goto 0x82737D4
msgbox 0x8273216 MSG_KEEPOPEN '"[buffer2] was transferred to\nSOME..."
return

'---------------
#org 0x2737E6
special2 LASTRESULT 0x1E8
compare LASTRESULT 0x1
if 0x1 goto 0x82737FF
msgbox 0x8273256 MSG_KEEPOPEN '"[buffer2] was transferred to\nLANE..."
return

'---------------
#org 0x2737D4
special2 LASTRESULT 0x1E7
bufferboxname 0x2 LASTRESULT
msgbox 0x8273296 MSG_KEEPOPEN '"BOX ["][buffer3]" on\nSOMEONE'S PC..."
return

'---------------
#org 0x2737FF
special2 LASTRESULT 0x1E7
bufferboxname 0x2 LASTRESULT
msgbox 0x82732D9 MSG_KEEPOPEN '"BOX ["][buffer3]" on\nLANETTE'S PC..."
return


'---------
' Strings
'---------
#org 0x27077E
= I've been researching rain for many\nyears, but it's ridiculous to think that\lhumans can freely change the weather.

#org 0x270650
= Thanks!\nThanks to you, we're safe!\pIt might be an odd way of thanking you,\nbut take this POKéMON.

#org 0x2707F1
= I track weather patterns over\nthe HOENN region.\pPresently, a drought has been recorded\nin [buffer1].\pCould that mean, somewhere near\n[buffer1][.]

#org 0x273374
= Do you want to give a nickname to\nthis [buffer1]?

#org 0x27331C
= There's no more room for POKéMON!\pThe POKéMON BOXES are full and\ncan't accept any more!

#org 0x2708FC
= Abnormal weather conditions are\nno longer being reported.\pThe occasional rainfall is a blessing,\nreally.

#org 0x270873
= I track weather patterns over\nthe HOENN region.\pPresently, heavy rainfall has been\nrecorded over [buffer1].\pCould that mean, somewhere near\n[buffer1][.]

#org 0x2706E8
= [player] received CASTFORM!

#org 0x2706FE
= That POKéMON changes shape according\nto the weather conditions.\pThere're plenty of them in the\nINSTITUTE--go ahead and take it.

#org 0x273216
= [buffer2] was transferred to\nSOMEONE'S PC.\pIt was placed in \nBOX ["][buffer1]."

#org 0x273256
= [buffer2] was transferred to\nLANETTE'S PC.\pIt was placed in \nBOX ["][buffer1]."

#org 0x273296
= BOX ["][buffer3]" on\nSOMEONE'S PC was full.\p[buffer2] was transferred to\nBOX ["][buffer1]."

#org 0x2732D9
= BOX ["][buffer3]" on\nLANETTE'S PC was full.\p[buffer2] was transferred to\nBOX ["][buffer1]."