diff options
Diffstat (limited to 'scripts/PokemonTower5F.asm')
| -rwxr-xr-x | scripts/PokemonTower5F.asm | 176 |
1 files changed, 176 insertions, 0 deletions
diff --git a/scripts/PokemonTower5F.asm b/scripts/PokemonTower5F.asm new file mode 100755 index 00000000..299261e9 --- /dev/null +++ b/scripts/PokemonTower5F.asm @@ -0,0 +1,176 @@ +PokemonTower5F_Script: + call EnableAutoTextBoxDrawing + ld hl, PokemonTower5TrainerHeader0 + ld de, PokemonTower5F_ScriptPointers + ld a, [wPokemonTower5FCurScript] + call ExecuteCurMapScriptInTable + ld [wPokemonTower5FCurScript], a + ret + +PokemonTower5F_ScriptPointers: + dw PokemonTower5Script0 + dw DisplayEnemyTrainerTextAndStartBattle + dw EndTrainerBattle + +PokemonTower5Script0: + ld hl, CoordsData_60992 + call ArePlayerCoordsInArray + jr c, .asm_60960 + ld hl, wd72e + res 4, [hl] + ResetEvent EVENT_IN_PURIFIED_ZONE + jp CheckFightingMapTrainers +.asm_60960 + CheckAndSetEvent EVENT_IN_PURIFIED_ZONE + ret nz + xor a + ld [hJoyHeld], a + ld a, $f0 + ld [wJoyIgnore], a + ld hl, wd72e + set 4, [hl] + predef HealParty + call GBFadeOutToWhite + call Delay3 + call Delay3 + call GBFadeInFromWhite + ld a, $7 + ld [hSpriteIndexOrTextID], a + call DisplayTextID + xor a + ld [wJoyIgnore], a + ret + +CoordsData_60992: + db $08,$0A + db $08,$0B + db $09,$0A + db $09,$0B + db $FF + +PokemonTower5F_TextPointers: + dw PokemonTower5Text1 + dw PokemonTower5Text2 + dw PokemonTower5Text3 + dw PokemonTower5Text4 + dw PokemonTower5Text5 + dw PickUpItemText + dw PokemonTower5Text7 + +PokemonTower5TrainerHeader0: + dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_0 + db ($2 << 4) ; trainer's view range + dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_0 + dw PokemonTower5BattleText1 ; TextBeforeBattle + dw PokemonTower5AfterBattleText1 ; TextAfterBattle + dw PokemonTower5EndBattleText1 ; TextEndBattle + dw PokemonTower5EndBattleText1 ; TextEndBattle + +PokemonTower5TrainerHeader1: + dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_1 + db ($3 << 4) ; trainer's view range + dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_1 + dw PokemonTower5BattleText2 ; TextBeforeBattle + dw PokemonTower5AfterBattleText2 ; TextAfterBattle + dw PokemonTower5EndBattleText2 ; TextEndBattle + dw PokemonTower5EndBattleText2 ; TextEndBattle + +PokemonTower5TrainerHeader2: + dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_2 + db ($2 << 4) ; trainer's view range + dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_2 + dw PokemonTower5BattleText3 ; TextBeforeBattle + dw PokemonTower5AfterBattleText3 ; TextAfterBattle + dw PokemonTower5EndBattleText3 ; TextEndBattle + dw PokemonTower5EndBattleText3 ; TextEndBattle + +PokemonTower5TrainerHeader3: + dbEventFlagBit EVENT_BEAT_POKEMONTOWER_5_TRAINER_3 + db ($2 << 4) ; trainer's view range + dwEventFlagAddress EVENT_BEAT_POKEMONTOWER_5_TRAINER_3 + dw PokemonTower5BattleText4 ; TextBeforeBattle + dw PokemonTower5AfterBattleText4 ; TextAfterBattle + dw PokemonTower5EndBattleText4 ; TextEndBattle + dw PokemonTower5EndBattleText4 ; TextEndBattle + + db $ff + +PokemonTower5Text1: + TX_FAR _PokemonTower5Text1 + db "@" + +PokemonTower5Text2: + TX_ASM + ld hl, PokemonTower5TrainerHeader0 + call TalkToTrainer + jp TextScriptEnd + +PokemonTower5BattleText1: + TX_FAR _PokemonTower5BattleText1 + db "@" + +PokemonTower5EndBattleText1: + TX_FAR _PokemonTower5EndBattleText1 + db "@" + +PokemonTower5AfterBattleText1: + TX_FAR _PokemonTower5AfterBattleText1 + db "@" + +PokemonTower5Text3: + TX_ASM + ld hl, PokemonTower5TrainerHeader1 + call TalkToTrainer + jp TextScriptEnd + +PokemonTower5BattleText2: + TX_FAR _PokemonTower5BattleText2 + db "@" + +PokemonTower5EndBattleText2: + TX_FAR _PokemonTower5EndBattleText2 + db "@" + +PokemonTower5AfterBattleText2: + TX_FAR _PokemonTower5AfterBattleText2 + db "@" + +PokemonTower5Text4: + TX_ASM + ld hl, PokemonTower5TrainerHeader2 + call TalkToTrainer + jp TextScriptEnd + +PokemonTower5BattleText3: + TX_FAR _PokemonTower5BattleText3 + db "@" + +PokemonTower5EndBattleText3: + TX_FAR _PokemonTower5EndBattleText3 + db "@" + +PokemonTower5AfterBattleText3: + TX_FAR _PokemonTower5AfterBattleText3 + db "@" + +PokemonTower5Text5: + TX_ASM + ld hl, PokemonTower5TrainerHeader3 + call TalkToTrainer + jp TextScriptEnd + +PokemonTower5BattleText4: + TX_FAR _PokemonTower5BattleText4 + db "@" + +PokemonTower5EndBattleText4: + TX_FAR _PokemonTower5EndBattleText4 + db "@" + +PokemonTower5AfterBattleText4: + TX_FAR _PokemonTower5AfterBattleText4 + db "@" + +PokemonTower5Text7: + TX_FAR _PokemonTower5Text7 + db "@" |