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
|
SilphCo10F_Script:
call SilphCo10FGateCallbackScript
call EnableAutoTextBoxDrawing
ld hl, SilphCo10TrainerHeaders
ld de, SilphCo10F_ScriptPointers
ld a, [wSilphCo10FCurScript]
call ExecuteCurMapScriptInTable
ld [wSilphCo10FCurScript], a
ret
SilphCo10FGateCallbackScript:
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 SilphCo10F_SetUnlockedSilphCoDoorsScript
CheckEvent EVENT_SILPH_CO_10_UNLOCKED_DOOR
ret nz
ld a, $54
ld [wNewTileBlockID], a
lb bc, 4, 5
predef_jump ReplaceTileBlock
.GateCoordinates:
dbmapcoord 5, 4
db -1 ; end
SilphCo10F_SetUnlockedSilphCoDoorsScript:
ldh a, [hUnlockedSilphCoDoors]
and a
ret z
SetEvent EVENT_SILPH_CO_10_UNLOCKED_DOOR
ret
SilphCo10F_ScriptPointers:
def_script_pointers
dw_const CheckFightingMapTrainers, SCRIPT_SILPHCO10F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_SILPHCO10F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_SILPHCO10F_END_BATTLE
SilphCo10F_TextPointers:
def_text_pointers
dw_const SilphCo10FRocketText, TEXT_SILPHCO10F_ROCKET
dw_const SilphCo10FScientistText, TEXT_SILPHCO10F_SCIENTIST
dw_const SilphCo10FSilphWorkerFText, TEXT_SILPHCO10F_SILPH_WORKER_F
dw_const PickUpItemText, TEXT_SILPHCO10F_TM_EARTHQUAKE
dw_const PickUpItemText, TEXT_SILPHCO10F_RARE_CANDY
dw_const PickUpItemText, TEXT_SILPHCO10F_CARBOS
SilphCo10TrainerHeaders:
def_trainers
SilphCo10TrainerHeader0:
trainer EVENT_BEAT_SILPH_CO_10F_TRAINER_0, 3, SilphCo10FRocketBattleText, SilphCo10FRocketEndBattleText, SilphCo10FRocketAfterBattleText
SilphCo10TrainerHeader1:
trainer EVENT_BEAT_SILPH_CO_10F_TRAINER_1, 4, SilphCo10FScientistBattleText, SilphCo10FScientistEndBattleText, SilphCo10FScientistAfterBattleText
db -1 ; end
SilphCo10FRocketText:
text_asm
ld hl, SilphCo10TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
SilphCo10FScientistText:
text_asm
ld hl, SilphCo10TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
SilphCo10FSilphWorkerFText:
text_asm
CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
ld hl, .QuietAboutMyCryingText
jr nz, .beat_giovanni
ld hl, .ImScaredText
.beat_giovanni
call PrintText
jp TextScriptEnd
.ImScaredText:
text_far _SilphCo10FSilphWorkerFImScaredText
text_end
.QuietAboutMyCryingText:
text_far _SilphCo10FSilphWorkerFQuietAboutMyCryingText
text_end
SilphCo10FRocketBattleText:
text_far _SilphCo10FRocketBattleText
text_end
SilphCo10FRocketEndBattleText:
text_far _SilphCo10FRocketEndBattleText
text_end
SilphCo10FRocketAfterBattleText:
text_far _SilphCo10FRocketAfterBattleText
text_end
SilphCo10FScientistBattleText:
text_far _SilphCo10FScientistBattleText
text_end
SilphCo10FScientistEndBattleText:
text_far _SilphCo10FScientistEndBattleText
text_end
SilphCo10FScientistAfterBattleText:
text_far _SilphCo10FScientistAfterBattleText
text_end
|
