First Commit

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

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