summaryrefslogtreecommitdiff
path: root/npc/001-1_Tulimshar/sarah.txt
blob: 7a109fa6ab5ae0c7ea83f6f39cb3434e434df38e (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
//

001-1.gat,137,78,0	script	Sarah	106,{
	if (TMW_Quest >= 8) goto L_Done;
	if (TMW_Quest == 7) goto L_Progress;
	if (TMW_Quest == 6) goto L_Start;
	if (TMW_Quest < 6) goto L_Convince_Sarah_First;

	// If this is shown, something is wrong with the above case handling.
	mes "Sarah looks confused.";
	close;

L_Convince_Sarah_First:
	mes "[Sarah]";
	mes "\"Boy, am I hungry or what!\"";
	next;
	mes "\"The girl suddenly looks at you suspiciously.\"";
	next;
	mes "\"My mommy says not to talk to strangers!\"";
	close;

L_Start:

	set @TEMP, rand(2);
	if(@TEMP == 0) goto L_Opening0;
	if(@TEMP == 1) goto L_Opening1;

L_Opening0:
	mes "[Sarah]";
	mes "\"[Cherry Cake] is the best!\"";
	next;
	goto L_Ask;

L_Opening1:
	mes "[Sarah]";
	mes "\"Mmm, [Cherry Cake]...  I love it!\"";
	next;
	goto L_Ask;

L_Ask:
	mes "\"Can you bring me a piece of [Cherry Cake]?  Pretty please?\"";
	menu
		"Yes.", L_Req0,
		"No.", L_No;

L_Req0:
	mes "[Sarah]";
	mes "\"Yippee!  Bring me a piece of [Cherry Cake], and I'll give you a nice hat!\"";
	next;
	goto L_Set;

L_Set:
	set TMW_Quest,7;
	mes "[Sarah]";
	mes "\"Please bring it to me!\"";
	close;

L_Progress:
	if (countitem("CherryCake") < 1) goto L_NotEnough;
	mes "[Sarah]";
	mes "\"Whee!\"";
	next;
	mes "You brought me [Cherry Cake]!  Here is your new hat, as promised.\"";
	emotion 9;
	getinventorylist;
	if ((@inventorylist_count - (countitem("CherryCake") == 1)) > 99) goto L_TooMany;
	delitem "CherryCake", 1;
	getitem "serfhat", 1;
	set TMW_Quest, 8;
	close;

L_NotEnough:
	mes "[Sarah]";
	mes "\"Oh, I'm starving!  Please bring me [Cherry Cake]!\"";
	close;

L_Done:
	mes "[Sarah]";
	mes "\"It was so tasty, I can't eat anything more...  Thank you!\"";
	emotion 9;
	close;

L_No:
	close;

L_TooMany:
	next;
	mes "[Sarah]";
	mes "\"You don't have room for my reward.  I'll wait until you do.\"";
	close;
}