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
|
// This file is part of Christmas Event 2012
// author: Jenalya
030-2.gat,85,79,0|script|Santa|105,{
callfunc "xmas2012time";
set @reinboo, (xmas2012 & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT;
if (@xmas_time == $@xmas2012_no_event_time)
goto L_NoEvent;
if (@xmas_time == $@xmas2012_reward_time)
goto L_RewardTime;
if (@reinboo > 13) goto L_Done;
if (@reinboo == 13) goto L_Neiremes;
if (@reinboo == 12) goto L_Talisman;
mes "[Santa]";
mes "\"Hello! Welcome to my house. Can I help you with something?\"";
menu
"I'm just having a look around.", L_Close,
"Can I help with the Christmas preparations?", -;
if ((BaseLevel < 30) || (gettimetick(2) - TUT_var < 4*7*86400)) // player must be created at least four weeks ago
goto L_Young;
mes "[Santa]";
mes "\"Helping us? Mh, here in the house everything's going well. But my equerry Grombadil told me that one of the young Reinboos has trouble learning to fly. I suggest to ask him if he needs any assistance.\"";
goto L_Close;
L_Talisman:
mes "[Santa]";
mes "\"Hello " + strcharinfo(0) + ". I heard about your efforts to help Neiremes. I'm very happy to hear that.\"";
menu
"I need your help to create a Flight Talisman for him.", -,
"It's a pleasure.", L_Close;
mes "[Santa]";
mes "\"A Flight Talisman? What an interesting idea! Do you have a Raw Talisman and some part of wings with you?\"";
menu
"Would Bat Wings work?", -,
"Not yet.", L_Close;
mes "[Santa]";
mes "\"Hm, that's not the first creature that comes to my mind when thinking about wings. But it should work. Do you have " + $@xmas2012_bat_wing_amount + " Bat Wings?\"";
menu
"Yes, here.", -,
"I'll go and get them.", L_Close;
if ((countitem("BatWing") < $@xmas2012_bat_wing_amount) || (countitem("RawTalisman") < 1))
goto L_NoItem;
if ((checkweight("FlightTalisman", 1) == 0) || (@inventorylist_count == 100))
goto L_Inventory;
misceffect sfx_magic_transmute;
delitem "BatWing", $@xmas2012_bat_wing_amount;
delitem "RawTalisman", 1;
getitem "FlightTalisman", 1;
set @reinboo, 13;
callfunc "xmas2012update_reinboo_var";
mes "Santa takes the items and casts a spell.";
next;
mes "\"It worked! Here is the Flight Talisman. Please bring it to Neiremes.\"";
goto L_Close;
L_NoItem:
mes "[Santa]";
mes "\"You're mistaken. There's something missing. Please come back when you have everything we need.\"";
goto L_Close;
L_Inventory:
mes "[Santa]";
mes "\"You shouldn't carry so many things. Come back when you have less with you.\"";
goto L_Close;
L_Neiremes:
mes "[Santa]";
mes "\"Did you bring the Flight Talisman to Neiremes already?\"";
goto L_Close;
L_Done:
mes "[Santa]";
mes "\"Thanks for all your help. I'm confident that Neiremes will do well on the Christmas flight.\"";
next;
mes "\"Please come back after Christmas, maybe I'll have a small present for you.\"";
goto L_Close;
L_Young:
mes "[Santa]";
mes "\"That's a very friendly offer! But I don't think we need any help.\"";
goto L_Close;
L_NoEvent:
mes "[Santa]";
mes "\"I'm very sorry, but I can't allow you inside here at the moment. Please come back around Christmas time.\"";
warp "030-1.gat", 99, 55;
goto L_Close;
L_RewardTime:
if (xmas2012 & $@xmas2012_SANTA_FLAG)
goto L_SkipReward;
mes "[Santa]";
mes "\"Hello my friend. I have a small gift for you.\"";
getitem "Candy", 10;
getitem "ChocolateBar", 3;
getitem "GingerBreadMan", 1;
set xmas2012, xmas2012 | $@xmas2012_SANTA_FLAG;
next;
L_SkipReward:
mes "[Santa]";
mes "\"Merry Christmas!\"";
if (@reinboo != 14)
goto L_Close;
next;
mes "\"You should go to see Neiremes. He was very excited when he talked about your generosity.\"";
goto L_Close;
L_Close:
set @reinboo, 0;
set @xmas_time, 0;
close;
}
|
