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
|
PokemonFanClub_Script:
jp EnableAutoTextBoxDrawing
PokemonFanClub_CheckBikeInBag:
; check if any bike paraphernalia in bag
CheckEvent EVENT_GOT_BIKE_VOUCHER
ret nz
ld b, BICYCLE
call IsItemInBag
ret nz
ld b, BIKE_VOUCHER
jp IsItemInBag
PokemonFanClub_TextPointers:
def_text_pointers
dw_const PokemonFanClubPikachuFanText, TEXT_POKEMONFANCLUB_PIKACHU_FAN
dw_const PokemonFanClubSeelFanText, TEXT_POKEMONFANCLUB_SEEL_FAN
dw_const PokemonFanClubPikachuText, TEXT_POKEMONFANCLUB_PIKACHU
dw_const PokemonFanClubSeelText, TEXT_POKEMONFANCLUB_SEEL
dw_const PokemonFanClubChairmanText, TEXT_POKEMONFANCLUB_CHAIRMAN
dw_const PokemonFanClubReceptionistText, TEXT_POKEMONFANCLUB_RECEPTIONIST
dw_const PokemonFanClubSign1Text, TEXT_POKEMONFANCLUB_SIGN_1
dw_const PokemonFanClubSign2Text, TEXT_POKEMONFANCLUB_SIGN_2
PokemonFanClubPikachuFanText:
text_asm
CheckEvent EVENT_PIKACHU_FAN_BOAST
jr nz, .mineisbetter
ld hl, .NormalText
call PrintText
SetEvent EVENT_SEEL_FAN_BOAST
jr .done
.mineisbetter
ld hl, .BetterText
call PrintText
ResetEvent EVENT_PIKACHU_FAN_BOAST
.done
jp TextScriptEnd
.NormalText:
text_far _PokemonFanClubPikachuFanNormalText
text_end
.BetterText:
text_far _PokemonFanClubPikachuFanBetterText
text_end
PokemonFanClubSeelFanText:
text_asm
CheckEvent EVENT_SEEL_FAN_BOAST
jr nz, .mineisbetter
ld hl, .NormalText
call PrintText
SetEvent EVENT_PIKACHU_FAN_BOAST
jr .done
.mineisbetter
ld hl, .BetterText
call PrintText
ResetEvent EVENT_SEEL_FAN_BOAST
.done
jp TextScriptEnd
.NormalText:
text_far _PokemonFanClubSeelFanNormalText
text_end
.BetterText:
text_far _PokemonFanClubSeelFanBetterText
text_end
PokemonFanClubPikachuText:
text_asm
ld hl, .Text
call PrintText
ld a, PIKACHU
call PlayCry
call WaitForSoundToFinish
jp TextScriptEnd
.Text
text_far _PokemonFanClubPikachuText
text_end
PokemonFanClubSeelText:
text_asm
ld hl, .Text
call PrintText
ld a, SEEL
call PlayCry
call WaitForSoundToFinish
jp TextScriptEnd
.Text:
text_far _PokemonFanClubSeelText
text_end
PokemonFanClubChairmanText:
text_asm
call PokemonFanClub_CheckBikeInBag
jr nz, .nothingleft
ld hl, .IntroText
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .nothanks
; tell the story
ld hl, .StoryText
call PrintText
lb bc, BIKE_VOUCHER, 1
call GiveItem
jr nc, .bag_full
ld hl, .BikeVoucherText
call PrintText
SetEvent EVENT_GOT_BIKE_VOUCHER
jr .done
.bag_full
ld hl, .BagFullText
call PrintText
jr .done
.nothanks
ld hl, .NoStoryText
call PrintText
jr .done
.nothingleft
ld hl, .FinalText
call PrintText
.done
jp TextScriptEnd
.IntroText:
text_far _PokemonFanClubChairmanIntroText
text_end
.StoryText:
text_far _PokemonFanClubChairmanStoryText
text_end
.BikeVoucherText:
text_far _PokemonFanClubReceivedBikeVoucherText
sound_get_key_item
text_far _PokemonFanClubExplainBikeVoucherText
text_end
.NoStoryText:
text_far _PokemonFanClubNoStoryText
text_end
.FinalText:
text_far _PokemonFanClubChairFinalText
text_end
.BagFullText:
text_far _PokemonFanClubBagFullText
text_end
PokemonFanClubReceptionistText:
text_far _PokemonFanClubReceptionistText
text_end
PokemonFanClubSign1Text:
text_far _PokemonFanClubSign1Text
text_end
PokemonFanClubSign2Text:
text_far _PokemonFanClubSign2Text
text_end
|
