ref: 34ceaac71d32baace82f1e6de8fd4b252fb92a84
dir: /engine/phone/scripts/chad.asm/
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