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
|
// Author: accoring to git history probably Jaxad
// quest made seasonal and adapted to new scripting standards by Jenalya
019-1.gat,77,44,0|script|Snowman|129
{
callfunc "ClearVariables";
if (FLAGS & FLAG_SNOWMAN) goto L_Done;
if (gettime(6) == 12 || gettime(6) == 1 || gettime(6) == 2) goto L_Quest;
mes "A beautiful snowman. It looks almost alive.";
mes "Maybe the magic of Christmas time will breath life into it?";
goto L_Close;
L_Quest:
if (Sex == 0)
set @sex$, "lady";
if (Sex == 1)
set @sex$, "man";
set @candy_amount, 15;
set @chocolate_amount, 10;
set @cactus_amount, 5;
mes "[Snowman]";
mes "\"Hello there young " + @sex$ + ".";
mes "Would you like a Christmas hat?\"";
next;
goto L_Menu;
L_Menu:
menu
"Yes", L_Sure,
"No", L_Next,
"What do you need?", L_Need;
L_Next:
mes "[Snowman]";
mes "\"Well, thats too bad, but make sure to have the holiday spirit!\"";
goto L_Close;
L_Sure:
mes "[Snowman]";
mes "\"Hmm, let me see what you have.\"";
next;
if(countitem("Candy") < @candy_amount)
goto L_NoItem;
if(countitem("ChocolateBar") < @chocolate_amount)
goto L_NoItem;
if(countitem("CactusPotion") < @cactus_amount)
goto L_NoItem;
getinventorylist;
if (@inventorylist_count > 99)
goto L_TooMany;
delitem "Candy", @candy_amount;
delitem "ChocolateBar", @chocolate_amount;
delitem "CactusPotion", @cactus_amount;
mes "[Snowman]";
mes "\"Here you go, enjoy your new hat!\"";
getitem "SantaHat", 1;
set FLAGS, FLAGS | FLAG_SNOWMAN;
goto L_Close;
L_Need:
mes "[Snowman]";
mes "\"For this special hat, I need a pint of magic and a little help.";
mes "Just kidding. I would like to get some food:";
mes @candy_amount + " pieces of Candy";
mes @chocolate_amount + " Chocolate Bars";
mes @cactus_amount + " Cactus Potions\"";
next;
goto L_Menu;
L_NoItem:
mes "[Snowman]";
mes "\"Well, I am interested in some food and you don't have enought to get a hat.\"";
goto L_Close;
L_Done:
mes "[Snowman]";
mes "\"Thank you for your help!\"";
goto L_Close;
L_TooMany:
mes "[Snowman]";
mes "\"It doesn't look like you have room for this. Come back later.\"";
goto L_Close;
L_Close:
set @sex$, "";
set @candy_amount, 0;
set @chocolate_amount, 0;
set @cactus_amount, 0;
close;
}
|
