summaryrefslogtreecommitdiff
path: root/world/map/npc/019-1/snowman.txt
blob: b2c8a67dc19b287d3e5e7c029e99fa92fc83aeb2 (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
// 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;

L_Menu:
    menu
        "Yes", L_Sure,
        "No", -,
        "What do you need?", L_Need;
    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;
}