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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
Route18Gate1F_Script:
ld hl, wd732
res 5, [hl]
call EnableAutoTextBoxDrawing
ld a, [wRoute18Gate1FCurScript]
ld hl, Route18Gate1F_ScriptPointers
jp CallFunctionInTable
Route18Gate1F_ScriptPointers:
def_script_pointers
dw_const Route18Gate1FDefaultScript, SCRIPT_ROUTE18GATE1F_DEFAULT
dw_const Route18Gate1FPlayerMovingUpScript, SCRIPT_ROUTE18GATE1F_PLAYER_MOVING_UP
dw_const Route18Gate1FGuardScript, SCRIPT_ROUTE18GATE1F_GUARD
dw_const Route18Gate1FPlayerMovingRightScript, SCRIPT_ROUTE18GATE1F_PLAYER_MOVING_RIGHT
Route18Gate1FDefaultScript:
call Route16Gate1FIsBicycleInBagScript
ret nz
ld hl, .StopsPlayerCoords
call ArePlayerCoordsInArray
ret nc
ld a, TEXT_ROUTE18GATE1F_GUARD_EXCUSE_ME
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ldh [hJoyHeld], a
ld a, [wCoordIndex]
cp $1
jr z, .next_to_counter
ld a, [wCoordIndex]
dec a
ld [wSimulatedJoypadStatesIndex], a
ld b, 0
ld c, a
ld a, D_UP
ld hl, wSimulatedJoypadStatesEnd
call FillMemory
call StartSimulatingJoypadStates
ld a, SCRIPT_ROUTE18GATE1F_PLAYER_MOVING_UP
ld [wRoute18Gate1FCurScript], a
ret
.next_to_counter
ld a, SCRIPT_ROUTE18GATE1F_GUARD
ld [wRoute18Gate1FCurScript], a
ret
.StopsPlayerCoords:
dbmapcoord 4, 3
dbmapcoord 4, 4
dbmapcoord 4, 5
dbmapcoord 4, 6
db -1 ; end
Route18Gate1FPlayerMovingUpScript:
ld a, [wSimulatedJoypadStatesIndex]
and a
ret nz
ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN
ld [wJoyIgnore], a
Route18Gate1FGuardScript:
ld a, TEXT_ROUTE18GATE1F_GUARD
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
ld a, D_RIGHT
ld [wSimulatedJoypadStatesEnd], a
call StartSimulatingJoypadStates
ld a, SCRIPT_ROUTE18GATE1F_PLAYER_MOVING_RIGHT
ld [wRoute18Gate1FCurScript], a
ret
Route18Gate1FPlayerMovingRightScript:
ld a, [wSimulatedJoypadStatesIndex]
and a
ret nz
xor a
ld [wJoyIgnore], a
ld hl, wd730
res 7, [hl]
ld a, SCRIPT_ROUTE18GATE1F_DEFAULT
ld [wRoute18Gate1FCurScript], a
ret
Route18Gate1F_TextPointers:
def_text_pointers
dw_const Route18Gate1FGuardText, TEXT_ROUTE18GATE1F_GUARD
dw_const Route18Gate1FGuardExcuseMeText, TEXT_ROUTE18GATE1F_GUARD_EXCUSE_ME
Route18Gate1FGuardText:
text_asm
call Route16Gate1FIsBicycleInBagScript
jr z, .no_bike
ld hl, .CyclingRoadUphillText
call PrintText
jr .text_script_end
.no_bike
ld hl, .YouNeedABicycleText
call PrintText
.text_script_end
jp TextScriptEnd
.YouNeedABicycleText:
text_far _Route18Gate1FGuardYouNeedABicycleText
text_end
.CyclingRoadUphillText:
text_far _Route18Gate1FGuardCyclingRoadUphillText
text_end
Route18Gate1FGuardExcuseMeText:
text_far _Route18Gate1FGuardExcuseMeText
text_end
|
