pokered/scripts/route24.asm

327 lines
7.1 KiB
NASM
Raw Normal View History

2014-05-18 18:19:10 +00:00
Route24Script: ; 513ad (14:53ad)
call EnableAutoTextBoxDrawing
ld hl, Route24TrainerHeaders
ld de, Route24ScriptPointers
ld a, [W_ROUTE24CURSCRIPT]
call ExecuteCurMapScriptInTable
ld [W_ROUTE24CURSCRIPT], a
ret
Route24Script_513c0: ; 513c0 (14:53c0)
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2014-05-18 18:19:10 +00:00
ld [W_ROUTE24CURSCRIPT], a
ld [W_CURMAPSCRIPT], a
ret
Route24ScriptPointers: ; 513cb (14:53cb)
dw Route24Script0
2014-09-14 18:29:18 +00:00
dw DisplayEnemyTrainerTextAndStartBattle
2014-05-18 18:19:10 +00:00
dw EndTrainerBattle
dw Route24Script3
dw Route24Script4
Route24Script0: ; 513d5 (14:53d5)
ld a, [wd7ef]
2014-05-18 18:19:10 +00:00
bit 0, a
jp nz, CheckFightingMapTrainers
ld hl, CoordsData_5140e ; $540e
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
xor a
2014-05-25 17:51:53 +00:00
ld [hJoyHeld], a
2014-05-18 18:19:10 +00:00
ld a, $1
ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
call DisplayTextID
ld hl, wd7f0
2014-05-18 18:19:10 +00:00
bit 1, [hl]
res 1, [hl]
ret z
ld a, $80
ld [wSimulatedJoypadStatesEnd], a
2014-05-18 18:19:10 +00:00
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
call StartSimulatingJoypadStates
2014-05-18 18:19:10 +00:00
ld a, $4
ld [W_ROUTE24CURSCRIPT], a
ld [W_CURMAPSCRIPT], a
ret
CoordsData_5140e: ; 5140e (14:540e)
db $0F,$0A,$FF
Route24Script4: ; 51411 (14:5411)
ld a, [wSimulatedJoypadStatesIndex]
2014-05-18 18:19:10 +00:00
and a
ret nz
call Delay3
ld a, $0
ld [W_ROUTE24CURSCRIPT], a
ld [W_CURMAPSCRIPT], a
ret
Route24Script3: ; 51422 (14:5422)
ld a, [W_ISINBATTLE] ; W_ISINBATTLE
2014-05-18 18:19:10 +00:00
cp $ff
jp z, Route24Script_513c0
call UpdateSprites
ld a, $f0
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld hl, wd7ef
2014-05-18 18:19:10 +00:00
set 1, [hl]
ld a, $1
ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
call DisplayTextID
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2014-05-18 18:19:10 +00:00
ld a, $0
ld [W_ROUTE24CURSCRIPT], a
ld [W_CURMAPSCRIPT], a
ret
Route24TextPointers: ; 5144b (14:544b)
dw Route24Text1
dw Route24Text2
dw Route24Text3
dw Route24Text4
dw Route24Text5
dw Route24Text6
dw Route24Text7
dw Predef5CText
Route24TrainerHeaders: ; 5145b (14:545b)
Route24TrainerHeader0: ; 5145b (14:545b)
db $2 ; flag's bit
db ($4 << 4) ; trainer's view range
dw wd7ef ; flag's byte
2014-05-18 18:19:10 +00:00
dw Route24BattleText1 ; 0x5571 TextBeforeBattle
dw Route24AfterBattleText1 ; 0x557b TextAfterBattle
dw Route24EndBattleText1 ; 0x5576 TextEndBattle
dw Route24EndBattleText1 ; 0x5576 TextEndBattle
Route24TrainerHeader2: ; 51467 (14:5467)
db $3 ; flag's bit
db ($1 << 4) ; trainer's view range
dw wd7ef ; flag's byte
2014-05-18 18:19:10 +00:00
dw Route24BattleText2 ; 0x5580 TextBeforeBattle
dw Route24AfterBattleText2 ; 0x558a TextAfterBattle
dw Route24EndBattleText2 ; 0x5585 TextEndBattle
dw Route24EndBattleText2 ; 0x5585 TextEndBattle
Route24TrainerHeader3: ; 51473 (14:5473)
db $4 ; flag's bit
db ($1 << 4) ; trainer's view range
dw wd7ef ; flag's byte
2014-05-18 18:19:10 +00:00
dw Route24BattleText3 ; 0x558f TextBeforeBattle
dw Route24AfterBattleText3 ; 0x5599 TextAfterBattle
dw Route24EndBattleText3 ; 0x5594 TextEndBattle
dw Route24EndBattleText3 ; 0x5594 TextEndBattle
Route24TrainerHeader4: ; 5147f (14:547f)
db $5 ; flag's bit
db ($1 << 4) ; trainer's view range
dw wd7ef ; flag's byte
2014-05-18 18:19:10 +00:00
dw Route24BattleText4 ; 0x559e TextBeforeBattle
dw Route24AfterBattleText4 ; 0x55a8 TextAfterBattle
dw Route24EndBattleText4 ; 0x55a3 TextEndBattle
dw Route24EndBattleText4 ; 0x55a3 TextEndBattle
Route24TrainerHeader5: ; 5148b (14:548b)
db $6 ; flag's bit
db ($1 << 4) ; trainer's view range
dw wd7ef ; flag's byte
2014-05-18 18:19:10 +00:00
dw Route24BattleText5 ; 0x55ad TextBeforeBattle
dw Route24AfterBattleText5 ; 0x55b7 TextAfterBattle
dw Route24EndBattleText5 ; 0x55b2 TextEndBattle
dw Route24EndBattleText5 ; 0x55b2 TextEndBattle
Route24TrainerHeader6: ; 51497 (14:5497)
db $7 ; flag's bit
db ($1 << 4) ; trainer's view range
dw wd7ef ; flag's byte
2014-05-18 18:19:10 +00:00
dw Route24BattleText6 ; 0x55bc TextBeforeBattle
dw Route24AfterBattleText6 ; 0x55c6 TextAfterBattle
dw Route24EndBattleText6 ; 0x55c1 TextEndBattle
dw Route24EndBattleText6 ; 0x55c1 TextEndBattle
db $ff
Route24Text1: ; 514a4 (14:54a4)
db $8
ld hl, wd7f0
2014-05-18 18:19:10 +00:00
res 1, [hl]
ld a, [wd7ef]
2014-05-18 18:19:10 +00:00
bit 0, a
jr nz, .asm_a03f5 ; 0x514af $48
ld hl, Route24Text_51510
call PrintText
ld bc, (NUGGET << 8) | 1
call GiveItem
jr nc, .BagFull
ld hl, wd7ef
2014-05-18 18:19:10 +00:00
set 0, [hl]
ld hl, Route24Text_5151a
call PrintText
ld hl, Route24Text_51526
call PrintText
ld hl, wd72d
2014-05-18 18:19:10 +00:00
set 6, [hl]
set 7, [hl]
ld hl, Route24Text_5152b
ld de, Route24Text_5152b
2014-09-14 18:29:18 +00:00
call SaveEndBattleTextPointers
2014-05-18 18:19:10 +00:00
ld a, [$ff8c]
2014-09-13 07:50:56 +00:00
ld [wSpriteIndex], a
2014-05-18 18:19:10 +00:00
call EngageMapTrainer
call InitBattleEnemyParameters
xor a
2014-05-25 17:51:53 +00:00
ld [hJoyHeld], a
2014-05-18 18:19:10 +00:00
ld a, $3
ld [W_ROUTE24CURSCRIPT], a
ld [W_CURMAPSCRIPT], a
jp TextScriptEnd
.asm_a03f5 ; 0x514f9
ld hl, Route24Text_51530
call PrintText
jp TextScriptEnd
.BagFull
ld hl, Route24Text_51521
call PrintText
ld hl, wd7f0
2014-05-18 18:19:10 +00:00
set 1, [hl]
jp TextScriptEnd
Route24Text_51510: ; 51510 (14:5510)
TX_FAR _Route24Text_51510 ; 0x92721
db $0B
TX_FAR _Route24Text_51515 ; 0x92755
db "@"
Route24Text_5151a: ; 5151a (14:551a)
TX_FAR _Route24Text_5151a ; 0x92779
db $0B, $6, "@"
Route24Text_51521: ; 51521 (14:5521)
TX_FAR _Route24Text_51521
db "@"
Route24Text_51526: ; 51526 (14:5526)
TX_FAR _Route24Text_51526
db "@"
Route24Text_5152b: ; 5152b (14:552b)
TX_FAR _Route24Text_5152b
db "@"
Route24Text_51530: ; 51530 (14:5530)
TX_FAR _Route24Text_51530
db "@"
Route24Text2: ; 51535 (14:5535)
db $08 ; asm
ld hl, Route24TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
Route24Text3: ; 5153f (14:553f)
db $08 ; asm
ld hl, Route24TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
Route24Text4: ; 51549 (14:5549)
db $08 ; asm
ld hl, Route24TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
Route24Text5: ; 51553 (14:5553)
db $08 ; asm
ld hl, Route24TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
Route24Text6: ; 5155d (14:555d)
db $08 ; asm
ld hl, Route24TrainerHeader5
call TalkToTrainer
jp TextScriptEnd
Route24Text7: ; 51567 (14:5567)
db $08 ; asm
ld hl, Route24TrainerHeader6
call TalkToTrainer
jp TextScriptEnd
Route24BattleText1: ; 51571 (14:5571)
TX_FAR _Route24BattleText1
db "@"
Route24EndBattleText1: ; 51576 (14:5576)
TX_FAR _Route24EndBattleText1
db "@"
Route24AfterBattleText1: ; 5157b (14:557b)
TX_FAR _Route24AfterBattleText1
db "@"
Route24BattleText2: ; 51580 (14:5580)
TX_FAR _Route24BattleText2
db "@"
Route24EndBattleText2: ; 51585 (14:5585)
TX_FAR _Route24EndBattleText2
db "@"
Route24AfterBattleText2: ; 5158a (14:558a)
TX_FAR _Route24AfterBattleText2
db "@"
Route24BattleText3: ; 5158f (14:558f)
TX_FAR _Route24BattleText3
db "@"
Route24EndBattleText3: ; 51594 (14:5594)
TX_FAR _Route24EndBattleText3
db "@"
Route24AfterBattleText3: ; 51599 (14:5599)
TX_FAR _Route24AfterBattleText3
db "@"
Route24BattleText4: ; 5159e (14:559e)
TX_FAR _Route24BattleText4
db "@"
Route24EndBattleText4: ; 515a3 (14:55a3)
TX_FAR _Route24EndBattleText4
db "@"
Route24AfterBattleText4: ; 515a8 (14:55a8)
TX_FAR _Route24AfterBattleText4
db "@"
Route24BattleText5: ; 515ad (14:55ad)
TX_FAR _Route24BattleText5
db "@"
Route24EndBattleText5: ; 515b2 (14:55b2)
TX_FAR _Route24EndBattleText5
db "@"
Route24AfterBattleText5: ; 515b7 (14:55b7)
TX_FAR _Route24AfterBattleText5
db "@"
Route24BattleText6: ; 515bc (14:55bc)
TX_FAR _Route24BattleText6
db "@"
Route24EndBattleText6: ; 515c1 (14:55c1)
TX_FAR _Route24EndBattleText6
db "@"
Route24AfterBattleText6: ; 515c6 (14:55c6)
TX_FAR _Route24AfterBattleText6
db "@"