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
|
//===== Hercules Script =======================================
//= Bunny Band Quest
//===== By: ==================================================
//= rAthena Dev Team
//===== Current Version: =====================================
//= 1.6
//===== Description: =========================================
//= [Aegis Conversion]
//= Quest to obtain a Bunny Band headgear.
//===== Additional Comments: =================================
//= 1.5 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
// Changed @BUNYBAN back to BUNYBND, it should be this way.
// Removed duplicates. NPC is ALberta-only.
//= 1.6 Cleaning. [Euphy]
//============================================================
alberta,26,229,0 script Kafra Employee#bunny 83,{
if (BUNYBND == 1) {
mes "[Kafra Employee]";
mes "Hello there~!";
mes "How'd you like to";
mes "participate in Kafra";
mes "Corporation's special";
mes "^529DFFBunny Band Event^000000?";
next;
switch(select("Sure, I brought the items.:Event Information:Cancel")) {
case 1:
mes "[Kafra Employee]";
mes "Alrighty~";
mes "Let me check to";
mes "see if you brought";
mes "all the items...";
next;
setarray .@Items[0],949,100,706,1,722,1,2213,1;
for(set .@i,0; .@i<8; set .@i,.@i+2)
if (countitem(.@Items[.@i]) < .@Items[.@i+1]) {
mes "[Kafra Employee]";
mes "Ooh, I'm sorry";
mes "but you need to";
mes "bring at least";
mes .@Items[.@i+1]+" "+getitemname(.@Items[.@i])+((!.@i)?"s.":".");
close;
}
mes "[Kafra Employee]";
mes "Great, I see that";
mes "you've gathered";
mes "everything I need to";
mes "make the Bunny Band.";
mes "Please wait a moment";
mes "while I put it together...";
next;
for(set .@i,0; .@i<8; set .@i,.@i+2)
if (countitem(.@Items[.@i]) < .@Items[.@i+1]) {
mes "[Kafra Employee]";
mes "Hm? I'm sorry,";
mes "but I actually can't";
mes "make this right now. You";
mes "need "+.@Items[.@i+1]+" "+getitemname(.@Items[.@i])+((!.@i)?"s":"");
mes "in order for me to put this";
mes "Bunny Band together...";
close;
}
delitem 949,100; //Feather
delitem 706,1; //Four_Leaf_Clover
delitem 722,1; //Scarlet_Jewel
delitem 2213,1; //Cat_Hairband
mes "[Kafra Employee]";
mes "Ah, here you go~";
mes "The perfect Bunny Band!";
mes "Well, I hope you enjoy it.";
getitem 2214,1; //Bunny_Band
set BUNYBND,0;
next;
mes "[Kafra Employee]";
mes "Thank you for";
mes "participating in this";
mes "special event and your";
mes "continued patronage";
mes "of the Kafra Services~";
close;
case 2:
goto L_Info;
case 3:
close;
}
}
mes "[Kafra Employee]";
mes "Hi there~! Would you like";
mes "to join our special ^529DFFBunny";
mes "Band Event^000000 hosted by the Kafra";
mes "Corporation and sponsored by";
mes "the Alberta Merchant Guild?";
next;
switch(select("Join the Event:Event Information:Cancel")) {
case 1:
set BUNYBND,1;
mes "[Kafra Employee]";
mes "Great! Thanks for";
mes "participating! If you";
mes "haven't already heard,";
mes "you need to collect these";
mes "items if you want me put a";
mes "Bunny Band together for you...";
next;
mes "[Kafra Employee]";
mes "100 Feathers,";
mes "1 Four-Leaf Clover,";
mes "1 Kitty Band and";
mes "1 Pearl. That's it!";
mes "Good luck and I'll be";
mes "waiting for you here~";
close;
case 2:
break;
case 3:
close;
}
L_Info:
mes "[Kafra Employee]";
mes "To thank our valued";
mes "customers, Kafra Corporation";
mes "has prepared a special event";
mes "where Kafra Employee will assemble";
mes "Bunny Bands for adventurers";
mes "who bring the required items.";
next;
mes "[Kafra Employee]";
mes "For this special,";
mes "one of a kind item,";
mes "bring 100 Feathers,";
mes "1 Four-Leaf Clover,";
mes "1 Kitty Band and";
mes "1 Pearl.";
next;
mes "[Kafra Employee]";
mes "When you're ready,";
mes "come back and bring";
mes "those items to me.";
mes "(Sponsored by the";
mes "Alberta Merchant Guild).";
close;
}
//============================================================
// Old changelog
//============================================================
//= 1.1 using duplicate command
//= 1.2 Fixed NPC location, removed NPC dupes [Lupus]
//= 1.3 RE-Fixed exploit V_V, also cleared used VAR [Lupus]
//= 1.4 replaced BUNYBND with @BUNYBND [Lupus]
//============================================================
|
