From 7c5ebe2d2ec057383fb8edc49f442115bbb05eee Mon Sep 17 00:00:00 2001 From: euphyy Date: Wed, 13 Jun 2012 20:49:48 +0000 Subject: * Follow-up r16291: Standardized "Valentine's Day 2012" script (events\valentinesday_2012.txt) * Added entry to scripts_athena.conf, with slight re-ordering of the event list git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16293 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/events/valentinesday_2012.txt | 339 ++++++++++++++++++-------------------- 1 file changed, 157 insertions(+), 182 deletions(-) (limited to 'npc/events') 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 -- cgit v1.2.3-60-g2f50