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
|
SilphCo6F_Script:
call SilphCo6F_GateCallbackScript
call EnableAutoTextBoxDrawing
ld hl, SilphCo6TrainerHeaders
ld de, SilphCo6F_ScriptPointers
ld a, [wSilphCo6FCurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo6FCurScript], a
ret
SilphCo6F_GateCallbackScript:
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_1, [hl]
res BIT_CUR_MAP_LOADED_1, [hl]
ret z
ld hl, .GateCoordinates
call SilphCo4F_SetCardKeyDoorYScript
call SilphCo6F_UnlockedDoorEventScript
CheckEvent EVENT_SILPH_CO_6_UNLOCKED_DOOR
ret nz
ld a, $5f
ld [wNewTileBlockID], a
lb bc, 6, 2
predef_jump ReplaceTileBlock
.GateCoordinates:
dbmapcoord 2, 6
db -1 ; end
SilphCo6F_UnlockedDoorEventScript:
ldh a, [hUnlockedSilphCoDoors]
and a
ret z
SetEvent EVENT_SILPH_CO_6_UNLOCKED_DOOR
ret
SilphCo6F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO6F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO6F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO6F_END_BATTLE
SilphCo6F_TextPointers:
def_text_pointers
dw_const SilphCo6FSilphWorkerM1Text, TEXT_SILPHCO6F_SILPH_WORKER_M1
dw_const SilphCo6FSilphWorkerM2Text, TEXT_SILPHCO6F_SILPH_WORKER_M2
dw_const SilphCo6FSilphWorkerF1Text, TEXT_SILPHCO6F_SILPH_WORKER_F1
dw_const SilphCo6FSilphWorkerF2Text, TEXT_SILPHCO6F_SILPH_WORKER_F2
dw_const SilphCo6FSilphWorkerM3Text, TEXT_SILPHCO6F_SILPH_WORKER_M3
dw_const SilphCo6FRocket1Text, TEXT_SILPHCO6F_ROCKET1
dw_const SilphCo6FScientistText, TEXT_SILPHCO6F_SCIENTIST
dw_const SilphCo6FRocket2Text, TEXT_SILPHCO6F_ROCKET2
dw_const PickUpItemText, TEXT_SILPHCO6F_HP_UP
dw_const PickUpItemText, TEXT_SILPHCO6F_X_ACCURACY
SilphCo6TrainerHeaders:
def_trainers 6
SilphCo6TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_6F_TRAINER_0, 2, SilphCo6FRocket1BattleText, SilphCo6FRocket1EndBattleText, SilphCo6FRocket1AfterBattleText
SilphCo6TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_6F_TRAINER_1, 3, SilphCo6FScientistBattleText, SilphCo6FScientistEndBattleText, SilphCo6FScientistAfterBattleText
SilphCo6TrainerHeader2:
trainer EVENT_BEAT_SILPH_CO_6F_TRAINER_2, 2, SilphCo6FRocket2BattleText, SilphCo6FRocket2EndBattleText, SilphCo6FRocket2AfterBattleText
db -1 ; end
SilphCo6FBeatGiovanniPrintDEOrPrintHLScript:
CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
jr nz, .beat_giovanni
jr .print_text
.beat_giovanni
ld h, d
ld l, e
.print_text
jp PrintText
SilphCo6FSilphWorkerM1Text:
text_asm
ld hl, .TookOverTheBuildingText
ld de, .BackToWorkText
call SilphCo6FBeatGiovanniPrintDEOrPrintHLScript
jp TextScriptEnd
.TookOverTheBuildingText:
text_far _SilphCo6FSilphWorkerM1TookOverTheBuildingText
text_end
.BackToWorkText:
text_far _SilphCo6FSilphWorkerM1BackToWorkText
text_end
SilphCo6FSilphWorkerM2Text:
text_asm
ld hl, .HelpMePleaseText
ld de, .WeGotEngagedText
call SilphCo6FBeatGiovanniPrintDEOrPrintHLScript
jp TextScriptEnd
.HelpMePleaseText:
text_far _SilphCo6FSilphWorkerMHelpMePleaseText
text_end
.WeGotEngagedText:
text_far _SilphCo6FSilphWorkerMWeGotEngagedText
text_end
SilphCo6FSilphWorkerF1Text:
text_asm
ld hl, .SuchACowardText
ld de, .HaveToMarryHimText
call SilphCo6FBeatGiovanniPrintDEOrPrintHLScript
jp TextScriptEnd
.SuchACowardText:
text_far _SilphCo6FSilphWorkerF1SuchACowardText
text_end
.HaveToMarryHimText:
text_far _SilphCo6FSilphWorkerF1HaveToMarryHimText
text_end
SilphCo6FSilphWorkerF2Text:
text_asm
ld hl, .TeamRocketConquerWorldText
ld de, .TeamRocketRanText
call SilphCo6FBeatGiovanniPrintDEOrPrintHLScript
jp TextScriptEnd
.TeamRocketConquerWorldText:
text_far _SilphCo6FSilphWorkerF2TeamRocketConquerWorldText
text_end
.TeamRocketRanText:
text_far _SilphCo6FSilphWorkerF2TeamRocketRanText
text_end
SilphCo6FSilphWorkerM3Text:
text_asm
ld hl, .TargetedSilphText
ld de, .WorkForSilphText
call SilphCo6FBeatGiovanniPrintDEOrPrintHLScript
jp TextScriptEnd
.TargetedSilphText:
text_far _SilphCo6FSilphWorkerM3TargetedSilphText
text_end
.WorkForSilphText:
text_far _SilphCo6FSilphWorkerM3WorkForSilphText
text_end
SilphCo6FRocket1Text:
text_asm
ld hl, SilphCo6TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo6FRocket1BattleText:
text_far _SilphCo6FRocket1BattleText
text_end
SilphCo6FRocket1EndBattleText:
text_far _SilphCo6FRocket1EndBattleText
text_end
SilphCo6FRocket1AfterBattleText:
text_far _SilphCo6FRocket1AfterBattleText
text_end
SilphCo6FScientistText:
text_asm
ld hl, SilphCo6TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo6FScientistBattleText:
text_far _SilphCo6FScientistBattleText
text_end
SilphCo6FScientistEndBattleText:
text_far _SilphCo6FScientistEndBattleText
text_end
SilphCo6FScientistAfterBattleText:
text_far _SilphCo6FScientistAfterBattleText
text_end
SilphCo6FRocket2Text:
text_asm
ld hl, SilphCo6TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo6FRocket2BattleText:
text_far _SilphCo6FRocket2BattleText
text_end
SilphCo6FRocket2EndBattleText:
text_far _SilphCo6FRocket2EndBattleText
text_end
SilphCo6FRocket2AfterBattleText:
text_far _SilphCo6FRocket2AfterBattleText
text_end
|
