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

42 lines
679 B
NASM

BillPhoneCalleeScript:
checktime DAY
iftrue .daygreet
checktime NITE
iftrue .nitegreet
farwritetext BillPhoneMornGreetingText
buttonsound
jump .main
.daygreet
farwritetext BillPhoneDayGreetingText
buttonsound
jump .main
.nitegreet
farwritetext BillPhoneNiteGreetingText
buttonsound
jump .main
.main
farwritetext BillPhoneGenericText
buttonsound
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