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
|
//===== rAthena Script =======================================
//= Valentine Event Script
//===== By: ==================================================
//= Muad_Dib(Prometheus Project)
//===== Current Version: =====================================
//= 1.01
//===== Compatible With: =====================================
//= Any Athena Version
//===== Description: =========================================
//
//===== Additional Comments: =================================
//= 07/06/05 : Added 1st Version. [Muad_Dib]
//= 08/28/05 : Ver. 1.01 Added a missing close; [Muad_Dib]
//= Converted to rAthena format by Dr.Evil
//============================================================
// Stephen - Valentine Event Chocolate seller ------------------
alberta,26,243,4 script Stephen 58,{
mes "[Stephen]";
mes "Guess what I've got?";
mes "A tasty treat not easily found in Rune-Midgard....";
next;
mes "[Stephen]";
mes "Chocolate!";
mes "That's right, don't you love chocolate.... I do.";
mes "And you are in luck, because I'm selling them for only 5,000 zeny a piece!";
next;
menu "I want some chocolate!",M_CHOCO,"No thanks.",-;
mes "[Stephen]";
mes "You don't want any chocolate?";
mes "I'm telling you! You'll regret it!";
mes "You better get some now... you won't come across Chocolate like this ever again!";
mes "Think it over and visit me again sometime.";
close;
M_CHOCO:
mes "[Stephen]";
mes "Hah!";
mes "I knew it!";
mes "But I can't sell you more then 5 at once....but, if you really need more....";
mes "you can come back again.";
mes "So how many do you want?";
next;
set @needmon,0;
input @flag_num;
if (@flag_num <= 0) goto L_NONE;
if (@flag_num > 5) goto L_ERR;
set @needmon,@flag_num*5000;
if (Zeny < @needmon) goto L_NOTENO;
set Zeny,Zeny - @needmon;
getitem 558,@flag_num;
mes "[Stephen]";
mes "There you go!";
mes "You can give that to someone as a gift, or enjoy it yourself!";
mes "Mmm....sweet chocolate...";
mes "Visit me anytime...!";
close;
L_ERR:
mes "[Stephen]";
mes "I'm sorry but I can't give you that many.";
L_NONE:
close;
L_NOTENO:
mes "[Stephen]";
mes "I'm sorry but it seems you can't afford to buy these off me.";
close;
}
// Jainie -- Gives information about Valentine Event ------------------------
alberta,29,243,4 script Jainie 53,{
mes "[Jainie]";
mes "You know what? The chocolate that my boyfriend sells are from me!";
mes "I made them by myself.";
next;
mes "[Jainie]";
mes "You know ... In cetain countries, there's a tradition of presenting chocolates to a person that you love...";
mes "They call it, ^3355FFValentine's Day^000000.";
next;
mes "[Jainie]";
mes "So I gave him my delicious chocolate...";
mes "And then he made me cook a lot more...";
mes "And now he is selling them to everyone.";
mes "I guess he really enjoyed it.";
mes "But, I do feel good when people buy something I have made.";
next;
mes "[Jainie]";
mes "It would be great if you bought some too...";
mes "I will be making chocolates for a while so...";
close;
}
// Carl Orleans -- Valentine Event Chocolate maker ------------------
prt_castle,54,34,4 script Carl Orleans 47,{
mes "[Carl Orleans]";
mes "Yes?";
next;
menu "I want some hand made chocolate...",-,"I'm lost, sorry to bother you.",M_WAT;
mes "[Carl Orleans]";
mes "Well, I just might be able to fulfill your needs...";
next;
if (countitem(558) >=3) goto L_ENO;
mes "I'm sorry you do not have enough Chocolate Bars to do this";
close;
L_ENO:
delitem 558,3;
mes "[Carl Orleans]";
mes "You got 3 pieces of pure chocolate I see.";
mes "Give them to me...";
next;
mes "Ok, now I will only create my special hand made chocolates if you promise to use it wisely.";
next;
mes "....Hmmmmmm.....";
mes "Well...";
next;
mes "Here.";
getitem 559,1;
mes "I hope you give it to someone special, because its a special chocolate.";
mes "As you know... only I can create this.";
next;
mes "Enjoy.";
close;
M_WAT:
mes "[Carl Orleans]";
mes "Oh..well, if you want me to make some of my special Hand Made Chocolate....";
mes "You will need to give me at least ^0000FF 3 Chocolates^000000.";
next;
mes "[Carl Orleans]";
mes "That's right, only ^0000FF 3 Chocolates^000000";
mes "Bring them to me and you'll get what you came for.";
next;
mes "[Carl Orleans]";
mes "See You.";
close;
}
|
