Files
2019-03-13 00:08:15 +10:00

102 lines
1.6 KiB
NASM

include "constants.asm"
INCLUDE "hack/text/Route1P2.inc"
SECTION "maps/Route1P2.asm", ROMX
Route1P2ScriptLoader:: ; 7C67
ld hl, Route1P2ScriptPointers
call RunMapScript
call WriteBackMapScriptNumber
ret
Route1P2ScriptPointers:
dw Route1P2Script
dw Route1P2NPCIDs
Route1P2NPCIDs: ; 7C76
db $00
db $01
db $FF
Route1P2SignPointers:
dw Route1P2TextSign1
Route1P2TextPointers::
dw Route1P2Text1
dw Route1P2Text2
Route1P2Script:: ; 7C7F
ld a, [wYCoord]
cp $06
jr nz, .skipCheck
ld a, [wXCoord]
cp $09
jr nz, .skipCheck
ld a, 0 ; player
ld d, LEFT
call SetObjectFacing
ld a, 2
ld d, RIGHT
call SetObjectFacing
jr .endDemo
.skipCheck
ld hl, Route1P2NPCIDs ;data
ld de, Route1P2SignPointers ;start of textld pointers?
call CallMapTextSubroutine
ret
.endDemo
Route1P2Text1: ; 7CA7
ld hl, Route1P2TextString4
call OpenTextbox
call RotateFourPalettesLeft
jp Init
Route1P2Text2: ; 7CB3
ld hl, $D3A2 ; trainer flags?
bit 1, [hl]
jr nz, .Text2Jump ; already fought
ld hl, Route1P2TextString1
call OpenTextbox
ld hl, $D3A2
set 1, [hl]
ld a, $3C
ld [wce02], a
ld a, $02
ld [wce05], a
ld hl, wc5ed
set 7, [hl]
ld a, $08
ld [wd637], a
ret
.Text2Jump
Route1P2Text3: ; 7CDA
ld hl, Route1P2TextString3
call OpenTextbox
ret
Route1P2TextSign1: ; 7CE1
ld hl, Route1P2TextString5
call OpenTextbox
ret
Route1P2TextString1: ; 7CE8
text_Route1P2TextString1
Route1P2TextString2: ; 7D0C (unused?)
text_Route1P2TextString2
Route1P2TextString3: ; 7D19
text_Route1P2TextString3
Route1P2TextString4: ; 7D3B
text_Route1P2TextString4
Route1P2TextString5: ; 7DBD
text_Route1P2TextString5
Route1P2Padding:
textpad_Route1P2
;7DDD