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

42 lines
1010 B
NASM
Raw Normal View History

HueyPhoneCalleeScript:
gettrainername STRING_BUFFER_3, SAILOR, HUEY1
checkflag ENGINE_HUEY
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
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
farsjump PhoneScript_WantsToBattle_Male