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

201 lines
4.3 KiB
NASM
Executable file

SSAnne10Script:
call EnableAutoTextBoxDrawing
ld hl, SSAnne10TrainerHeader0
ld de, SSAnne10ScriptPointers
ld a, [wSSAnne10CurScript]
call ExecuteCurMapScriptInTable
ld [wSSAnne10CurScript], a
ret
SSAnne10ScriptPointers:
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
SSAnne10TextPointers:
dw SSAnne10Text1
dw SSAnne10Text2
dw SSAnne10Text3
dw SSAnne10Text4
dw SSAnne10Text5
dw SSAnne10Text6
dw SSAnne10Text7
dw SSAnne10Text8
dw PickUpItemText
dw PickUpItemText
dw PickUpItemText
SSAnne10TrainerHeader0:
dbEventFlagBit EVENT_BEAT_SS_ANNE_10_TRAINER_0
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_10_TRAINER_0
dw SSAnne10BattleText1 ; TextBeforeBattle
dw SSAnne10AfterBattleText1 ; TextAfterBattle
dw SSAnne10EndBattleText1 ; TextEndBattle
dw SSAnne10EndBattleText1 ; TextEndBattle
SSAnne10TrainerHeader1:
dbEventFlagBit EVENT_BEAT_SS_ANNE_10_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_10_TRAINER_1
dw SSAnne10BattleText2 ; TextBeforeBattle
dw SSAnne10AfterBattleText2 ; TextAfterBattle
dw SSAnne10EndBattleText2 ; TextEndBattle
dw SSAnne10EndBattleText2 ; TextEndBattle
SSAnne10TrainerHeader2:
dbEventFlagBit EVENT_BEAT_SS_ANNE_10_TRAINER_2
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_10_TRAINER_2
dw SSAnne10BattleText3 ; TextBeforeBattle
dw SSAnne10AfterBattleText3 ; TextAfterBattle
dw SSAnne10EndBattleText3 ; TextEndBattle
dw SSAnne10EndBattleText3 ; TextEndBattle
SSAnne10TrainerHeader3:
dbEventFlagBit EVENT_BEAT_SS_ANNE_10_TRAINER_3
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_10_TRAINER_3
dw SSAnne10BattleText4 ; TextBeforeBattle
dw SSAnne10AfterBattleText4 ; TextAfterBattle
dw SSAnne10EndBattleText4 ; TextEndBattle
dw SSAnne10EndBattleText4 ; TextEndBattle
SSAnne10TrainerHeader4:
dbEventFlagBit EVENT_BEAT_SS_ANNE_10_TRAINER_4
db ($2 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_10_TRAINER_4
dw SSAnne10BattleText5 ; TextBeforeBattle
dw SSAnne10AfterBattleText5 ; TextAfterBattle
dw SSAnne10EndBattleText5 ; TextEndBattle
dw SSAnne10EndBattleText5 ; TextEndBattle
SSAnne10TrainerHeader5:
dbEventFlagBit EVENT_BEAT_SS_ANNE_10_TRAINER_5
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SS_ANNE_10_TRAINER_5
dw SSAnne10BattleText6 ; TextBeforeBattle
dw SSAnne10AfterBattleText6 ; TextAfterBattle
dw SSAnne10EndBattleText6 ; TextEndBattle
dw SSAnne10EndBattleText6 ; TextEndBattle
db $ff
SSAnne10Text1:
TX_ASM
ld hl, SSAnne10TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SSAnne10Text2:
TX_ASM
ld hl, SSAnne10TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SSAnne10Text3:
TX_ASM
ld hl, SSAnne10TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SSAnne10Text4:
TX_ASM
ld hl, SSAnne10TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
SSAnne10Text5:
TX_ASM
ld hl, SSAnne10TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
SSAnne10Text6:
TX_ASM
ld hl, SSAnne10TrainerHeader5
call TalkToTrainer
jp TextScriptEnd
SSAnne10Text8:
TX_FAR _SSAnne10Text8
TX_ASM
ld a, MACHOKE
call PlayCry
jp TextScriptEnd
SSAnne10BattleText1:
TX_FAR _SSAnne10BattleText1
db "@"
SSAnne10EndBattleText1:
TX_FAR _SSAnne10EndBattleText1
db "@"
SSAnne10AfterBattleText1:
TX_FAR _SSAnne10AfterBattleText1
db "@"
SSAnne10BattleText2:
TX_FAR _SSAnne10BattleText2
db "@"
SSAnne10EndBattleText2:
TX_FAR _SSAnne10EndBattleText2
db "@"
SSAnne10AfterBattleText2:
TX_FAR _SSAnne10AfterBattleText2
db "@"
SSAnne10BattleText3:
TX_FAR _SSAnne10BattleText3
db "@"
SSAnne10EndBattleText3:
TX_FAR _SSAnne10EndBattleText3
db "@"
SSAnne10AfterBattleText3:
TX_FAR _SSAnne10AfterBattleText3
db "@"
SSAnne10BattleText4:
TX_FAR _SSAnne10BattleText4
db "@"
SSAnne10EndBattleText4:
TX_FAR _SSAnne10EndBattleText4
db "@"
SSAnne10AfterBattleText4:
TX_FAR _SSAnne10AfterBattleText4
db "@"
SSAnne10BattleText5:
TX_FAR _SSAnne10BattleText5
db "@"
SSAnne10EndBattleText5:
TX_FAR _SSAnne10EndBattleText5
db "@"
SSAnne10AfterBattleText5:
TX_FAR _SSAnne10AfterBattleText5
db "@"
SSAnne10BattleText6:
TX_FAR _SSAnne10BattleText6
db "@"
SSAnne10EndBattleText6:
TX_FAR _SSAnne10EndBattleText6
db "@"
SSAnne10AfterBattleText6:
TX_FAR _SSAnne10AfterBattleText6
db "@"
SSAnne10Text7:
TX_FAR _SSAnne10Text7
db "@"