2019-01-01 20:06:23 +00:00
|
|
|
CinnabarIsland_Script:
|
2014-05-18 18:19:10 +00:00
|
|
|
call EnableAutoTextBoxDrawing
|
2016-01-03 19:17:10 +00:00
|
|
|
ld hl, wCurrentMapScriptFlags
|
2014-05-18 18:19:10 +00:00
|
|
|
set 5, [hl]
|
2015-07-21 17:36:03 +00:00
|
|
|
ResetEvent EVENT_MANSION_SWITCH_ON
|
|
|
|
ResetEvent EVENT_LAB_STILL_REVIVING_FOSSIL
|
2019-01-01 20:06:23 +00:00
|
|
|
ld hl, CinnabarIsland_ScriptPointers
|
2015-08-31 02:38:41 +00:00
|
|
|
ld a, [wCinnabarIslandCurScript]
|
2014-05-18 18:19:10 +00:00
|
|
|
jp CallFunctionInTable
|
|
|
|
|
2019-01-01 20:06:23 +00:00
|
|
|
CinnabarIsland_ScriptPointers:
|
2014-05-18 18:19:10 +00:00
|
|
|
dw CinnabarIslandScript0
|
|
|
|
dw CinnabarIslandScript1
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandScript0:
|
2014-05-18 18:19:10 +00:00
|
|
|
ld b, SECRET_KEY
|
|
|
|
call IsItemInBag
|
|
|
|
ret nz
|
2015-08-31 02:38:41 +00:00
|
|
|
ld a, [wYCoord]
|
2020-08-28 16:10:55 +00:00
|
|
|
cp 4
|
2014-05-18 18:19:10 +00:00
|
|
|
ret nz
|
2015-08-31 02:38:41 +00:00
|
|
|
ld a, [wXCoord]
|
2020-08-28 16:10:55 +00:00
|
|
|
cp 18
|
2014-05-18 18:19:10 +00:00
|
|
|
ret nz
|
2015-07-20 00:52:26 +00:00
|
|
|
ld a, PLAYER_DIR_UP
|
|
|
|
ld [wPlayerMovingDirection], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $8
|
2020-07-06 23:03:05 +00:00
|
|
|
ldh [hSpriteIndexOrTextID], a
|
2014-05-18 18:19:10 +00:00
|
|
|
call DisplayTextID
|
|
|
|
xor a
|
2020-07-06 23:03:05 +00:00
|
|
|
ldh [hJoyHeld], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $1
|
2014-09-10 03:55:19 +00:00
|
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
|
|
ld a, D_DOWN
|
|
|
|
ld [wSimulatedJoypadStatesEnd], a
|
|
|
|
call StartSimulatingJoypadStates
|
2014-05-18 18:19:10 +00:00
|
|
|
xor a
|
2020-07-05 21:29:11 +00:00
|
|
|
ld [wSpritePlayerStateData1FacingDirection], a
|
2014-05-25 17:51:53 +00:00
|
|
|
ld [wJoyIgnore], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $1
|
2015-08-31 02:38:41 +00:00
|
|
|
ld [wCinnabarIslandCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ret
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandScript1:
|
2014-09-10 03:55:19 +00:00
|
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
2014-05-18 18:19:10 +00:00
|
|
|
and a
|
|
|
|
ret nz
|
|
|
|
call Delay3
|
|
|
|
ld a, $0
|
2015-08-31 02:38:41 +00:00
|
|
|
ld [wCinnabarIslandCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ret
|
|
|
|
|
2019-01-01 20:06:23 +00:00
|
|
|
CinnabarIsland_TextPointers:
|
2014-05-18 18:19:10 +00:00
|
|
|
dw CinnabarIslandText1
|
|
|
|
dw CinnabarIslandText2
|
|
|
|
dw CinnabarIslandText3
|
|
|
|
dw MartSignText
|
|
|
|
dw PokeCenterSignText
|
|
|
|
dw CinnabarIslandText6
|
|
|
|
dw CinnabarIslandText7
|
|
|
|
dw CinnabarIslandText8
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandText8:
|
2020-07-04 21:09:35 +00:00
|
|
|
text_far _CinnabarIslandText8
|
|
|
|
text_end
|
2014-05-18 18:19:10 +00:00
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandText1:
|
2020-07-04 21:09:35 +00:00
|
|
|
text_far _CinnabarIslandText1
|
|
|
|
text_end
|
2014-05-18 18:19:10 +00:00
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandText2:
|
2020-07-04 21:09:35 +00:00
|
|
|
text_far _CinnabarIslandText2
|
|
|
|
text_end
|
2014-05-18 18:19:10 +00:00
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandText3:
|
2020-07-04 21:09:35 +00:00
|
|
|
text_far _CinnabarIslandText3
|
|
|
|
text_end
|
2014-05-18 18:19:10 +00:00
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandText6:
|
2020-07-04 21:09:35 +00:00
|
|
|
text_far _CinnabarIslandText6
|
|
|
|
text_end
|
2014-05-18 18:19:10 +00:00
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
CinnabarIslandText7:
|
2020-07-04 21:09:35 +00:00
|
|
|
text_far _CinnabarIslandText7
|
|
|
|
text_end
|