pokecrystal-board/engine/phone/scripts/gaven.asm

45 lines
1.1 KiB
NASM
Raw Normal View History

GavenPhoneCalleeScript:
gettrainername STRING_BUFFER_3, COOLTRAINERM, GAVEN3
checkflag ENGINE_GAVEN
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, ROUTE_26
farsjump GavenReminderScript
GavenPhoneCallerScript:
gettrainername STRING_BUFFER_3, COOLTRAINERM, GAVEN3
farscall PhoneScript_GreetPhone_Male
checkflag ENGINE_GAVEN
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, ROUTE_26
setflag ENGINE_GAVEN
farsjump PhoneScript_WantsToBattle_Male
GavenFoundRare:
farsjump Phone_CheckIfUnseenRare_Male