1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
Route22Gate_Script:
call EnableAutoTextBoxDrawing
ld hl, Route22Gate_ScriptPointers
ld a, [wRoute22GateCurScript]
call CallFunctionInTable
ld a, [wYCoord]
cp 4
ld a, ROUTE_23
jr c, .set_last_map
ld a, ROUTE_22
.set_last_map
ld [wLastMap], a
ret
Route22Gate_ScriptPointers:
def_script_pointers
dw_const Route22GateDefaultScript, SCRIPT_ROUTE22GATE_DEFAULT
dw_const Route22GatePlayerMovingScript, SCRIPT_ROUTE22GATE_PLAYER_MOVING
dw_const Route22GateNoopScript, SCRIPT_ROUTE22GATE_NOOP
Route22GateDefaultScript:
ld hl, Route22GateScriptCoords
call ArePlayerCoordsInArray
ret nc
xor a
ldh [hJoyHeld], a
ld a, SPRITE_FACING_LEFT
ld [wSprite01StateData1FacingDirection], a
ld a, TEXT_ROUTE22GATE_GUARD
ldh [hTextID], a
call DisplayTextID
ret
Route22GateScriptCoords:
dbmapcoord 4, 2
dbmapcoord 5, 2
db -1 ; end
Route22GateMovePlayerDownScript:
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
ld a, D_DOWN
ld [wSimulatedJoypadStatesEnd], a
ld [wSpritePlayerStateData1FacingDirection], a
ld [wJoyIgnore], a
jp StartSimulatingJoypadStates
Route22GatePlayerMovingScript:
ld a, [wSimulatedJoypadStatesIndex]
and a
ret nz
xor a
ld [wJoyIgnore], a
call Delay3
ld a, SCRIPT_ROUTE22GATE_DEFAULT
ld [wRoute22GateCurScript], a
Route22GateNoopScript:
ret
Route22Gate_TextPointers:
def_text_pointers
dw_const Route22GateGuardText, TEXT_ROUTE22GATE_GUARD
Route22GateGuardText:
text_asm
ld a, [wObtainedBadges]
bit BIT_BOULDERBADGE, a
jr nz, .has_boulderbadge
ld hl, Route22GateGuardNoBoulderbadgeText
call PrintText
call Route22GateMovePlayerDownScript
ld a, SCRIPT_ROUTE22GATE_PLAYER_MOVING
jr .set_current_script
.has_boulderbadge
ld hl, Route22GateGuardGoRightAheadText
call PrintText
ld a, SCRIPT_ROUTE22GATE_NOOP
.set_current_script
ld [wRoute22GateCurScript], a
jp TextScriptEnd
Route22GateGuardNoBoulderbadgeText:
text_far _Route22GateGuardNoBoulderbadgeText
text_asm
ld a, SFX_DENIED
call PlaySoundWaitForCurrent
call WaitForSoundToFinish
ld hl, Route22GateGuardICantLetYouPassText
ret
Route22GateGuardICantLetYouPassText:
text_far _Route22GateGuardICantLetYouPassText
text_end
Route22GateGuardGoRightAheadText:
text_far _Route22GateGuardGoRightAheadText
sound_get_item_1
text_end
|
