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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
|
SilphCo4Script:
call SilphCo4Script_19d21
call EnableAutoTextBoxDrawing
ld hl, SilphCo4TrainerHeader0
ld de, SilphCo4ScriptPointers
ld a, [wSilphCo4CurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo4CurScript], a
ret
SilphCo4Script_19d21:
ld hl, wCurrentMapScriptFlags
bit 5, [hl]
res 5, [hl]
ret z
ld hl, SilphCo4GateCoords
call SilphCo4Script_19d5d
call SilphCo4Script_19d89
CheckEvent EVENT_SILPH_CO_4_UNLOCKED_DOOR1
jr nz, .asm_19d48
push af
ld a, $54
ld [wNewTileBlockID], a
lb bc, 6, 2
predef ReplaceTileBlock
pop af
.asm_19d48
CheckEventAfterBranchReuseA EVENT_SILPH_CO_4_UNLOCKED_DOOR2, EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ret nz
ld a, $54
ld [wNewTileBlockID], a
lb bc, 4, 6
predef_jump ReplaceTileBlock
SilphCo4GateCoords:
db $06,$02
db $04,$06
db $FF
SilphCo4Script_19d5d:
push hl
ld hl, wCardKeyDoorY
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
xor a
ld [$ffe0], a
pop hl
.asm_19d69
ld a, [hli]
cp $ff
jr z, .asm_19d85
push hl
ld hl, $ffe0
inc [hl]
pop hl
cp b
jr z, .asm_19d7a
inc hl
jr .asm_19d69
.asm_19d7a
ld a, [hli]
cp c
jr nz, .asm_19d69
ld hl, wCardKeyDoorY
xor a
ld [hli], a
ld [hl], a
ret
.asm_19d85
xor a
ld [$ffe0], a
ret
SilphCo4Script_19d89:
EventFlagAddress hl, EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ld a, [$ffe0]
and a
ret z
cp $1
jr nz, .next
SetEventReuseHL EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ret
.next
SetEventAfterBranchReuseHL EVENT_SILPH_CO_4_UNLOCKED_DOOR2, EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ret
SilphCo4ScriptPointers:
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
SilphCo4TextPointers:
dw SilphCo4Text1
dw SilphCo4Text2
dw SilphCo4Text3
dw SilphCo4Text4
dw PickUpItemText
dw PickUpItemText
dw PickUpItemText
SilphCo4TrainerHeader0:
dbEventFlagBit EVENT_BEAT_SILPH_CO_4F_TRAINER_0
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SILPH_CO_4F_TRAINER_0
dw SilphCo4BattleText2 ; TextBeforeBattle
dw SilphCo4AfterBattleText2 ; TextAfterBattle
dw SilphCo4EndBattleText2 ; TextEndBattle
dw SilphCo4EndBattleText2 ; TextEndBattle
SilphCo4TrainerHeader1:
dbEventFlagBit EVENT_BEAT_SILPH_CO_4F_TRAINER_1
db ($3 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SILPH_CO_4F_TRAINER_1
dw SilphCo4BattleText3 ; TextBeforeBattle
dw SilphCo4AfterBattleText3 ; TextAfterBattle
dw SilphCo4EndBattleText3 ; TextEndBattle
dw SilphCo4EndBattleText3 ; TextEndBattle
SilphCo4TrainerHeader2:
dbEventFlagBit EVENT_BEAT_SILPH_CO_4F_TRAINER_2
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_SILPH_CO_4F_TRAINER_2
dw SilphCo4BattleText4 ; TextBeforeBattle
dw SilphCo4AfterBattleText4 ; TextAfterBattle
dw SilphCo4EndBattleText4 ; TextEndBattle
dw SilphCo4EndBattleText4 ; TextEndBattle
db $ff
SilphCo4Text1:
TX_ASM
ld hl, SilphCo4Text_19de0
ld de, SilphCo4Text_19de5
call SilphCo6Script_1a22f
jp TextScriptEnd
SilphCo4Text_19de0:
TX_FAR _SilphCo4Text_19de0
db "@"
SilphCo4Text_19de5:
TX_FAR _SilphCo4Text_19de5
db "@"
SilphCo4Text2:
TX_ASM
ld hl, SilphCo4TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo4BattleText2:
TX_FAR _SilphCo4BattleText2
db "@"
SilphCo4EndBattleText2:
TX_FAR _SilphCo4EndBattleText2
db "@"
SilphCo4AfterBattleText2:
TX_FAR _SilphCo4AfterBattleText2
db "@"
SilphCo4Text3:
TX_ASM
ld hl, SilphCo4TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo4BattleText3:
TX_FAR _SilphCo4BattleText3
db "@"
SilphCo4EndBattleText3:
TX_FAR _SilphCo4EndBattleText3
db "@"
SilphCo4AfterBattleText3:
TX_FAR _SilphCo4AfterBattleText3
db "@"
SilphCo4Text4:
TX_ASM
ld hl, SilphCo4TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo4BattleText4:
TX_FAR _SilphCo4BattleText4
db "@"
SilphCo4EndBattleText4:
TX_FAR _SilphCo4EndBattleText4
db "@"
SilphCo4AfterBattleText4:
TX_FAR _SilphCo4AfterBattleText4
db "@"
|
