pokered/scripts/ssanne5.asm
dannye 70dde9d96b Clean up redundant labels
fix trainer header numbering
2016-07-20 00:40:04 -05:00

88 lines
1.7 KiB
NASM
Executable file

SSAnne5Script:
call EnableAutoTextBoxDrawing
ld hl, SSAnne5TrainerHeader0
ld de, SSAnne5ScriptPointers
ld a, [wSSAnne5CurScript]
call ExecuteCurMapScriptInTable
ld [wSSAnne5CurScript], a
ret
SSAnne5ScriptPointers:
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
SSAnne5TextPointers:
dw SSAnne5Text1
dw SSAnne5Text2
dw SSAnne5Text3
dw SSAnne5Text4
dw SSAnne5Text5
SSAnne5TrainerHeader0:
dbEventFlagBit EVENT_BEAT_SS_ANNE_5_TRAINER_0
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_5_TRAINER_0
dw SSAnne5BattleText1 ; TextBeforeBattle
dw SSAnne5AfterBattleText1 ; TextAfterBattle
dw SSAnne5EndBattleText1 ; TextEndBattle
dw SSAnne5EndBattleText1 ; TextEndBattle
SSAnne5TrainerHeader1:
dbEventFlagBit EVENT_BEAT_SS_ANNE_5_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_5_TRAINER_1
dw SSAnne5BattleText2 ; TextBeforeBattle
dw SSAnne5AfterBattleText2 ; TextAfterBattle
dw SSAnne5EndBattleText2 ; TextEndBattle
dw SSAnne5EndBattleText2 ; TextEndBattle
db $ff
SSAnne5Text1:
TX_FAR _SSAnne5Text1
db "@"
SSAnne5Text2:
TX_FAR _SSAnne5Text2
db "@"
SSAnne5Text3:
TX_FAR _SSAnne5Text3
db "@"
SSAnne5Text4:
TX_ASM
ld hl, SSAnne5TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SSAnne5BattleText1:
TX_FAR _SSAnne5BattleText1
db "@"
SSAnne5EndBattleText1:
TX_FAR _SSAnne5EndBattleText1
db "@"
SSAnne5AfterBattleText1:
TX_FAR _SSAnne5AfterBattleText1
db "@"
SSAnne5Text5:
TX_ASM
ld hl, SSAnne5TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SSAnne5BattleText2:
TX_FAR _SSAnne5BattleText2
db "@"
SSAnne5EndBattleText2:
TX_FAR _SSAnne5EndBattleText2
db "@"
SSAnne5AfterBattleText2:
TX_FAR _SSAnne5AfterBattleText2
db "@"