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
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
SilphCo2F_Script:
call SilphCo2FGateCallbackScript
call EnableAutoTextBoxDrawing
ld hl, SilphCo2TrainerHeaders
ld de, SilphCo2F_ScriptPointers
ld a, [wSilphCo2FCurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo2FCurScript], a
ret
SilphCo2FGateCallbackScript:
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_1, [hl]
res BIT_CUR_MAP_LOADED_1, [hl]
ret z
ld hl, .GateCoordinates
call SilphCo2F_SetCardKeyDoorYScript
call SilphCo2F_UnlockedDoorEventScript
CheckEvent EVENT_SILPH_CO_2_UNLOCKED_DOOR1
jr nz, .unlock_door1
push af
ld a, $54
ld [wNewTileBlockID], a
lb bc, 2, 2
predef ReplaceTileBlock
pop af
.unlock_door1
CheckEventAfterBranchReuseA EVENT_SILPH_CO_2_UNLOCKED_DOOR2, EVENT_SILPH_CO_2_UNLOCKED_DOOR1
ret nz
ld a, $54
ld [wNewTileBlockID], a
lb bc, 5, 2
predef_jump ReplaceTileBlock
.GateCoordinates:
dbmapcoord 2, 2
dbmapcoord 2, 5
db -1 ; end
SilphCo2F_SetCardKeyDoorYScript:
push hl
ld hl, wCardKeyDoorY
ld a, [hli]
ld b, a
ld a, [hl]
ld c, a
xor a
ldh [hUnlockedSilphCoDoors], a
pop hl
.loop_check_doors
ld a, [hli]
cp $ff
jr z, .exit_loop
push hl
ld hl, hUnlockedSilphCoDoors
inc [hl]
pop hl
cp b
jr z, .check_y_coord
inc hl
jr .loop_check_doors
.check_y_coord
ld a, [hli]
cp c
jr nz, .loop_check_doors
ld hl, wCardKeyDoorY
xor a
ld [hli], a
ld [hl], a
ret
.exit_loop
xor a
ldh [hUnlockedSilphCoDoors], a
ret
SilphCo2F_UnlockedDoorEventScript:
EventFlagAddress hl, EVENT_SILPH_CO_2_UNLOCKED_DOOR1
ldh a, [hUnlockedSilphCoDoors]
and a
ret z
cp $1
jr nz, .unlock_door1
SetEventReuseHL EVENT_SILPH_CO_2_UNLOCKED_DOOR1
ret
.unlock_door1
SetEventAfterBranchReuseHL EVENT_SILPH_CO_2_UNLOCKED_DOOR2, EVENT_SILPH_CO_2_UNLOCKED_DOOR1
ret
SilphCo2F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO2F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO2F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO2F_END_BATTLE
SilphCo2F_TextPointers:
def_text_pointers
dw_const SilphCo2FSilphWorkerFText, TEXT_SILPHCO2F_SILPH_WORKER_F
dw_const SilphCo2FScientist1Text, TEXT_SILPHCO2F_SCIENTIST1
dw_const SilphCo2FScientist2Text, TEXT_SILPHCO2F_SCIENTIST2
dw_const SilphCo2FRocket1Text, TEXT_SILPHCO2F_ROCKET1
dw_const SilphCo2FRocket2Text, TEXT_SILPHCO2F_ROCKET2
SilphCo2TrainerHeaders:
def_trainers 2
SilphCo2TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_0, 3, SilphCo2FScientist1BattleText, SilphCo2FScientist1EndBattleText, SilphCo2FScientist1AfterBattleText
SilphCo2TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_1, 4, SilphCo2FScientist2BattleText, SilphCo2FScientist2EndBattleText, SilphCo2FScientist2AfterBattleText
SilphCo2TrainerHeader2:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_2, 3, SilphCo2FRocket1BattleText, SilphCo2FRocket1EndBattleText, SilphCo2FRocket1AfterBattleText
SilphCo2TrainerHeader3:
trainer EVENT_BEAT_SILPH_CO_2F_TRAINER_3, 3, SilphCo2FRocket2BattleText, SilphCo2FRocket2EndBattleText, SilphCo2FRocket2AfterBattleText
db -1 ; end
SilphCo2FSilphWorkerFText:
text_asm
CheckEvent EVENT_GOT_TM36
jr nz, .already_have_tm
ld hl, .PleaseTakeThisText
call PrintText
lb bc, TM_SELFDESTRUCT, 1
call GiveItem
ld hl, .TM36NoRoomText
jr nc, .print_text
SetEvent EVENT_GOT_TM36
ld hl, .ReceivedTM36Text
jr .print_text
.already_have_tm
ld hl, .TM36ExplanationText
.print_text
call PrintText
jp TextScriptEnd
.PleaseTakeThisText:
text_far SilphCo2FSilphWorkerFPleaseTakeThisText
text_end
.ReceivedTM36Text:
text_far _SilphCo2FSilphWorkerFReceivedTM36Text
sound_get_item_1
text_end
.TM36ExplanationText:
text_far _SilphCo2FSilphWorkerFTM36ExplanationText
text_end
.TM36NoRoomText:
text_far _SilphCo2FSilphWorkerFTM36NoRoomText
text_end
SilphCo2FScientist1Text:
text_asm
ld hl, SilphCo2TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo2FScientist2Text:
text_asm
ld hl, SilphCo2TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo2FRocket1Text:
text_asm
ld hl, SilphCo2TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo2FRocket2Text:
text_asm
ld hl, SilphCo2TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
SilphCo2FScientist1BattleText:
text_far _SilphCo2FScientist1BattleText
text_end
SilphCo2FScientist1EndBattleText:
text_far _SilphCo2FScientist1EndBattleText
text_end
SilphCo2FScientist1AfterBattleText:
text_far _SilphCo2FScientist1AfterBattleText
text_end
SilphCo2FScientist2BattleText:
text_far _SilphCo2FScientist2BattleText
text_end
SilphCo2FScientist2EndBattleText:
text_far _SilphCo2FScientist2EndBattleText
text_end
SilphCo2FScientist2AfterBattleText:
text_far _SilphCo2FScientist2AfterBattleText
text_end
SilphCo2FRocket1BattleText:
text_far _SilphCo2FRocket1BattleText
text_end
SilphCo2FRocket1EndBattleText:
text_far _SilphCo2FRocket1EndBattleText
text_end
SilphCo2FRocket1AfterBattleText:
text_far _SilphCo2FRocket1AfterBattleText
text_end
SilphCo2FRocket2BattleText:
text_far _SilphCo2FRocket2BattleText
text_end
SilphCo2FRocket2EndBattleText:
text_far _SilphCo2FRocket2EndBattleText
text_end
SilphCo2FRocket2AfterBattleText:
text_far _SilphCo2FRocket2AfterBattleText
text_end
|
