diff options
Diffstat (limited to 'data/scripts/field_moves.inc')
| -rw-r--r-- | data/scripts/field_moves.inc | 306 |
1 files changed, 306 insertions, 0 deletions
diff --git a/data/scripts/field_moves.inc b/data/scripts/field_moves.inc new file mode 100644 index 000000000..b5efb263a --- /dev/null +++ b/data/scripts/field_moves.inc @@ -0,0 +1,306 @@ +EventScript_InteractWithCutTreeObject:: @ 81BDF13 + special sub_8110AB4 + compare VAR_RESULT, 2 + goto_if_eq EventScript_1A7AE0 + 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 + special sub_8110AB4 + compare VAR_RESULT, 2 + goto_if_eq EventScript_1A7AE0 + 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 + special sub_8110AB4 + compare VAR_RESULT, 2 + goto_if_eq EventScript_1A7AE0 + 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 + special sub_8110AB4 + compare VAR_RESULT, 2 + goto_if_eq EventScript_1A7AE0 + 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…$" |