THE MOST AWAITED BUYING POKEMON SCRIPT FOR GBA

Luke111 said:

I HAVE MADE A SCRIPT TO BUY POKEMON FOR GBA
SCRIPT

Spoiler:

#dynamic 0x800000
#org @main
lock
faceplayer
showmoney 0x0 0x0 0x0
msgbox @OfferMsg 0x5
compare 0x800D 0x1
if 0x1 goto @AcceptedOffer
msgbox @DeclinedMsg 0x6
hidemoney 0x0 0x0
release
end

#org @AcceptedOffer
checkmoney 0x1F4 0x0
compare LASTRESULT 0x1
if 0x4 goto @Transaction
msgbox @IncorrectAmountMsg 0x6
hidemoney 0x0 0x0
release
end

#org @NoRoom
msgbox @NoRoomMsg 0x6
hidemoney 0x0 0x0
release
end

#org @Transaction
checkitemroom 0x6F 0x1
compare LASTRESULT 0x0
if 0x1 goto @NoRoom
paymoney 0x1F4 0x0
sound 0x58
updatemoney 0x0 0x0 0x0
msgbox @TransactionMsg 0x6
setflag 0x0828
givepokemon 0x4 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @received 0x4
waitfanfare
closeonkeypress
msgbox @givenickname 0x5
compare 0x800D 0x1
if 0x1 call @nickname
hidemoney 0x0 0x0
release
end

#org @OfferMsg
= Hi! Would you like to buy a \nCHARMENDER for [$]500?

#org @IncorrectAmountMsg
= Oh, you can't afford one.

#org @DeclinedMsg
= Not interested?

#org @NoRoomMsg
= You don't have room for it.

#org @givenickname
= Would you like to give a nickname\nto CHARMENDER?

#org @received
= [player] received a CHARMENDER!

#org @TransactionMsg
= Thank you!\nPlease come again!

#org @nickname
setvar 0x8004 0x0
fadescreen 0x1
special 0x9E
waitstate
return

I HAVE ALSO MADE A FOLDER WHICH HAS SCRIPT , A - MAP , XSE , AND SCRIPT .RBC FOR XSE
LINK

Spoiler:

https://www.mediafire.com/folder/9ldw2jv03m4ug/BUYING+POKEMON+SCRIPT

Click to expand...