pokecrystal-board/engine/phone/scripts/beth.asm
mid-kid e3e0bcd653 #641 fixes and additions. (#646)
Name a lot of text labels according to our conventions
2019-10-20 18:24:17 -04:00

40 lines
951 B
NASM

BethPhoneCalleeScript:
gettrainername STRING_BUFFER_3, COOLTRAINERF, BETH1
checkflag ENGINE_BETH
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, ROUTE_26
farsjump BethBattleReminderScript
BethPhoneCallerScript:
gettrainername STRING_BUFFER_3, COOLTRAINERF, BETH1
farscall PhoneScript_GreetPhone_Female
checkflag ENGINE_BETH
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, ROUTE_26
setflag ENGINE_BETH
farsjump PhoneScript_WantsToBattle_Female