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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
//===== rAthena Script =======================================
//= Karachun Event (Xmas Rings Quest)
//===== By: ==================================================
//= Lupus (1.0)
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= rAthena 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]
//= 1.2 Fixed double quotes not being escaped [brianluau]
//============================================================
prontera,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(\"AL_HEAL\")){skill \"TF_HIDING\",4+isequipped(2637);}else{skill \"AL_HEAL\",1+4*isequipped(2637);} }";
//Silver Xmas Ring
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);} }";
end;
}
louyang,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,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;
}
|
