mirror of
https://github.com/pret/pokered.git
synced 2025-02-25 08:12:01 +00:00
86 lines
1.5 KiB
NASM
Executable File
86 lines
1.5 KiB
NASM
Executable File
CinnabarIslandScript:
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, wCurrentMapScriptFlags
|
|
set 5, [hl]
|
|
ResetEvent EVENT_MANSION_SWITCH_ON
|
|
ResetEvent EVENT_LAB_STILL_REVIVING_FOSSIL
|
|
ld hl, CinnabarIslandScriptPointers
|
|
ld a, [wCinnabarIslandCurScript]
|
|
jp CallFunctionInTable
|
|
|
|
CinnabarIslandScriptPointers:
|
|
dw CinnabarIslandScript0
|
|
dw CinnabarIslandScript1
|
|
|
|
CinnabarIslandScript0:
|
|
ld b, SECRET_KEY
|
|
call IsItemInBag
|
|
ret nz
|
|
ld a, [wYCoord]
|
|
cp $4
|
|
ret nz
|
|
ld a, [wXCoord]
|
|
cp $12
|
|
ret nz
|
|
ld a, PLAYER_DIR_UP
|
|
ld [wPlayerMovingDirection], a
|
|
ld a, $8
|
|
ld [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
xor a
|
|
ld [hJoyHeld], a
|
|
ld a, $1
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
ld a, D_DOWN
|
|
ld [wSimulatedJoypadStatesEnd], a
|
|
call StartSimulatingJoypadStates
|
|
xor a
|
|
ld [wSpriteStateData1 + 9], a
|
|
ld [wJoyIgnore], a
|
|
ld a, $1
|
|
ld [wCinnabarIslandCurScript], a
|
|
ret
|
|
|
|
CinnabarIslandScript1:
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
|
and a
|
|
ret nz
|
|
call Delay3
|
|
ld a, $0
|
|
ld [wCinnabarIslandCurScript], a
|
|
ret
|
|
|
|
CinnabarIslandTextPointers:
|
|
dw CinnabarIslandText1
|
|
dw CinnabarIslandText2
|
|
dw CinnabarIslandText3
|
|
dw MartSignText
|
|
dw PokeCenterSignText
|
|
dw CinnabarIslandText6
|
|
dw CinnabarIslandText7
|
|
dw CinnabarIslandText8
|
|
|
|
CinnabarIslandText8:
|
|
TX_FAR _CinnabarIslandText8
|
|
db "@"
|
|
|
|
CinnabarIslandText1:
|
|
TX_FAR _CinnabarIslandText1
|
|
db "@"
|
|
|
|
CinnabarIslandText2:
|
|
TX_FAR _CinnabarIslandText2
|
|
db "@"
|
|
|
|
CinnabarIslandText3:
|
|
TX_FAR _CinnabarIslandText3
|
|
db "@"
|
|
|
|
CinnabarIslandText6:
|
|
TX_FAR _CinnabarIslandText6
|
|
db "@"
|
|
|
|
CinnabarIslandText7:
|
|
TX_FAR _CinnabarIslandText7
|
|
db "@"
|