mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
176 lines
3.9 KiB
NASM
Executable file
176 lines
3.9 KiB
NASM
Executable file
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 "@"
|