shithub: pokered

ref: 02bd91b7076165653a900a8e39c12a92a9bd2976
dir: /scripts/cinnabarisland.asm/

CinnabarIslandScript: ; 1ca19 (7:4a19)
	call EnableAutoTextBoxDrawing
	ld hl, wd126
	set 5, [hl]
	ld hl, wd796
	res 0, [hl]
	ld hl, wd7a3
	res 1, [hl]
	ld hl, CinnabarIslandScriptPointers
	ld a, [W_CINNABARISLANDCURSCRIPT]
	jp CallFunctionInTable

CinnabarIslandScriptPointers: ; 1ca34 (7:4a34)
	dw CinnabarIslandScript0
	dw CinnabarIslandScript1

CinnabarIslandScript0: ; 1ca38 (7:4a38)
	ld b, SECRET_KEY
	call IsItemInBag
	ret nz
	ld a, [W_YCOORD]
	cp $4
	ret nz
	ld a, [W_XCOORD]
	cp $12
	ret nz
	ld a, $8
	ld [wd528], 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 [W_CINNABARISLANDCURSCRIPT], a
	ret

CinnabarIslandScript1: ; 1ca73 (7:4a73)
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	call Delay3
	ld a, $0
	ld [W_CINNABARISLANDCURSCRIPT], a
	ret

CinnabarIslandTextPointers: ; 1ca81 (7:4a81)
	dw CinnabarIslandText1
	dw CinnabarIslandText2
	dw CinnabarIslandText3
	dw MartSignText
	dw PokeCenterSignText
	dw CinnabarIslandText6
	dw CinnabarIslandText7
	dw CinnabarIslandText8

CinnabarIslandText8: ; 1ca91 (7:4a91)
	TX_FAR _CinnabarIslandText8
	db "@"

CinnabarIslandText1: ; 1ca96 (7:4a96)
	TX_FAR _CinnabarIslandText1
	db "@"

CinnabarIslandText2: ; 1ca9b (7:4a9b)
	TX_FAR _CinnabarIslandText2
	db "@"

CinnabarIslandText3: ; 1caa0 (7:4aa0)
	TX_FAR _CinnabarIslandText3
	db "@"

CinnabarIslandText6: ; 1caa5 (7:4aa5)
	TX_FAR _CinnabarIslandText6
	db "@"

CinnabarIslandText7: ; 1caaa (7:4aaa)
	TX_FAR _CinnabarIslandText7
	db "@"