blob: 8af8e6eee0807ba5a3b13dd31a8a09babe9fab0e (
plain)
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
|
ChadPhoneCalleeScript:
gettrainername STRING_BUFFER_3, SCHOOLBOY, CHAD1
checkflag ENGINE_CHAD
iftrue .WantsBattle
farscall PhoneScript_AnswerPhone_Male
checkflag ENGINE_CHAD_FRIDAY_MORNING
iftrue .NotFriday
readvar VAR_WEEKDAY
ifnotequal FRIDAY, .NotFriday
checktime MORN
iftrue ChadFridayMorning
.NotFriday:
farsjump ChadHangUpScript
.WantsBattle:
getlandmarkname STRING_BUFFER_5, ROUTE_38
farsjump ChadReminderScript
ChadPhoneCallerScript:
gettrainername STRING_BUFFER_3, SCHOOLBOY, CHAD1
farscall PhoneScript_GreetPhone_Male
farscall PhoneScript_Random2
ifequal 0, ChadOakGossip
checkflag ENGINE_CHAD
iftrue .Generic
checkflag ENGINE_CHAD_FRIDAY_MORNING
iftrue .Generic
farscall PhoneScript_Random2
ifequal 0, ChadWantsBattle
.Generic:
farscall PhoneScript_Random3
ifequal 0, ChadFoundRare
farsjump Phone_GenericCall_Male
ChadFridayMorning:
setflag ENGINE_CHAD_FRIDAY_MORNING
ChadWantsBattle:
getlandmarkname STRING_BUFFER_5, ROUTE_38
setflag ENGINE_CHAD
farsjump PhoneScript_WantsToBattle_Male
ChadFoundRare:
farsjump Phone_CheckIfUnseenRare_Male
ChadOakGossip:
farsjump ChadOakGossipScript
|
