root/npc/custom/events/xmas_rings_event.txt @ 1

Revision 1, 6.6 kB (checked in by jinshiro, 17 years ago)
RevLine 
[1]1//===== eAthena Script =======================================
2//= Karachun Event (Xmas Rings Quest)
3//===== By: ==================================================
4//= Lupus (1.0)
5//===== Current Version: =====================================
6//= 1.1
7//===== Compatible With: =====================================
8//= eAthena Version; 4880+ (with 'setItemScript' command)
9//===== Description: =========================================
10//= Custom event: Karachun (from 8 Dec till 8 Jan), X-Mas, HNY
11//===== Additional Comments: =================================
12//= 1.0 Tested, fully working. 1.0a a few typos fix
13//= 1.1 Readded Mdef +1 and  Luk +1 to Santa's Hat [Lupus]
14//============================================================
15
16
17prontera,156,174,4      script  Snower  713,{
18        mes "[Snower]";
19        if(Q_XMSRINGS==2){
20                mes "Oh.. is it true? You've helped my sis Sneewy? Thank you.";
21        }else if(Q_XMSRINGS==3){
22                mes "Snoowy's sent me a bird with a message. She told me about your help...";
23                mes "I'll tell you a secret of the magic rings.";
24                emotion e_no1;
25                next;
26                mes "[Snower]";
27                mes "They have magic power only from 8 December till 8 January.";
28                next;
29                mes "[Snower]";
30                mes "By the way, just put on Santa's Hat to discover their true power.";
31                next;
32                mes "[Snower]";
33                mes "If you put on both rings their power would be doubled.";
34                mes "Have a nice day!";
35                close;
36        }else{
37                mes "Hi! Two my sisters and I are preparing gifts for the whole 3 holidays!";
38        }
39        emotion e_sob;
40        next;
41        menu "Where are your sisters?",-, "What holidays?",M_PR,"What gifts?",M_WRAP,"May I help you?",M_QUEST;
42
43        mes "[Snower]";
44        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.";
45        next;
46        mes "[Snower]";
47        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...";
48        close;
49
50M_PR:
51        mes "[Snower]";
52        mes "The whole three holidays? Well they come one after another!";
53        mes "^000080The Christmas^000000, ^FF0000Karachun^000000 and ^008000New Year Eve^000000!";
54        next;
55        mes "[Snower]";
56        mes "^FF0000Karachun^000000? Heh... This is an old pagans festival. They used to celebrate it before the appearance of HNY and XMas, you know.";
57        next;
58        goto M_QUEST;
59
60M_WRAP:
61        mes "[Snower]";
62        mes "My sisters say that all the gifts should look the same way. Or else some children might fight for fancy ones!";
63        next;
64        mes "[Snower]";
65        mes "Would you like me to wrap your fancy gift boxes with a gray paper?";
66        next;
67        menu "Wrap them, please!",-, "No, thanks.",M_QUEST;
68
69        set @prizes, countitem(664)+countitem(665)+countitem(666)+countitem(667);
70        if( @prizes == 0){
71                mes "[Snower]";
72                mes "I don't see any gifts in fancy boxes on you...";
73                if(countitem(644))mes "You've got only gray boxes.";
74                close;
75        }
76        delitem 664,countitem(664);
77        delitem 665,countitem(665);
78        delitem 666,countitem(666);
79        delitem 667,countitem(667);
80        getitem 644,@prizes;
81
82        mes "[Snower]";
83        mes "*shuffle* Here you go.";
84        next;
85
86M_QUEST:
87        mes "[Snower]";
88        mes "I wish you find my sisters ASAP... They need help.";
89        if(Q_XMSRINGS==0) set Q_XMSRINGS,1;
90        close;
91
92OnInit:
93//Santa's Hat
94        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;}}";
95//Gold Xmas Ring
96        setitemscript 2636,"{ bonus bLoseSPWhenUnequip,30; if(isequipped(2236)==0)end; if(getskilllv("AL_HEAL")){skill "TF_HIDING",4+isequipped(2637);}else{skill "AL_HEAL",1+4*isequipped(2637);} }";
97//Silver Xmas Ring
98        setitemscript 2637,"{ bonus bDamageWhenUnequip,40; if(isequipped(2236)==0)end; if(getskilllv("AL_TELEPORT")){skill "MC_IDENTIFY",1;}else{skill "AL_TELEPORT",1+isequipped(2636);} }";
99        end;
100}
101
102louyang,224,249,4       script  Sneewy  717,{
103        mes "[Sneewy]";
104        if(Q_XMSRINGS==0){
105                mes "Hi! I'm waithing for my sister's birdy with mail...";
106                emotion e_sob;
107                close;
108        }
109        if(Q_XMSRINGS==1){
110                mes "I wish I had 4 more gray Gift Boxes for native children...";
111                emotion e_sob;
112                next;
113                mes "[Sneewy]";
114                mes "Oh, hello. Has my brother Snower told you everything?";
115                next;
116                menu "Here are your 4 Gift Boxes",-, "I don't know any Snowhatevers...",M_END;
117
118                mes "[Sneewy]";
119                if(countitem(644)<4){
120                        mes "Gimme 4 gifts for poor kids... Wait, you haven't got 4 of them!";
121                        emotion e_sry;
122                        close;
123                }
124                set Q_XMSRINGS,2;
125                delitem 644,4;
126                getnameditem 2637,strcharinfo(0);
127                emotion e_kis2;
128                mes "Thank you! Here's my li'l something for you!";
129                next;
130                mes "[Sneewy]";
131                mes "By the way, if you put on 2 different rings then your holidays leveling would be easier!";
132                close;
133        }
134        emotion e_thx;
135        mes "Thanks again! No children will meet the holidays without the gifts!";
136        close;
137
138M_END:
139        mes "[Sneewy]";
140        mes "Pity... I've got a magic Santa's ring... I'd exchange it for 4 Gift Boxes...";
141        emotion e_swt;
142        close;
143}
144
145izlu2dun,133,160,2      script  Snoowy  714,{
146        mes "[Snoowy]";
147        if(Q_XMSRINGS==0){
148                mes "Helloooou! Do you know my bro and sis? How so? My brother Snower's well known in Prontera!! Just ask any child there.";
149                emotion e_hmm;
150                close;
151        }
152        if(Q_XMSRINGS==1){
153                mes "Darn... How could poor children be more important than the marine folks.. Am I wrong?";
154                next;
155                mes "[Snoowy]";
156                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...";
157                next;
158                mes "[Snoowy]";
159                mes "Look, it's something like 'yang' in the very end... Hmm... She must be misspelled 'Al Doo Boryang'...";
160                close;
161        }
162        if(Q_XMSRINGS==2){
163                mes "You've helped my sis? It's just great!";
164                next;
165                mes "[Snoowy]";
166                mes "But I too need 3 more gifts for my marine folk friends...";
167                next;
168                menu "Have these gifts!",-, "I need a li'l something in return",M_END;
169
170                mes "[Snoowy]";
171                if(countitem(644)<3){
172                        mes "Oops!! You haven't got 3 gray gift boxes on you.";
173                        emotion e_sry;
174                        close;
175                }
176                set Q_XMSRINGS,3;
177                delitem 644,3;
178                getnameditem 2636,strcharinfo(0);
179                emotion e_kis;
180                mes "Thaank yoouu! Have this magic ring!";
181                close;
182        }
183        emotion e_thx;
184        mes "Oh... the whole marine folk send you their thanks! They love presents so much!!!";
185        if(rand(2))mes "Didn't you know that Santa's Hat reveals the real power of the rings?";
186        close;
187
188M_END:
189        mes "[Snoowy]";
190        mes "I'd exchange a GOLD magic ring for 3 gift boxes...";
191        emotion e_swt;
192        close;
193}
Note: See TracBrowser for help on using the browser.