engine/phone/scripts/bill.asm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

BillPhoneCalleeScript:
	checktime DAY
	iftrue .daygreet
	checktime NITE
	iftrue .nitegreet
	writetext BillPhoneMornGreetingText
	promptbutton
	sjump .main

.daygreet
	writetext BillPhoneDayGreetingText
	promptbutton
	sjump .main

.nitegreet
	writetext BillPhoneNiteGreetingText
	promptbutton
	sjump .main

.main
	writetext BillPhoneGenericText
	promptbutton
	readvar VAR_BOXSPACE
	getnum STRING_BUFFER_3
	ifequal 0, .full
	ifless PARTY_LENGTH, .nearlyfull
	writetext BillPhoneNotFullText
	end

.nearlyfull
	writetext BillPhoneNearlyFullText
	end

.full
	writetext BillPhoneFullText
	end

BillPhoneCallerScript:
	writetext BillPhoneNewlyFullText
	waitbutton
	end