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
|
BuenaPhoneCalleeScript:
checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
iftrue BuenaPhoneScript_Rocket
readvar VAR_HOUR
ifgreater 17, BuenaPhoneScript_AfterMidnightCallee
scall BuenaPhoneScript_CheckTimeOfDayCallee
sjump BuenaPhoneScript_RandomCallee
BuenaPhoneCallerScript:
checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
iftrue BuenaPhoneScript_Rocket
scall BuenaPhoneScript_CheckTimeOfDayCaller
sjump BuenaPhoneScript_RandomCaller
BuenaPhoneScript_CheckTimeOfDayCallee:
checktime MORN
iftrue .morn
checktime DAY
iftrue .day
writetext BuenaPhoneNiteAnswerText
promptbutton
end
.morn
writetext BuenaPhoneMorningAnswerText
promptbutton
end
.day
writetext BuenaPhoneDayAnswerText
promptbutton
end
BuenaPhoneScript_AfterMidnightCallee:
writetext BuenaPhoneMidnightAnswerText
end
BuenaPhoneScript_CheckTimeOfDayCaller:
readvar VAR_HOUR
ifgreater 17, BuenaPhoneScript_AfterMidnightCaller
checktime MORN
iftrue .morn
checktime DAY
iftrue .day
writetext BuenaPhoneNiteText
promptbutton
end
.morn
writetext BuenaPhoneMorningText
promptbutton
end
.day
writetext BuenaPhoneDayText
promptbutton
end
BuenaPhoneScript_AfterMidnightCaller:
writetext BuenaPhoneMidnightText
promptbutton
end
BuenaPhoneScript_Rocket:
writetext BuenaPhoneRocketText
end
BuenaPhoneScript_RandomCaller:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .PostE4
random 11
sjump .Jumptable
.PostE4:
random 14
.Jumptable:
ifequal 0, .zero
ifequal 1, .one
ifequal 2, .two
ifequal 3, .three
ifequal 4, .four
ifequal 5, .five
ifequal 6, .six
ifequal 7, .seven
ifequal 8, .eight
ifequal 9, .nine
ifequal 10, .ten
ifequal 11, .eleven
ifequal 12, .twelve
ifequal 13, .thirteen
.zero
writetext BuenaPhoneWentOutWithBenText
sjump .finish
.one
writetext BuenaPhoneReceptionistText
sjump .finish
.two
writetext BuenaPhoneLuckyNumberShowText
sjump .finish
.three
writetext BuenaPhoneStressedFromWorkText
sjump .finish
.four
writetext BuenaPhoneProfessorOakText
sjump .finish
.five
writetext BuenaPhoneGotAColdText
sjump .finish
.six
writetext BuenaPhoneRadioCardQuestionsText
sjump .finish
.seven
writetext BuenaPhonePikachuFanClubText
sjump .finish
.eight
writetext BuenaPhoneRadioTowerDirectorText
sjump .finish
.nine
writetext BuenaPhoneWhenDoYouRelaxText
sjump .finish
.ten
writetext BuenaPhoneStarterPokemonText
sjump .finish
.eleven
writetext BuenaPhoneCompanyVacationText
sjump .finish
.twelve
writetext BuenaPhoneBenAndFernText
sjump .finish
.thirteen
writetext BuenaPhoneGoingShoppingText
.finish
end
BuenaPhoneScript_RandomCallee:
random 3
ifequal 0, .zero
ifequal 1, .one
ifequal 2, .two
.zero
writetext BuenaPhoneFavoriteSlotMachineAnswerText
end
.one
writetext BuenaPhonePokegearAnswerText
end
.two
writetext BuenaPhoneCoopedUpInRadioTowerAnswerText
end
INCLUDE "data/phone/text/buena.asm"
|
