mirror of
https://github.com/pret/pokefirered.git
synced 2026-05-09 12:35:23 -05:00
420 lines
12 KiB
PHP
420 lines
12 KiB
PHP
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$"
|