Only Once Script

#define ITEM_ORANBERRY 0x8B
#define ITEM_POKEBALL 0x4

#clean
#dynamic 0x740000

0x81D475

#define PLAYER_PERSON 0xFF
#define MOM_PERSON 0x1
#define PROF_PERSON 0x2
#define PLAYER_PKMN 0x5000
#define RIVAL_GENDER 0x4002
#define BOY_GENDER 0x0
#define global_event_var 0

#define move_a 0x7457BD
#define move_b 0x7457E4
#define move_c 0x81BDF0
#define move_d 0x81BF1B
#define move_e 0x81BF65

#define str_a 0x81D510
#define str_b 0x81D509
#define str_c 0x81D714

#define set_gender 0x81D509

#org @main
lockall
applymovement MOM_PERSON move_b
applymovement PLAYER_PERSON move_a
waitmovement PLAYER_PERSON
msgbox str_a 0x6
applymovement MOM_PERSON move_c
waitmovement MOM_PERSON
hidesprite MOM_PERSON
applymovement PROF_PERSON move_d
waitmovement PROF_PERSON
msgbox str_b 0x6
giveitem ITEM_POKEBALL 5 0
givepokemon PLAYER_PKMN 5 ITEM_ORANBERRY 0 0 0
special 0x9E
msgbox str_c 0x6
setvar RIVAL_GENDER 0
checkgender
compare LASTRESULT BOY_GENDER
if 0x1 call set_gender
call set_gender ' 1=female, 2=male.
applymovement PROF_PERSON move_e
waitmovement PROF_PERSON
call @advance_event
releaseall
end

#org @advance_event
addvar global_event_var 1
return

//---------------
#org 0x81D509
addvar 0x4002 0x1
return

//-----------
// Strings
//-----------
#org 0x81D510
= [player][.] I know this is hard,\nbut you have to listen[.] Ever\lsince your dad left, it's been\lharder and harder to keep food on\lthe table. Quite honestly, I\ldon't even have food for\ltonight[.] So[.] so[.]

#org 0x81D5D0
= Professor: [player], you have to\nunderstand that these are tough\ltimes. This was a very hard\ldecision for your mother, but I\lbelieve she's right. I've brought\lyou a Pokemon, some money,\land some pokeballs to help you\lstart out.

#org 0x81D714
= I know this is difficult, but I\nknow t[rival], is a rookie trainer\las well.\lYou two can keep each other safe.


//-----------
// Movements
//-----------
#org 0x7457BD
#raw 0xC //Step Down (Slow)
#raw 0xE //Step Left (Slow)
#raw 0xE //Step Left (Slow)
#raw 0x4 //Face Down (Faster)
#raw 0x63 //Question Mark (?)
#raw 0xFE //End of Movements

#org 0x7457E4
#raw 0x1 //Face Up
#raw 0xFE //End of Movements

#org 0x81BDF0
#raw 0x3 //Face Right
#raw 0x2 //Face Left
#raw 0x1 //Face Up
#raw 0x64 //Cross (X)
#raw 0x1D //Step Down (Fast)
#raw 0x1D //Step Down (Fast)
#raw 0x1F //Step Left (Fast)
#raw 0x1F //Step Left (Fast)
#raw 0x1F //Step Left (Fast)
#raw 0x1F //Step Left (Fast)
#raw 0x1D //Step Down (Fast)
#raw 0x1 //Face Up
#raw 0x62 //Exclamation Mark (!)
#raw 0x53 //Jump in Place (Facing Up)
#raw 0xC //Step Down (Slow)
#raw 0xFE //End of Movements

#org 0x81BF1B
#raw 0xD //Step Up (Slow)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x62 //Exclamation Mark (!)
#raw 0xFE //End of Movements

#org 0x81BF65
#raw 0x10 //Step Down (Normal)
#raw 0x10 //Step Down (Normal)
#raw 0x12 //Step Left (Normal)
#raw 0x12 //Step Left (Normal)
#raw 0x12 //Step Left (Normal)
#raw 0x10 //Step Down (Normal)
#raw 0x12 //Step Left (Normal)
#raw 0x12 //Step Left (Normal)
#raw 0x10 //Step Down (Normal)
#raw 0xFE //End of Movements