'---------------
#org 0x14D661
lock
faceplayer
checkgender
compare LASTRESULT 0x0
if 0x1 goto 0x800000
compare LASTRESULT 0x1
if 0x1 goto 0x800010
'---------------
'---------------
#org 0x800000
showmoney 0x00 0x00 0x00
msgbox 0x800020 MSG_NORMAL '"Hello there,[player]\pI am..."
givemoney 0xBB8 0x0
hidemoney 0x0 0x0
setflag 0x800
msgbox 0x800030 MSG_NORMAL '"There's the money.\pNow, time for the deal..."
yesnobox 0x0 0x0
closeonkeypress
compare LASTRESULT 0x1
if 0x1 goto 0x800040
call 0x800050
'---------------
'---------------
#org 0x800010
setflag 0x800
msgbox 0x800060 MSG_FACE '"Hey, your a girl\p That..."
givepokemon 0x52 0x16 0x4 0x0 0x0 0x0
msgbox 0x800070 MSG_YESNO '"You can name the meowth\nwhatever you like"
compare 0x800D 0x1
if 0x1 gosub 0x800080
'---------------
'---------------
#org 0x800040
paymoney 0x7D0 0x0
givepokemon 0x2 0x16 0x0 0x0 0x0 0x0
msgbox 0x800090 MSG_YESNO '"You will name him, y'know that?"
compare 0x800D 0x1
if 0x1 gosub 0x800080
'---------------
'---------------
#org 0x800050
msgbox 0x8000C0 MSG_NORMAL '"Okk..."
release
end
'---------------
'---------------
#org 0x800080
subvar 0x800D 0x1
copyvar 0x8004 0x800D
fadescreen 0x1
special 0x166
waitstate
return
call 0x8000A0
'---------------
'---------------
#org 0x8000A0
msgbox 0x8000B0 MSG_NORMAL '"Well, I'll be gone. One more..."
cry 0x48 0x0
pause 0xA
wildbattle 0x48 0xC 0x0
fadescreen 0x1
fadescreen 0x0
hidesprite 0x800F
setflag 0x200
release
end
'---------------
'---------
' Strings
'---------
#org 0x800020
= Hello there,[player]\pI am here to give you\nan incredible deal.\pBut, you have to pay\n\hB72000.
#org 0x800030
= There's the money.\pNow, time for the deal.\pWill you pay up for the charizard\nor cash in?
#org 0x800060
= Hey, your a girl\p That changes everything.\pI'll give you a free pokemon.
#org 0x800070
= You can name the meowth\nwhatever you like.
#org 0x800090
= You will name him, y'know that?
#org 0x8000B0
= Well, I'll be gone.\p One more thing before you go.
#org 0x8000C0
= Okk...