ref: f773fd1dd89782eb1e92b850c7409a8d8be37651
dir: /engine/phone/scripts/buena.asm/
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"