pokered/scripts/victoryroad2.asm

246 lines
6.4 KiB
NASM
Raw Normal View History

2014-05-18 18:19:10 +00:00
VictoryRoad2Script: ; 5179d (14:579d)
ld hl, wd126
2014-05-18 18:19:10 +00:00
bit 6, [hl]
res 6, [hl]
call nz, VictoryRoad2Script_517c4
ld hl, wd126
2014-05-18 18:19:10 +00:00
bit 5, [hl]
res 5, [hl]
call nz, VictoryRoad2Script_517c9
call EnableAutoTextBoxDrawing
ld hl, VictoryRoad2TrainerHeaders
ld de, VictoryRoad2ScriptPointers
2015-08-31 02:38:41 +00:00
ld a, [wVictoryRoad2CurScript]
2014-05-18 18:19:10 +00:00
call ExecuteCurMapScriptInTable
2015-08-31 02:38:41 +00:00
ld [wVictoryRoad2CurScript], a
2014-05-18 18:19:10 +00:00
ret
VictoryRoad2Script_517c4: ; 517c4 (14:57c4)
2015-07-21 17:36:03 +00:00
ResetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
2014-05-18 18:19:10 +00:00
VictoryRoad2Script_517c9: ; 517c9 (14:57c9)
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
2014-05-18 18:19:10 +00:00
jr z, .asm_517da
push af
ld a, $15
2015-08-05 21:20:29 +00:00
lb bc, 4, 3
2014-05-18 18:19:10 +00:00
call VictoryRoad2Script_517e2
pop af
.asm_517da
bit 7, a
ret z
ld a, $1d
2015-08-05 21:20:29 +00:00
lb bc, 7, 11
2014-05-18 18:19:10 +00:00
VictoryRoad2Script_517e2: ; 517e2 (14:57e2)
2015-07-24 21:39:45 +00:00
ld [wNewTileBlockID], a
2014-09-14 18:29:18 +00:00
predef ReplaceTileBlock
2014-05-18 18:19:10 +00:00
ret
VictoryRoad2ScriptPointers: ; 517eb (14:57eb)
dw VictoryRoad2Script0
2014-09-14 18:29:18 +00:00
dw DisplayEnemyTrainerTextAndStartBattle
2014-05-18 18:19:10 +00:00
dw EndTrainerBattle
VictoryRoad2Script0: ; 517f1 (14:57f1)
ld hl, CoordsData_51816
2014-05-18 18:19:10 +00:00
call CheckBoulderCoords
jp nc, CheckFightingMapTrainers
2015-07-21 17:36:03 +00:00
EventFlagAddress hl, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
2015-07-19 03:49:52 +00:00
ld a, [wCoordIndex]
2014-05-18 18:19:10 +00:00
cp $2
jr z, .asm_5180b
2015-07-21 17:36:03 +00:00
CheckEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
SetEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
2014-05-18 18:19:10 +00:00
ret nz
jr .asm_51810
.asm_5180b
2015-07-21 17:36:03 +00:00
CheckEventAfterBranchReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
SetEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2
2014-05-18 18:19:10 +00:00
ret nz
.asm_51810
ld hl, wd126
2014-05-18 18:19:10 +00:00
set 5, [hl]
ret
CoordsData_51816: ; 51816 (14:5816)
db $10,$01
db $10,$09
db $FF
VictoryRoad2TextPointers: ; 5181b (14:581b)
dw VictoryRoad2Text1
dw VictoryRoad2Text2
dw VictoryRoad2Text3
dw VictoryRoad2Text4
dw VictoryRoad2Text5
dw VictoryRoad2Text6
2015-07-18 15:17:29 +00:00
dw PickUpItemText
dw PickUpItemText
dw PickUpItemText
dw PickUpItemText
2014-05-18 18:19:10 +00:00
dw BoulderText
dw BoulderText
dw BoulderText
VictoryRoad2TrainerHeaders: ; 51835 (14:5835)
VictoryRoad2TrainerHeader0: ; 51835 (14:5835)
2015-07-21 01:32:02 +00:00
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_0
2014-05-18 18:19:10 +00:00
db ($4 << 4) ; trainer's view range
2015-07-21 01:32:02 +00:00
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_0
dw VictoryRoad2BattleText1 ; TextBeforeBattle
dw VictoryRoad2AfterBattleText1 ; TextAfterBattle
dw VictoryRoad2EndBattleText1 ; TextEndBattle
dw VictoryRoad2EndBattleText1 ; TextEndBattle
2014-05-18 18:19:10 +00:00
VictoryRoad2TrainerHeader2: ; 51841 (14:5841)
2015-07-21 01:32:02 +00:00
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_2
2014-05-18 18:19:10 +00:00
db ($3 << 4) ; trainer's view range
2015-07-21 01:32:02 +00:00
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_2
dw VictoryRoad2BattleText2 ; TextBeforeBattle
dw VictoryRoad2AfterBattleText2 ; TextAfterBattle
dw VictoryRoad2EndBattleText2 ; TextEndBattle
dw VictoryRoad2EndBattleText2 ; TextEndBattle
2014-05-18 18:19:10 +00:00
VictoryRoad2TrainerHeader3: ; 5184d (14:584d)
2015-07-21 01:32:02 +00:00
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_3
2014-05-18 18:19:10 +00:00
db ($3 << 4) ; trainer's view range
2015-07-21 01:32:02 +00:00
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_3
dw VictoryRoad2BattleText3 ; TextBeforeBattle
dw VictoryRoad2AfterBattleText3 ; TextAfterBattle
dw VictoryRoad2EndBattleText3 ; TextEndBattle
dw VictoryRoad2EndBattleText3 ; TextEndBattle
2014-05-18 18:19:10 +00:00
VictoryRoad2TrainerHeader4: ; 51859 (14:5859)
2015-07-21 01:32:02 +00:00
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_4
2014-05-18 18:19:10 +00:00
db ($1 << 4) ; trainer's view range
2015-07-21 01:32:02 +00:00
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_4
dw VictoryRoad2BattleText4 ; TextBeforeBattle
dw VictoryRoad2AfterBattleText4 ; TextAfterBattle
dw VictoryRoad2EndBattleText4 ; TextEndBattle
dw VictoryRoad2EndBattleText4 ; TextEndBattle
2014-05-18 18:19:10 +00:00
VictoryRoad2TrainerHeader5: ; 51865 (14:5865)
2015-07-21 01:32:02 +00:00
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_5
2014-05-18 18:19:10 +00:00
db ($3 << 4) ; trainer's view range
2015-07-21 01:32:02 +00:00
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_5
dw VictoryRoad2BattleText5 ; TextBeforeBattle
dw VictoryRoad2AfterBattleText5 ; TextAfterBattle
dw VictoryRoad2EndBattleText5 ; TextEndBattle
dw VictoryRoad2EndBattleText5 ; TextEndBattle
2014-05-18 18:19:10 +00:00
VictoryRoad2TrainerHeader6: ; 51871 (14:5871)
2015-07-21 01:32:02 +00:00
dbEventFlagBit EVENT_BEAT_VICTORY_ROAD_2_TRAINER_6
2014-05-18 18:19:10 +00:00
db ($0 << 4) ; trainer's view range
2015-07-21 01:32:02 +00:00
dwEventFlagAddress EVENT_BEAT_VICTORY_ROAD_2_TRAINER_6
dw VictoryRoad2BattleText6 ; TextBeforeBattle
dw VictoryRoad2BattleText6 ; TextAfterBattle
dw VictoryRoad2BattleText6 ; TextEndBattle
dw VictoryRoad2BattleText6 ; TextEndBattle
2014-05-18 18:19:10 +00:00
db $ff
VictoryRoad2Text1: ; 5187e (14:587e)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, VictoryRoad2TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2Text2: ; 51888 (14:5888)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, VictoryRoad2TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2Text3: ; 51892 (14:5892)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, VictoryRoad2TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2Text4: ; 5189c (14:589c)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, VictoryRoad2TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2Text5: ; 518a6 (14:58a6)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, VictoryRoad2TrainerHeader5
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2Text6: ; 518b0 (14:58b0)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, VictoryRoad2TrainerHeader6
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2BattleText6: ; 518ba (14:58ba)
TX_FAR _VictoryRoad2BattleText6
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld a, MOLTRES
call PlayCry
call WaitForSoundToFinish
jp TextScriptEnd
VictoryRoad2BattleText1: ; 518ca (14:58ca)
TX_FAR _VictoryRoad2BattleText1
db "@"
VictoryRoad2EndBattleText1: ; 518cf (14:58cf)
TX_FAR _VictoryRoad2EndBattleText1
db "@"
VictoryRoad2AfterBattleText1: ; 518d4 (14:58d4)
TX_FAR _VictoryRoad2AfterBattleText1
db "@"
VictoryRoad2BattleText2: ; 518d9 (14:58d9)
TX_FAR _VictoryRoad2BattleText2
db "@"
VictoryRoad2EndBattleText2: ; 518de (14:58de)
TX_FAR _VictoryRoad2EndBattleText2
db "@"
VictoryRoad2AfterBattleText2: ; 518e3 (14:58e3)
TX_FAR _VictoryRoad2AfterBattleText2
db "@"
VictoryRoad2BattleText3: ; 518e8 (14:58e8)
TX_FAR _VictoryRoad2BattleText3
db "@"
VictoryRoad2EndBattleText3: ; 518ed (14:58ed)
TX_FAR _VictoryRoad2EndBattleText3
db "@"
VictoryRoad2AfterBattleText3: ; 518f2 (14:58f2)
TX_FAR _VictoryRoad2AfterBattleText3
db "@"
VictoryRoad2BattleText4: ; 518f7 (14:58f7)
TX_FAR _VictoryRoad2BattleText4
db "@"
VictoryRoad2EndBattleText4: ; 518fc (14:58fc)
TX_FAR _VictoryRoad2EndBattleText4
db "@"
VictoryRoad2AfterBattleText4: ; 51901 (14:5901)
TX_FAR _VictoryRoad2AfterBattleText4
db "@"
VictoryRoad2BattleText5: ; 51906 (14:5906)
TX_FAR _VictoryRoad2BattleText5
db "@"
VictoryRoad2EndBattleText5: ; 5190b (14:590b)
TX_FAR _VictoryRoad2EndBattleText5
db "@"
VictoryRoad2AfterBattleText5: ; 51910 (14:5910)
TX_FAR _VictoryRoad2AfterBattleText5
db "@"