| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177 |
- PokemonTower5Script:
- call EnableAutoTextBoxDrawing
- ld hl, PokemonTower5TrainerHeader0
- ld de, PokemonTower5ScriptPointers
- ld a, [wPokemonTower5CurScript]
- call ExecuteCurMapScriptInTable
- ld [wPokemonTower5CurScript], a
- ret
- PokemonTower5ScriptPointers:
- 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
- PokemonTower5TextPointers:
- 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 "@"
|
