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
|
SilphCo8F_Script:
call SilphCo8FGateCallbackScript
call EnableAutoTextBoxDrawing
ld hl, SilphCo8TrainerHeaders
ld de, SilphCo8F_ScriptPointers
ld a, [wSilphCo8FCurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo8FCurScript], a
ret
SilphCo8FGateCallbackScript:
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_1, [hl]
res BIT_CUR_MAP_LOADED_1, [hl]
ret z
ld hl, .GateCoordinates
call SilphCo8F_SetCardKeyDoorYScript
call SilphCo8F_UnlockedDoorEventScript
CheckEvent EVENT_SILPH_CO_8_UNLOCKED_DOOR
ret nz
ld a, $5f
ld [wNewTileBlockID], a
lb bc, 4, 3
predef_jump ReplaceTileBlock
.GateCoordinates:
dbmapcoord 3, 4
db -1 ; end
SilphCo8F_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
SilphCo8F_UnlockedDoorEventScript:
ldh a, [hUnlockedSilphCoDoors]
and a
ret z
SetEvent EVENT_SILPH_CO_8_UNLOCKED_DOOR
ret
SilphCo8F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO8F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO8F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO8F_END_BATTLE
SilphCo8F_TextPointers:
def_text_pointers
dw_const SilphCo8FSilphWorkerMText, TEXT_SILPHCO8F_SILPH_WORKER_M
dw_const SilphCo8FRocket1Text, TEXT_SILPHCO8F_ROCKET1
dw_const SilphCo8FScientistText, TEXT_SILPHCO8F_SCIENTIST
dw_const SilphCo8FRocket2Text, TEXT_SILPHCO8F_ROCKET2
SilphCo8TrainerHeaders:
def_trainers 2
SilphCo8TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_0, 4, SilphCo8FRocket1BattleText, SilphCo8FRocket1EndBattleText, SilphCo8FRocket1AfterBattleText
SilphCo8TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_1, 4, SilphCo8FScientistBattleText, SilphCo8FScientistEndBattleText, SilphCo8FScientistAfterBattleText
SilphCo8TrainerHeader2:
trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_2, 4, SilphCo8FRocket2BattleText, SilphCo8FRocket2EndBattleText, SilphCo8FRocket2AfterBattleText
db -1 ; end
SilphCo8FSilphWorkerMText:
text_asm
CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
ld hl, .ThanksForSavingUsText
jr nz, .beat_giovanni
ld hl, .SilphIsFinishedText
.beat_giovanni
call PrintText
jp TextScriptEnd
.SilphIsFinishedText:
text_far _SilphCo8FSilphWorkerMSilphIsFinishedText
text_end
.ThanksForSavingUsText:
text_far _SilphCo8FSilphWorkerMThanksForSavingUsText
text_end
SilphCo8FRocket1Text:
text_asm
ld hl, SilphCo8TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo8FScientistText:
text_asm
ld hl, SilphCo8TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo8FRocket2Text:
text_asm
ld hl, SilphCo8TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
SilphCo8FRocket1BattleText:
text_far _SilphCo8FRocket1BattleText
text_end
SilphCo8FRocket1EndBattleText:
text_far _SilphCo8FRocket1EndBattleText
text_end
SilphCo8FRocket1AfterBattleText:
text_far _SilphCo8FRocket1AfterBattleText
text_end
SilphCo8FScientistBattleText:
text_far _SilphCo8FScientistBattleText
text_end
SilphCo8FScientistEndBattleText:
text_far _SilphCo8FScientistEndBattleText
text_end
SilphCo8FScientistAfterBattleText:
text_far _SilphCo8FScientistAfterBattleText
text_end
SilphCo8FRocket2BattleText:
text_far _SilphCo8FRocket2BattleText
text_end
SilphCo8FRocket2EndBattleText:
text_far _SilphCo8FRocket2EndBattleText
text_end
SilphCo8FRocket2AfterBattleText:
text_far _SilphCo8FRocket2AfterBattleText
text_end
|
