summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/scripts.conf3
-rw-r--r--npc/xmas/2009/event.txt131
2 files changed, 134 insertions, 0 deletions
diff --git a/npc/scripts.conf b/npc/scripts.conf
index b26a889c..06b7c1d7 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -63,3 +63,6 @@ import: npc/_import.txt
// Halloween 2009
// npc: npc/halloween/2009/Candyman.txt
+
+// Christmas 2009
+// npc: npc/xmas/2009/event.txt
diff --git a/npc/xmas/2009/event.txt b/npc/xmas/2009/event.txt
new file mode 100644
index 00000000..4e78b38a
--- /dev/null
+++ b/npc/xmas/2009/event.txt
@@ -0,0 +1,131 @@
+020-1.gat,78,85,0 script Santa 105,{
+ if (QUEST_Christmas09_state > 0) goto L_Finished;
+
+ set @cond, 0;
+ if (countitem(1234) > 0) set @cond, @cond + 1;
+ if (countitem(1235) > 0) set @cond, @cond + 1;
+ if (countitem(1236) > 0) set @cond, @cond + 1;
+ if (countitem(1237) > 0) set @cond, @cond + 1;
+ if (countitem(1238) > 0) set @cond, @cond + 1;
+ if (countitem(1239) > 0) set @cond, @cond + 1;
+
+ if (@cond == 6) goto L_Give;
+
+ if ((strcharinfo(0) == "xxDimondXX")) goto L_LUMP_OF_COAL;
+ if (SANTA == 0 && BaseLevel <= 30) goto L_SANTA_TOO_YOUNG;
+
+L_SANTA_Start:
+ if (Sex)
+ set @honorific$, "Young Hero";
+ if (!Sex)
+ set @honorific$, "Young Heroine";
+
+ mes "[Santa Claus]";
+ mes "\"ho-hum ho-hum ho-hum, I'm sorry, " + @honorific$ + " Not really in the Christmas spirit.";
+ mes "That Evil Jack Frost has stolen all the Christmas ornaments!";
+ mes "He will never get off the Naughty List!";
+ mes "How can we have Christmas without a proper Christmas tree?\"";
+ mes "\"The Elves are too depressed to work";
+ mes "Christmas will be ruined!\"";
+ next;
+ menu
+ "Christmas is all about money anyway!, Bah-Humbug!.", L_SANTA_DISAPPOINTED,
+ "There must be something that can be done!", L_SANTA_DESCRIBE_QUEST;
+ close;
+
+
+
+L_Message:
+ mes "[Santa Claus]";
+ mes "\"Say, Why don't you help me?";
+ mes "In fact, You are just the " + @honorific$ + " I am looking for!\"";
+ mes "\"What do you say, will you help save Christmas?\"";
+ next;
+ menu
+ "No way, you should have had elves guarding the tree!.", L_SANTA_DISAPPOINTED,
+ "Of course I will help save Christmas", L_SANTA_DESCRIBE_QUEST;
+ close;
+
+L_SANTA_DESCRIBE_QUEST:
+ mes "[Santa Claus]";
+ mes "\"Jack Frost hid the ornaments with monsters all over the world.\"";
+ mes "\"When you recover 6 different kinds of ornaments I will";
+ mes "give you some special gifts!\"";
+ if (@cond > 0) mes "You already have found "+@cond+" different ornaments!";
+ close;
+
+L_Give:
+ getinventorylist;
+ set @freeslots, 100 - @inventorylist_count;
+ if (countitem(1234) <= 1) set @freeslots, @freeslots + 1;
+ if (countitem(1235) <= 1) set @freeslots, @freeslots + 1;
+ if (countitem(1236) <= 1) set @freeslots, @freeslots + 1;
+ if (countitem(1237) <= 1) set @freeslots, @freeslots + 1;
+ if (countitem(1238) <= 1) set @freeslots, @freeslots + 1;
+ if (countitem(1239) <= 1) set @freeslots, @freeslots + 1;
+ if (@freeslots < 3) goto L_NoRoom;
+ delitem 1234, 1;
+ delitem 1235, 1;
+ delitem 1236, 1;
+ delitem 1237, 1;
+ delitem 1238, 1;
+ delitem 1239, 1;
+ mes "[Santa Claus]";
+ mes "\"I knew I could count on you!:";
+ mes "Please accept these small gifts:";
+ mes "The official Christmas 2009 headgear!";
+ mes "And a little something from the elves to say Thank You!";
+ mes "Ho Ho Ho Merry Christmas!\"";
+ getitem 1242, 1;
+ setarray @snowglob$, "SantaSnowGlobe", "SnowmanSnowGlobe";
+ getitem @snowglob$[rand(getarraysize(@snowglob$))], 1;
+ setarray @oldstock$, "SantaBeardHat", "ChristmasTreeHat", "Goggles", "LeatherGoggles", "AntlerHat";
+ getitem @oldstock$[rand(getarraysize(@oldstock$))], 1;
+ mes "";
+ mes "[You received 20,000 experience points!]";
+ mes "[You received 20,000 gold!]";
+ getexp 20000, 0;
+ set zeny, zeny + 20000;
+ set QUEST_Christmas09_state, 1;
+ close;
+
+L_NoRoom:
+ mes "[Santa Claus]";
+ mes "";
+ mes "\"Oh dear, it seem you don't have enough space for everything. If you can make space for";
+ mes "a few more things, I'll have some goodies for you...\"";
+ close;
+
+L_Finished:
+ mes "[Santa Claus]";
+ mes "\"You already completed the quest.";
+ mes "But maybe you are feeling the Christmas Spirit,";
+ mes "And would like to help others complete it too?\"";
+ close;
+
+L_LUMP_OF_COAL:
+ mes "[Santa Claus]";
+ mes "\"Hi "+strcharinfo(0)+",You are on the Naughty list.";
+ mes "Maybe you teased developers too much in IRC?,";
+ mes "Maybe at the quests end you will only get a lump of coal?\"";
+ close;
+ next;
+ menu
+ "No way I'm doing this quest for a lump of coal!", close,
+ "I Dimond D. Stone promise to be nice in IRC.", L_SANTA_DESCRIBE_QUEST;
+ close;
+
+L_SANTA_TOO_YOUNG:
+ mes "[Santa Claus]";
+ mes "\"You are just too young for such a heroic quest, off with you now...\"";
+ close;
+
+L_SANTA_DISAPPOINTED:
+ mes "[Santa Claus]";
+ mes "\"Too bad, " + @honorific$ + " , you've been on the NICE LIST since you were 3.\"";
+ close;
+
+}
+
+
+