mirror of
https://github.com/pret/pokefirered.git
synced 2026-04-22 17:37:23 -05:00
299 lines
7.4 KiB
PHP
299 lines
7.4 KiB
PHP
EventScript_InteractWithCutTreeObject:: @ 81BDF13
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
lockall
|
|
goto_if_unset FLAG_BADGE02_GET, EventScript_CantCutTree
|
|
checkpartymove MOVE_CUT
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_eq EventScript_CantCutTree
|
|
setfieldeffectarg 0, VAR_RESULT
|
|
getpartymonname 0, VAR_RESULT
|
|
getmovename 1, MOVE_CUT
|
|
msgbox Text_CutTreeDown, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_DontCutTree
|
|
msgbox Text_MonUsedMove
|
|
closemessage
|
|
dofieldeffect FLDEFF_USE_CUT_ON_TREE
|
|
waitstate
|
|
goto EventScript_CutTree
|
|
end
|
|
|
|
EventScript_FldEffCut:: @ 81BDF6B
|
|
lockall
|
|
dofieldeffect FLDEFF_USE_CUT_ON_TREE
|
|
waitstate
|
|
goto EventScript_CutTree
|
|
end
|
|
|
|
EventScript_CutTree:: @ 81BDF76
|
|
applymovement VAR_LAST_TALKED, Movement_CutTree
|
|
waitmovement 0
|
|
removeobject VAR_LAST_TALKED
|
|
releaseall
|
|
end
|
|
|
|
Movement_CutTree:: @ 81BDF85
|
|
cut_tree
|
|
step_end
|
|
|
|
EventScript_CantCutTree:: @ 81BDF87
|
|
msgbox Text_TreeCanBeCutDown, MSGBOX_SIGN
|
|
releaseall
|
|
end
|
|
|
|
EventScript_DontCutTree:: @ 81BDF91
|
|
closemessage
|
|
releaseall
|
|
end
|
|
|
|
Text_CutTreeDown:: @ 81BDF94
|
|
.string "This tree looks like it can be CUT\n"
|
|
.string "down!\p"
|
|
.string "Would you like to CUT it?$"
|
|
|
|
Text_MonUsedMove:: @ 81BDFD7
|
|
.string "{STR_VAR_1} used {STR_VAR_2}!$"
|
|
|
|
Text_TreeCanBeCutDown:: @ 81BDFE3
|
|
.string "This tree looks like it can be CUT\n"
|
|
.string "down!$"
|
|
|
|
EventScript_InteractWithRockSmashRockObject:: @ 81BE00C
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
lockall
|
|
goto_if_unset FLAG_BADGE06_GET, EventScript_CantSmashRock
|
|
checkpartymove MOVE_ROCK_SMASH
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_eq EventScript_CantSmashRock
|
|
setfieldeffectarg 0, VAR_RESULT
|
|
getpartymonname 0, VAR_RESULT
|
|
getmovename 1, MOVE_ROCK_SMASH
|
|
msgbox Text_UseRockSmash, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_DontSmashRock
|
|
msgbox Text_MonUsedMove
|
|
closemessage
|
|
dofieldeffect FLDEFF_USE_ROCK_SMASH
|
|
waitstate
|
|
goto EventScript_UseRockSmash
|
|
end
|
|
|
|
EventScript_FldEffRockSmash:: @ 81BE064
|
|
lockall
|
|
dofieldeffect FLDEFF_USE_ROCK_SMASH
|
|
waitstate
|
|
goto EventScript_UseRockSmash
|
|
end
|
|
|
|
EventScript_UseRockSmash:: @ 81BE06F
|
|
applymovement VAR_LAST_TALKED, Movement_BreakRock
|
|
waitmovement 0
|
|
removeobject VAR_LAST_TALKED
|
|
special ScrSpecial_RockSmashWildEncounter
|
|
compare VAR_RESULT, FALSE
|
|
goto_if_eq EventScript_RockSmashNoEncounter
|
|
waitstate
|
|
releaseall
|
|
end
|
|
|
|
EventScript_RockSmashNoEncounter:: @ 81BE08D
|
|
releaseall
|
|
end
|
|
|
|
Movement_BreakRock:: @ 81BE08F
|
|
rock_smash_break
|
|
step_end
|
|
|
|
EventScript_CantSmashRock:: @ 81BE091
|
|
msgbox Text_MonMaySmashRock, MSGBOX_SIGN
|
|
end
|
|
|
|
EventScript_DontSmashRock:: @ 81BE09A
|
|
closemessage
|
|
releaseall
|
|
end
|
|
|
|
Text_UseRockSmash:: @ 81BE09D
|
|
.string "This rock appears to be breakable.\n"
|
|
.string "Would you like to use ROCK SMASH?$"
|
|
|
|
Text_MonMaySmashRock:: @ 81BE0E2
|
|
.string "It's a rugged rock, but a POKéMON\n"
|
|
.string "may be able to smash it.$"
|
|
|
|
EventScript_InteractWithStrengthBoulderObject:: @ 81BE11D
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
lockall
|
|
goto_if_unset FLAG_BADGE04_GET, EventScript_CantMoveBoulder
|
|
goto_if_set FLAG_SYS_STRENGTH_ACTIVE, EventScript_AlreadyUsedStrength
|
|
checkpartymove MOVE_STRENGTH
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_eq EventScript_CantMoveBoulder
|
|
setfieldeffectarg 0, VAR_RESULT
|
|
msgbox Text_UseStrength, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_DontUseStrength
|
|
closemessage
|
|
dofieldeffect FLDEFF_USE_STRENGTH
|
|
waitstate
|
|
goto EventScript_UseStrength
|
|
end
|
|
|
|
EventScript_FldEffStrength:: @ 81BE16E
|
|
lockall
|
|
dofieldeffect FLDEFF_USE_STRENGTH
|
|
waitstate
|
|
goto EventScript_UseStrength
|
|
end
|
|
|
|
EventScript_UseStrength:: @ 81BE179
|
|
setflag FLAG_SYS_STRENGTH_ACTIVE
|
|
msgbox Text_MonUsedStrengthCanMoveBoulders, MSGBOX_SIGN
|
|
end
|
|
|
|
EventScript_CantMoveBoulder:: @ 81BE185
|
|
msgbox Text_MonMayPushBoulder, MSGBOX_SIGN
|
|
end
|
|
|
|
EventScript_AlreadyUsedStrength:: @ 81BE18E
|
|
msgbox Text_StrengthMadeMovingBouldersPossible, MSGBOX_SIGN
|
|
end
|
|
|
|
EventScript_DontUseStrength:: @ 81BE197
|
|
closemessage
|
|
releaseall
|
|
end
|
|
|
|
Text_UseStrength:: @ 81BE19A
|
|
.string "It's a big boulder, but a POKéMON\n"
|
|
.string "may be able to push it aside.\p"
|
|
.string "Would you like to use STRENGTH?$"
|
|
|
|
Text_MonUsedStrengthCanMoveBoulders:: @ 81BE1FA
|
|
.string "{STR_VAR_1} used STRENGTH!\p"
|
|
.string "{STR_VAR_1}'s STRENGTH made it\n"
|
|
.string "possible to move boulders around!$"
|
|
|
|
Text_MonMayPushBoulder:: @ 81BE244
|
|
.string "It's a big boulder, but a POKéMON\n"
|
|
.string "may be able to push it aside.$"
|
|
|
|
Text_StrengthMadeMovingBouldersPossible:: @ 81BE284
|
|
.string "STRENGTH made it possible to move\n"
|
|
.string "boulders around.$"
|
|
|
|
EventScript_InteractWithWaterfall:: @ 81BE2B7
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
lockall
|
|
checkpartymove MOVE_WATERFALL
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_eq EventScript_WaterCrashingDown
|
|
getpartymonname 0, VAR_RESULT
|
|
setfieldeffectarg 0, VAR_RESULT
|
|
msgbox Text_UseWaterfall, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_EndWaterfall
|
|
msgbox Text_MonUsedWaterfall
|
|
dofieldeffect FLDEFF_USE_WATERFALL
|
|
goto EventScript_EndWaterfall
|
|
|
|
EventScript_81BE2FF:: @ 81BE2FF
|
|
lockall
|
|
EventScript_WaterCrashingDown:
|
|
msgbox Text_WallOfWaterCrashingDown
|
|
EventScript_EndWaterfall:
|
|
releaseall
|
|
end
|
|
|
|
Text_WallOfWaterCrashingDown:: @ 81BE30A
|
|
.string "A wall of water is crashing down\n"
|
|
.string "with a mighty roar.$"
|
|
|
|
Text_UseWaterfall:: @ 81BE33F
|
|
.string "It's a large waterfall.\n"
|
|
.string "Would you like to use WATERFALL?$"
|
|
|
|
Text_MonUsedWaterfall:: @ 81BE378
|
|
.string "{STR_VAR_1} used WATERFALL.$"
|
|
|
|
@ Unused leftover from R/S
|
|
EventScript_InteractWithDeepWater:: @ 81BE38B
|
|
lockall
|
|
checkpartymove MOVE_DIVE
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_eq EventScript_MayGoUnderwater
|
|
getpartymonname 0, VAR_RESULT
|
|
setfieldeffectarg 0, VAR_RESULT
|
|
setfieldeffectarg 1, 1
|
|
msgbox Text_SeaIsDeepUseDive, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_EndDive
|
|
msgbox Text_MonUsedDive
|
|
dofieldeffect FLDEFF_USE_DIVE
|
|
goto EventScript_EndDive
|
|
|
|
EventScript_CantDive:: @ 81BE3C9
|
|
lockall
|
|
EventScript_MayGoUnderwater:
|
|
msgbox Text_MonMayGoUnderwater
|
|
EventScript_EndDive:
|
|
releaseall
|
|
end
|
|
|
|
EventScript_TrySurface:: @ 81BE3D4
|
|
lockall
|
|
checkpartymove MOVE_DIVE
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_eq EventScript_CantSurface
|
|
getpartymonname 0, VAR_RESULT
|
|
setfieldeffectarg 0, VAR_RESULT
|
|
setfieldeffectarg 1, 1
|
|
msgbox Text_LightFilteringUseDive, MSGBOX_YESNO
|
|
compare VAR_RESULT, NO
|
|
goto_if_eq EventScript_EndSurface
|
|
msgbox Text_MonUsedDive
|
|
dofieldeffect FLDEFF_USE_DIVE
|
|
goto EventScript_EndSurface
|
|
|
|
EventScript_CantSurface:: @ 81BE412
|
|
lockall
|
|
msgbox Text_MonMaySurface
|
|
goto EventScript_EndSurface
|
|
|
|
EventScript_ObstacleCantSurface:: @ 81BE420
|
|
lockall
|
|
msgbox Text_DiveCantBeUsedHere
|
|
EventScript_EndSurface:
|
|
releaseall
|
|
end
|
|
|
|
Text_MonMayGoUnderwater:: @ 81BE42B
|
|
.string "The sea is deep here. A POKéMON\n"
|
|
.string "may be able to go underwater.$"
|
|
|
|
Text_SeaIsDeepUseDive:: @ 81BE469
|
|
.string "The sea is deep here.\n"
|
|
.string "Would you like to use DIVE?$"
|
|
|
|
Text_MonUsedDive:: @ 81BE49B
|
|
.string "{STR_VAR_1} used DIVE.$"
|
|
|
|
Text_MonMaySurface:: @ 81BE4A9
|
|
.string "Light is filtering down from above.\n"
|
|
.string "A POKéMON may be able to surface.$"
|
|
|
|
Text_LightFilteringUseDive:: @ 81BE4EF
|
|
.string "Light is filtering down from above.\n"
|
|
.string "Would you like to use DIVE?$"
|
|
|
|
Text_DiveCantBeUsedHere:: @ 81BE52F
|
|
.string "There is an obstacle above.\n"
|
|
.string "DIVE can't be used here.$"
|
|
|
|
EventScript_FailSweetScent:: @ 81BE564
|
|
msgbox Text_LooksLikeNothingHere, MSGBOX_SIGN
|
|
end
|
|
|
|
Text_LooksLikeNothingHere:: @ 81BE56D
|
|
.string "Looks like there's nothing here…$"
|