diff options
Diffstat (limited to 'npc/events/valentinesday_2012.txt')
| -rw-r--r-- | npc/events/valentinesday_2012.txt | 183 |
1 files changed, 183 insertions, 0 deletions
diff --git a/npc/events/valentinesday_2012.txt b/npc/events/valentinesday_2012.txt new file mode 100644 index 000000000..7bde3e2dd --- /dev/null +++ b/npc/events/valentinesday_2012.txt @@ -0,0 +1,183 @@ +//===== rAthena Script =======================================
+//= Valentine's Day NPC's 2012
+//===== By: ==================================================
+//= Rikimaru
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= The full Valentine's Day NPC's of the Valentine's Day
+//= Event 2012 (Account based,not Character based)
+//===== Additional Comments: =================================
+//= 1.0 First version. [Rikimaru]
+//============================================================
+//=============== Pinkamenia =================================
+mosk_in,21,246,5 script Pinkamenia 71,{
+set .@n$,"^0000FF[ Pinkamenia ]^000000";
+if(#v_QUE15==1) {
+set .LFlowerID,7864;
+setarray @SweetsID[0],538,558,539,573,559,560,12062,596,597,12414,12319;
+setarray @SweetsCost[0],1,2,5,10,10,10,15,15,15,20,20;
+setarray @SweetsCount[0],1,1,1,1,1,1,1,1,1,1,1;
+mes .@n$;
+mes "Hello ["+strcharinfo(0)+"],do";
+mes "you want to buy some items?";
+mes "You'll have to give me Love";
+mes "Flowers for the Items!";
+next;
+ if (select("Yes,sure","No,nevermind!") == 2)
+ close;
+ next;
+ mes .@n$;
+ mes "Item = Cost";
+ for( set .@i, 0; .@i < getarraysize(@SweetsID); set .@i, .@i + 1 ) {
+ mes "^0000ff"+@SweetsCount[.@i]+"x "+getitemname(@SweetsID[.@i])+"^000000 = ^00aa00"+@SweetsCost[.@i]+"^000000";
+ if( .@i < 1 )
+ set .@menu$, getitemname(@SweetsID[.@i]);
+ else
+ set .@menu$, .@menu$+":"+getitemname(@SweetsID[.@i]);
+ }
+
+ next;
+ select(.@menu$);
+ set @choice, @menu - 1;
+
+ mes .@n$;
+ if(countitem(.LFlowerID) <@SweetsCost[@choice]) {
+ mes "You need more Love Flowers for "+@SweetsCount[@choice]+"x '"+getitemname(@SweetsID[@choice])+"'";
+ close;
+ }
+ mes "Are u realy sure to trade "+@SweetsCount[@choice]+"x '^ff0000"+getitemname(@SweetsID[@choice])+"^000000' for ^00aa00"+@SweetsCost[@choice]+"^000000 Love Flowerss?";
+ if(select("No! Cancel!:Yes, Trade me!") == 1 ) {
+ mes "Canceled the Trade";
+ close;
+ }
+
+ set .@new, .LFlowerID - @SweetsCost[@choice];
+ if( .@new < 0 )
+ set .@new, 0;
+ delitem .LFlowerID,@SweetsCost[@choice];
+ getitem @SweetsID[@choice], @SweetsCount[@choice];
+ mes "The Trade was succesfull. Have fun with the Item!";
+ close;
+}
+if(#V_QUE14==1) {
+mes .@n$;
+if(countitem(7864) < 15) {
+mes "Sorry but you have to bring me 15 Love Flower!";
+close;
+}
+mes "Thank you so much,for";
+mes "getting out Flowers back!";
+delitem 7864,15;
+next;
+mes .@n$;
+mes "Take this as a little";
+mes "Thank you.";
+set BaseEXP,+500000;
+set JobEXP,+400000;
+getitem 617,1;
+getitem 12319,2;
+next;
+mes .@n$;
+mes "If you get more Love";
+mes "Flowers,you can exchange";
+mes "them for some sweets here.";
+next;
+mes .@n$;
+mes "See you soon!";
+set #V_QUE15,1;
+close;
+}
+if(#V_QUE12==1) {
+mes .@n$;
+mes "Please bring a ";
+mes "+8 Cake Hat to Baker";
+mes "Extraordinaire,who is standing";
+mes "right next to me!";
+close;
+}
+if(BaseLevel >= 45) {
+mes .@n$;
+mes "Hello "+strcharinfo(0)+",it's";
+mes "Valentine's Day and we";
+mes "love to deliver sweet";
+mes "chocolate to the Friends";
+mes "of people,who pay us.";
+next;
+mes .@n$;
+mes "Our problem is,that we";
+mes "need a strong Person";
+mes "like you,who could help";
+mes "us,but first you'll have";
+mes "to bring a +8 Cake Hat";
+mes "to Baker Extraordinaire,who";
+mes "is standing right next to me!";
+set #V_QUE12,1;
+close;
+}
+mes .@n$;
+mes "Hello "+strcharinfo(0)+"!";
+close;
+}
+//=============== Baker Extraordinaire =======================
+mosk_in,21,244,3 script Baker Extraordinaire 410,{
+set .@n$,"^0000FF[ Baker Extraordinaire ]^000000";
+if(#V_QUE15==1) {
+mes .@n$;
+mes "Exchange your Love Flowers at Pinkamenia!";
+close;
+}
+if(#V_QUE14==1) {
+mes .@n$;
+mes "Bring 15 Love Flowers to Pinkamenia!";
+close;
+}
+if(#V_QUE12==1) {
+mes .@n$;
+if(getequipid(1==5024) && getequiprefinerycnt(1) >= 8) {
+mes "Ah,so Pinkamenia told you";
+mes "to bring me the +8 Cake";
+mes "Hat.Now I'm going";
+mes "to change your +8 Cake";
+mes "Hat into another Cake Hat.";
+next;
+mes .@n$;
+delitem 5024,1;
+getitem 5105,1;
+mes "Now,if you wear the";
+mes "new Cake Hat,there";
+mes "is a chance,that";
+mes "Demi-Human Monsters drop";
+mes "the item Love Flower";
+next;
+mes .@n$;
+mes "The Mobs stole our Flowers,";
+mes "which we need to create ";
+mes "our Chocolate.Now ";
+mes "get 15 Love Flowers and";
+mes "bring them to Pinkamenia,please.";
+set #V_QUE14,1;
+close;
+} else {
+mes "Sorry,but where is your";
+mes "+8 Cake Hat?";
+mes "Bring it to me,please.";
+mes "and remember,that you";
+mes "have to equip it on";
+mes "your head!";
+close;
+}
+}
+if(BaseLevel < 45) {
+mes .@n$;
+mes "Hello "+strcharinfo(0)+"!";
+close;
+}
+if(BaseLevel >= 45) {
+mes .@n$;
+mes "Hello "+strcharinfo(0)+"!";
+close;
+}
+}
\ No newline at end of file |