AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.

IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK.  EVERYTHING ELSE
GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 193 insertions, 0 deletions

diff --git a/npc/events/custom/xmas_rings_event.txt b/npc/events/custom/xmas_rings_event.txt
new file mode 100644
index 000000000..7137492ea
--- /dev/null
+++ b/npc/events/custom/xmas_rings_event.txt
@@ -0,0 +1,193 @@
+//===== eAthena Script =======================================

+//= Karachun Event (Xmas Rings Quest)

+//===== By: ==================================================

+//= Lupus (1.0)

+//===== Current Version: =====================================

+//= 1.1

+//===== Compatible With: =====================================

+//= eAthena Version; 4880+ (with 'setItemScript' command)

+//===== Description: =========================================

+//= Custom event: Karachun (from 8 Dec till 8 Jan), X-Mas, HNY

+//===== Additional Comments: =================================

+//= 1.0 Tested, fully working. 1.0a a few typos fix

+//= 1.1 Readded Mdef +1 and  Luk +1 to Santa's Hat [Lupus]

+//============================================================

+

+

+prontera.gat,156,174,4	script	Snower	713,{

+	mes "[Snower]";

+	if(Q_XMSRINGS==2){

+		mes "Oh.. is it true? You've helped my sis Sneewy? Thank you.";

+	}else if(Q_XMSRINGS==3){

+		mes "Snoowy's sent me a bird with a message. She told me about your help...";

+		mes "I'll tell you a secret of the magic rings.";

+		emotion e_no1;

+		next;

+		mes "[Snower]";

+		mes "They have magic power only from 8 December till 8 January.";

+		next;

+		mes "[Snower]";

+		mes "By the way, just put on Santa's Hat to discover their true power.";

+		next;

+		mes "[Snower]";

+		mes "If you put on both rings their power would be doubled.";

+		mes "Have a nice day!";

+		close;

+	}else{

+		mes "Hi! Two my sisters and I are preparing gifts for the whole 3 holidays!";

+	}

+	emotion e_sob;

+	next;

+	menu "Where are your sisters?",-, "What holidays?",M_PR,"What gifts?",M_WRAP,"May I help you?",M_QUEST;

+

+	mes "[Snower]";

+	mes "My younger sis Sneewy's left to some faraway land to prepare gifts for their poor children... I don't know where. You should ask my elder sis and her birdies.";

+	next;

+	mes "[Snower]";

+	mes "My elder sis? Her name's Snoowy. She's sailed to some green island... She's talking about some gifts for dolphins or something...";

+	close;

+

+M_PR:

+	mes "[Snower]";

+	mes "The whole three holidays? Well they come one after another!";

+	mes "^000080The Christmas^000000, ^FF0000Karachun^000000 and ^008000New Year Eve^000000!";

+	next;

+	mes "[Snower]";

+	mes "^FF0000Karachun^000000? Heh... This is an old pagans festival. They used to celebrate it before the appearance of HNY and XMas, you know.";

+	next;

+	goto M_QUEST;

+

+M_WRAP:

+	mes "[Snower]";

+	mes "My sisters say that all the gifts should look the same way. Or else some children might fight for fancy ones!";

+	next;

+	mes "[Snower]";

+	mes "Would you like me to wrap your fancy gift boxes with a gray paper?";

+	next;

+	menu "Wrap them, please!",-, "No, thanks.",M_QUEST;

+

+	set @prizes, countitem(664)+countitem(665)+countitem(666)+countitem(667);

+	if( @prizes == 0){

+		mes "[Snower]";

+		mes "I don't see any gifts in fancy boxes on you...";

+		if(countitem(644))mes "You've got only gray boxes.";

+		close;

+	}

+	delitem 664,countitem(664);

+	delitem 665,countitem(665);

+	delitem 666,countitem(666);

+	delitem 667,countitem(667);

+	getitem 644,@prizes;

+

+	mes "[Snower]";

+	mes "*shuffle* Here you go.";

+	next;

+

+M_QUEST:

+	mes "[Snower]";

+	mes "I wish you find my sisters ASAP... They need help.";

+	if(Q_XMSRINGS==0) set Q_XMSRINGS,1;

+	close;

+

+OnInit:

+//Santa's Hat

+	setitemscript 2236,"{ bonus bMdef,1; bonus bLuk,1; if(isequipped(2636,2637)){if(@xmr == gettime(2))end; set @xmr,gettime(2); misceffect 410; end;} if(isequipped(2636)){if(@xmr == gettime(2))end; set @xmr,gettime(2); misceffect 72;} if(isequipped(2637)){if(@xmr == gettime(2))end; set @xmr,gettime(2); misceffect 338;}}";

+//Gold Xmas Ring

+	setitemscript 2636,"{ bonus bLoseSPWhenUnequip,30; if(isequipped(2236)==0)end; if(getskilllv(28)){skill 51,4+isequipped(2637);}else{skill 28,1+4*isequipped(2637);} }";

+//Silver Xmas Ring

+	setitemscript 2637,"{ bonus bDamageWhenUnequip,40; if(isequipped(2236)==0)end; if(getskilllv(26)){skill 40,1;}else{skill 26,1+isequipped(2636);} }";

+	end;

+}

+

+louyang.gat,224,249,4	script	Sneewy	717,{

+	mes "[Sneewy]";

+	if(Q_XMSRINGS==0){

+		mes "Hi! I'm waithing for my sister's birdy with mail...";

+		emotion e_sob;

+		close;

+	}

+	if(Q_XMSRINGS==1){

+		mes "I wish I had 4 more gray Gift Boxes for native children...";

+		emotion e_sob;

+		next;

+		mes "[Sneewy]";

+		mes "Oh, hello. Has my brother Snower told you everything?";

+		next;

+		menu "Here are your 4 Gift Boxes",-, "I don't know any Snowhatevers...",M_END;

+

+		mes "[Sneewy]";

+		if(countitem(644)<4){

+			mes "Gimme 4 gifts for poor kids... Wait, you haven't got 4 of them!";

+			emotion e_sry;

+			close;

+		}

+		set Q_XMSRINGS,2;

+		delitem 644,4;

+		getnameditem 2637,strcharinfo(0);

+		emotion e_kis2;

+		mes "Thank you! Here's my li'l something for you!";

+		next;

+		mes "[Sneewy]";

+		mes "By the way, if you put on 2 different rings then your holidays leveling would be easier!";

+		close;

+	}

+	emotion e_thx;

+	mes "Thanks again! No children will meet the holidays without the gifts!";

+	close;

+

+M_END:

+	mes "[Sneewy]";

+	mes "Pity... I've got a magic Santa's ring... I'd exchange it for 4 Gift Boxes...";

+	emotion e_swt;

+	close;

+}

+

+izlu2dun.gat,133,160,2	script	Snoowy	714,{

+	mes "[Snoowy]";

+	if(Q_XMSRINGS==0){

+		mes "Helloooou! Do you know my bro and sis? How so? My brother Snower's well known in Prontera!! Just ask any child there.";

+		emotion e_hmm;

+		close;

+	}

+	if(Q_XMSRINGS==1){

+		mes "Darn... How could poor children be more important than the marine folks.. Am I wrong?";

+		next;

+		mes "[Snoowy]";

+		mes "Errr. Helloou there. My sister Sneewy's sent me a birdie message. The letter was wet and I couldn't read anything but some ending letters of her address...";

+		next;

+		mes "[Snoowy]";

+		mes "Look, it's something like 'yang' in the very end... Hmm... She must be misspelled 'Al Doo Boryang'...";

+		close;

+	}

+	if(Q_XMSRINGS==2){

+		mes "You've helped my sis? It's just great!";

+		next;

+		mes "[Snoowy]";

+		mes "But I too need 3 more gifts for my marine folk friends...";

+		next;

+		menu "Have these gifts!",-, "I need a li'l something in return",M_END;

+

+		mes "[Snoowy]";

+		if(countitem(644)<3){

+			mes "Oops!! You haven't got 3 gray gift boxes on you.";

+			emotion e_sry;

+			close;

+		}

+		set Q_XMSRINGS,3;

+		delitem 644,3;

+		getnameditem 2636,strcharinfo(0);

+		emotion e_kis;

+		mes "Thaank yoouu! Have this magic ring!";

+		close;

+	}

+	emotion e_thx;

+	mes "Oh... the whole marine folk send you their thanks! They love presents so much!!!";

+	if(rand(2))mes "Didn't you know that Santa's Hat reveals the real power of the rings?";

+	close;

+

+M_END:

+	mes "[Snoowy]";

+	mes "I'd exchange a GOLD magic ring for 3 gift boxes...";

+	emotion e_swt;

+	close;

+}