Debug_MessageEnd: waitmessage waitbuttonpress releaseall end Debug_ShowFieldMessageStringVar4:: special ShowFieldMessageStringVar4 goto Debug_MessageEnd Debug_CheatStart:: setflag FLAG_SYS_POKEMON_GET setflag FLAG_PALLET_LADY_NOT_BLOCKING_SIGN setflag FLAG_OPENED_START_MENU setflag FLAG_VISITED_OAKS_LAB setflag FLAG_BEAT_RIVAL_IN_OAKS_LAB givemon SPECIES_BULBASAUR, 20, ITEM_NONE givemon SPECIES_CHARMANDER, 20, ITEM_NONE givemon SPECIES_SQUIRTLE, 20, ITEM_NONE givemon SPECIES_SMEARGLE, 100, ITEM_NONE, move1=MOVE_CUT, move2=MOVE_FLY, move3=MOVE_SURF, move4=MOVE_STRENGTH givemon SPECIES_SMEARGLE, 100, ITEM_NONE, move1=MOVE_FLASH, move2=MOVE_ROCK_SMASH, move3=MOVE_WATERFALL, move4=MOVE_TELEPORT clearflag FLAG_HIDE_OAK_IN_HIS_LAB setflag FLAG_HIDE_RIVAL_IN_LAB setvar VAR_MAP_SCENE_PALLET_TOWN_OAK, 1 @ prevents Oak scene when trying to enter Route 1 setflag FLAG_SYS_POKEDEX_GET special SetUnlockedPokedexFlags setvar VAR_MAP_SCENE_PALLET_TOWN_PROFESSOR_OAKS_LAB, 6 @ state after handing in parcel and getting pokedex setvar VAR_MAP_SCENE_VIRIDIAN_CITY_MART, 2 setvar VAR_MAP_SCENE_VIRIDIAN_CITY_OLD_MAN, 1 setvar VAR_MAP_SCENE_PALLET_TOWN_RIVALS_HOUSE, 1 setvar VAR_MAP_SCENE_ROUTE22, 1 setvar VAR_MAP_SCENE_POKEMON_CENTER_TEALA, 1 @ end setflag FLAG_SYS_NATIONAL_DEX special EnableNationalPokedex setflag FLAG_SYS_B_DASH setflag FLAG_BADGE01_GET setflag FLAG_BADGE02_GET setflag FLAG_BADGE03_GET setflag FLAG_BADGE04_GET setflag FLAG_BADGE05_GET setflag FLAG_BADGE06_GET setflag FLAG_BADGE07_GET setflag FLAG_BADGE08_GET setflag FLAG_GOT_BIKE_VOUCHER setflag FLAG_GOT_BICYCLE additem ITEM_BICYCLE setflag FLAG_WORLD_MAP_PALLET_TOWN setflag FLAG_WORLD_MAP_VIRIDIAN_CITY setflag FLAG_WORLD_MAP_PEWTER_CITY setflag FLAG_WORLD_MAP_ROUTE4_POKEMON_CENTER_1F setflag FLAG_WORLD_MAP_CERULEAN_CITY setflag FLAG_WORLD_MAP_VERMILION_CITY setflag FLAG_WORLD_MAP_ROUTE10_POKEMON_CENTER_1F setflag FLAG_WORLD_MAP_LAVENDER_TOWN setflag FLAG_WORLD_MAP_CELADON_CITY setflag FLAG_WORLD_MAP_FUCHSIA_CITY setflag FLAG_WORLD_MAP_SAFFRON_CITY setflag FLAG_WORLD_MAP_CINNABAR_ISLAND setflag FLAG_WORLD_MAP_INDIGO_PLATEAU_EXTERIOR setflag FLAG_WORLD_MAP_ONE_ISLAND setflag FLAG_WORLD_MAP_TWO_ISLAND setflag FLAG_WORLD_MAP_THREE_ISLAND setflag FLAG_WORLD_MAP_FOUR_ISLAND setflag FLAG_WORLD_MAP_FIVE_ISLAND setflag FLAG_WORLD_MAP_SIX_ISLAND setflag FLAG_WORLD_MAP_SEVEN_ISLAND release end Debug_FlagsNotSetOverworldConfigMessage:: message Debug_FlagsNotSetOverworldConfigMessage_Text goto Debug_MessageEnd Debug_FlagsNotSetOverworldConfigMessage_Text: .string "Feature unavailable!\n" .string "Please define a usable flag in:\l" .string "'include/config/overworld.h'!$" Debug_FlagsNotSetBattleConfigMessage:: message Debug_FlagsNotSetBattleConfigMessage_Text goto Debug_MessageEnd Debug_FlagsNotSetBattleConfigMessage_Text: .string "Feature unavailable!\n" .string "Please define a usable flag in:\l" .string "'include/config/battle.h'!$" Debug_BoxFilledMessage:: message Debug_BoxFilledMessage_Text goto Debug_MessageEnd Debug_BoxFilledMessage_Text: .string "Storage boxes filled!$" Debug_EventScript_CheckEVs:: lockall getpartysize goto_if_eq VAR_RESULT, 0, Debug_NoPokemon special ChoosePartyMon waitstate goto_if_ge VAR_0x8004, PARTY_SIZE, Debug_EventScript_CheckEVs_End callnative Script_GetChosenMonOffensiveEVs msgbox Debug_EventScript_Text_OffensiveEVs, MSGBOX_DEFAULT callnative Script_GetChosenMonDefensiveEVs msgbox Debug_EventScript_Text_DefensiveEVs, MSGBOX_DEFAULT Debug_EventScript_CheckEVs_End:: releaseall end Debug_EventScript_Text_OffensiveEVs: .string "ATK EVs: {STR_VAR_1}, SPATK EVs: {STR_VAR_2},\nSPEED EVs: {STR_VAR_3}$" Debug_EventScript_Text_DefensiveEVs: .string "HP EVs: {STR_VAR_1}, DEF EVs: {STR_VAR_2},\nSPDEF EVs: {STR_VAR_3}$" Debug_EventScript_CheckIVs:: lockall getpartysize goto_if_eq VAR_RESULT, 0, Debug_NoPokemon special ChoosePartyMon waitstate goto_if_ge VAR_0x8004, PARTY_SIZE, Debug_EventScript_CheckIVs_End callnative Script_GetChosenMonOffensiveIVs msgbox Debug_EventScript_Text_OffensiveIVs, MSGBOX_DEFAULT callnative Script_GetChosenMonDefensiveIVs msgbox Debug_EventScript_Text_DefensiveIVs, MSGBOX_DEFAULT Debug_EventScript_CheckIVs_End:: releaseall end Debug_EventScript_Text_OffensiveIVs: .string "ATK IVs: {STR_VAR_1}, SPATK IVs: {STR_VAR_2},\nSPEED IVs: {STR_VAR_3}$" Debug_EventScript_Text_DefensiveIVs: .string "HP IVs: {STR_VAR_1}, DEF IVs: {STR_VAR_2},\nSPDEF IVs: {STR_VAR_3}$" Debug_EventScript_Script_1:: release end Debug_EventScript_Script_2:: release end Debug_EventScript_Script_3:: release end Debug_EventScript_Script_4:: release end Debug_EventScript_Script_5:: release end Debug_EventScript_Script_6:: release end Debug_EventScript_Script_7:: release end Debug_EventScript_Script_8:: release end Debug_CheckSaveBlock:: callnative CheckSaveBlock1Size msgbox Debug_SaveBlock1Size, MSGBOX_DEFAULT callnative CheckSaveBlock2Size msgbox Debug_SaveBlock2Size, MSGBOX_DEFAULT callnative CheckSaveBlock3Size msgbox Debug_SaveBlock3Size, MSGBOX_DEFAULT callnative CheckPokemonStorageSize msgbox Debug_PokemonStorageSize, MSGBOX_DEFAULT release end Debug_SaveBlock1Size:: .string "SaveBlock1 size: {STR_VAR_1}b/{STR_VAR_2}b.\n" .string "Free space: {STR_VAR_3}b.$" Debug_SaveBlock2Size:: .string "SaveBlock2 size: {STR_VAR_1}b/{STR_VAR_2}b.\n" .string "Free space: {STR_VAR_3}b.$" Debug_SaveBlock3Size:: .string "SaveBlock3 size: {STR_VAR_1}b/{STR_VAR_2}b.\n" .string "Free space: {STR_VAR_3}b.$" Debug_PokemonStorageSize:: .string "{PKMN}Storage size: {STR_VAR_1}b/{STR_VAR_2}b.\n" .string "Free space: {STR_VAR_3}b.$" Debug_CheckROMSpace:: callnative CheckROMSize msgbox Debug_ROMSize, MSGBOX_DEFAULT release end Debug_ROMSize:: .string "ROM size: {STR_VAR_1}MB/32MB.\n" .string "Free space: {STR_VAR_2}MB.$" Debug_HatchAnEgg:: lockall getpartysize goto_if_eq VAR_RESULT, 0, Debug_NoPokemon special ChoosePartyMon waitstate goto_if_ge VAR_0x8004, PARTY_SIZE, Debug_HatchAnEgg_End specialvar VAR_RESULT, GetPartyMonSpecies goto_if_ne VAR_RESULT, SPECIES_EGG, DebugScript_HatchAnEgg_CantForceHatch special EggHatch waitstate Debug_HatchAnEgg_End:: releaseall end Debug_NoPokemon:: msgbox DebugScript_Text_EmptyParty, MSGBOX_DEFAULT releaseall end DebugScript_HatchAnEgg_CantForceHatch:: msgbox DebugScript_HatchAnEgg_Text_NotAnEgg, MSGBOX_DEFAULT releaseall end DebugScript_Text_EmptyParty:: .string "You have no Pokémon nor Eggs.$" DebugScript_HatchAnEgg_Text_NotAnEgg:: .string "That's not a Pokémon Egg.$" DebugScript_ZeroDaycareMons:: msgbox DebugText_DaycareNoPokemon, MSGBOX_DEFAULT releaseall end DebugScript_OneDaycareMons:: msgbox DebugText_DaycareOnePokemon, MSGBOX_DEFAULT releaseall end DebugScript_DaycareMonsNotCompatible:: msgbox DebugText_DaycarePokemonNotCompatible, MSGBOX_DEFAULT releaseall end DebugText_DaycareNoPokemon: .string "You have no Pokémon at Daycare.$" DebugText_DaycareOnePokemon: .string "You have only one Pokémon at Daycare.$" DebugText_DaycarePokemonNotCompatible: .string "Your Pokémon at Daycare can't\nhave babies together!$" Debug_ShowExpansionVersion:: callnative BufferExpansionVersion msgbox Debug_ExpansionVersion, MSGBOX_DEFAULT release end Debug_ExpansionVersion: .string "pokefirered {STR_VAR_1}$" Debug_EventScript_InflictStatus1:: lockall getpartysize goto_if_eq VAR_RESULT, 0, Debug_NoPokemon dynmultipush Debug_EventScript_InflictStatus1_Text_Single, 0 dynmultipush Debug_EventScript_InflictStatus1_Text_PartyWide, 1 dynmultipush Debug_EventScript_InflictStatus1_Text_Close, 2 dynmultistack 0, 0, FALSE, 3 FALSE, 0, NULL switch VAR_RESULT case 0, Debug_EventScript_InflictStatus1_Single case 1, Debug_EventScript_InflictStatus1_Party case 2, Debug_EventScript_InflictStatus1_Close Debug_EventScript_InflictStatus1_Close: releaseall end Debug_EventScript_InflictStatus1_Single: special ChoosePartyMon waitstate goto_if_ge VAR_0x8004, PARTY_SIZE, Debug_EventScript_InflictStatus1_Close specialvar VAR_RESULT, GetPartyMonSpecies goto_if_eq VAR_RESULT, SPECIES_EGG, Debug_EventScript_InflictStatus1_Close dynmultipush Debug_EventScript_InflictStatus1_Text_Poison, 0 dynmultipush Debug_EventScript_InflictStatus1_Text_Paralysis, 1 dynmultipush Debug_EventScript_InflictStatus1_Text_Sleep, 2 dynmultipush Debug_EventScript_InflictStatus1_Text_Burn, 3 dynmultipush Debug_EventScript_InflictStatus1_Text_Freeze, 4 dynmultipush Debug_EventScript_InflictStatus1_Text_Frostbite, 5 dynmultipush Debug_EventScript_InflictStatus1_Text_Close, 6 dynmultistack 0, 0, FALSE, 7, FALSE, 0, NULL switch VAR_RESULT case 0, Debug_EventScript_InflictStatus1_Single_Poison case 1, Debug_EventScript_InflictStatus1_Single_Paralysis case 2, Debug_EventScript_InflictStatus1_Single_Sleep case 3, Debug_EventScript_InflictStatus1_Single_Burn case 4, Debug_EventScript_InflictStatus1_Single_Freeze case 5, Debug_EventScript_InflictStatus1_Single_Frostbite case 6, Debug_EventScript_InflictStatus1_Close case SCR_MENU_CANCEL, Debug_EventScript_InflictStatus1_Close releaseall end Debug_EventScript_InflictStatus1_Single_Poison: setstatus1 STATUS1_POISON, VAR_0x8004 releaseall end Debug_EventScript_InflictStatus1_Single_Paralysis: setstatus1 STATUS1_PARALYSIS, VAR_0x8004 releaseall end Debug_EventScript_InflictStatus1_Single_Sleep: setstatus1 STATUS1_SLEEP, VAR_0x8004 releaseall end Debug_EventScript_InflictStatus1_Single_Burn: setstatus1 STATUS1_BURN, VAR_0x8004 releaseall end Debug_EventScript_InflictStatus1_Single_Freeze: setstatus1 STATUS1_FREEZE, VAR_0x8004 releaseall end Debug_EventScript_InflictStatus1_Single_Frostbite: setstatus1 STATUS1_FROSTBITE, VAR_0x8004 releaseall end Debug_EventScript_InflictStatus1_Party: dynmultipush Debug_EventScript_InflictStatus1_Text_Poison, 0 dynmultipush Debug_EventScript_InflictStatus1_Text_Paralysis, 1 dynmultipush Debug_EventScript_InflictStatus1_Text_Sleep, 2 dynmultipush Debug_EventScript_InflictStatus1_Text_Burn, 3 dynmultipush Debug_EventScript_InflictStatus1_Text_Freeze, 4 dynmultipush Debug_EventScript_InflictStatus1_Text_Frostbite, 5 dynmultipush Debug_EventScript_InflictStatus1_Text_Close, 6 dynmultistack 0, 0, FALSE, 7, FALSE, 0, NULL switch VAR_RESULT case 0, Debug_EventScript_InflictStatus1_Party_Poison case 1, Debug_EventScript_InflictStatus1_Party_Paralysis case 2, Debug_EventScript_InflictStatus1_Party_Sleep case 3, Debug_EventScript_InflictStatus1_Party_Burn case 4, Debug_EventScript_InflictStatus1_Party_Freeze case 5, Debug_EventScript_InflictStatus1_Party_Frostbite case 6, Debug_EventScript_InflictStatus1_Close case SCR_MENU_CANCEL, Debug_EventScript_InflictStatus1_Close releaseall end Debug_EventScript_InflictStatus1_Party_Poison: setstatus1 STATUS1_POISON, PARTY_SIZE releaseall end Debug_EventScript_InflictStatus1_Party_Paralysis: setstatus1 STATUS1_PARALYSIS, PARTY_SIZE releaseall end Debug_EventScript_InflictStatus1_Party_Sleep: setstatus1 STATUS1_SLEEP, PARTY_SIZE releaseall end Debug_EventScript_InflictStatus1_Party_Burn: setstatus1 STATUS1_BURN, PARTY_SIZE releaseall end Debug_EventScript_InflictStatus1_Party_Freeze: setstatus1 STATUS1_FREEZE, PARTY_SIZE releaseall end Debug_EventScript_InflictStatus1_Party_Frostbite: setstatus1 STATUS1_FROSTBITE, PARTY_SIZE releaseall end Debug_EventScript_InflictStatus1_Text_Single: .string "Single$" Debug_EventScript_InflictStatus1_Text_PartyWide: .string "Party-wide$" Debug_EventScript_InflictStatus1_Text_Close: .string "Close$" Debug_EventScript_InflictStatus1_Text_Poison: .string "Poison$" Debug_EventScript_InflictStatus1_Text_Paralysis: .string "Paralysis$" Debug_EventScript_InflictStatus1_Text_Sleep: .string "Sleep$" Debug_EventScript_InflictStatus1_Text_Burn: .string "Burn$" Debug_EventScript_InflictStatus1_Text_Freeze: .string "Freeze$" Debug_EventScript_InflictStatus1_Text_Frostbite: .string "Frostbite$"