summaryrefslogtreecommitdiff
path: root/npc/events
diff options
context:
space:
mode:
Diffstat (limited to 'npc/events')
-rw-r--r--npc/events/valentinesday_2012.txt339
1 files changed, 157 insertions, 182 deletions
diff --git a/npc/events/valentinesday_2012.txt b/npc/events/valentinesday_2012.txt
index 7bde3e2dd..a92b24338 100644
--- a/npc/events/valentinesday_2012.txt
+++ b/npc/events/valentinesday_2012.txt
@@ -1,183 +1,158 @@
-//===== 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;
-}
+//===== rAthena Script =======================================
+//= Valentine's Day Event (2012)
+//===== By: ==================================================
+//= Rikimaru
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= The full Valentine's Day NPCs of the Valentine's Day
+//= Event 2012 (account-based).
+//===== Additional Comments: =================================
+//= 1.0 First version. [Rikimaru]
+//= 1.1 Standardized and fixed. [Euphy]
+//============================================================
+
+mosk_in,21,246,5 script Pinkamenia 71,{
+ set .@n$,"^0000FF[Pinkamenia]^000000";
+ if (#V_QUE12==3) {
+ 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;
+ 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 them, of course!";
+ next;
+ if(select("Yes, sure!","No, never mind.") == 2) close;
+ next;
+ mes .@n$;
+ mes "Select an item.";
+ mes "The amount of Love Flowers you'll need is in brackets.";
+ for(set .@i,0; .@i < getarraysize(.@SweetsID); set .@i,.@i+1)
+ set .@menu$, .@menu$+"^00AA00["+.@SweetsCost[.@i]+"]^000000 "+getitemname(.@SweetsID[.@i])+":";
+ next;
+ set .@choice, select(.@menu$)-1;
+ mes .@n$;
+ if (countitem(.@LFlowerID) < .@SweetsCost[.@choice]) {
+ mes "You'll need more Love Flowers if you want that!";
+ close;
+ }
+ mes "Are you sure you want to trade ^00aa00"+.@SweetsCost[.@choice]+"x Love Flower ^000000 for ^0055FF"+getitemname(.@SweetsID[.@choice])+"^000000?";
+ if(select("No, I've changed my mind.:Yes, trade!") == 1) close;
+ set .@new, .@LFlowerID - .@SweetsCost[.@choice];
+ if (.@new < 0) set .@new, 0;
+ delitem .@LFlowerID, .@SweetsCost[.@choice];
+ getitem .@SweetsID[.@choice],1;
+ mes "Have fun with your item!";
+ close;
+ } else if (#V_QUE12==2) {
+ mes .@n$;
+ if (countitem(7864) < 15) {
+ mes "You have to bring me 15 Love Flowers!";
+ close;
+ }
+ mes "Thank you so much for";
+ mes "getting our Flowers back!";
+ delitem 7864,15;
+ next;
+ mes .@n$;
+ mes "Take this as a little";
+ mes "'thank you'.";
+ getexp 500000,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.";
+ mes "See you soon!";
+ set #V_QUE12,3;
+ close;
+ } else if (#V_QUE12==1) {
+ mes .@n$;
+ mes "Please bring a +8 Cake Hat";
+ mes "to the Baker Extraordinaire";
+ mes "standing next to me!";
+ close;
+ } else if (BaseLevel >= 45) {
+ mes .@n$;
+ mes "Hello "+strcharinfo(0)+", it's";
+ mes "Valentine's Day and we";
+ mes "love to deliver sweet";
+ mes "chocolates.";
+ 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 the Baker Extraordinaire, who";
+ mes "is standing right next to me!";
+ set #V_QUE12,1;
+ close;
+ }
+ mes .@n$;
+ mes "Hello "+strcharinfo(0)+"!";
+ close;
+
+OnInit:
+ // Unknown item drop rate (currently set at 5%)
+ setitemscript 5105,"{ bonus bDex,1; bonus bMaxSP,80; bonus3 bAddMonsterDropItem,7864,RC_DemiHuman,500; }",0;
+ end;
+}
+
+mosk_in,21,244,3 script Baker Extraordinaire 410,{
+ set .@n$,"^0000FF[Baker Extraordinaire]^000000";
+ if(#V_QUE12==3) {
+ mes .@n$;
+ mes "Exchange your Love Flowers with Pinkamenia!";
+ close;
+ } else if(#V_QUE12==2) {
+ mes .@n$;
+ mes "Bring 15 Love Flowers to Pinkamenia!";
+ close;
+ } else 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 exchange your +8 Cake";
+ mes "Hat for another Cake Hat.";
+ next;
+ mes .@n$;
+ delitem 5024,1;
+ getitem 5105,1;
+ equip 5105;
+ mes "Now, if you wear the";
+ mes "new Cake Hat, there";
+ mes "is a chance that";
+ mes "Demi-Human Monsters will";
+ mes "drop a Love Flower!";
+ next;
+ mes .@n$;
+ mes "The mobs stole our Flowers,";
+ mes "which we need to create ";
+ mes "our chocolates. Now get";
+ mes "15 Love Flowers and bring";
+ mes "them to Pinkamenia!";
+ set #V_QUE12,2;
+ close;
+ } else {
+ mes "Sorry, but where is your";
+ mes "+8 Cake Hat? Bring";
+ mes "it to me, and remember";
+ mes "to have it equipped!";
+ close;
+ }
+ } else {
+ mes .@n$;
+ mes "Hello, "+strcharinfo(0)+"!";
+ close;
+ }
} \ No newline at end of file