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
|
PokemonTower5F_Script:
call EnableAutoTextBoxDrawing
ld hl, PokemonTower5TrainerHeaders
ld de, PokemonTower5F_ScriptPointers
ld a, [wPokemonTower5FCurScript]
call ExecuteCurMapScriptInTable
ld [wPokemonTower5FCurScript], a
ret
PokemonTower5F_ScriptPointers:
def_script_pointers
dw_const PokemonTower5FDefaultScript, SCRIPT_POKEMONTOWER5F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_POKEMONTOWER5F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_POKEMONTOWER5F_END_BATTLE
PokemonTower5FDefaultScript:
ld hl, PokemonTower5FPurifiedZoneCoords
call ArePlayerCoordsInArray
jr c, .in_purified_zone
ld hl, wStatusFlags4
res BIT_NO_BATTLES, [hl]
ResetEvent EVENT_IN_PURIFIED_ZONE
jp CheckFightingMapTrainers
.in_purified_zone
CheckAndSetEvent EVENT_IN_PURIFIED_ZONE
ret nz
xor a
ldh [hJoyHeld], a
ld a, PAD_CTRL_PAD
ld [wJoyIgnore], a
ld hl, wStatusFlags4
set BIT_NO_BATTLES, [hl]
predef HealParty
call GBFadeOutToWhite
call Delay3
call Delay3
call GBFadeInFromWhite
ld a, TEXT_POKEMONTOWER5F_PURIFIEDZONE
ldh [hTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
ret
PokemonTower5FPurifiedZoneCoords:
dbmapcoord 10, 8
dbmapcoord 11, 8
dbmapcoord 10, 9
dbmapcoord 11, 9
db -1 ; end
PokemonTower5F_TextPointers:
def_text_pointers
dw_const PokemonTower5FChanneler1Text, TEXT_POKEMONTOWER5F_CHANNELER1
dw_const PokemonTower5FChanneler2Text, TEXT_POKEMONTOWER5F_CHANNELER2
dw_const PokemonTower5FChanneler3Text, TEXT_POKEMONTOWER5F_CHANNELER3
dw_const PokemonTower5FChanneler4Text, TEXT_POKEMONTOWER5F_CHANNELER4
dw_const PokemonTower5FChanneler5Text, TEXT_POKEMONTOWER5F_CHANNELER5
dw_const PickUpItemText, TEXT_POKEMONTOWER5F_NUGGET
dw_const PokemonTower5FPurifiedZoneText, TEXT_POKEMONTOWER5F_PURIFIEDZONE
PokemonTower5TrainerHeaders:
def_trainers 2
PokemonTower5TrainerHeader0:
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_0, 2, PokemonTower5FChanneler2BattleText, PokemonTower5FChanneler2EndBattleText, PokemonTower5FChanneler2AfterBattleText
PokemonTower5TrainerHeader1:
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_1, 3, PokemonTower5FChanneler3BattleText, PokemonTower5FChanneler3EndBattleText, PokemonTower5FChanneler3AfterBattleText
PokemonTower5TrainerHeader2:
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_2, 2, PokemonTower5FChanneler4BattleText, PokemonTower5FChanneler4EndBattleText, PokemonTower5FChanneler4AfterBattleText
PokemonTower5TrainerHeader3:
trainer EVENT_BEAT_POKEMONTOWER_5_TRAINER_3, 2, PokemonTower5FChanneler5BattleText, PokemonTower5FChanneler5EndBattleText, PokemonTower5FChanneler5AfterBattleText
db -1 ; end
PokemonTower5FChanneler1Text:
text_far _PokemonTower5FChanneler1Text
text_end
PokemonTower5FChanneler2Text:
text_asm
ld hl, PokemonTower5TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
PokemonTower5FChanneler2BattleText:
text_far _PokemonTower5FChanneler2BattleText
text_end
PokemonTower5FChanneler2EndBattleText:
text_far _PokemonTower5FChanneler2EndBattleText
text_end
PokemonTower5FChanneler2AfterBattleText:
text_far _PokemonTower5FChanneler2AfterBattleText
text_end
PokemonTower5FChanneler3Text:
text_asm
ld hl, PokemonTower5TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
PokemonTower5FChanneler3BattleText:
text_far _PokemonTower5FChanneler3BattleText
text_end
PokemonTower5FChanneler3EndBattleText:
text_far _PokemonTower5FChanneler3EndBattleText
text_end
PokemonTower5FChanneler3AfterBattleText:
text_far _PokemonTower5FChanneler3AfterBattleText
text_end
PokemonTower5FChanneler4Text:
text_asm
ld hl, PokemonTower5TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
PokemonTower5FChanneler4BattleText:
text_far _PokemonTower5FChanneler4BattleText
text_end
PokemonTower5FChanneler4EndBattleText:
text_far _PokemonTower5FChanneler4EndBattleText
text_end
PokemonTower5FChanneler4AfterBattleText:
text_far _PokemonTower5FChanneler4AfterBattleText
text_end
PokemonTower5FChanneler5Text:
text_asm
ld hl, PokemonTower5TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
PokemonTower5FChanneler5BattleText:
text_far _PokemonTower5FChanneler5BattleText
text_end
PokemonTower5FChanneler5EndBattleText:
text_far _PokemonTower5FChanneler5EndBattleText
text_end
PokemonTower5FChanneler5AfterBattleText:
text_far _PokemonTower5FChanneler5AfterBattleText
text_end
PokemonTower5FPurifiedZoneText:
text_far _PokemonTower5FPurifiedZoneText
text_end
|
