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
|
SilphCo4F_Script:
call SilphCo4FGateCallbackScript
call EnableAutoTextBoxDrawing
ld hl, SilphCo4TrainerHeaders
ld de, SilphCo4F_ScriptPointers
ld a, [wSilphCo4FCurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo4FCurScript], a
ret
SilphCo4FGateCallbackScript:
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 SilphCo4FUnlockedDoorEventScript
CheckEvent EVENT_SILPH_CO_4_UNLOCKED_DOOR1
jr nz, .unlock_door1
push af
ld a, $54
ld [wNewTileBlockID], a
lb bc, 6, 2
predef ReplaceTileBlock
pop af
.unlock_door1
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
.GateCoordinates:
dbmapcoord 2, 6
dbmapcoord 6, 4
db -1 ; end
SilphCo4F_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
SilphCo4FUnlockedDoorEventScript:
EventFlagAddress hl, EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ldh a, [hUnlockedSilphCoDoors]
and a
ret z
cp $1
jr nz, .unlock_door1
SetEventReuseHL EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ret
.unlock_door1
SetEventAfterBranchReuseHL EVENT_SILPH_CO_4_UNLOCKED_DOOR2, EVENT_SILPH_CO_4_UNLOCKED_DOOR1
ret
SilphCo4F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO4F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO4F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO4F_END_BATTLE
SilphCo4F_TextPointers:
def_text_pointers
dw_const SilphCo4FSilphWorkerMText, TEXT_SILPHCO4F_SILPH_WORKER_M
dw_const SilphCo4FRocket1Text, TEXT_SILPHCO4F_ROCKET1
dw_const SilphCo4FScientistText, TEXT_SILPHCO4F_SCIENTIST
dw_const SilphCo4FRocket2Text, TEXT_SILPHCO4F_ROCKET2
dw_const PickUpItemText, TEXT_SILPHCO4F_FULL_HEAL
dw_const PickUpItemText, TEXT_SILPHCO4F_MAX_REVIVE
dw_const PickUpItemText, TEXT_SILPHCO4F_ESCAPE_ROPE
SilphCo4TrainerHeaders:
def_trainers 2
SilphCo4TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_4F_TRAINER_0, 4, SilphCo4FRocket1BattleText, SilphCo4FRocket1EndBattleText, SilphCo4FRocket1AfterBattleText
SilphCo4TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_4F_TRAINER_1, 3, SilphCo4FScientistBattleText, SilphCo4FScientistEndBattleText, SilphCo4FScientistAfterBattleText
SilphCo4TrainerHeader2:
trainer EVENT_BEAT_SILPH_CO_4F_TRAINER_2, 4, SilphCo4FRocket2BattleText, SilphCo4FRocket2EndBattleText, SilphCo4FRocket2AfterBattleText
db -1 ; end
SilphCo4FSilphWorkerMText:
text_asm
ld hl, .ImHidingText
ld de, .TeamRocketIsGoneText
call SilphCo6FBeatGiovanniPrintDEOrPrintHLScript
jp TextScriptEnd
.ImHidingText:
text_far _SilphCo4FSilphWorkerMImHidingText
text_end
.TeamRocketIsGoneText:
text_far _SilphCo4FSilphWorkerMTeamRocketIsGoneText
text_end
SilphCo4FRocket1Text:
text_asm
ld hl, SilphCo4TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo4FRocket1BattleText:
text_far _SilphCo4FRocket1BattleText
text_end
SilphCo4FRocket1EndBattleText:
text_far _SilphCo4FRocket1EndBattleText
text_end
SilphCo4FRocket1AfterBattleText:
text_far _SilphCo4FRocket1AfterBattleText
text_end
SilphCo4FScientistText:
text_asm
ld hl, SilphCo4TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo4FScientistBattleText:
text_far _SilphCo4FScientistBattleText
text_end
SilphCo4FScientistEndBattleText:
text_far _SilphCo4FScientistEndBattleText
text_end
SilphCo4FScientistAfterBattleText:
text_far _SilphCo4FScientistAfterBattleText
text_end
SilphCo4FRocket2Text:
text_asm
ld hl, SilphCo4TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo4FRocket2BattleText:
text_far _SilphCo4FRocket2BattleText
text_end
SilphCo4FRocket2EndBattleText:
text_far _SilphCo4FRocket2EndBattleText
text_end
SilphCo4FRocket2AfterBattleText:
text_far _SilphCo4FRocket2AfterBattleText
text_end
|
