Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
pret
GitHub Repository: pret/pokered
 Path: blob/master/scripts/CinnabarIsland.asm
1270 views
1
CinnabarIsland_Script:

2
	call EnableAutoTextBoxDrawing

3
	ld hl, wCurrentMapScriptFlags

4
	set BIT_CUR_MAP_LOADED_1, [hl]

5
	ResetEvent EVENT_MANSION_SWITCH_ON

6
	ResetEvent EVENT_LAB_STILL_REVIVING_FOSSIL

7
	ld hl, CinnabarIsland_ScriptPointers

8
	ld a, [wCinnabarIslandCurScript]

9
	jp CallFunctionInTable

10


11
CinnabarIsland_ScriptPointers:

12
	def_script_pointers

13
	dw_const CinnabarIslandDefaultScript,      SCRIPT_CINNABARISLAND_DEFAULT

14
	dw_const CinnabarIslandPlayerMovingScript, SCRIPT_CINNABARISLAND_PLAYER_MOVING

15


16
CinnabarIslandDefaultScript:

17
	ld b, SECRET_KEY

18
	call IsItemInBag

19
	ret nz

20
	ld a, [wYCoord]

21
	cp 4

22
	ret nz

23
	ld a, [wXCoord]

24
	cp 18

25
	ret nz

26
	ld a, PLAYER_DIR_UP

27
	ld [wPlayerMovingDirection], a

28
	ld a, TEXT_CINNABARISLAND_DOOR_IS_LOCKED

29
	ldh [hTextID], a

30
	call DisplayTextID

31
	xor a

32
	ldh [hJoyHeld], a

33
	ld a, $1

34
	ld [wSimulatedJoypadStatesIndex], a

35
	ld a, PAD_DOWN

36
	ld [wSimulatedJoypadStatesEnd], a

37
	call StartSimulatingJoypadStates

38
	xor a

39
	ld [wSpritePlayerStateData1FacingDirection], a

40
	ld [wJoyIgnore], a

41
	ld a, SCRIPT_CINNABARISLAND_PLAYER_MOVING

42
	ld [wCinnabarIslandCurScript], a

43
	ret

44


45
CinnabarIslandPlayerMovingScript:

46
	ld a, [wSimulatedJoypadStatesIndex]

47
	and a

48
	ret nz

49
	call Delay3

50
	ld a, SCRIPT_CINNABARISLAND_DEFAULT

51
	ld [wCinnabarIslandCurScript], a

52
	ret

53


54
CinnabarIsland_TextPointers:

55
	def_text_pointers

56
	dw_const CinnabarIslandGirlText,           TEXT_CINNABARISLAND_GIRL

57
	dw_const CinnabarIslandGamblerText,        TEXT_CINNABARISLAND_GAMBLER

58
	dw_const CinnabarIslandSignText,           TEXT_CINNABARISLAND_SIGN

59
	dw_const MartSignText,                     TEXT_CINNABARISLAND_MART_SIGN

60
	dw_const PokeCenterSignText,               TEXT_CINNABARISLAND_POKECENTER_SIGN

61
	dw_const CinnabarIslandPokemonLabSignText, TEXT_CINNABARISLAND_POKEMONLAB_SIGN

62
	dw_const CinnabarIslandGymSignText,        TEXT_CINNABARISLAND_GYM_SIGN

63
	dw_const CinnabarIslandDoorIsLockedText,   TEXT_CINNABARISLAND_DOOR_IS_LOCKED

64


65
CinnabarIslandDoorIsLockedText:

66
	text_far _CinnabarIslandDoorIsLockedText

67
	text_end

68


69
CinnabarIslandGirlText:

70
	text_far _CinnabarIslandGirlText

71
	text_end

72


73
CinnabarIslandGamblerText:

74
	text_far _CinnabarIslandGamblerText

75
	text_end

76


77
CinnabarIslandSignText:

78
	text_far _CinnabarIslandSignText

79
	text_end

80


81
CinnabarIslandPokemonLabSignText:

82
	text_far _CinnabarIslandPokemonLabSignText

83
	text_end

84


85
CinnabarIslandGymSignText:

86
	text_far _CinnabarIslandGymSignText

87
	text_end

88


89