summaryrefslogtreecommitdiff
path: root/npc/027-2/testnpcs.txt
blob: 57dc1f7be74927f0371ea35d4fc8b25050bcb823 (plain) (blame)
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
027-2.gat,80,34,0	script	Lovers	303,{
	mes "You see a man and a woman holding each other very tight.";
	next;
	mes "They are kissing and whispering things to each other you can't hear.";
	next;
	mes "Now the woman giggles. They don't notice you.";
	next;
	mes "Maybe it's better not to bother them.";
	close;
}

//027-2.gat,110,30,0	script	Debug	305,{
	set @Graveyard_Inn_Woman_MASK, NIBBLE_0_MASK;
	set @Graveyard_Inn_Woman_SHIFT, NIBBLE_0_SHIFT;

	set @woman, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Woman_MASK) >> @Graveyard_Inn_Woman_SHIFT);

	set @Graveyard_Inn_Lover_MASK, NIBBLE_1_MASK;
	set @Graveyard_Inn_Lover_SHIFT, NIBBLE_1_SHIFT;

	set @Lover, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Lover_MASK) >> @Graveyard_Inn_Lover_SHIFT);

	set @Graveyard_Inn_Child_MASK, NIBBLE_2_MASK;
	set @Graveyard_Inn_Child_SHIFT, NIBBLE_2_SHIFT;

	set @Child, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Child_MASK) >> @Graveyard_Inn_Child_SHIFT);

	set @Graveyard_Inn_Husband_MASK, NIBBLE_3_MASK;
	set @Graveyard_Inn_Husband_SHIFT, NIBBLE_3_SHIFT;

	set @Husband, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Husband_MASK) >> @Graveyard_Inn_Husband_SHIFT);

	set @Graveyard_Inn_Golb_MASK, NIBBLE_4_MASK;
	set @Graveyard_Inn_Golb_SHIFT, NIBBLE_4_SHIFT;

	set @Golb, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Golb_MASK) >> @Graveyard_Inn_Golb_SHIFT);

	mes "debug for the lovetriangle quest";
	menu
		"reset all",-,
		"reset reid " + @woman,L_Reid,
		"reset lover " + @Lover,L_Lover,
		"reset child " + @Child,L_Child,
		"reset husband " + @Husband,L_Husband,
		"reset golbanez " + @Golb,L_Golb,
		"leave", L_Close;

set QUEST_Graveyard_Inn, 0;
close;
L_Reid:
	set @woman, 0;
	callsub S_Update_Mask_Woman;
	close;
L_Lover:
	set @Lover, 0;
	callsub S_Update_Mask_Lover;
	close;
L_Child:
	set @Child, 0;
	callsub S_Update_Mask_Child;
	close;
L_Husband:
	set @Husband, 0;
	callsub S_Update_Mask_Husband;
	close;
L_Golb:
	set @Golb, 0;
	callsub S_Update_Mask_Golb;
	close;
L_Close:
	close;

S_Update_Mask_Golb:
        set QUEST_Graveyard_Inn,
        	(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_Golb_MASK))
                | (@Golb << @Graveyard_Inn_Golb_SHIFT);
        return;

S_Update_Mask_Husband:
        set QUEST_Graveyard_Inn,
        	(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_Husband_MASK))
                | (@Husband << @Graveyard_Inn_Husband_SHIFT);
        return;

S_Update_Mask_Child:
        set QUEST_Graveyard_Inn,
        	(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_Child_MASK))
                | (@Child << @Graveyard_Inn_Child_SHIFT);
        return;

S_Update_Mask_Lover:
        set QUEST_Graveyard_Inn,
        	(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_Lover_MASK))
                | (@Lover << @Graveyard_Inn_Lover_SHIFT);
        return;

S_Update_Mask_Woman:
        set QUEST_Graveyard_Inn,
        	(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_Woman_MASK))
                | (@woman << @Graveyard_Inn_Woman_SHIFT);
        return;
}

027-2.gat,75,29,0	script	Archibald	306,{
// the broken grammar is intentional
	mes "[Archibald]";
	mes "\"Me need to prepare the food. Me helping the chef cook.\"";
	next;
	mes "\"Person doesn't disturb me when me is making the food\"";
	close;
}

027-2.gat,77,40,0	script	Darnel	308,{
	set @drunker, rand(4);
	if (@drunker == 0) goto L_0;
	if (@drunker == 1) goto L_1;
	if (@drunker == 2) goto L_2;
	if (@drunker == 3) goto L_3;
	end;
L_0:
	mes "[Darnel]";
	mes "\"zzzZZZzzz...\"";
	close;
L_1:
	mes "[Darnel]";
	mes "\"Ish that a Zzombee?...\"";
	close;
L_2:
	mes "[Darnel]";
	mes "\"Auuu... Hiccup... Don't byte mee... \"";
	close;
L_3:
	mes "[Darnel]";
	mes "\"Moar Bearr...Pleash!\"";
	close;
}

027-2.gat,110,23,0	script	Nigel	312,{
	mes "[Nigel]";
	mes "\"Ohh... My head is killing me! I have to stop "
		+ "drinking too much or I will lose my job... But "
		+ "being a waiter... oh I can't resist a drink or two!\"";
	close;
}