First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/phone/scripts/alan.asm

@@ -0,0 +1,60 @@
+AlanPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, SCHOOLBOY, ALAN1
+	checkflag ENGINE_ALAN_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_ALAN_WEDNESDAY_AFTERNOON
+	iftrue .NotWednesday
+	checkflag ENGINE_ALAN_HAS_FIRE_STONE
+	iftrue .FireStone
+	readvar VAR_WEEKDAY
+	ifnotequal WEDNESDAY, .NotWednesday
+	checktime DAY
+	iftrue AlanWednesdayDay
+
+.NotWednesday:
+	farsjump AlanHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_36
+	farsjump AlanReminderScript
+
+.FireStone:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_36
+	farsjump AlanComePickUpScript
+
+AlanPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, SCHOOLBOY, ALAN1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_ALAN_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_ALAN_WEDNESDAY_AFTERNOON
+	iftrue .Generic
+	checkflag ENGINE_ALAN_HAS_FIRE_STONE
+	iftrue .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, AlanWantsBattle
+	checkevent EVENT_ALAN_GAVE_FIRE_STONE
+	iftrue .FireStone
+	farscall PhoneScript_Random2
+	ifequal 0, AlanHasFireStone
+
+.FireStone:
+	farscall PhoneScript_Random11
+	ifequal 0, AlanHasFireStone
+
+.Generic:
+	farsjump Phone_GenericCall_Male
+
+AlanWednesdayDay:
+	setflag ENGINE_ALAN_WEDNESDAY_AFTERNOON
+
+AlanWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_36
+	setflag ENGINE_ALAN_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+AlanHasFireStone:
+	setflag ENGINE_ALAN_HAS_FIRE_STONE
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_36
+	farsjump PhoneScript_FoundItem_Male

engine/phone/scripts/anthony.asm

@@ -0,0 +1,61 @@
+AnthonyPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, HIKER, ANTHONY2
+	checkflag ENGINE_ANTHONY_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_ANTHONY_FRIDAY_NIGHT
+	iftrue .NotFriday
+	readvar VAR_WEEKDAY
+	ifnotequal FRIDAY, .NotFriday
+	checktime NITE
+	iftrue AnthonyFridayNight
+
+.NotFriday:
+	checkflag ENGINE_DUNSPARCE_SWARM
+	iftrue .AlreadySwarming
+	farsjump AnthonyHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_33
+	farsjump AnthonyReminderScript
+
+.AlreadySwarming:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_33
+	farsjump AnthonyHurryScript
+
+AnthonyPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, HIKER, ANTHONY2
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_FLYPOINT_GOLDENROD
+	iffalse .TriesSwarm
+	checkflag ENGINE_ANTHONY_READY_FOR_REMATCH
+	iftrue .TriesSwarm
+	checkflag ENGINE_ANTHONY_FRIDAY_NIGHT
+	iftrue .TriesSwarm
+	farscall PhoneScript_Random2
+	ifequal 0, AnthonyWantsBattle
+
+.TriesSwarm:
+	farscall PhoneScript_Random5
+	ifequal 0, AnthonyTriesDunsparceSwarm
+	farsjump Phone_GenericCall_Male
+
+AnthonyFridayNight:
+	setflag ENGINE_ANTHONY_FRIDAY_NIGHT
+
+AnthonyWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_33
+	setflag ENGINE_ANTHONY_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+AnthonyTriesDunsparceSwarm:
+	checkflag ENGINE_DUNSPARCE_SWARM
+	iftrue .Generic
+	setflag ENGINE_DUNSPARCE_SWARM
+	getmonname STRING_BUFFER_4, DUNSPARCE
+	swarm SWARM_DUNSPARCE, DARK_CAVE_VIOLET_ENTRANCE
+	getlandmarkname STRING_BUFFER_5, LANDMARK_DARK_CAVE
+	farsjump AnthonySwarmScript
+
+.Generic:
+	farsjump Phone_GenericCall_Male

engine/phone/scripts/arnie.asm

@@ -0,0 +1,64 @@
+ArniePhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, BUG_CATCHER, ARNIE1
+	checkflag ENGINE_ARNIE_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_ARNIE_TUESDAY_MORNING
+	iftrue .NotTuesday
+	readvar VAR_WEEKDAY
+	ifnotequal TUESDAY, .NotTuesday
+	checktime MORN
+	iftrue ArnieTuesdayMorning
+
+.NotTuesday:
+	checkflag ENGINE_YANMA_SWARM
+	iftrue .AlreadySwarming
+	farsjump ArnieHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_35
+	farsjump ArnieReminderScript
+
+.AlreadySwarming:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_35
+	farsjump ArnieHurryScript
+
+ArniePhoneCallerScript:
+	gettrainername STRING_BUFFER_3, BUG_CATCHER, ARNIE1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_ARNIE_READY_FOR_REMATCH
+	iftrue .Swarm
+	checkflag ENGINE_ARNIE_TUESDAY_MORNING
+	iftrue .Swarm
+	farscall PhoneScript_Random2
+	ifequal 0, ArnieWantsBattle
+
+.Swarm:
+	farscall PhoneScript_Random5
+	ifequal 0, ArnieYanmaSwarm
+	farscall PhoneScript_Random3
+	ifequal 0, ArnieFoundRare
+	farsjump Phone_GenericCall_Male
+
+ArnieTuesdayMorning:
+	setflag ENGINE_ARNIE_TUESDAY_MORNING
+
+ArnieWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_35
+	setflag ENGINE_ARNIE_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+ArnieYanmaSwarm: ; start swarm
+	checkflag ENGINE_YANMA_SWARM
+	iftrue ArnieYanmaAlreadySwarming
+	setflag ENGINE_YANMA_SWARM
+	getmonname STRING_BUFFER_4, YANMA
+	swarm SWARM_YANMA, ROUTE_35
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_35
+	farsjump ArnieSwarmScript
+
+ArnieFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Male
+
+ArnieYanmaAlreadySwarming:
+	farsjump Phone_GenericCall_Male

engine/phone/scripts/beth.asm

@@ -0,0 +1,39 @@
+BethPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, COOLTRAINERF, BETH1
+	checkflag ENGINE_BETH_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_BETH_FRIDAY_AFTERNOON
+	iftrue .NotFriday
+	readvar VAR_WEEKDAY
+	ifnotequal FRIDAY, .NotFriday
+	checktime DAY
+	iftrue BethFridayAfternoon
+
+.NotFriday:
+	farsjump BethHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_26
+	farsjump BethBattleReminderScript
+
+BethPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, COOLTRAINERF, BETH1
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_BETH_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_BETH_FRIDAY_AFTERNOON
+	iftrue .Generic
+	farscall PhoneScript_Random2
+	ifequal 0, BethWantsBattle
+
+.Generic:
+	farsjump Phone_GenericCall_Female
+
+BethFridayAfternoon:
+	setflag ENGINE_BETH_FRIDAY_AFTERNOON
+
+BethWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_26
+	setflag ENGINE_BETH_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female

engine/phone/scripts/beverly.asm

@@ -0,0 +1,26 @@
+BeverlyPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, POKEFANF, BEVERLY1
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_BEVERLY_HAS_NUGGET
+	iftrue .HasNugget
+	farsjump BeverlyHangUpScript
+
+.HasNugget:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_NATIONAL_PARK
+	farsjump BeverlyComePickUpScript
+
+BeverlyPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, POKEFANF, BEVERLY1
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_BEVERLY_HAS_NUGGET
+	iftrue .HasNugget
+	farscall PhoneScript_Random4
+	ifequal 0, .FoundNugget
+
+.HasNugget:
+	farsjump Phone_GenericCall_Female
+
+.FoundNugget:
+	setflag ENGINE_BEVERLY_HAS_NUGGET
+	getlandmarkname STRING_BUFFER_5, LANDMARK_NATIONAL_PARK
+	farsjump PhoneScript_FoundItem_Female

engine/phone/scripts/bike_shop.asm

@@ -0,0 +1,5 @@
+BikeShopPhoneCallerScript:
+	farwritetext BikeShopPhoneCallerText
+	clearflag ENGINE_BIKE_SHOP_CALL_ENABLED
+	specialphonecall SPECIALCALL_NONE
+	end

engine/phone/scripts/bill.asm

@@ -0,0 +1,41 @@
+BillPhoneCalleeScript:
+	checktime DAY
+	iftrue .daygreet
+	checktime NITE
+	iftrue .nitegreet
+	farwritetext BillPhoneMornGreetingText
+	promptbutton
+	sjump .main
+
+.daygreet
+	farwritetext BillPhoneDayGreetingText
+	promptbutton
+	sjump .main
+
+.nitegreet
+	farwritetext BillPhoneNiteGreetingText
+	promptbutton
+	sjump .main
+
+.main
+	farwritetext BillPhoneGenericText
+	promptbutton
+	readvar VAR_BOXSPACE
+	getnum STRING_BUFFER_3
+	ifequal 0, .full
+	ifless PARTY_LENGTH, .nearlyfull
+	farwritetext BillPhoneNotFullText
+	end
+
+.nearlyfull
+	farwritetext BillPhoneNearlyFullText
+	end
+
+.full
+	farwritetext BillPhoneFullText
+	end
+
+BillPhoneCallerScript:
+	farwritetext BillPhoneNewlyFullText
+	waitbutton
+	end

engine/phone/scripts/brent.asm

@@ -0,0 +1,44 @@
+BrentPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, POKEMANIAC, BRENT1
+	checkflag ENGINE_BRENT_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_BRENT_MONDAY_MORNING
+	iftrue .NotMonday
+	readvar VAR_WEEKDAY
+	ifnotequal MONDAY, .NotMonday
+	checktime MORN
+	iftrue BrentMondayMorning
+
+.NotMonday:
+	farsjump BrentHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_43
+	farsjump BrentReminderScript
+
+BrentPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, POKEMANIAC, BRENT1
+	farscall PhoneScript_GreetPhone_Male
+	farscall PhoneScript_Random2
+	ifequal 0, BrentBillTrivia
+	checkflag ENGINE_BRENT_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_BRENT_MONDAY_MORNING
+	iftrue .Generic
+	farscall PhoneScript_Random2
+	ifequal 0, BrentWantsBattle
+
+.Generic:
+	farsjump Phone_GenericCall_Male
+
+BrentMondayMorning:
+	setflag ENGINE_BRENT_MONDAY_MORNING
+
+BrentWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_43
+	setflag ENGINE_BRENT_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+BrentBillTrivia:
+	farsjump BrentBillTriviaScript

engine/phone/scripts/brent_gossip.asm

@@ -0,0 +1,62 @@
+BrentBillTriviaScript:
+	random 10
+	ifequal 0, .Father
+	ifequal 1, .Grandpa
+	ifequal 2, .Goldenrod
+	ifequal 3, .Route25
+	ifequal 4, .Abra
+	ifequal 5, .Sister
+	ifequal 6, .Milk
+	ifequal 7, .Battling
+	ifequal 8, .FlowerShop
+	ifequal 9, .KimonoGirl
+
+.Father:
+	farwritetext BrentFatherGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Grandpa:
+	farwritetext BrentGrandpaGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Goldenrod:
+	farwritetext BrentGoldenrodGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Route25:
+	farwritetext BrentRoute25GossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Abra:
+	farwritetext BrentAbraGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Sister:
+	farwritetext BrentSisterGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Milk:
+	farwritetext BrentMilkGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Battling:
+	farwritetext BrentBattlingGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.FlowerShop:
+	farwritetext BrentFlowerShopGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.KimonoGirl:
+	farwritetext BrentKimonoGirlGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/buena.asm

@@ -0,0 +1,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"

engine/phone/scripts/chad.asm

@@ -0,0 +1,49 @@
+ChadPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, SCHOOLBOY, CHAD1
+	checkflag ENGINE_CHAD_READY_FOR_REMATCH
+	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, LANDMARK_ROUTE_38
+	farsjump ChadReminderScript
+
+ChadPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, SCHOOLBOY, CHAD1
+	farscall PhoneScript_GreetPhone_Male
+	farscall PhoneScript_Random2
+	ifequal 0, ChadOakGossip
+	checkflag ENGINE_CHAD_READY_FOR_REMATCH
+	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, LANDMARK_ROUTE_38
+	setflag ENGINE_CHAD_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+ChadFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Male
+
+ChadOakGossip:
+	farsjump ChadOakGossipScript

engine/phone/scripts/chad_gossip.asm

@@ -0,0 +1,62 @@
+ChadOakGossipScript:
+	random 10
+	ifequal 0, .Blue
+	ifequal 1, .Daisy
+	ifequal 2, .ProfElm
+	ifequal 3, .Dream
+	ifequal 4, .Kurt
+	ifequal 5, .League
+	ifequal 6, .RadioShow
+	ifequal 7, .Battling
+	ifequal 8, .DaisyTea
+	ifequal 9, .Traveled
+
+.Blue:
+	farwritetext ChadBlueGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Daisy:
+	farwritetext ChadDaisyGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.ProfElm:
+	farwritetext ChadProfElmGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Dream:
+	farwritetext ChadProfOaksDreamGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Kurt:
+	farwritetext ChadKurtGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.League:
+	farwritetext ChadLeagueGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.RadioShow:
+	farwritetext ChadPokemonTalkGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Battling:
+	farwritetext ChadProfOakTrainerGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.DaisyTea:
+	farwritetext ChadDaisyTeaGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Traveled:
+	farwritetext ChadProfOakTravelingGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/dana.asm

@@ -0,0 +1,65 @@
+DanaPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, LASS, DANA1
+	checkflag ENGINE_DANA_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_DANA_THURSDAY_NIGHT
+	iftrue .NotThursday
+	checkflag ENGINE_DANA_HAS_THUNDERSTONE
+	iftrue .HasThunderstone
+	readvar VAR_WEEKDAY
+	ifnotequal THURSDAY, .NotThursday
+	checktime NITE
+	iftrue DanaThursdayNight
+
+.NotThursday:
+	farsjump DanaHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_38
+	farsjump DanaReminderScript
+
+.HasThunderstone:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_38
+	farsjump DanaComePickUpScript
+
+DanaPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, LASS, DANA1
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_DANA_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_DANA_THURSDAY_NIGHT
+	iftrue .Generic
+	checkflag ENGINE_DANA_HAS_THUNDERSTONE
+	iftrue .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, DanaWantsBattle
+	checkevent EVENT_DANA_GAVE_THUNDERSTONE
+	iftrue .Thunderstone
+	farscall PhoneScript_Random2
+	ifequal 0, DanaHasThunderstone
+
+.Thunderstone:
+	farscall PhoneScript_Random11
+	ifequal 0, DanaHasThunderstone
+
+.Generic:
+	farscall PhoneScript_Random3
+	ifequal 0, DanaFoundRare
+	farsjump Phone_GenericCall_Female
+
+DanaThursdayNight:
+	setflag ENGINE_DANA_THURSDAY_NIGHT
+
+DanaWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_38
+	setflag ENGINE_DANA_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female
+
+DanaFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Female
+
+DanaHasThunderstone:
+	setflag ENGINE_DANA_HAS_THUNDERSTONE
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_38
+	farsjump PhoneScript_FoundItem_Female

engine/phone/scripts/derek.asm

@@ -0,0 +1,48 @@
+DerekPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, POKEFANM, DEREK1
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_DEREK_HAS_NUGGET
+	iftrue .Nugget
+	farscall PhoneScript_Random2
+	ifequal 0, .NoContest
+	checkflag ENGINE_DAILY_BUG_CONTEST
+	iftrue .NoContest
+	readvar VAR_WEEKDAY
+	ifequal TUESDAY, .ContestToday
+	ifequal THURSDAY, .ContestToday
+	ifequal SATURDAY, .ContestToday
+
+.NoContest:
+	farsjump DerekHangUpScript
+
+.ContestToday:
+	farsjump PhoneScript_BugCatchingContest
+
+.Nugget:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_39
+	farsjump DerekComePickUpScript
+
+DerekPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, POKEFANM, DEREK1
+	farscall PhoneScript_GreetPhone_Male
+	farscall PhoneScript_Random2
+	ifequal 0, .NoContest
+	checkflag ENGINE_DAILY_BUG_CONTEST
+	iftrue .NoContest
+	readvar VAR_WEEKDAY
+	ifequal TUESDAY, .ContestToday
+	ifequal THURSDAY, .ContestToday
+	ifequal SATURDAY, .ContestToday
+
+.NoContest:
+	farscall PhoneScript_Random4
+	ifequal 0, .Nugget
+	farsjump Phone_GenericCall_Male
+
+.ContestToday:
+	farsjump PhoneScript_BugCatchingContest
+
+.Nugget:
+	setflag ENGINE_DEREK_HAS_NUGGET
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_39
+	farsjump PhoneScript_FoundItem_Male

engine/phone/scripts/elm.asm

@@ -0,0 +1,101 @@
+ElmPhoneCalleeScript:
+	readvar VAR_SPECIALPHONECALL
+	ifequal SPECIALCALL_POKERUS, .pokerus
+	checkevent EVENT_SHOWED_TOGEPI_TO_ELM
+	iftrue .discovery
+	checkevent EVENT_GOT_TOGEPI_EGG_FROM_ELMS_AIDE
+	iffalse .next
+	checkevent EVENT_TOGEPI_HATCHED
+	iftrue .egghatched
+.next
+	checkevent EVENT_GOT_TOGEPI_EGG_FROM_ELMS_AIDE
+	iftrue .eggunhatched
+	checkevent EVENT_ELMS_AIDE_IN_LAB
+	iftrue .assistant
+	checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
+	iftrue .checkingegg
+	checkevent EVENT_ELM_CALLED_ABOUT_STOLEN_POKEMON
+	iftrue .stolen
+	checkevent EVENT_GOT_MYSTERY_EGG_FROM_MR_POKEMON
+	iftrue .sawmrpokemon
+	farwritetext ElmPhoneHealYourMonText
+	end
+
+.sawmrpokemon
+	farwritetext ElmPhoneSawMrPokemonText
+	end
+
+.stolen
+	farwritetext ElmPhonePokemonStolenText
+	end
+
+.checkingegg
+	farwritetext ElmPhoneCheckingTheEggText
+	end
+
+.assistant
+	farwritetext ElmPhoneAssistantText
+	end
+
+.eggunhatched
+	farwritetext ElmPhoneHowIsTheEggText
+	end
+
+.egghatched
+	farwritetext ElmPhoneEggHatchedText
+	setevent EVENT_TOLD_ELM_ABOUT_TOGEPI_OVER_THE_PHONE
+	end
+
+.discovery
+	random 2
+	ifequal 0, .nextdiscovery
+	farwritetext ElmPhoneDiscoveredHatchTimeText
+	end
+
+.nextdiscovery
+	farwritetext ElmPhoneInvestigatingEggMovesText
+	end
+
+.pokerus
+	farwritetext ElmPhoneDiscoveredPokerusText
+	specialphonecall SPECIALCALL_NONE
+	end
+
+ElmPhoneCallerScript:
+	readvar VAR_SPECIALPHONECALL
+	ifequal SPECIALCALL_ROBBED, .disaster
+	ifequal SPECIALCALL_ASSISTANT, .assistant
+	ifequal SPECIALCALL_WEIRDBROADCAST, .rocket
+	ifequal SPECIALCALL_SSTICKET, .gift
+	ifequal SPECIALCALL_MASTERBALL, .gift
+	farwritetext ElmPhoneDiscoveredPokerusText
+	specialphonecall SPECIALCALL_NONE
+	end
+
+.disaster
+	farwritetext ElmPhoneDisasterText
+	specialphonecall SPECIALCALL_NONE
+	setevent EVENT_ELM_CALLED_ABOUT_STOLEN_POKEMON
+	end
+
+.assistant
+	farwritetext ElmPhoneEggAssistantText
+	specialphonecall SPECIALCALL_NONE
+	clearevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER
+	setevent EVENT_ELMS_AIDE_IN_LAB
+	end
+
+.rocket
+	farwritetext ElmPhoneRadioTowerRocketTakeoverText
+	specialphonecall SPECIALCALL_NONE
+	end
+
+.gift
+	farwritetext ElmPhoneGiftText
+	specialphonecall SPECIALCALL_NONE
+	end
+
+.neat ; unreferenced
+	farwritetext ElmPhoneGotAholdOfSomethingNeatText
+	specialphonecall SPECIALCALL_NONE
+	end

engine/phone/scripts/erin.asm

@@ -0,0 +1,40 @@
+ErinPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, ERIN1
+	checkflag ENGINE_ERIN_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_ERIN_SATURDAY_NIGHT
+	iftrue .NotSaturday
+	readvar VAR_WEEKDAY
+	ifnotequal SATURDAY, .NotSaturday
+	checktime NITE
+	iftrue ErinSaturdayNight
+
+.NotSaturday:
+	farsjump ErinWorkingHardScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_46
+	farsjump ErinComeBattleScript
+
+ErinPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, ERIN1
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_ERIN_READY_FOR_REMATCH
+	iftrue .GenericCall
+	checkflag ENGINE_ERIN_SATURDAY_NIGHT
+	iftrue .GenericCall
+	farscall PhoneScript_Random3
+	ifequal 0, ErinWantsBattle
+	ifequal 1, ErinWantsBattle
+
+.GenericCall:
+	farsjump Phone_GenericCall_Female
+
+ErinSaturdayNight:
+	setflag ENGINE_ERIN_SATURDAY_NIGHT
+
+ErinWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_46
+	setflag ENGINE_ERIN_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female

engine/phone/scripts/gaven.asm

@@ -0,0 +1,44 @@
+GavenPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, COOLTRAINERM, GAVEN3
+	checkflag ENGINE_GAVEN_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_GAVEN_THURSDAY_MORNING
+	iftrue .NotThursday
+	readvar VAR_WEEKDAY
+	ifnotequal THURSDAY, .NotThursday
+	checktime MORN
+	iftrue GavenThursdayMorningScript
+
+.NotThursday:
+	farsjump GavenHangUpNotThursdayScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_26
+	farsjump GavenReminderScript
+
+GavenPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, COOLTRAINERM, GAVEN3
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_GAVEN_READY_FOR_REMATCH
+	iftrue .WaitingForBattle
+	checkflag ENGINE_GAVEN_THURSDAY_MORNING
+	iftrue .WaitingForBattle
+	farscall PhoneScript_Random2
+	ifequal 0, GavenWantsRematch
+
+.WaitingForBattle:
+	farscall PhoneScript_Random3
+	ifequal 0, GavenFoundRare
+	farsjump Phone_GenericCall_Male
+
+GavenThursdayMorningScript:
+	setflag ENGINE_GAVEN_THURSDAY_MORNING
+
+GavenWantsRematch:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_26
+	setflag ENGINE_GAVEN_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+GavenFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Male

engine/phone/scripts/generic_caller.asm

@@ -0,0 +1,961 @@
+Phone_GenericCall_Male:
+	special RandomPhoneMon
+	farscall PhoneScript_Random2
+	ifequal 0, .Bragging
+	farscall PhoneScript_Generic_Male
+	farsjump Phone_FoundAMon_Male
+
+.Bragging:
+	farsjump Phone_BraggingCall_Male
+
+Phone_GenericCall_Female:
+	special RandomPhoneMon
+	farscall PhoneScript_Random2
+	ifequal 0, .Bragging
+	farscall PhoneScript_Generic_Female
+	farsjump Phone_FoundAMon_Female
+
+.Bragging:
+	farsjump Phone_BraggingCall_Female
+
+Phone_BraggingCall_Male:
+	farscall Phone_WhosBragging_Male
+	farsjump Phone_FoundAMon_Male
+
+Phone_BraggingCall_Female:
+	farscall Phone_WhosBragging_Female
+	farsjump Phone_FoundAMon_Female
+
+Phone_FoundAMon_Male:
+	special RandomPhoneWildMon
+	farscall PhoneScript_Random2
+	ifequal 0, .GotAway
+	farscall Phone_WhoDefeatedMon_Male
+	farsjump PhoneScript_HangUpText_Male
+
+.GotAway:
+	farsjump Phone_GotAwayCall_Male
+
+Phone_FoundAMon_Female:
+	special RandomPhoneWildMon
+	farscall PhoneScript_Random2
+	ifequal 0, .GotAway
+	farscall Phone_WhoDefeatedMon_Female
+	farsjump PhoneScript_HangUpText_Female
+
+.GotAway:
+	farsjump Phone_GotAwayCall_Female
+
+Phone_GotAwayCall_Male:
+	farscall Phone_WhoLostAMon_Male
+	farsjump PhoneScript_HangUpText_Male
+
+Phone_GotAwayCall_Female:
+	farscall Phone_WhoLostAMon_Female
+	farsjump PhoneScript_HangUpText_Female
+
+Phone_WhosBragging_Male:
+	readvar VAR_CALLERID
+	ifequal PHONE_SCHOOLBOY_JACK, .Jack
+	ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	ifequal PHONE_BIRDKEEPER_JOSE, .Jose
+	ifequal PHONE_YOUNGSTER_JOEY, .Joey
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_FISHER_RALPH, .Ralph
+	ifequal PHONE_HIKER_ANTHONY, .Anthony
+	ifequal PHONE_CAMPER_TODD, .Todd
+	ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	ifequal PHONE_SCHOOLBOY_ALAN, .Alan
+	ifequal PHONE_SCHOOLBOY_CHAD, .Chad
+	ifequal PHONE_POKEFANM_DEREK, .Derek
+	ifequal PHONE_FISHER_TULLY, .Tully
+	ifequal PHONE_POKEMANIAC_BRENT, .Brent
+	ifequal PHONE_BIRDKEEPER_VANCE, .Vance
+	ifequal PHONE_FISHER_WILTON, .Wilton
+	ifequal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
+	farwritetext JackIntelligenceKeepsRisingText
+	promptbutton
+	end
+
+.Gaven:
+	farwritetext GavenMonGreaterThanImaginedText
+	promptbutton
+	end
+
+.Jose:
+	farwritetext JoseMonsStickHasADeliciousAromaText
+	promptbutton
+	end
+
+.Joey:
+	farwritetext JoeyMonLookingSharperText
+	promptbutton
+	end
+
+.Wade:
+	farwritetext WadeAreYourMonGrowingText
+	promptbutton
+	end
+
+.Ralph:
+	farwritetext RalphNeglectingKidsText
+	promptbutton
+	end
+
+.Anthony:
+	farwritetext AnthonyMonAteSomeBerriesText
+	promptbutton
+	end
+
+.Todd:
+	farwritetext ToddLooksCuteLikeMeText
+	promptbutton
+	end
+
+.Arnie:
+	farwritetext ArnieMonIsSoCuteText
+	promptbutton
+	end
+
+.Alan:
+	farwritetext AlanGettingStrongerText
+	promptbutton
+	end
+
+.Chad:
+	farwritetext ChadObservingWildText
+	promptbutton
+	end
+
+.Derek:
+	farwritetext DerekCheekPinchingText
+	promptbutton
+	end
+
+.Tully:
+	farwritetext TullyMonHasGrownText
+	promptbutton
+	end
+
+.Brent:
+	farwritetext BrentRareTradeText
+	promptbutton
+	end
+
+.Vance:
+	farwritetext VanceMonHasBecomeTougherText
+	promptbutton
+	end
+
+.Wilton:
+	farwritetext WiltonMonHasGrownText
+	promptbutton
+	end
+
+.Parry:
+	farwritetext ParryNothingCanMatchText
+	promptbutton
+	end
+
+Phone_WhosBragging_Female:
+	readvar VAR_CALLERID
+	ifequal PHONE_POKEFAN_BEVERLY, .Beverly
+	ifequal PHONE_COOLTRAINERF_BETH, .Beth
+	ifequal PHONE_COOLTRAINERF_REENA, .Reena
+	ifequal PHONE_PICNICKER_LIZ, .Liz
+	ifequal PHONE_PICNICKER_GINA, .Gina
+	ifequal PHONE_LASS_DANA, .Dana
+	ifequal PHONE_PICNICKER_TIFFANY, .Tiffany
+	ifequal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
+	farwritetext BeverlyMadeMonEvenCuterText
+	promptbutton
+	end
+
+.Beth:
+	farwritetext BethExhilaratingRideText
+	promptbutton
+	end
+
+.Reena:
+	farwritetext ReenaMonsIsAPerfectMatchText
+	promptbutton
+	end
+
+.Liz:
+	farwritetext LizMonAlwaysWantsToNuzzleText
+	promptbutton
+	end
+
+.Gina:
+	farwritetext GinaGettingInSyncWithMonText
+	promptbutton
+	end
+
+.Dana:
+	farwritetext DanaTakingPhotosText
+	promptbutton
+	end
+
+.Tiffany:
+	farwritetext TiffanyMonIsAdorableText
+	promptbutton
+	end
+
+.Erin:
+	farwritetext ErinMonIsMuchStrongerText
+	promptbutton
+	end
+
+Phone_WhoDefeatedMon_Male:
+	readvar VAR_CALLERID
+	ifequal PHONE_SCHOOLBOY_JACK, .Jack
+	ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	ifequal PHONE_BIRDKEEPER_JOSE, .Jose
+	ifequal PHONE_YOUNGSTER_JOEY, .Joey
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_FISHER_RALPH, .Ralph
+	ifequal PHONE_HIKER_ANTHONY, .Anthony
+	ifequal PHONE_CAMPER_TODD, .Todd
+	ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	ifequal PHONE_SCHOOLBOY_ALAN, .Alan
+	ifequal PHONE_SCHOOLBOY_CHAD, .Chad
+	ifequal PHONE_POKEFANM_DEREK, .Derek
+	ifequal PHONE_FISHER_TULLY, .Tully
+	ifequal PHONE_POKEMANIAC_BRENT, .Brent
+	ifequal PHONE_BIRDKEEPER_VANCE, .Vance
+	ifequal PHONE_FISHER_WILTON, .Wilton
+	ifequal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
+	farwritetext JackDefeatedMonText
+	promptbutton
+	end
+
+.Gaven:
+	farwritetext GavenDefeatedMonText
+	promptbutton
+	end
+
+.Jose:
+	farwritetext JoseDefeatedMonText
+	promptbutton
+	end
+
+.Joey:
+	farwritetext JoeyDefeatedMonText
+	promptbutton
+	end
+
+.Wade:
+	farwritetext WadeDefeatedMonText
+	promptbutton
+	end
+
+.Ralph:
+	farwritetext RalphDefeatedMonText
+	promptbutton
+	end
+
+.Anthony:
+	farwritetext AnthonyDefeatedMonText
+	promptbutton
+	end
+
+.Todd:
+	farwritetext ToddDefeatedMonText
+	promptbutton
+	end
+
+.Arnie:
+	farwritetext ArnieDefeatedMonText
+	promptbutton
+	end
+
+.Alan:
+	farwritetext AlanDefeatedMonText
+	promptbutton
+	end
+
+.Chad:
+	farwritetext ChadDefeatedMonText
+	promptbutton
+	end
+
+.Derek:
+	farwritetext DerekDefeatedMonText
+	promptbutton
+	end
+
+.Tully:
+	farwritetext TullyDefeatedMonText
+	promptbutton
+	end
+
+.Brent:
+	farwritetext BrentDefeatedMonText
+	promptbutton
+	end
+
+.Vance:
+	farwritetext VanceDefeatedMonText
+	promptbutton
+	end
+
+.Wilton:
+	farwritetext WiltonDefeatedMonText
+	promptbutton
+	end
+
+.Parry:
+	farwritetext ParryDefeatedMonText
+	promptbutton
+	end
+
+Phone_WhoDefeatedMon_Female:
+	readvar VAR_CALLERID
+	ifequal PHONE_POKEFAN_BEVERLY, .Beverly
+	ifequal PHONE_COOLTRAINERF_BETH, .Beth
+	ifequal PHONE_COOLTRAINERF_REENA, .Reena
+	ifequal PHONE_PICNICKER_LIZ, .Liz
+	ifequal PHONE_PICNICKER_GINA, .Gina
+	ifequal PHONE_LASS_DANA, .Dana
+	ifequal PHONE_PICNICKER_TIFFANY, .Tiffany
+	ifequal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
+	farwritetext BeverlyDefeatedMonText
+	promptbutton
+	end
+
+.Beth:
+	farwritetext BethDefeatedMonText
+	promptbutton
+	end
+
+.Reena:
+	farwritetext ReenaDefeatedMonText
+	promptbutton
+	end
+
+.Liz:
+	farwritetext LizDefeatedMonText
+	promptbutton
+	end
+
+.Gina:
+	farwritetext GinaDefeatedMonText
+	promptbutton
+	end
+
+.Dana:
+	farwritetext DanaDefeatedMonText
+	promptbutton
+	end
+
+.Tiffany:
+	farwritetext TiffanyDefeatedMonText
+	promptbutton
+	end
+
+.Erin:
+	farwritetext ErinDefeatedMonText
+	promptbutton
+	end
+
+Phone_WhoLostAMon_Male:
+	readvar VAR_CALLERID
+	ifequal PHONE_SCHOOLBOY_JACK, .Jack
+	ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	ifequal PHONE_BIRDKEEPER_JOSE, .Jose
+	ifequal PHONE_YOUNGSTER_JOEY, .Joey
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_FISHER_RALPH, .Ralph
+	ifequal PHONE_HIKER_ANTHONY, .Anthony
+	ifequal PHONE_CAMPER_TODD, .Todd
+	ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	ifequal PHONE_SCHOOLBOY_ALAN, .Alan
+	ifequal PHONE_SCHOOLBOY_CHAD, .Chad
+	ifequal PHONE_POKEFANM_DEREK, .Derek
+	ifequal PHONE_FISHER_TULLY, .Tully
+	ifequal PHONE_POKEMANIAC_BRENT, .Brent
+	ifequal PHONE_BIRDKEEPER_VANCE, .Vance
+	ifequal PHONE_FISHER_WILTON, .Wilton
+	ifequal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
+	farwritetext JackLostAMonText
+	promptbutton
+	end
+
+.Gaven:
+	farwritetext GavenLostAMonText
+	promptbutton
+	end
+
+.Jose:
+	farwritetext JoseLostAMonText
+	promptbutton
+	end
+
+.Joey:
+	farwritetext JoeyLostAMonText
+	promptbutton
+	end
+
+.Wade:
+	farwritetext WadeLostAMonText
+	promptbutton
+	end
+
+.Ralph:
+	farwritetext RalphLostAMonText
+	promptbutton
+	end
+
+.Anthony:
+	farwritetext AnthonyLostAMonText
+	promptbutton
+	end
+
+.Todd:
+	farwritetext ToddLostAMonText
+	promptbutton
+	end
+
+.Arnie:
+	farwritetext ArnieLostAMonText
+	promptbutton
+	end
+
+.Alan:
+	farwritetext AlanLostAMonText
+	promptbutton
+	end
+
+.Chad:
+	farwritetext ChadLostAMonText
+	promptbutton
+	end
+
+.Derek:
+	farwritetext DerekLostAMonText
+	promptbutton
+	end
+
+.Tully:
+	farwritetext TullyLostAMonText
+	promptbutton
+	end
+
+.Brent:
+	farwritetext BrentLostAMonText
+	promptbutton
+	end
+
+.Vance:
+	farwritetext VanceLostAMonText
+	promptbutton
+	end
+
+.Wilton:
+	farwritetext WiltonLostAMonText
+	promptbutton
+	end
+
+.Parry:
+	farwritetext ParryLostAMonText
+	promptbutton
+	end
+
+Phone_WhoLostAMon_Female:
+	readvar VAR_CALLERID
+	ifequal PHONE_POKEFAN_BEVERLY, .Beverly
+	ifequal PHONE_COOLTRAINERF_BETH, .Beth
+	ifequal PHONE_COOLTRAINERF_REENA, .Reena
+	ifequal PHONE_PICNICKER_LIZ, .Liz
+	ifequal PHONE_PICNICKER_GINA, .Gina
+	ifequal PHONE_LASS_DANA, .Dana
+	ifequal PHONE_PICNICKER_TIFFANY, .Tiffany
+	ifequal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
+	farwritetext BeverlyLostAMonText
+	promptbutton
+	end
+
+.Beth:
+	farwritetext BethLostAMonText
+	promptbutton
+	end
+
+.Reena:
+	farwritetext ReenaLostAMonText
+	promptbutton
+	end
+
+.Liz:
+	farwritetext LizLostAMonText
+	promptbutton
+	end
+
+.Gina:
+	farwritetext GinaLostAMonText
+	promptbutton
+	end
+
+.Dana:
+	farwritetext DanaLostAMonText
+	promptbutton
+	end
+
+.Tiffany:
+	farwritetext TiffanyLostAMonText
+	promptbutton
+	end
+
+.Erin:
+	farwritetext ErinLostAMonText
+	promptbutton
+	end
+
+PhoneScript_WantsToBattle_Male:
+	farscall PhoneScript_RematchText_Male
+	farsjump PhoneScript_HangUpText_Male
+
+PhoneScript_WantsToBattle_Female:
+	farscall PhoneScript_RematchText_Female
+	farsjump PhoneScript_HangUpText_Female
+
+PhoneScript_RematchText_Male:
+	readvar VAR_CALLERID
+	ifequal PHONE_SCHOOLBOY_JACK, .Jack
+	ifequal PHONE_SAILOR_HUEY, .Huey
+	ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	ifequal PHONE_BIRDKEEPER_JOSE, .Jose
+	ifequal PHONE_YOUNGSTER_JOEY, .Joey
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_FISHER_RALPH, .Ralph
+	ifequal PHONE_HIKER_ANTHONY, .Anthony
+	ifequal PHONE_CAMPER_TODD, .Todd
+	ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	ifequal PHONE_SCHOOLBOY_ALAN, .Alan
+	ifequal PHONE_SCHOOLBOY_CHAD, .Chad
+	ifequal PHONE_FISHER_TULLY, .Tully
+	ifequal PHONE_POKEMANIAC_BRENT, .Brent
+	ifequal PHONE_BIRDKEEPER_VANCE, .Vance
+	ifequal PHONE_FISHER_WILTON, .Wilton
+	ifequal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
+	farwritetext JackBattleRematchText
+	promptbutton
+	end
+
+.Huey:
+	farwritetext HueyBattleRematchText
+	promptbutton
+	end
+
+.Gaven:
+	farwritetext GavenBattleRematchText
+	promptbutton
+	end
+
+.Jose:
+	farwritetext JoseBattleRematchText
+	promptbutton
+	end
+
+.Joey:
+	farwritetext JoeyBattleRematchText
+	promptbutton
+	end
+
+.Wade:
+	farwritetext WadeBattleRematchText
+	promptbutton
+	end
+
+.Ralph:
+	farwritetext RalphBattleRematchText
+	promptbutton
+	end
+
+.Anthony:
+	farwritetext AnthonyBattleRematchText
+	promptbutton
+	end
+
+.Todd:
+	farwritetext ToddBattleRematchText
+	promptbutton
+	end
+
+.Arnie:
+	farwritetext ArnieBattleRematchText
+	promptbutton
+	end
+
+.Alan:
+	farwritetext AlanBattleRematchText
+	promptbutton
+	end
+
+.Chad:
+	farwritetext ChadBattleRematchText
+	promptbutton
+	end
+
+.Tully:
+	farwritetext TullyBattleRematchText
+	promptbutton
+	end
+
+.Brent:
+	farwritetext BrentBattleRematchText
+	promptbutton
+	end
+
+.Vance:
+	farwritetext VanceBattleRematchText
+	promptbutton
+	end
+
+.Wilton:
+	farwritetext WiltonBattleRematchText
+	promptbutton
+	end
+
+.Parry:
+	farwritetext ParryBattleRematchText
+	promptbutton
+	end
+
+PhoneScript_RematchText_Female:
+	readvar VAR_CALLERID
+	ifequal PHONE_COOLTRAINERF_BETH, .Beth
+	ifequal PHONE_COOLTRAINERF_REENA, .Reena
+	ifequal PHONE_PICNICKER_LIZ, .Liz
+	ifequal PHONE_PICNICKER_GINA, .Gina
+	ifequal PHONE_LASS_DANA, .Dana
+	ifequal PHONE_PICNICKER_TIFFANY, .Tiffany
+	ifequal PHONE_PICNICKER_ERIN, .Erin
+
+.Beth:
+	farwritetext BethBattleRematchText
+	promptbutton
+	end
+
+.Reena:
+	farwritetext ReenaBattleRematchText
+	promptbutton
+	end
+
+.Liz:
+	farwritetext LizBattleRematchText
+	promptbutton
+	end
+
+.Gina:
+	farwritetext GinaBattleRematchText
+	promptbutton
+	end
+
+.Dana:
+	farwritetext DanaBattleRematchText
+	promptbutton
+	end
+
+.Tiffany:
+	farwritetext TiffanyBattleRematchText
+	promptbutton
+	end
+
+.Erin:
+	farwritetext ErinBattleRematchText
+	promptbutton
+	end
+
+LizWrongNumberScript:
+	farwritetext LizWrongNumberText
+	end
+
+TiffanyItsAwful:
+	farwritetext TiffanyItsAwfulText
+	end
+
+PhoneScript_HangUpText_Male:
+	readvar VAR_CALLERID
+	ifequal PHONE_SCHOOLBOY_JACK, .Jack
+	ifequal PHONE_SAILOR_HUEY, .Huey
+	ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven
+	ifequal PHONE_BIRDKEEPER_JOSE, .Jose
+	ifequal PHONE_YOUNGSTER_JOEY, .Joey
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_FISHER_RALPH, .Ralph
+	ifequal PHONE_HIKER_ANTHONY, .Anthony
+	ifequal PHONE_CAMPER_TODD, .Todd
+	ifequal PHONE_JUGGLER_IRWIN, .Irwin
+	ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie
+	ifequal PHONE_SCHOOLBOY_ALAN, .Alan
+	ifequal PHONE_SCHOOLBOY_CHAD, .Chad
+	ifequal PHONE_POKEFANM_DEREK, .Derek
+	ifequal PHONE_FISHER_TULLY, .Tully
+	ifequal PHONE_POKEMANIAC_BRENT, .Brent
+	ifequal PHONE_BIRDKEEPER_VANCE, .Vance
+	ifequal PHONE_FISHER_WILTON, .Wilton
+	ifequal PHONE_BLACKBELT_KENJI, .Kenji
+	ifequal PHONE_HIKER_PARRY, .Parry
+
+.Jack:
+	farwritetext JackHangUpText
+	end
+
+.Huey:
+	farwritetext HueyHangUpText
+	end
+
+.Gaven:
+	farwritetext GavenHangUpText
+	end
+
+.Jose:
+	farwritetext JoseHangUpText
+	end
+
+.Joey:
+	farwritetext JoeyHangUpText
+	end
+
+.Wade:
+	farwritetext WadeHangUpText
+	end
+
+.Ralph:
+	farwritetext RalphHangUpText
+	end
+
+.Anthony:
+	farwritetext AnthonyHangUpText
+	end
+
+.Todd:
+	farwritetext ToddHangUpText
+	end
+
+.Irwin:
+	farwritetext IrwinHangUpText
+	end
+
+.Arnie:
+	farwritetext ArnieHangUpText
+	end
+
+.Alan:
+	farwritetext AlanHangUpText
+	end
+
+.Chad:
+	farwritetext ChadHangUpText
+	end
+
+.Derek:
+	farwritetext DerekHangUpText
+	end
+
+.Tully:
+	farwritetext TullyHangUpText
+	end
+
+.Brent:
+	farwritetext BrentHangUpText
+	end
+
+.Vance:
+	farwritetext VanceHangUpText
+	end
+
+.Wilton:
+	farwritetext WiltonHangUpText
+	end
+
+.Kenji:
+	farwritetext KenjiHangUpText
+	end
+
+.Parry:
+	farwritetext ParryHangUpText
+	end
+
+PhoneScript_HangUpText_Female:
+	readvar VAR_CALLERID
+	ifequal PHONE_POKEFAN_BEVERLY, .Beverly
+	ifequal PHONE_COOLTRAINERF_BETH, .Beth
+	ifequal PHONE_COOLTRAINERF_REENA, .Reena
+	ifequal PHONE_PICNICKER_LIZ, .Liz
+	ifequal PHONE_PICNICKER_GINA, .Gina
+	ifequal PHONE_LASS_DANA, .Dana
+	ifequal PHONE_PICNICKER_TIFFANY, .Tiffany
+	ifequal PHONE_PICNICKER_ERIN, .Erin
+
+.Beverly:
+	farwritetext BeverlyHangUpText
+	end
+
+.Beth:
+	farwritetext BethHangUpText
+	end
+
+.Reena:
+	farwritetext ReenaHangUpText
+	end
+
+.Liz:
+	farwritetext LizHangUpText
+	end
+
+.Gina:
+	farwritetext GinaHangUpText
+	end
+
+.Dana:
+	farwritetext DanaHangUpText
+	end
+
+.Tiffany:
+	farwritetext TiffanyHangUpText
+	end
+
+.Erin:
+	farwritetext ErinHangUpText
+	end
+
+Phone_CheckIfUnseenRare_Male:
+	scall PhoneScriptRareWildMon
+	iffalse .HangUp
+	farsjump Phone_GenericCall_Male
+
+.HangUp:
+	farsjump PhoneScript_HangUpText_Male
+
+Phone_CheckIfUnseenRare_Female:
+	scall PhoneScriptRareWildMon
+	iffalse .HangUp
+	farsjump Phone_GenericCall_Female
+
+.HangUp:
+	farsjump PhoneScript_HangUpText_Female
+
+PhoneScriptRareWildMon:
+	special RandomUnseenWildMon
+	end
+
+PhoneScript_BugCatchingContest:
+	readvar VAR_CALLERID
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_POKEFANM_DEREK, .Derek
+
+.Wade:
+	farwritetext WadeBugCatchingContestText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Derek:
+	farwritetext DerekBugCatchingContestText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+IrwinRocketRumorScript:
+	farwritetext IrwinRocketTakeoverRumorText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+GinaRocketRumorScript:
+	farwritetext GinaRocketTakeoverRumorText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+ArnieSwarmScript:
+	farwritetext ArnieSwarmText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+RalphItemScript:
+	farwritetext RalphItemText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+AnthonySwarmScript:
+	farwritetext AnthonySwarmText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+PhoneScript_FoundItem_Male:
+	readvar VAR_CALLERID
+	ifequal PHONE_BIRDKEEPER_JOSE, .Jose
+	ifequal PHONE_BUG_CATCHER_WADE, .Wade
+	ifequal PHONE_SCHOOLBOY_ALAN, .Alan
+	ifequal PHONE_POKEFANM_DEREK, .Derek
+	ifequal PHONE_FISHER_TULLY, .Tully
+	ifequal PHONE_FISHER_WILTON, .Wilton
+
+.Jose:
+	farwritetext JoseFoundItemText
+	end
+
+.Wade:
+	farwritetext WadeFoundItemText
+	end
+
+.Alan:
+	farwritetext AlanFoundItemText
+	end
+
+.Derek:
+	farwritetext DerekFoundItemText
+	end
+
+.Tully:
+	farwritetext TullyFoundItemText
+	end
+
+.Wilton:
+	farwritetext WiltonFoundItemText
+	end
+
+PhoneScript_FoundItem_Female:
+	readvar VAR_CALLERID
+	ifequal PHONE_POKEFAN_BEVERLY, .Beverly
+	ifequal PHONE_PICNICKER_GINA, .Gina
+	ifequal PHONE_LASS_DANA, .Dana
+	ifequal PHONE_PICNICKER_TIFFANY, .Tiffany
+
+.Beverly:
+	farwritetext BeverlyFoundItemText
+	end
+
+.Gina:
+	farwritetext GinaFoundItemText
+	end
+
+.Dana:
+	farwritetext DanaFoundItemText
+	end
+
+.Tiffany:
+	farwritetext TiffanyFoundItemText
+	end
+
+ToddItemScript:
+	farwritetext ToddDepartmentStoreBargainSaleText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+KenjiCallingPhoneScript:
+	farwritetext KenjiRemainDedicatedText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/gina.asm

@@ -0,0 +1,72 @@
+GinaPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, GINA1
+	checkflag ENGINE_GINA_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_GINA_SUNDAY_AFTERNOON
+	iftrue .NotSunday
+	checkflag ENGINE_GINA_HAS_LEAF_STONE
+	iftrue .HasLeafStone
+	readvar VAR_WEEKDAY
+	ifnotequal SUNDAY, .NotSunday
+	checktime DAY
+	iftrue GinaSundayDay
+
+.NotSunday:
+	checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
+	iftrue .Rockets
+	farsjump GinaHangUpScript
+
+.Rockets:
+	farsjump GinaRocketRumorScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_34
+	farsjump GinaReminderScript
+
+.HasLeafStone:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_34
+	farsjump GinaComePickUpScript
+
+GinaPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, GINA1
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
+	iftrue GinaRockets
+	checkflag ENGINE_GINA_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_GINA_SUNDAY_AFTERNOON
+	iftrue .Generic
+	checkflag ENGINE_GINA_HAS_LEAF_STONE
+	iftrue .Generic
+	checkevent EVENT_GINA_GAVE_LEAF_STONE
+	iftrue .GaveLeafStone
+	farscall PhoneScript_Random2
+	ifequal 0, GinaHasLeafStone
+
+.GaveLeafStone:
+	farscall PhoneScript_Random11
+	ifequal 0, GinaHasLeafStone
+	checkflag ENGINE_FLYPOINT_GOLDENROD
+	iffalse .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, GinaWantsBattle
+
+.Generic:
+	farsjump Phone_GenericCall_Female
+
+GinaSundayDay:
+	setflag ENGINE_GINA_SUNDAY_AFTERNOON
+
+GinaWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_34
+	setflag ENGINE_GINA_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female
+
+GinaRockets:
+	farsjump GinaRocketRumorScript
+
+GinaHasLeafStone:
+	setflag ENGINE_GINA_HAS_LEAF_STONE
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_34
+	farsjump PhoneScript_FoundItem_Female

engine/phone/scripts/hangups.asm

@@ -0,0 +1,183 @@
+JackPhoneTipsScript:
+	farwritetext JackHeardSomeGreatTipsText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+BeverlyHangUpScript:
+	farwritetext BeverlyLetsChatAboutMonAgainText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+HueyHangUpScript:
+	farwritetext HueyWeHaveToBattleAgainSometimeText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+GavenHangUpNotThursdayScript:
+	farwritetext GavenHangUpNotThursdayText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+BethHangUpScript:
+	farwritetext BethLetsBattleAgainSometimeText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+JoseHangUpScript:
+	farwritetext JoseHaventGottenItemYetText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+ReenaForwardScript:
+	farwritetext ReenaForwardText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+JoeyHangUpScript:
+	farwritetext JoeyDevisingStrategiesText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+WadeNoBerriesScript:
+	farwritetext WadeNoBerriesText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+RalphNoItemScript:
+	farwritetext RalphNoItemText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+LizHangUpScript:
+	farwritetext LizFawningOverMonText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+AnthonyHangUpScript:
+	farwritetext AnthonyWasntPayingAttentionText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+ToddNoItemScript:
+	farwritetext ToddSavingUpForBargainSaleText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+GinaHangUpScript:
+	farwritetext GinaHaventFoundAnythingYetText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+ArnieHangUpScript:
+	farwritetext ArnieHaventSeenRareMonText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+AlanHangUpScript:
+	farwritetext AlanHaventPickedUpAnythingText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+DanaHangUpScript:
+	farwritetext DanaCanYouWaitABitLongerText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+ChadHangUpScript:
+	farwritetext ChadGoingToStudyHardText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+DerekHangUpScript:
+	farwritetext DerekLetsGetTogetherText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+TullyNoItemScript:
+	farwritetext TullyNoItemText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+BrentHangUpScript:
+	farwritetext BrentSorryImTooBusyText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+TiffanyNoItemScript:
+	farwritetext TiffanyNoItemText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+VanceLookingForwardScript:
+	farwritetext VanceLookingForwardText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+WiltonHaventFoundAnythingScript:
+	farwritetext WiltonHaventFoundAnythingText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+ParryBattleWithMeScript:
+	farwritetext ParryBattleWithMeText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+ErinWorkingHardScript:
+	farwritetext ErinWorkingHardText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+IrwinRandomTextScript:
+	random 3
+	ifequal 0, IrwinEscapadeScript
+	ifequal 1, IrwinGoodMatchScript
+	ifequal 2, IrwinSoMuchToChatAboutScript
+
+IrwinEscapadeScript:
+	farwritetext IrwinYourEscapadesRockText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+IrwinGoodMatchScript:
+	farwritetext IrwinGoodMatchText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+IrwinSoMuchToChatAboutScript:
+	farwritetext IrwinSoMuchToChatAboutText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+KenjiAnswerPhoneScript:
+	readvar VAR_KENJI_BREAK
+	ifequal 2, .Training
+	ifequal 1, .OnBreak
+	farwritetext KenjiCallMeBackAnotherTimeText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Training:
+	farwritetext KenjiIllHaveTimeToChatTomorrowText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.OnBreak:
+	checktime MORN
+	iftrue .Morning
+	checktime NITE
+	iftrue .Night
+	setevent EVENT_KENJI_ON_BREAK
+	farwritetext KenjiTakingABreakText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Morning:
+	farwritetext KenjiHangUpMorningText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Night:
+	farwritetext KenjiHangUpNightText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/hangups_2.asm

@@ -0,0 +1,49 @@
+BeverlyComePickUpScript:
+	farwritetext BeverlyComePickUpText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+JoseComePickUpScript: ; unreferenced
+	farwritetext JoseComePickUpText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+WadeComeQuickScript:
+	farwritetext WadeComeQuickText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+GinaComePickUpScript:
+	farwritetext GinaComePickUpText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+AlanComePickUpScript:
+	farwritetext AlanComePickUpGiftText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+DanaComePickUpScript:
+	farwritetext DanaComePickUpText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+DerekComePickUpScript:
+	farwritetext DerekComePickUpText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+TullyHurryScript:
+	farwritetext TullyHurryText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+TiffanyHurryScript:
+	farwritetext TiffanyHurryText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+WiltonWantThisScript:
+	farwritetext WiltonWantThisText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/huey.asm

@@ -0,0 +1,41 @@
+HueyPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, SAILOR, HUEY1
+	checkflag ENGINE_HUEY_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_HUEY_WEDNESDAY_NIGHT
+	iftrue .NotWednesday
+	readvar VAR_WEEKDAY
+	ifnotequal WEDNESDAY, .NotWednesday
+	checktime NITE
+	iftrue HueyWednesdayNight
+
+.NotWednesday:
+	special RandomPhoneMon
+	farsjump HueyHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_LIGHTHOUSE
+	farsjump HueyWantsBattleScript
+
+HueyPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, SAILOR, HUEY1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_HUEY_READY_FOR_REMATCH
+	iftrue .Flavor
+	checkflag ENGINE_HUEY_WEDNESDAY_NIGHT
+	iftrue .Flavor
+	farscall PhoneScript_Random3
+	ifequal 0, HueyWantsBattle
+	ifequal 1, HueyWantsBattle
+
+.Flavor:
+	farsjump PhoneScript_MonFlavorText
+
+HueyWednesdayNight:
+	setflag ENGINE_HUEY_WEDNESDAY_NIGHT
+
+HueyWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_LIGHTHOUSE
+	setflag ENGINE_HUEY_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male

engine/phone/scripts/irwin.asm

@@ -0,0 +1,19 @@
+IrwinPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, JUGGLER, IRWIN1
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
+	iftrue .Rockets
+	farsjump IrwinRandomTextScript
+
+.Rockets:
+	farsjump IrwinRocketRumorScript
+
+IrwinPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, JUGGLER, IRWIN1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
+	iftrue .Rockets
+	farsjump IrwinRumorScript
+
+.Rockets:
+	farsjump IrwinRocketRumorScript

engine/phone/scripts/irwin_gossip.asm

@@ -0,0 +1,88 @@
+IrwinRumorScript:
+	checkevent EVENT_OPENED_MT_SILVER
+	iftrue .MtSilver
+	checkevent EVENT_FOUGHT_SNORLAX
+	iftrue .Snorlax
+	checkevent EVENT_GOT_PASS_FROM_COPYCAT
+	iftrue .TrainPass
+	checkflag ENGINE_MARSHBADGE
+	iftrue .MarshBadge
+	checkflag ENGINE_FLYPOINT_VERMILION
+	iftrue .VermilionCity
+	checkevent EVENT_BEAT_ELITE_FOUR
+	iftrue .EliteFour
+	checkflag ENGINE_RISINGBADGE
+	iftrue .RisingBadge
+	checkevent EVENT_CLEARED_RADIO_TOWER
+	iftrue .RadioTower
+	checkevent EVENT_CLEARED_ROCKET_HIDEOUT
+	iftrue .RocketHideout
+	checkevent EVENT_JASMINE_RETURNED_TO_GYM
+	iftrue .JasmineReturned
+	checkflag ENGINE_FOGBADGE
+	iftrue .FogBadge
+	checkflag ENGINE_PLAINBADGE
+	iftrue .PlainBadge
+	farwritetext IrwinCalledRightAwayText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.PlainBadge:
+	farwritetext IrwinPlainBadgeGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.JasmineReturned:
+	farwritetext IrwinJasmineReturnedGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.RocketHideout:
+	farwritetext IrwinRocketHideoutGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.RadioTower:
+	farwritetext IrwinRadioTowerGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.RisingBadge:
+	farwritetext IrwinRisingBadgeGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.EliteFour:
+	farwritetext IrwinEliteFourGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.VermilionCity:
+	farwritetext IrwinVermilionCityGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.TrainPass:
+	farwritetext IrwinTrainPassGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Snorlax:
+	farwritetext IrwinSnorlaxGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.MtSilver:
+	farwritetext IrwinMtSilverGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.FogBadge:
+	farwritetext IrwinFogBadgeGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.MarshBadge:
+	farwritetext IrwinMarshBadgeGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/jack.asm

@@ -0,0 +1,49 @@
+JackPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, SCHOOLBOY, JACK1
+	checkflag ENGINE_JACK_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_JACK_MONDAY_MORNING
+	iftrue .NotMonday
+	readvar VAR_WEEKDAY
+	ifnotequal MONDAY, .NotMonday
+	checktime MORN
+	iftrue JackMondayMorning
+
+.NotMonday:
+	farsjump JackPhoneTipsScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_NATIONAL_PARK
+	farsjump JackWantsBattleScript
+
+JackPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, SCHOOLBOY, JACK1
+	farscall PhoneScript_GreetPhone_Male
+	farscall PhoneScript_Random2
+	ifequal 0, JackBattleTrivia
+	checkflag ENGINE_JACK_READY_FOR_REMATCH
+	iftrue .WaitingForBattle
+	checkflag ENGINE_JACK_MONDAY_MORNING
+	iftrue .WaitingForBattle
+	farscall PhoneScript_Random2
+	ifequal 0, JackWantsToBattle
+
+.WaitingForBattle:
+	farscall PhoneScript_Random3
+	ifequal 0, JackFindsRare
+	farsjump Phone_GenericCall_Male
+
+JackMondayMorning:
+	setflag ENGINE_JACK_MONDAY_MORNING
+
+JackWantsToBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_NATIONAL_PARK
+	setflag ENGINE_JACK_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+JackFindsRare:
+	farsjump Phone_CheckIfUnseenRare_Male
+
+JackBattleTrivia:
+	farsjump JackTriviaScript

engine/phone/scripts/jack_gossip.asm

@@ -0,0 +1,68 @@
+JackTriviaScript:
+	random 11
+	ifequal  0, .Thunder
+	ifequal  1, .Rollout
+	ifequal  2, .Solarbeam
+	ifequal  3, .Stomp
+	ifequal  4, .Gust
+	ifequal  5, .Twister
+	ifequal  6, .Earthquake
+	ifequal  7, .Magnitude
+	ifequal  8, .Sandstorm
+	ifequal  9, .SunnyDay
+	ifequal 10, .RainDance
+
+.Thunder:
+	farwritetext JackThunderTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Rollout:
+	farwritetext JackRolloutTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Solarbeam:
+	farwritetext JackSolarbeamTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Stomp:
+	farwritetext JackStompTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Gust:
+	farwritetext JackGustTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Twister:
+	farwritetext JackTwisterTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Earthquake:
+	farwritetext JackEarthquakeTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Magnitude:
+	farwritetext JackMagnitudeTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.Sandstorm:
+	farwritetext JackSandstormTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.SunnyDay:
+	farwritetext JackSunnyDayTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male
+
+.RainDance:
+	farwritetext JackRainDanceTriviaText
+	promptbutton
+	sjump PhoneScript_HangUpText_Male

engine/phone/scripts/joey.asm

@@ -0,0 +1,41 @@
+JoeyPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, YOUNGSTER, JOEY1
+	checkflag ENGINE_JOEY_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_JOEY_MONDAY_AFTERNOON
+	iftrue .NotMonday
+	readvar VAR_WEEKDAY
+	ifnotequal MONDAY, .NotMonday
+	checktime DAY
+	iftrue JoeyMondayAfternoon
+
+.NotMonday:
+	special RandomPhoneMon
+	farsjump JoeyHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_30
+	farsjump JoeyReminderScript
+
+JoeyPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, YOUNGSTER, JOEY1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_JOEY_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_JOEY_MONDAY_AFTERNOON
+	iftrue .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, JoeyWantsBattle
+	ifequal 1, JoeyWantsBattle
+
+.Generic:
+	farsjump Phone_GenericCall_Male
+
+JoeyMondayAfternoon:
+	setflag ENGINE_JOEY_MONDAY_AFTERNOON
+
+JoeyWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_30
+	setflag ENGINE_JOEY_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male

engine/phone/scripts/jose.asm

@@ -0,0 +1,59 @@
+JosePhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, BIRD_KEEPER, JOSE2
+	checkflag ENGINE_JOSE_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_JOSE_SATURDAY_NIGHT
+	iftrue .NotSaturday
+	checkflag ENGINE_JOSE_HAS_STAR_PIECE
+	iftrue .HasItem
+	readvar VAR_WEEKDAY
+	ifnotequal SATURDAY, .NotSaturday
+	checktime NITE
+	iftrue JoseSaturdayNight
+
+.NotSaturday:
+	farsjump JoseHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_27
+	farsjump JoseReminderScript
+
+.HasItem:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_27
+	farsjump JoseReminderScript
+
+JosePhoneCallerScript:
+	gettrainername STRING_BUFFER_3, BIRD_KEEPER, JOSE2
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_JOSE_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_JOSE_SATURDAY_NIGHT
+	iftrue .Generic
+	checkflag ENGINE_JOSE_HAS_STAR_PIECE
+	iftrue .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, JoseWantsBattle
+	farscall PhoneScript_Random3
+	ifequal 0, JoseHasStarPiece
+
+.Generic:
+	farscall PhoneScript_Random3
+	ifequal 0, JoseFoundRare
+	farsjump Phone_GenericCall_Male
+
+JoseSaturdayNight:
+	setflag ENGINE_JOSE_SATURDAY_NIGHT
+
+JoseWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_27
+	setflag ENGINE_JOSE_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+JoseFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Male
+
+JoseHasStarPiece:
+	setflag ENGINE_JOSE_HAS_STAR_PIECE
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_27
+	farsjump PhoneScript_FoundItem_Male

engine/phone/scripts/kenji.asm

@@ -0,0 +1,9 @@
+KenjiPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, BLACKBELT_T, KENJI3
+	farscall PhoneScript_AnswerPhone_Male
+	farsjump KenjiAnswerPhoneScript
+
+KenjiPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, BLACKBELT_T, KENJI3
+	farscall PhoneScript_GreetPhone_Male
+	farsjump KenjiCallingPhoneScript

engine/phone/scripts/liz.asm

@@ -0,0 +1,102 @@
+LizPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, LIZ1
+	checkflag ENGINE_LIZ_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_LIZ_THURSDAY_AFTERNOON
+	iftrue .NotThursday
+	readvar VAR_WEEKDAY
+	ifnotequal THURSDAY, .NotThursday
+	checktime DAY
+	iftrue LizThursdayAfternoon
+
+.NotThursday:
+	special RandomPhoneMon
+	farsjump LizHangUpScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_32
+	farsjump LizReminderScript
+
+LizPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, LIZ1
+	farscall PhoneScript_Random4
+	ifequal 0, LizWrongNumber
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_LIZ_READY_FOR_REMATCH
+	iftrue .next
+	checkflag ENGINE_LIZ_THURSDAY_AFTERNOON
+	iftrue .next
+
+.next:
+	farscall PhoneScript_Random2
+	ifequal 0, LizGossip
+	checkflag ENGINE_FLYPOINT_GOLDENROD
+	iffalse .Generic
+	farscall PhoneScript_Random2
+	ifequal 0, LizWantsBattle
+
+.Generic:
+	farsjump Phone_GenericCall_Female
+
+LizThursdayAfternoon:
+	setflag ENGINE_LIZ_THURSDAY_AFTERNOON
+
+LizWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_32
+	setflag ENGINE_LIZ_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female
+
+LizWrongNumber:
+	farsjump LizWrongNumberScript
+
+LizGossip:
+	random 9
+	ifequal 0, .CoolTrainerM
+	ifequal 1, .Beauty
+	ifequal 2, .Grunt
+	ifequal 3, .Teacher
+	ifequal 4, .SwimmerF
+	ifequal 5, .KimonoGirl
+	ifequal 6, .Skier
+	ifequal 7, .Medium
+	ifequal 8, .PokefanM
+
+.CoolTrainerM:
+	gettrainerclassname STRING_BUFFER_4, COOLTRAINERM
+	sjump LizGossipScript
+
+.Beauty:
+	gettrainerclassname STRING_BUFFER_4, BEAUTY
+	sjump LizGossipScript
+
+.Grunt:
+	gettrainerclassname STRING_BUFFER_4, GRUNTM
+	sjump LizGossipScript
+
+.Teacher:
+	gettrainerclassname STRING_BUFFER_4, TEACHER
+	sjump LizGossipScript
+
+.SwimmerF:
+	gettrainerclassname STRING_BUFFER_4, SWIMMERF
+	sjump LizGossipScript
+
+.KimonoGirl:
+	gettrainerclassname STRING_BUFFER_4, KIMONO_GIRL
+	sjump LizGossipScript
+
+.Skier:
+	gettrainerclassname STRING_BUFFER_4, SKIER
+	sjump LizGossipScript
+
+.Medium:
+	gettrainerclassname STRING_BUFFER_4, MEDIUM
+	sjump LizGossipScript
+
+.PokefanM:
+	gettrainerclassname STRING_BUFFER_4, POKEFANM
+	sjump LizGossipScript
+
+LizGossipScript:
+	farsjump LizGossipRandomScript

engine/phone/scripts/liz_gossip.asm

@@ -0,0 +1,62 @@
+LizGossipRandomScript:
+	random 10
+	ifequal 0, .RuinsOfAlph
+	ifequal 1, .Falkner
+	ifequal 2, .Earl
+	ifequal 3, .SurfPikachu
+	ifequal 4, .MooMooMilk
+	ifequal 5, .Salon
+	ifequal 6, .Whitney
+	ifequal 7, .BugCatchingContest
+	ifequal 8, .BeautifulTrainer
+	ifequal 9, .Forgot
+
+.RuinsOfAlph:
+	farwritetext LizRuinsOfAlphGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.Falkner:
+	farwritetext LizFalknerGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.Earl:
+	farwritetext LizEarlGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.SurfPikachu:
+	farwritetext LizSurfPikachuGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.MooMooMilk:
+	farwritetext LizMooMooMilkGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.Salon:
+	farwritetext LizSalonGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.Whitney:
+	farwritetext LizWhitneyGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.BugCatchingContest:
+	farwritetext LizBugCatchingContestGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.BeautifulTrainer:
+	farwritetext LizBeautifulTrainerGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female
+
+.Forgot:
+	farwritetext LizForgotGossipText
+	promptbutton
+	sjump PhoneScript_HangUpText_Female

engine/phone/scripts/mom.asm

@@ -0,0 +1,142 @@
+MomPhoneCalleeScript:
+	checkevent EVENT_TALKED_TO_MOM_AFTER_MYSTERY_EGG_QUEST
+	iftrue .started_quest
+	checkevent EVENT_DUDE_TALKED_TO_YOU
+	iftrue MomPhoneLectureScript
+	checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
+	iftrue MomPhoneNoGymQuestScript
+	checkevent EVENT_GOT_A_POKEMON_FROM_ELM
+	iftrue MomPhoneNoPokedexScript
+	sjump MomPhoneNoPokemonScript
+
+.started_quest
+	checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_8
+	iftrue MomPhoneHangUpScript
+	farwritetext MomPhoneGreetingText
+	promptbutton
+	getcurlandmarkname STRING_BUFFER_3
+	readvar VAR_ENVIRONMENT
+	ifequal TOWN, MomPhoneInTown
+	ifequal ROUTE, MomPhoneOnRoute
+	sjump MomPhoneOther
+
+MomPhoneLandmark:
+	farwritetext MomPhoneLandmarkText
+	promptbutton
+	sjump MomSavingMoney
+
+MomPhoneInTown:
+	readvar VAR_MAPGROUP
+	ifequal GROUP_NEW_BARK_TOWN, .newbark
+	ifequal GROUP_CHERRYGROVE_CITY, .cherrygrove
+	ifequal GROUP_VIOLET_CITY, .violet
+	ifequal GROUP_AZALEA_TOWN, .azalea
+	ifequal GROUP_GOLDENROD_CITY, .goldenrod
+	farwritetext MomPhoneGenericAreaText
+	promptbutton
+	sjump MomSavingMoney
+
+.newbark
+	farwritetext MomPhoneNewBarkText
+	promptbutton
+	sjump MomSavingMoney
+
+.cherrygrove
+	farwritetext MomPhoneCherrygroveText
+	promptbutton
+	sjump MomSavingMoney
+
+.violet
+	getlandmarkname STRING_BUFFER_4, LANDMARK_SPROUT_TOWER
+	sjump MomPhoneLandmark
+.azalea
+	getlandmarkname STRING_BUFFER_4, LANDMARK_SLOWPOKE_WELL
+	sjump MomPhoneLandmark
+.goldenrod
+	getlandmarkname STRING_BUFFER_4, LANDMARK_RADIO_TOWER
+	sjump MomPhoneLandmark
+
+MomPhoneOnRoute:
+	farwritetext MomOtherAreaText
+	promptbutton
+	sjump MomSavingMoney
+
+MomPhoneOther:
+	farwritetext MomDeterminedText
+	promptbutton
+	sjump MomSavingMoney
+
+MomSavingMoney:
+	checkflag ENGINE_MOM_SAVING_MONEY
+	iffalse .NotSaving
+	checkmoney MOMS_MONEY, 0
+	ifequal HAVE_MORE, .SavingHasMoney
+	sjump .SavingNoMoney
+
+.NotSaving:
+	checkmoney MOMS_MONEY, 0
+	ifequal HAVE_MORE, .HasMoney
+	sjump .NoMoney
+
+.SavingHasMoney:
+	getmoney STRING_BUFFER_3, MOMS_MONEY
+	farwritetext MomCheckBalanceText
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	sjump MomPhoneWontSaveMoneyScript
+
+.SavingNoMoney:
+	farwritetext MomImportantToSaveText
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	sjump MomPhoneWontSaveMoneyScript
+
+.NoMoney:
+	farwritetext MomYoureNotSavingText
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	sjump MomPhoneWontSaveMoneyScript
+
+.HasMoney:
+	getmoney STRING_BUFFER_3, MOMS_MONEY
+	farwritetext MomYouveSavedText
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	sjump MomPhoneWontSaveMoneyScript
+
+MomPhoneSaveMoneyScript:
+	setflag ENGINE_MOM_SAVING_MONEY
+	farwritetext MomOKIllSaveText
+	promptbutton
+	sjump MomPhoneHangUpScript
+
+MomPhoneWontSaveMoneyScript:
+	clearflag ENGINE_MOM_SAVING_MONEY
+	farwritetext MomPhoneWontSaveMoneyText
+	promptbutton
+	sjump MomPhoneHangUpScript
+
+MomPhoneHangUpScript:
+	farwritetext MomPhoneHangUpText
+	end
+
+MomPhoneNoPokemonScript:
+	farwritetext MomPhoneNoPokemonText
+	end
+
+MomPhoneNoPokedexScript:
+	farwritetext MomPhoneNoPokedexText
+	end
+
+MomPhoneNoGymQuestScript:
+	farwritetext MomPhoneNoGymQuestText
+	end
+
+MomPhoneLectureScript:
+	setevent EVENT_TALKED_TO_MOM_AFTER_MYSTERY_EGG_QUEST
+	setflag ENGINE_MOM_ACTIVE
+	specialphonecall SPECIALCALL_NONE
+	farwritetext MomPhoneLectureText
+	yesorno
+	iftrue MomPhoneSaveMoneyScript
+	sjump MomPhoneWontSaveMoneyScript

engine/phone/scripts/parry.asm

@@ -0,0 +1,40 @@
+ParryPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, HIKER, PARRY1
+	checkflag ENGINE_PARRY_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_PARRY_FRIDAY_AFTERNOON
+	iftrue .WantsRematch
+	readvar VAR_WEEKDAY
+	ifnotequal FRIDAY, .WantsRematch
+	checktime DAY
+	iftrue ParryFridayDay
+
+.WantsRematch:
+	farsjump ParryBattleWithMeScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_45
+	farsjump ParryHaventYouGottenToScript
+
+ParryPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, HIKER, PARRY1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_PARRY_READY_FOR_REMATCH
+	iftrue .GenericCall
+	checkflag ENGINE_PARRY_FRIDAY_AFTERNOON
+	iftrue .GenericCall
+	farscall PhoneScript_Random2
+	ifequal 0, ParryWantsBattle
+	ifequal 1, ParryWantsBattle
+
+.GenericCall:
+	farsjump Phone_GenericCall_Male
+
+ParryFridayDay:
+	setflag ENGINE_PARRY_FRIDAY_AFTERNOON
+
+ParryWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_45
+	setflag ENGINE_PARRY_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male

engine/phone/scripts/ralph.asm

@@ -0,0 +1,59 @@
+RalphPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, FISHER, RALPH1
+	checkflag ENGINE_RALPH_READY_FOR_REMATCH
+	iftrue .Rematch
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_RALPH_WEDNESDAY_MORNING
+	iftrue .CheckSwarm
+	readvar VAR_WEEKDAY
+	ifnotequal WEDNESDAY, .CheckSwarm
+	checktime MORN
+	iftrue Ralph_WednesdayMorning
+.CheckSwarm:
+	checkflag ENGINE_QWILFISH_SWARM
+	iftrue .ReportSwarm
+	farsjump RalphNoItemScript
+
+.Rematch:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_32
+	farsjump RalphReminderScript
+
+.ReportSwarm:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_32
+	farsjump RalphHurryScript
+
+RalphPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, FISHER, RALPH1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_FLYPOINT_GOLDENROD
+	iffalse .CheckSwarm
+	checkflag ENGINE_RALPH_READY_FOR_REMATCH
+	iftrue .CheckSwarm
+	checkflag ENGINE_RALPH_WEDNESDAY_MORNING
+	iftrue .CheckSwarm
+	farscall PhoneScript_Random2
+	ifequal 0, Ralph_FightMe
+.CheckSwarm:
+	farscall PhoneScript_Random5
+	ifequal 0, Ralph_SetUpSwarm
+	farsjump Phone_GenericCall_Male
+
+Ralph_WednesdayMorning:
+	setflag ENGINE_RALPH_WEDNESDAY_MORNING
+Ralph_FightMe:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_32
+	setflag ENGINE_RALPH_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+Ralph_SetUpSwarm:
+	checkflag ENGINE_QWILFISH_SWARM
+	iftrue .Generic
+	setflag ENGINE_QWILFISH_SWARM
+	getmonname STRING_BUFFER_4, QWILFISH
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_32
+	setval FISHSWARM_QWILFISH
+	special ActivateFishingSwarm
+	farsjump RalphItemScript
+
+.Generic:
+	farsjump Phone_GenericCall_Male

engine/phone/scripts/reena.asm

@@ -0,0 +1,39 @@
+ReenaPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, COOLTRAINERF, REENA1
+	checkflag ENGINE_REENA_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_REENA_SUNDAY_MORNING
+	iftrue .NotSunday
+	readvar VAR_WEEKDAY
+	ifnotequal SUNDAY, .NotSunday
+	checktime MORN
+	iftrue ReenaSundayMorning
+
+.NotSunday:
+	farsjump ReenaForwardScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_27
+	farsjump ReenaHurryScript
+
+ReenaPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, COOLTRAINERF, REENA1
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_REENA_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_REENA_SUNDAY_MORNING
+	iftrue .Generic
+	farscall PhoneScript_Random2
+	ifequal 0, ReenaWantsBattle
+
+.Generic:
+	farsjump Phone_GenericCall_Female
+
+ReenaSundayMorning:
+	setflag ENGINE_REENA_SUNDAY_MORNING
+
+ReenaWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_27
+	setflag ENGINE_REENA_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female

engine/phone/scripts/reminders.asm

@@ -0,0 +1,95 @@
+JackWantsBattleScript:
+	farwritetext JackReminderText
+	end
+
+HueyWantsBattleScript:
+	farwritetext HueyReminderText
+	end
+
+GavenReminderScript:
+	farwritetext GavenReminderText
+	end
+
+BethBattleReminderScript:
+	farwritetext BethReminderText
+	end
+
+JoseReminderScript:
+	farwritetext JoseReminderText
+	end
+
+ReenaHurryScript:
+	farwritetext ReenaHurryText
+	end
+
+JoeyReminderScript:
+	farwritetext JoeyReminderText
+	end
+
+WadeQuickBattleScript:
+	farwritetext WadeQuickBattleText
+	end
+
+RalphReminderScript:
+	farwritetext RalphReminderText
+	end
+
+LizReminderScript:
+	farwritetext LizReminderText
+	end
+
+AnthonyReminderScript:
+	farwritetext AnthonyReminderText
+	end
+
+ToddForwardScript:
+	farwritetext ToddLookingForwardToBattleText
+	end
+
+GinaReminderScript:
+	farwritetext GinaReminderText
+	end
+
+ArnieReminderScript:
+	farwritetext ArnieReminderText
+	end
+
+AlanReminderScript:
+	farwritetext AlanReminderText
+	end
+
+DanaReminderScript:
+	farwritetext DanaReminderText
+	end
+
+ChadReminderScript:
+	farwritetext ChadReminderText
+	end
+
+TullyForwardScript:
+	farwritetext TullyForwardText
+	end
+
+BrentReminderScript:
+	farwritetext BrentReminderText
+	end
+
+TiffanyAsleepScript:
+	farwritetext TiffanyAsleepText
+	end
+
+VanceHurryHurryScript:
+	farwritetext VanceHurryHurryText
+	end
+
+WiltonNotBitingScript:
+	farwritetext WiltonNotBitingText
+	end
+
+ParryHaventYouGottenToScript:
+	farwritetext ParryHaventYouGottenToText
+	end
+
+ErinComeBattleScript:
+	farwritetext ErinComeBattleText
+	end

engine/phone/scripts/reminders_2.asm

@@ -0,0 +1,15 @@
+RalphHurryScript:
+	farwritetext RalphHurryText
+	end
+
+AnthonyHurryScript:
+	farwritetext AnthonyHurryText
+	end
+
+ArnieHurryScript:
+	farwritetext ArnieHurryText
+	end
+
+ToddHurryScript:
+	farwritetext ToddHaveYouGoneToDepartmentStoreText
+	end

engine/phone/scripts/tiffany.asm

@@ -0,0 +1,98 @@
+TiffanyPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, TIFFANY3
+	checkflag ENGINE_TIFFANY_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Female
+	checkflag ENGINE_TIFFANY_TUESDAY_AFTERNOON
+	iftrue .NotTuesday
+	checkflag ENGINE_TIFFANY_HAS_PINK_BOW
+	iftrue .HasItem
+	readvar VAR_WEEKDAY
+	ifnotequal TUESDAY, .NotTuesday
+	checktime DAY
+	iftrue TiffanyTuesdayAfternoon
+
+.NotTuesday:
+	farsjump TiffanyNoItemScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_43
+	farsjump TiffanyAsleepScript
+
+.HasItem:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_43
+	farsjump TiffanyHurryScript
+
+TiffanyPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, PICNICKER, TIFFANY3
+	farscall PhoneScript_Random4
+	ifequal 0, TiffanysFamilyMembers
+	farscall PhoneScript_GreetPhone_Female
+	checkflag ENGINE_TIFFANY_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_TIFFANY_TUESDAY_AFTERNOON
+	iftrue .Generic
+	checkflag ENGINE_TIFFANY_HAS_PINK_BOW
+	iftrue .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, TiffanyWantsBattle
+	checkevent EVENT_TIFFANY_GAVE_PINK_BOW
+	iftrue .PinkBow
+	farscall PhoneScript_Random2
+	ifequal 0, TiffanyHasPinkBow
+
+.PinkBow:
+	farscall PhoneScript_Random11
+	ifequal 0, TiffanyHasPinkBow
+
+.Generic:
+	farsjump Phone_GenericCall_Female
+
+TiffanyTuesdayAfternoon:
+	setflag ENGINE_TIFFANY_TUESDAY_AFTERNOON
+
+TiffanyWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_43
+	setflag ENGINE_TIFFANY_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Female
+
+TiffanysFamilyMembers:
+	random 6
+	ifequal 0, .Grandma
+	ifequal 1, .Grandpa
+	ifequal 2, .Mom
+	ifequal 3, .Dad
+	ifequal 4, .Sister
+	ifequal 5, .Brother
+
+.Grandma:
+	getstring STRING_BUFFER_4, GrandmaString
+	sjump .PoorClefairy
+
+.Grandpa:
+	getstring STRING_BUFFER_4, GrandpaString
+	sjump .PoorClefairy
+
+.Mom:
+	getstring STRING_BUFFER_4, MomString
+	sjump .PoorClefairy
+
+.Dad:
+	getstring STRING_BUFFER_4, DadString
+	sjump .PoorClefairy
+
+.Sister:
+	getstring STRING_BUFFER_4, SisterString
+	sjump .PoorClefairy
+
+.Brother:
+	getstring STRING_BUFFER_4, BrotherString
+	sjump .PoorClefairy
+
+.PoorClefairy:
+	farsjump TiffanyItsAwful
+
+TiffanyHasPinkBow:
+	setflag ENGINE_TIFFANY_HAS_PINK_BOW
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_43
+	farsjump PhoneScript_FoundItem_Female

engine/phone/scripts/todd.asm

@@ -0,0 +1,59 @@
+ToddPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, CAMPER, TODD1
+	checkflag ENGINE_TODD_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_TODD_SATURDAY_MORNING
+	iftrue .NotSaturday
+	readvar VAR_WEEKDAY
+	ifnotequal SATURDAY, .NotSaturday
+	checktime MORN
+	iftrue ToddSaturdayMorning
+
+.NotSaturday:
+	checkflag ENGINE_GOLDENROD_DEPT_STORE_SALE_IS_ON
+	iftrue .SaleOn
+	farsjump ToddNoItemScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_34
+	farsjump ToddForwardScript
+
+.SaleOn:
+	farsjump ToddHurryScript
+
+ToddPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, CAMPER, TODD1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_TODD_READY_FOR_REMATCH
+	iftrue .TryForSale
+	checkflag ENGINE_TODD_SATURDAY_MORNING
+	iftrue .TryForSale
+	checkflag ENGINE_FLYPOINT_GOLDENROD
+	iffalse .NoGoldenrod
+	farscall PhoneScript_Random2
+	ifequal 0, ToddWantsBattle
+
+.TryForSale:
+	farscall PhoneScript_Random2
+	ifequal 0, ToddDeptStoreSale
+
+.NoGoldenrod:
+	farscall PhoneScript_Random3
+	ifequal 0, ToddFoundRare
+	farsjump Phone_GenericCall_Male
+
+ToddSaturdayMorning:
+	setflag ENGINE_TODD_SATURDAY_MORNING
+
+ToddWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_34
+	setflag ENGINE_TODD_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+ToddFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Male
+
+ToddDeptStoreSale:
+	setflag ENGINE_GOLDENROD_DEPT_STORE_SALE_IS_ON
+	farsjump ToddItemScript

engine/phone/scripts/tully.asm

@@ -0,0 +1,60 @@
+TullyPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, FISHER, TULLY1
+	checkflag ENGINE_TULLY_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_TULLY_SUNDAY_NIGHT
+	iftrue .NotSunday
+	checkflag ENGINE_TULLY_HAS_WATER_STONE
+	iftrue .WaterStone
+	readvar VAR_WEEKDAY
+	ifnotequal SUNDAY, .NotSunday
+	checktime NITE
+	iftrue TullySundayNight
+
+.NotSunday:
+	farsjump TullyNoItemScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_42
+	farsjump TullyForwardScript
+
+.WaterStone:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_42
+	farsjump TullyHurryScript
+
+TullyPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, FISHER, TULLY1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_TULLY_READY_FOR_REMATCH
+	iftrue .Generic
+	checkflag ENGINE_TULLY_SUNDAY_NIGHT
+	iftrue .Generic
+	checkflag ENGINE_TULLY_HAS_WATER_STONE
+	iftrue .Generic
+	farscall PhoneScript_Random3
+	ifequal 0, TullyWantsBattle
+	checkevent EVENT_TULLY_GAVE_WATER_STONE
+	iftrue .WaterStone
+	farscall PhoneScript_Random2
+	ifequal 0, TullyFoundWaterStone
+
+.WaterStone:
+	farscall PhoneScript_Random11
+	ifequal 0, TullyFoundWaterStone
+
+.Generic:
+	farsjump Phone_GenericCall_Male
+
+TullySundayNight:
+	setflag ENGINE_TULLY_SUNDAY_NIGHT
+
+TullyWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_42
+	setflag ENGINE_TULLY_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+TullyFoundWaterStone:
+	setflag ENGINE_TULLY_HAS_WATER_STONE
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_42
+	farsjump PhoneScript_FoundItem_Male

engine/phone/scripts/unused.asm

@@ -0,0 +1,3 @@
+UnusedPhoneScript:
+	farwritetext UnusedPhoneText
+	end

engine/phone/scripts/vance.asm

@@ -0,0 +1,40 @@
+VancePhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, BIRD_KEEPER, VANCE1
+	checkflag ENGINE_VANCE_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_VANCE_WEDNESDAY_NIGHT
+	iftrue .NotWednesday
+	readvar VAR_WEEKDAY
+	ifnotequal WEDNESDAY, .NotWednesday
+	checktime NITE
+	iftrue VanceWednesdayNight
+
+.NotWednesday:
+	farsjump VanceLookingForwardScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_44
+	farsjump VanceHurryHurryScript
+
+VancePhoneCallerScript:
+	gettrainername STRING_BUFFER_3, BIRD_KEEPER, VANCE1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_VANCE_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	checkflag ENGINE_VANCE_WEDNESDAY_NIGHT
+	iftrue .WantsBattle
+	farscall PhoneScript_Random3
+	ifequal 0, VanceWantsRematch
+	ifequal 1, VanceWantsRematch
+
+.WantsBattle:
+	farsjump Phone_GenericCall_Male
+
+VanceWednesdayNight:
+	setflag ENGINE_VANCE_WEDNESDAY_NIGHT
+
+VanceWantsRematch:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_44
+	setflag ENGINE_VANCE_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male

engine/phone/scripts/wade.asm

@@ -0,0 +1,113 @@
+WadePhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, BUG_CATCHER, WADE1
+	checkflag ENGINE_WADE_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_WADE_TUESDAY_NIGHT
+	iftrue .NotTuesday
+	checkflag ENGINE_WADE_HAS_ITEM
+	iftrue .HasItem
+	readvar VAR_WEEKDAY
+	ifnotequal TUESDAY, .NotTuesday
+	checktime NITE
+	iftrue WadeTuesdayNight
+
+.NotTuesday:
+	farscall PhoneScript_Random2
+	ifequal 0, .NoContest
+	checkflag ENGINE_DAILY_BUG_CONTEST
+	iftrue .NoContest
+	readvar VAR_WEEKDAY
+	ifequal TUESDAY, .ContestToday
+	ifequal THURSDAY, .ContestToday
+	ifequal SATURDAY, .ContestToday
+
+.NoContest:
+	farsjump WadeNoBerriesScript
+
+.ContestToday:
+	farsjump PhoneScript_BugCatchingContest
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_31
+	farsjump WadeQuickBattleScript
+
+.HasItem:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_31
+	farsjump WadeComeQuickScript
+
+WadePhoneCallerScript:
+	gettrainername STRING_BUFFER_3, BUG_CATCHER, WADE1
+	farscall PhoneScript_GreetPhone_Male
+	farscall PhoneScript_Random2
+	ifequal 0, .NoContest
+	checkflag ENGINE_DAILY_BUG_CONTEST
+	iftrue .NoContest
+	readvar VAR_WEEKDAY
+	ifequal TUESDAY, .ContestToday
+	ifequal THURSDAY, .ContestToday
+	ifequal SATURDAY, .ContestToday
+
+.NoContest:
+	checkflag ENGINE_WADE_READY_FOR_REMATCH
+	iftrue .next
+	checkflag ENGINE_WADE_TUESDAY_NIGHT
+	iftrue .next
+	checkflag ENGINE_WADE_HAS_ITEM
+	iftrue .next
+	farscall PhoneScript_Random2
+	ifequal 0, WadeHasItem2
+	checkflag ENGINE_FLYPOINT_GOLDENROD
+	iffalse .next
+	farscall PhoneScript_Random2
+	ifequal 0, WadeWantsBattle2
+
+.next:
+	farscall PhoneScript_Random3
+	ifequal 0, WadeFoundRare
+	farsjump Phone_GenericCall_Male
+
+.ContestToday:
+	farsjump PhoneScript_BugCatchingContest
+
+WadeTuesdayNight:
+	setflag ENGINE_WADE_TUESDAY_NIGHT
+
+WadeWantsBattle2:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_31
+	setflag ENGINE_WADE_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+WadeFoundRare:
+	farsjump Phone_CheckIfUnseenRare_Male
+
+WadeHasItem2:
+	setflag ENGINE_WADE_HAS_ITEM
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_31
+	clearevent EVENT_WADE_HAS_BERRY
+	clearevent EVENT_WADE_HAS_PSNCUREBERRY
+	clearevent EVENT_WADE_HAS_PRZCUREBERRY
+	clearevent EVENT_WADE_HAS_BITTER_BERRY
+	random 4
+	ifequal 0, .Berry
+	ifequal 1, .PsnCureBerry
+	ifequal 2, .PrzCureBerry
+	ifequal 3, .Bitterberry
+
+.Berry:
+	setevent EVENT_WADE_HAS_BERRY
+	sjump .FoundBerry
+
+.PsnCureBerry:
+	setevent EVENT_WADE_HAS_PSNCUREBERRY
+	sjump .FoundBerry
+
+.PrzCureBerry:
+	setevent EVENT_WADE_HAS_PRZCUREBERRY
+	sjump .FoundBerry
+
+.Bitterberry:
+	setevent EVENT_WADE_HAS_BITTER_BERRY
+
+.FoundBerry:
+	farsjump PhoneScript_FoundItem_Male

engine/phone/scripts/wilton.asm

@@ -0,0 +1,75 @@
+WiltonPhoneCalleeScript:
+	gettrainername STRING_BUFFER_3, FISHER, WILTON1
+	checkflag ENGINE_WILTON_READY_FOR_REMATCH
+	iftrue .WantsBattle
+	farscall PhoneScript_AnswerPhone_Male
+	checkflag ENGINE_WILTON_THURSDAY_MORNING
+	iftrue .NotThursday
+	checkflag ENGINE_WILTON_HAS_ITEM
+	iftrue .HasItem
+	readvar VAR_WEEKDAY
+	ifnotequal THURSDAY, .NotThursday
+	checktime MORN
+	iftrue WiltonThursdayMorning
+
+.NotThursday:
+	farsjump WiltonHaventFoundAnythingScript
+
+.WantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_44
+	farsjump WiltonNotBitingScript
+
+.HasItem:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_44
+	farsjump WiltonWantThisScript
+
+WiltonPhoneCallerScript:
+	gettrainername STRING_BUFFER_3, FISHER, WILTON1
+	farscall PhoneScript_GreetPhone_Male
+	checkflag ENGINE_WILTON_READY_FOR_REMATCH
+	iftrue .GenericCall
+	checkflag ENGINE_WILTON_THURSDAY_MORNING
+	iftrue .GenericCall
+	checkflag ENGINE_WILTON_HAS_ITEM
+	iftrue .GenericCall
+	farscall PhoneScript_Random2
+	ifequal 0, WiltonWantsBattle
+	farscall PhoneScript_Random2
+	ifequal 0, WiltonHasItem
+
+.GenericCall:
+	farsjump Phone_GenericCall_Male
+
+WiltonThursdayMorning:
+	setflag ENGINE_WILTON_THURSDAY_MORNING
+
+WiltonWantsBattle:
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_44
+	setflag ENGINE_WILTON_READY_FOR_REMATCH
+	farsjump PhoneScript_WantsToBattle_Male
+
+WiltonHasItem:
+	setflag ENGINE_WILTON_HAS_ITEM
+	getlandmarkname STRING_BUFFER_5, LANDMARK_ROUTE_44
+	clearevent EVENT_WILTON_HAS_ULTRA_BALL
+	clearevent EVENT_WILTON_HAS_GREAT_BALL
+	clearevent EVENT_WILTON_HAS_POKE_BALL
+	random 5
+	ifequal 0, .UltraBall
+	random 3
+	ifequal 0, .GreatBall
+	sjump .PokeBall
+
+.UltraBall:
+	setevent EVENT_WILTON_HAS_ULTRA_BALL
+	sjump .FoundItem
+
+.GreatBall:
+	setevent EVENT_WILTON_HAS_GREAT_BALL
+	sjump .FoundItem
+
+.PokeBall:
+	setevent EVENT_WILTON_HAS_POKE_BALL
+
+.FoundItem:
+	farsjump PhoneScript_FoundItem_Male