diff options
author | daegaladh <daegaladh@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2012-08-01 04:29:56 +0000 |
---|---|---|
committer | daegaladh <daegaladh@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2012-08-01 04:29:56 +0000 |
commit | 8832adba3ec9df0f7f890154f69f0993b8d1d8e5 (patch) | |
tree | 0e73afe6a780abf29fe035301f1354f24762da7a /npc/re/events/valentinesday_2009.txt | |
parent | fa533907d49c7e288be33efb55fcb094f8e48591 (diff) | |
download | hercules-8832adba3ec9df0f7f890154f69f0993b8d1d8e5.tar.gz hercules-8832adba3ec9df0f7f890154f69f0993b8d1d8e5.tar.bz2 hercules-8832adba3ec9df0f7f890154f69f0993b8d1d8e5.tar.xz hercules-8832adba3ec9df0f7f890154f69f0993b8d1d8e5.zip |
Full npc folder reorganization. (I hope I didn't break anything D:)
-Now common scripts goes to the main npc folder, and pre-re-only/re-only ones goes to their respective folders.
-NPCs with practically the same script but little differences have been left in the main folder and uses the command checkre() for the differences.
-For those NPCs with different coordinates but same script, the script has been left in the main folder but the NPCs splitted as duplicates.
-All pre-renewal files has been reverted back to their pre-renewal behavior.
TODO:
-Correct pre-re quest rewards.
-Check for pre-re/re differences in mapflags.
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16545 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/re/events/valentinesday_2009.txt')
-rw-r--r-- | npc/re/events/valentinesday_2009.txt | 630 |
1 files changed, 0 insertions, 630 deletions
diff --git a/npc/re/events/valentinesday_2009.txt b/npc/re/events/valentinesday_2009.txt deleted file mode 100644 index db072b401..000000000 --- a/npc/re/events/valentinesday_2009.txt +++ /dev/null @@ -1,630 +0,0 @@ -//===== rAthena Script ======================================= -//= iRO Valentine's Day Event (2009) -//===== By: ================================================== -//= Kisuka -//===== Current Version: ===================================== -//= 1.3 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= iRO Valentine's Day Event. (2009) -//= Make Chocolate/Chocolate Boxes/Home-Made Chocolate. -//= Make Valentine's Rings/Boxes. -//= Trade rings to those of opposite gender. -//= Register rings you have gotten for votes. -//= -//= The male and female with the most votes at the end of -//= the event will receive item (14466) from GM team. -//= -//= Must enable the event items in item_db2 and item_trade! -//===== Additional Comments: ================================= -//= 1.0 First version. [Kisuka] -//= 1.1-1.2 Fixed exploits with unlimited rings and non deleting choco [Lupus] -//= 1.3 Some Changes. [Kisuka] -//============================================================ - -// Marco Bassinio (Chocolate/Chocolate Box maker) -prontera,164,174,4 script Trader#Val09 58,{ - mes "[Marco Bassinio]"; - mes "Hey, folks! Here's something you don't see everyday!"; - mes "Something you can never find in Rune-Midgarts!"; - mes "Something that makes you happy with just one bite!"; - next; - mes "[Marco Bassinio]"; - mes "It's the perfect dessert and the perfect gift for loved ones."; - mes "High-quality, traditional homemade chocolate only 5000z each!"; - next; - switch(select("I'll take it, please!:I want to wrap the chocolate!:End trading.")) { - case 1: - mes "[Marco Bassinio]"; - mes "Ahaha, my dear."; - mes "This chocolate is nothing like others."; - mes "Every piece bears the devotion of the person who made it!"; - next; - mes "[Marco Bassinio]"; - mes "So, that's why I can't sell more than 5 of them at a time."; - mes "If you really really want more, then talk to me again."; - mes "How many do you want anyway?"; - next; - while(.@input <= 0 || .@input > 5) { - input .@input; - if (.@input < 1) { - mes "[Marco Bassinio]"; - mes "Oh, it's such a shame!"; - mes "I'm sure you'll miss this opportunity and regret you didn't buy it."; - next; - mes "[Marco Bassinio]"; - mes "Remember, you can never find this anywhere else!"; - mes "Come back anytime, when you change your mind."; - close; - } - if (.@input > 5) { - mes "[Marco Bassinio]"; - mes "Ugh.. Didn't I tell you?"; - mes "5 is the maximum!"; - mes "I can't sell more than that to the same person."; - next; - mes "[Marco Bassinio]"; - mes "And you know it's not like an everyday meal."; - mes "Eating too much is not really good for you."; - next; - } - } - if (!checkweight(558, .@input)) { - mes "[Marco Bassinio]"; - mes "You're carrying too many items."; - mes "Please use the Kafra Services."; - close; - } - set .@price, .@input * 5000; - if (Zeny < .@price) { - mes "[Marco Bassinio]"; - mes "Looks like you don't have enough zeny with ya."; - mes "Maybe you should borrow some zeny from a friend."; - mes "Cuz, I'm not gonna be here everyday."; - close; - }else{ - mes "[Marco Bassinio]"; - mes "Good for you!"; - mes "It's also perfect as a gift!"; - mes "You know you can't get this kind of chocolate normally."; - next; - mes "[Marco Bassinio]"; - mes "If you want more, you should come back."; - mes "Might be a good idea to buy some more while you have a chance...!"; - set Zeny,Zeny - .@price; - getitem 558,.@input; - close; - } - case 2: - mes "[Marco Bassinio]"; - mes "If you want to gift-wrap the chocolate, of course, you need chocolate, plus, wrapping paper, wrapping strap and a box."; - next; - mes "[Marco Bassinio]"; - mes "You also need to pay 500 zeny to carve your name on the box."; - mes "Are you all prepared...?"; - next; - if(countitem(7175) < 1 || countitem(7174) < 1 || countitem(7948) < 1 || Zeny < 500) { - mes "[Marco Bassinio]"; - mes "Hmm.. Looks like you don't have enough materials to decorate the gift box.."; - mes "You can't just put your gift into some plain looking box.."; - mes "Don't you think?"; - next; - mes "[Marco Bassinio]"; - mes "You need to bring some wrapping paper, wrapping strap, and a box."; - mes "Oh, also bring 500 zeny, and don't forget to bring your true loving heart with you!!"; - close; - } - if(countitem(558) < 1) { - mes "[Marco Bassinio]"; - mes "Hey, look, adventurer!"; - mes "I can't create something right away!"; - mes "You know I'm not an alchemist or anything."; - next; - mes "[Marco Bassinio]"; - mes "You're not saying that you want an empty chocolate box without any chocolate in it, am I right?"; - close; - } - if (!checkweight(12744,1)) { - mes "[Marco Bassinio]"; - mes "You're carrying too many items."; - mes "Please use the Kafra Services."; - close; - } - mes "[Marco Bassinio]"; - mes "Here, look!"; - mes "It's your chocolate box with your name on it."; - mes "Isn't it fabulous?"; - mes "See, your name looks great on the box!"; - next; - delitem 558,1; - delitem 7175,1; - delitem 7174,1; - delitem 7948,1; - set Zeny,Zeny-500; - getnameditem 12744,strcharinfo(0); - mes "[Marco Bassinio]"; - mes "Happy Valentine's Day!"; - mes "Valentine's the reason I came back."; - close; - case 3: - mes "[Marco Bassinio]"; - mes "Oh, it's such a shame!"; - mes "I'm sure you'll miss this opportunity and regret you didn't buy it."; - next; - mes "[Marco Bassinio]"; - mes "Remember, you can never find this anywhere else!"; - mes "Come back anytime, when you change your mind."; - close; - } -} - -// Packs Trader (Sells Wrapping Paper, Lace, and Box) -prontera,147,171,5 script Packs Trader#Val09 58,{ - mes "[Packs Trader]"; - mes "Hello."; - mes "I am a Packs Trader, I sell paper boxes and supplies for packing presents."; - next; - while(1) { - mes "[Packs Trader]"; - mes "Do you have something to buy?"; - next; - switch(select("Packing Paper:Packing Ribbon:Box:Cancel.")) { - case 1: - mes "[Packs Trader]"; - mes "It's 200 zeny for 1 Packing Paper."; - mes "How many do you want?"; - mes "You can't buy more than 10 items at once."; - next; - input .@input; - if (.@input <= 0) { - mes "[Packs Trader]"; - mes "Nothing to buy."; - mes "Come back when you need something."; - close; - } - if (.@input > 10) { - mes "[Packs Trader]"; - mes "I told you not to buy more than 10..."; - next; - break; - } - if (!checkweight(7175,.@input)) { - mes "[Packs Trader]"; - mes "You're carrying too many items."; - mes "Please use the Kafra Services."; - close; - } - set .@price, .@input * 200; - if (Zeny < .@price) { - mes "[Packs Trader]"; - mes "You don't have enough money."; - mes "Please check your wallet."; - next; - break; - }else{ - mes "[Packs Trader]"; - mes "Here they are."; - mes "Hope it makes your Valentine's Day more pleasing!"; - set Zeny,Zeny-.@price; - getitem 7175,.@input; - next; - break; - } - case 2: - mes "[Packs Trader]"; - mes "It's 200 zeny for 1 Packing Ribbon."; - mes "How many do you want?"; - mes "You can't buy more than 10 items at once."; - next; - input .@input; - if (.@input <= 0) { - mes "[Packs Trader]"; - mes "Nothing to buy."; - mes "Come back when you need something."; - close; - } - if (.@input > 10) { - mes "[Packs Trader]"; - mes "I told you not to buy more than 10..."; - next; - break; - } - if (!checkweight(7174,.@input)) { - mes "[Packs Trader]"; - mes "You're carrying too many items."; - mes "Please use the Kafra Services."; - close; - } - set .@price, .@input * 200; - if (Zeny < .@price) { - mes "[Packs Trader]"; - mes "You don't have enough money."; - mes "Please check your wallet."; - next; - break; - }else{ - mes "[Packs Trader]"; - mes "Here they are."; - mes "Hope it makes your Valentine's Day more pleasing!"; - set Zeny,Zeny-.@price; - getitem 7174,.@input; - next; - break; - } - case 3: - mes "[Packs Trader]"; - mes "It's 600 zeny for 1 Box."; - mes "How many do you want?"; - mes "You can't buy more than 10 items at once."; - next; - input .@input; - if (.@input <= 0) { - mes "[Packs Trader]"; - mes "Nothing to buy."; - mes "Come back when you need something."; - close; - } - if (.@input > 10) { - mes "[Packs Trader]"; - mes "I told you not to buy more than 10..."; - next; - break; - } - if (!checkweight(7948,.@input)) { - mes "[Packs Trader]"; - mes "You're carrying too many items."; - mes "Please use the Kafra Services."; - close; - } - set .@price, .@input * 600; - if (Zeny < .@price) { - mes "[Packs Trader]"; - mes "You don't have enough money."; - mes "Please check your wallet."; - next; - break; - }else{ - mes "[Packs Trader]"; - mes "Here they are."; - mes "Hope it makes your Valentine's Day more pleasing!"; - set Zeny,Zeny-.@price; - getitem 7948,.@input; - next; - break; - } - case 4: - mes "[Packs Trader]"; - mes "Goodbye!"; - mes "And enjoy your Valentine's Day."; - close; - } - } -} - -// Event Ring Maker (Makes ring for players) -prontera,154,185,5 script Event Ring Maker#Val09 721,{ - if (BaseLevel < 75) { - mes "[Event Ring Maker]"; - mes "Hello, I only make the Valentine rings to those experienced adventurer Level 75 or above."; - next; - mes "[Event Ring Maker]"; - mes "You're not fully experienced yet."; - mes "Come back when you're experienced enough to handle the quests."; - close; - } - - if (iROval09ring >= 1) { - mes "[Event Ring Maker]"; - mes "The box with the ring, carved with your name, is for the one you love."; - next; - mes "[Event Ring Maker]"; - mes "As for the rings that you receive from others, they should all be registered with the Vote Manager."; - mes "She is standing near the Prontera Fountain."; - next; - mes "[Event Ring Maker]"; - mes "Only the most popular male and female are subjected to getting rewards."; - mes "Be aware, and always try to stay popular!"; - close; - } - - mes "[Event Ring Maker]"; - mes "Hi, there, how are ya?"; - mes "Come to me if you're interested in the event, 'Who's Valentine's Hottest?'"; - next; - mes "[Event Ring Maker]"; - mes "I make the most precious rings that you can give to your sweethearts."; - mes "Those rings are very special because I carve your names on them!"; - next; - mes "[Event Ring Maker]"; - mes "Isn't it exciting?"; - mes "Isn't it such a brilliant idea?"; - mes "Give these special rings to your sweethearts!"; - next; - mes "[Event Ring Maker]"; - mes "You should hurry 'cuz this event will only last for two weeks."; - mes "Give that special someone a gift of a Valentine's ring."; - next; - mes "[Event Ring Maker]"; - mes "Remember, you can only generate the ring once."; - mes "You also need Wrapping Paper, Wrapping Strap and a Box to make the ring."; - next; - mes "[Event Ring Maker]"; - mes "So you better be sure of who you give this to."; - mes "By the way, It costs 1,000 zeny."; - mes "Would you like to make one?"; - next; - if(select("Hmm.. I gotta give it a second thought...:Sure.") == 1) { - mes "[Event Ring Maker]"; - mes "Alrighty!"; - mes "You can't put a rush on such a thing like this."; - mes "Think about what you truly want."; - mes "Just follow your heart!"; - close; - } - if(countitem(7175) < 1 || countitem(7174) < 1 || countitem(7948) < 1 || Zeny < 1000) { - mes "[Event Ring Maker]"; - mes "Well, you don't have enough materials to make a gift box."; - mes "Check what you have, and come back later with all the materials."; - close; - } - mes "[Event Ring Maker]"; - mes "Okie Dokie!"; - mes "I'll make it right away."; - next; - delitem 7175,1; - delitem 7174,1; - delitem 7948,1; - set Zeny,Zeny-1000; - set iROval09ring,1; - if (Sex) { - getnameditem 12742,strcharinfo(0); - }else{ - getnameditem 12743,strcharinfo(0); - } - mes "[Event Ring Maker]"; - mes "Here, the most precious ring in the world!"; - mes "Don't forget, you can never make this ring again."; - next; - mes "[Event Ring Maker]"; - mes "You must pick out the one that you really really love, and give this ring to that person."; - next; - mes "[Event Ring Maker]"; - mes "Of course, you've got to get rings from others, that's the way you can participate in the voting, right?"; - mes "Challenge yourself to become Valentine's Hottest!"; - close; -} - -// Valentine Vote Manager (Registers votes) -prontera,157,185,4 script Valentine Vote Manager#v 113,{ - mes "[Valentine Vote Manager]"; - mes "Hello, I'm the Valentine's Vote Manager."; - mes "I'm in charge of collecting rings for this event!"; - next; - mes "[Valentine Vote Manager]"; - mes "I register the rings you get from others and I calculate the total number of rings."; - next; - mes "[Valentine Vote Manager]"; - mes "You know what I do besides just counting those rings?"; - mes "I can tell you the adventurer's name who's got the most number of votes."; - next; - mes "[Valentine Vote Manager]"; - mes "Plus, you can also find out how many votes he/she got."; - next; - while (1) { - mes "[Valentine Vote Manager]"; - mes "So, what do you want?"; - next; - switch(select("Please register my rings.:Please count my votes.:Nothing, for now.")) { - case 1: - mes "[Valentine Vote Manager]"; - mes "Please tell me how many rings you want to register."; - next; - mes "[Valentine Vote Manager]"; - mes "When you write the number of the rings, the number shouldn't be larger than the number of rings you actually have."; - mes "'0', cancels everything."; - next; - input .@input; - - if (.@input <= 0) { - mes "[Valentine Vote Manager]"; - mes "You have entered 0."; - mes "Registration is cancelled."; - next; - break; - } - - if (Sex) { - if (countitem(7947) > .@input) { - mes "[Valentine Vote Manager]"; - mes "Seems like the value you entered is too small."; - mes "I know you've got more. Be honest, dear."; - next; - break; - } - - if (countitem(7947) < .@input) { - mes "[Valentine Vote Manager]"; - mes "Seems like the value you entered is too large."; - mes "I know you've got less. Be honest, dear."; - next; - break; - } - - mes "[Valentine Vote Manager]"; - mes "I'll take those silver rings, and count the votes for you."; - mes "Thank you for participating."; - delitem 7947,.@input; - set Val09Rings,Val09Rings+.@input; - if (Val09Rings > $Val09votes_M) { - set $Val09votes_M,Val09Rings; - set $Val09name_M$,strcharinfo(0); - } - next; - break; - }else{ - if (countitem(7946) > .@input) { - mes "[Valentine Vote Manager]"; - mes "Seems like the value you entered is too small."; - mes "I know you've got more. Be honest, dear."; - next; - break; - } - - if (countitem(7946) < .@input) { - mes "[Valentine Vote Manager]"; - mes "Seems like the value you entered is too large."; - mes "I know you've got less. Be honest, dear."; - next; - break; - } - - mes "[Valentine Vote Manager]"; - mes "I'll take those gold rings, and count the votes for you."; - mes "Thank you for participating."; - delitem 7946,.@input; - set Val09Rings,Val09Rings+.@input; - if (Val09Rings > $Val09votes_F) { - set $Val09votes_F,Val09Rings; - set $Val09name_F$,strcharinfo(0); - } - next; - break; - } - case 2: - mes "[Valentine Vote Manager]"; - mes "Let's see..."; - mes "You have registered...."+Val09Rings+" rings so far."; - mes "and..."; - next; - mes "[Valentine Vote Manager]"; - mes "The current record shows... "+$Val09name_M$+" is the male vote leader who's registered the total of "+$Val09votes_M+" rings."; - next; - mes "[Valentine Vote Manager]"; - mes "The current record shows... "+$Val09name_F$+" is the female vote leader who's registered the total of "+$Val09votes_F+" rings."; - next; - break; - - case 3: - mes "[Valentine Vote Manager]"; - mes "Hey, you can be popular too!"; - mes "Anyone can... really!"; - mes "Though you have to try a lot harder, but still~ Hahaha!"; - close; - } - } -} - -// Charles Orleans (Makes Home-Made Chocolates) -prt_castle,42,35,3 script Dessert Manager#Val09 47,{ - if (Sex) { - mes "[Charles Orleans]"; - mes "Monsieur~! What brings you to my beautiful atelier?"; - mes "What is it that you want?"; - mes "Well, my sparkling eyes get dried and lose their shine if not for the pretty little lady."; - next; - mes "[Charles Orleans]"; - mes "Please leave me alone unless you have business with me."; - mes "Haaaa~ I'm a busy person."; - mes "Don't bother me...."; - mes "Annoying, annoying, annoying~~!"; - close; - } - - mes "[Charles Orleans]"; - mes "Oh, Mademoiselle!"; - mes "This little trifling space felt like heaven the minute you walked in!"; - mes "Can I help you with anything, if it's alright?"; - next; - if(select("Please, make me some chocolate.:Don't bother. I'm just passing by.") == 2) { - mes "[Charles Orleans]"; - mes "Ahhh, this is so heartbreaking."; - mes "How could you say that?"; - mes "You're just so mean."; - mes "Don't bother? Just passing by?"; - next; - mes "[Charles Orleans]"; - mes "What can I do to make you"; - mes "pay a little attention to me?"; - mes "Please.. I feel like my soul is lost.."; - close; - } - if(countitem(558) < 3) { - mes "[Charles Orleans]"; - mes "Ahhh, Mademoiselle."; - mes "I'm not an alchemist, or a magician."; - mes "I don't just make chocolate out of anything."; - next; - mes "[Charles Orleans]"; - mes "I always think of making chocolate as artistic work."; - mes "You see, I'm no ordinary cook..."; - mes "I make chocolate with feelings.."; - mes "messages of loving hearts.."; - next; - mes "[Charles Orleans]"; - mes "I make masterpieces."; - mes "No one can imitate the looks and the taste."; - mes "Yes, it's nothing like ordinary chocolate!"; - next; - mes "[Charles Orleans]"; - mes "I'm afraid I can't make it and prove it to you now."; - mes "This is really a shame!"; - next; - mes "[Charles Orleans]"; - mes "I really want to thank you for visiting me and if you only bring ^3152ff3 Chocolates^000000, I'll make you chocolate like you've never seen..."; - next; - mes "[Charles Orleans]"; - mes "never tasted before..."; - mes "Mademoiselle, with your spirit, I'm sure you can bring 3 pieces of chocolate."; - mes "I have no doubt at all."; - next; - mes "[Charles Orleans]"; - mes "So... what do you think?"; - mes "Can you bring ^3152ff3 Chocolates^000000?"; - mes "I could get them myself, but I'm tied up with so much work as you see right now."; - next; - mes "[Charles Orleans]"; - mes "Adios, Mademoiselle....."; - mes "I'll be waiting for you."; - close; - }else{ - if (!checkweight(559,1)) { - mes "[Charles Orleans]"; - mes "You're carrying too many items."; - mes "Please use the Kafra Services."; - close; - } - mes "[Charles Orleans]"; - mes "Oh, Mademoiselle!"; - mes "I'll make the best chocolate with the pieces you've brought."; - mes "I'm going to put the light of your eyes into this chocolate that no one can resist."; - next; - mes "[Charles Orleans]"; - mes "It'll be stronger than a sweet sweet love potion....."; - next; - mes "[Charles Orleans]"; - mes "Un, Deux, Trois, Quatre....."; - mes "Just like the ugly duckling that turned to a beautiful swan-"; - mes "Ordinary chocolate pieces are becoming a piece of art!"; - next; - mes "[Charles Orleans]"; - mes "They're changing!"; - mes "They're getting warm, softly changing the shape, getting stronger again!"; - mes "Oh, is it a master piece or"; - mes "what...!!"; - next; - mes "[Charles Orleans]"; - mes "Here you go, Mademoiselle!"; - mes "Ahahahaha, just look at this!"; - mes "I can't believe I made this."; - mes "Oh, I can't take my eyes off..!!"; - delitem 558,3; - getitem 559,1; - next; - mes "[Charles Orleans]"; - mes "Alright. Mademoiselle,"; - mes "I hope this is just what you wanted, for it bears your beautiful heart inside."; - close; - } - -} |