Added pre-version of christmas scripts. Not ready for release yet.

3 files changed, 389 insertions, 1 deletions

diff --git a/changelog.txt b/changelog.txt
index dfcec7d5..e1caa0a5 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -58,4 +58,6 @@
 	                 damage problems go away.
 	  * b_lindeijer: Committed the new dark crystal item.
 
-20.11.07: * Crush: Updated walkmaps for new versions of desert maps.
\ No newline at end of file
+20.11.07: * Crush: Updated walkmaps for new versions of desert maps.
+
+03.12.07: * Crush: Added test version of  christmas event scripts.
\ No newline at end of file
diff --git a/npc/xmas2007/after-xmas.txt b/npc/xmas2007/after-xmas.txt
new file mode 100644
index 00000000..58a31cc0
--- /dev/null
+++ b/npc/xmas2007/after-xmas.txt
@@ -0,0 +1,142 @@
+new_11-1.gat,78,85,0	script	Santa	105,{

+	if (QUEST_xmas07_state == 2) goto L_State2;

+	mes "[Santa Clause]";

+	mes "Ho! Ho! Ho!";

+	mes "You people from The Mana World";

+	mes "were very nice to me. So many";

+	mes "milk and cookies for me...";

+	next;

+	

+	if (QUEST_xmas07_milk + QUEST_xmas07_cookies == 0) goto L_Nothing;

+	if (QUEST_xmas07_milk + QUEST_xmas07_cookies < 10) goto L_Notenough;

+	

+	set @leastItems, $QUEST_xmas07_milk;

+	if ($QUEST_xmas07_milk > $QUEST_xmas07_cookies) set @leastItems, $QUEST_xmas07_cookies;

+        if (@leastItems >=    100) set @presents, 1;

+	if (@leastItems >=    200) set @presents, 2;

+	if (@leastItems >=    400) set @presents, 3;

+        if (@leastItems >=    800) set @presents, 4;

+	if (@leastItems >=   1600) set @presents, 5;

+	if (@leastItems >=   3200) set @presents, 6;

+        if (@leastItems >=   6400) set @presents, 7;

+	if (@leastItems >=  12800) set @presents, 8;

+	if (@leastItems >=  25600) set @presents, 9;

+        if (@leastItems >=  51200) set @presents, 10;

+	if (@leastItems >= 102400) set @presents, 11;

+	if (@leastItems >= 204800) set @presents, 12;

+	if (@leastItems >= 409600) set @presents, 13;

+	if (@leastItems >= 819200) set @presents, 14;

+        

+        

+	mes "[Santa Clause]";

+	mes "Now you deserve your presents. I got";

+	mes @presents + " presents for you. Do you";

+	mes "want them now?";

+	next;

+	menu "Yes! Presents! Presents! Presents!", -, "No, maybe later.", L_Close;

+	

+	//DEBUG - REMOVE BEFORE RELEASE!

+	set QUEST_xmas07_presents, 0;

+	

+	L_Givepresent:

+	if (@presents == QUEST_xmas07_presents) goto L_Enoughpresents;

+	

+	mes "[Santa Clause]";

+	mes "Let's see what I got for you in my sack....";

+	next;

+	

+	set QUEST_xmas07_presents, QUEST_xmas07_presents + 1;

+	set @TEMP,rand(7);

+        if(@TEMP == 0) goto L_present_0;

+        if(@TEMP == 1) goto L_present_1;

+	if(@TEMP == 2) goto L_present_2;

+	if(@TEMP == 3) goto L_present_3;

+	if(@TEMP == 4) goto L_present_4;

+	if(@TEMP == 5) goto L_present_5;

+	if(@TEMP == 6) goto L_present_6;

+	

+	

+	L_Enoughpresents:

+	mes "[Santa Clause]";

+	mes "That's all I got for you.";

+	mes "Merry Christmas!";

+	set QUEST_xmas07_state, 2;

+	close;

+	

+	L_present_0:

+	mes "[Santa Clause]";

+	mes "Here you got a new funky hat!";

+	getitem 628, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_present_1:

+	mes "[Santa Clause]";

+	mes "Here you got a pompouse top hat!";

+	getitem 627, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_present_2:

+	mes "[Santa Clause]";

+	mes "Here you got a funny elven hat!";

+	getitem 633, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_present_3:

+	mes "[Santa Clause]";

+	mes "Here you got a creepy face mask!";

+	getitem 634, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_present_4:

+	mes "[Santa Clause]";

+	mes "Here you got a stylish mushroom hat!";

+	getitem 629, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_present_5:

+	mes "[Santa Clause]";

+	mes "Here you got an evil mushroom hat!";

+	getitem 630, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_present_6:

+	mes "[Santa Clause]";

+	mes "Here you got a beautiful skirt!";

+	getitem 632, 1;

+	next;

+	goto L_Givepresent;

+	

+	L_State2:

+	mes "[Santa Clause]";

+	mes "Ho! Ho! Ho!";

+	mes "I hope you like your presents.";

+	mes "See you next year.";

+	close;

+	

+	L_Notenough:

+	mes "[Santa Clause]";

+	mes "But you did nothing to help. You";

+	mes "only donated " + (QUEST_xmas07_milk + QUEST_xmas07_cookies) + " items and now you";

+	mes "want a present while others did";

+	mes "all the work? get lost!";

+	close;

+	

+	L_Nothing:

+	mes "[Santa Clause]";

+	mes "But you did nothing to help. You";

+	mes "did not donate one item while";

+	mes "others did all the work.";

+	mes "Get lost!";

+	close;

+	

+	L_Close:

+	close;

+	

+

+}
\ No newline at end of file
diff --git a/npc/xmas2007/pre-xmas.txt b/npc/xmas2007/pre-xmas.txt
new file mode 100644
index 00000000..57b7217d
--- /dev/null
+++ b/npc/xmas2007/pre-xmas.txt
@@ -0,0 +1,244 @@
+new_11-1.gat,76,85,0	script	Assistant	105,{

+	if (QUEST_xmas07_state == 1) goto L_State1;

+

+	mes "[Santas Assistant]";

+	mes "I got really bad news.";

+	mes "Santa Clause won't come to";

+	mes "the mana world this year.";

+	next;

+	menu "Who cares? I don't want any presents.", L_Close, "Why that?", -;

+	mes "[Santas Assistant]";

+	mes "Well, he is in some kind of";

+	mes "depression. He says people";

+	mes "love him only for his presents";

+	mes "and don't really care about";

+	mes "him as a person.";

+	next;

+	menu "Well, not my problem.", L_Close, "Can't we do something for him?", -;

+	mes "[Santas Assistant]";

+	mes "Well, he really loves milk";

+	mes "and cookies. When we would";

+	mes "collect a really large pile";

+	mes "of milk and cookies he will";

+	mes "maybe come and pay us a visit.";

+	next;

+	menu "Sorry, I got no time for that.", L_Close, "Great idea! Let's begin.", -;

+	set QUEST_xmas07_state, 1;

+

+	L_State1:

+	menu "I got some milk.", L_Exchange_Milk, "I got some cookies.", L_Exchange_Cookies, "How is the collecting going?", L_Status, "Where can I find milk and cookies?", L_Help;

+

+	L_Exchange_Milk:

+	if (countitem(527) == 0) goto L_Exchange_Gotnothing;

+	mes "[Santas Assistant]";

+	mes "Aaaaah, " + countitem(527) + " milk.";

+	mes "Thanks for your contribution.";

+	set QUEST_xmas07_milk, QUEST_xmas07_milk + countitem(527);

+	set $QUEST_xmas07_milk, $QUEST_xmas07_milk + countitem(527);

+	delitem(527), countitem(527);

+	close;

+

+	L_Exchange_Cookies:

+	if (countitem(635) == 0) goto L_Exchange_Gotnothing;

+	mes "[Santas Assistant]";

+	mes "Aaaaah, " + countitem(635) + " cookies.";

+	mes "Thanks for your contribution.";

+	set QUEST_xmas07_cookies, QUEST_xmas07_cookies + countitem(635);

+	set $QUEST_xmas07_cookies, $QUEST_xmas07_cookies + countitem(635);

+	delitem(635), countitem(635);

+	close;

+

+	L_Help:

+	mes "[Santas Assistant]";

+	mes "Milk is dropped by santa slimes and fluffies.";

+	mes "You can find santa slimes on the";

+	mes "snow field to the south and Fluffies";

+	mes "at the coast south of Hurnscald.";

+	next;

+	mes "[Santas Assistant]";

+	mes "Cookies can be found";

+	mes "################";

+	close;

+

+	L_Exchange_Gotnothing:

+	mes "[Santas Assistant]";

+	mes "You don't seem to have any.";

+	close;

+

+	L_Status:

+	mes "[Santas Assistant]";

+	mes "OK, thus far you bought me";

+	mes QUEST_xmas07_milk + " packets of milk and";

+	mes QUEST_xmas07_cookies + " christmas cookies.";

+	mes "All people together bought";

+	mes $QUEST_xmas07_milk + " packets of milk and";

+	mes $QUEST_xmas07_cookies + " christmas cookies.";

+	next;

+	mes "[Santas Assistant]";

+	set @leastItems, $QUEST_xmas07_milk;

+	if ($QUEST_xmas07_milk > $QUEST_xmas07_cookies) set @leastItems, $QUEST_xmas07_cookies;

+	if (@leastItems >= 819200) goto L_Present14;

+	if (@leastItems >= 409600) goto L_Present13;

+	if (@leastItems >= 204800) goto L_Present12;

+	if (@leastItems >= 102400) goto L_Present11;

+        if (@leastItems >=  51200) goto L_Present10;

+	if (@leastItems >=  25600) goto L_Present9;

+	if (@leastItems >=  12800) goto L_Present8;

+        if (@leastItems >=   6400) goto L_Present7;

+	if (@leastItems >=   3200) goto L_Present6;

+	if (@leastItems >=   1600) goto L_Present5;

+        if (@leastItems >=    800) goto L_Present4;

+	if (@leastItems >=    400) goto L_Present3;

+	if (@leastItems >=    200) goto L_Present2;

+        if (@leastItems >=    100) goto L_Present1;

+        mes "I guess that won't impress santa";

+        mes "much. We need at least 100 of";

+        mes "both to make him come to us.";

+        close;

+

+        L_Present1:

+        mes "This means santa will bring";

+        mes "everyone a present. When we";

+        mes "can collect 200 of each he";

+        mes "will maybe give everyone two";

+        mes "presents.";

+        close;

+

+        L_Present2:

+        mes "This means santa will bring";

+        mes "everyone two presents. When we";

+        mes "can collect 400 of each he";

+        mes "will maybe give everyone three";

+        mes "presents.";

+        close;

+

+        L_Present3:

+        mes "This means santa will bring";

+        mes "everyone three presents. When we";

+        mes "can collect 800 of each he";

+        mes "will maybe give everyone four";

+        mes "presents.";

+        close;

+

+        L_Present4:

+        mes "This means santa will bring";

+        mes "everyone four presents. When we";

+        mes "can collect 1600 of each he";

+        mes "will maybe give everyone five";

+        mes "presents.";

+        close;

+

+        L_Present5:

+        mes "This means santa will bring";

+        mes "everyone five presents. When we";

+        mes "can collect 3200 of each he";

+        mes "will maybe give everyone six";

+        mes "presents.";

+        close;

+

+        L_Present6:

+        mes "This means santa will bring";

+        mes "everyone six presents. When we";

+        mes "can collect 6400 of each he";

+        mes "will maybe give everyone seven";

+        mes "presents.";

+        close;

+

+        L_Present7:

+        mes "This means santa will bring";

+        mes "everyone seven presents. When we";

+        mes "can collect 12800 of each he";

+        mes "will maybe give everyone eight";

+        mes "presents.";

+        close;

+

+        L_Present8:

+        mes "This means santa will bring";

+        mes "everyone eight presents. When we";

+        mes "can collect 25600 of each he";

+        mes "will maybe give everyone nine";

+        mes "presents.";

+        close;

+

+        L_Present9:

+        mes "This means santa will bring";

+        mes "everyone nine presents. When we";

+        mes "can collect 51200 of each he";

+        mes "will maybe give everyone ten";

+        mes "presents.";

+        close;

+

+	L_Present10:

+	mes "Over fiftythousand of both?";

+	mes "Did you guys hire some chinese";

+	mes "gold farmers?";

+        mes "This means santa will bring";

+        mes "everyone ten presents. When we";

+        mes "can collect 102400 of each he";

+        mes "will maybe give everyone eleven";

+        mes "presents.";

+        close;

+

+        L_Present11:

+        mes "What? You guys broke the";

+        mes "hundredthousand item limit??";

+        mes "This means santa will bring";

+        mes "everyone eleven presents. When we";

+        mes "can collect 204800 of each he";

+        mes "will maybe give everyone twelve";

+        mes "presents.";

+        close;

+

+	L_Present12:

+        mes "Another hundredthousand of each?";

+        mes "You guys really have no live!";

+        mes "This means santa will bring";

+        mes "everyone twelfe presents. When we";

+        mes "can collect 404800 of each he";

+        mes "will maybe give everyone thirteen";

+        mes "presents.";

+        close;

+

+        L_Present13:

+        mes "What the f...? Four Hundred Thousand???";

+        mes "There is no way people collected";

+        mes "that many stuff in just a week.";

+        mes "This means santa will bring";

+        mes "everyone thirteen presents. When we";

+        mes "can collect 819200 of each he";

+        mes "will maybe give everyone fourteen";

+        mes "presents.";

+        close;

+

+        L_Present14:

+        mes "OK, OK, you guys found a bug";

+        mes "to cheat the christmas event";

+        mes "this year. You will each get";

+        mes "fourteen presents.";

+        mes "But this is really enough.";

+        mes "Are you happy now?";

+        close;

+

+	L_Close:

+	close;

+}

+

+new_11-1.gat,74,85,0	script	Debug	105,{

+	menu "Give 10 milk", L_10milk, "Give 10 cookie", L_10cookie, "Double milk", L_2xmilk, "Double cookies", L_2xcookie, "Reset", L_Reset;

+

+	L_10milk:

+	getitem 527, 10;

+	close;

+	L_10cookie:

+	getitem 635, 10;

+	close;

+	L_2xmilk:

+	getitem 527, countitem(527);

+	close;

+	L_2xcookie:

+	getitem 635, countitem(635);

+	close;

+	L_Reset:

+	set $QUEST_xmas07_cookies, 0;

+	set $QUEST_xmas07_milk, 0;

+}
\ No newline at end of file