You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
286 lines
9.6 KiB
Plaintext
286 lines
9.6 KiB
Plaintext
4 months ago
|
//===== rAthena Script =======================================
|
||
|
|
//= Valentine Event Script + EXP bonus
|
||
|
|
//===== By: ==================================================
|
||
|
|
//= Lupus (based on Muad_Dib's work)
|
||
|
|
//===== Current Version: =====================================
|
||
|
|
//= 1.1
|
||
|
|
//===== Compatible With: =====================================
|
||
|
|
//= rAthena Project; SVN r4500+
|
||
|
|
//===== Description: =========================================
|
||
|
|
// Close to other official stValentine event (added white chocolate)
|
||
|
|
// Custom: Handmade choco gives some EXP bonuses to married people
|
||
|
|
//===== Additional Comments: =================================
|
||
|
|
//= WARNING!! To use this event, disable original valentinesday.txt
|
||
|
|
//= You can use this event from 12 till 16 February 8) [Lupus]
|
||
|
|
//= 1.1 Removed Duplicates [Silent]
|
||
|
|
//============================================================
|
||
|
|
|
||
|
|
// Tine - Valentine Event Chocolate Even Guide ------------------
|
||
|
|
prontera,156,172,4 script Tine 58,{
|
||
|
|
// Debug info for item effects and tricky conditions 8)
|
||
|
|
// mes "@dsv: "+@dsv;
|
||
|
|
// mes "ispartneron()=="+ispartneron();
|
||
|
|
// mes "Sex == "+Sex;
|
||
|
|
// if(@dsv == gettime(DT_HOUR)+1) mes "@dsv == gettime(DT_HOUR)+1";
|
||
|
|
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "The legend says that on 14th February... on the Day of Saint Valentine...";
|
||
|
|
mes "Only in Run-Midgard kingdom...";
|
||
|
|
next;
|
||
|
|
specialeffect EF_HITBODY;
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "Some married chocolate lovers almost double their experience at trainings!";
|
||
|
|
mes "But everything isn't so simply...";
|
||
|
|
next;
|
||
|
|
menu "Wow! Tell me more!",M_INFO,"Marri... what?",-;
|
||
|
|
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "Are you a single?";
|
||
|
|
mes "Today is a great date to ask your beloved half for marriage!";
|
||
|
|
next;
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "The Marriage fee is ridiculous low these days!";
|
||
|
|
close;
|
||
|
|
|
||
|
|
M_INFO:
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "The magic effect possesses only handmade chocolate from grand-grand-grand-whoever recipes!";
|
||
|
|
next;
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "It being known that Black Handmade Chocolate works on married guys... And the White one on the married girls!";
|
||
|
|
mes "If you lose your wedding ring... then alas, it won't work on you.";
|
||
|
|
next;
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "On having a Chocolate, you should put off your ring then... put it back... And if your partner is online, then magic would last till the next hour!";
|
||
|
|
next;
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "Rumors bark that guys and gals have +50% EXP bonuses on FIVE different races of the monsters... Excluding bloody bosses, of course.";
|
||
|
|
next;
|
||
|
|
mes "[Tine]";
|
||
|
|
mes "There's a famous confectioner in the Castle of Prontera! He's the one you need.";
|
||
|
|
close;
|
||
|
|
|
||
|
|
OnInit:
|
||
|
|
//559,Hand-made_Chocolate
|
||
|
|
setitemscript 559,"{ itemheal 50,50; if(Sex==SEX_FEMALE || @dsv == gettime(DT_HOUR)+1 || ispartneron()==0)end; set @dsv,gettime(DT_HOUR)+1; misceffect EF_MAGNUS; }";
|
||
|
|
//560,Hand-made_White_Chocolate
|
||
|
|
setitemscript 560,"{ itemheal 50,50; if(Sex==SEX_MALE || @dsv == gettime(DT_HOUR)+1 || ispartneron()==0)end; set @dsv,gettime(DT_HOUR)+1; misceffect EF_MAGNUS; }";
|
||
|
|
|
||
|
|
//2634,Wedding_Ring_M,Wedding Ring,5,,10,0,,0,,0,127918079,7,1,136,,0,0,0,{ skill 334,1; skill 335,1; skill 336,1; }
|
||
|
|
setitemscript 2634,"{ skill 334,1; skill 335,1; skill 336,1; if(@dsv == gettime(DT_HOUR)+1 && ispartneron()){ bonus2 bExpAddRace,5,50; bonus2 bExpAddRace,6,50; bonus2 bExpAddRace,7,50; bonus2 bExpAddRace,8,50; bonus2 bExpAddRace,1,50; } }";
|
||
|
|
//2635,Wedding_Ring_F,Wedding Ring,5,,10,0,,0,,0,127918079,7,0,136,,0,0,0,{ skill 334,1; skill 335,1; skill 336,1; }
|
||
|
|
setitemscript 2635,"{ skill 334,1; skill 335,1; skill 336,1; if(@dsv == gettime(DT_HOUR)+1 && ispartneron()){ bonus2 bExpAddRace,0,50; bonus2 bExpAddRace,9,50; bonus2 bExpAddRace,2,50; bonus2 bExpAddRace,3,50; bonus2 bExpAddRace,4,50; } }";
|
||
|
|
end;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Stephen - Valentine Event Chocolate seller ------------------
|
||
|
|
alberta,26,243,4 script Stephen#val1 58,{
|
||
|
|
mes "[Stephen]";
|
||
|
|
mes "Guess what I've got?";
|
||
|
|
mes "A tasty treat not easily found in 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 than 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 of me.";
|
||
|
|
close;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Jainie -- Gives information about Valentine Event ------------------------
|
||
|
|
alberta,29,243,4 script Jainie#val1 53,{
|
||
|
|
mes "[Jainie]";
|
||
|
|
mes "You know what? The chocolate that my boyfriend sells are from me!";
|
||
|
|
mes "I made them by myself. Now I need some Milk for my special White Chocolate.";
|
||
|
|
next;
|
||
|
|
mes "[Jainie]";
|
||
|
|
mes "You know ... In certain 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 white chocolates for a while so...";
|
||
|
|
next;
|
||
|
|
menu "I want some white chocolate!",M_CHOCO,"No thanks.",-;
|
||
|
|
|
||
|
|
mes "[Jainie]";
|
||
|
|
mes "You don't like white chocolate?";
|
||
|
|
mes "Then buy some Stephen's black one!";
|
||
|
|
close;
|
||
|
|
|
||
|
|
M_CHOCO:
|
||
|
|
mes "[Jainie]";
|
||
|
|
mes "I can't sell you more than 5 at once....but, if you really need more....";
|
||
|
|
mes "you can come back again.";
|
||
|
|
mes "So how many do you want? 1 portion is 4500z + 1 Milk.";
|
||
|
|
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*4500;
|
||
|
|
if (Zeny < @needmon) goto L_NOTENO;
|
||
|
|
if (countitem(519) < @flag_num) goto L_NOMILK;
|
||
|
|
set Zeny,Zeny - @needmon;
|
||
|
|
delitem 519,@flag_num;
|
||
|
|
getitem 561,@flag_num;
|
||
|
|
mes "[Jainie]";
|
||
|
|
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 "[Jainie]";
|
||
|
|
mes "I'm sorry but I can't give you that many.";
|
||
|
|
L_NONE:
|
||
|
|
close;
|
||
|
|
|
||
|
|
L_NOTENO:
|
||
|
|
mes "[Jainie]";
|
||
|
|
mes "I'm sorry but it seems you can't afford to buy these of me.";
|
||
|
|
close;
|
||
|
|
|
||
|
|
L_NOMILK:
|
||
|
|
mes "[Jainie]";
|
||
|
|
mes "You need "+@flag_num+" Milk for "+@flag_num+" portions of my special White Chocolate...";
|
||
|
|
close;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Carl Orleans -- Valentine Event Chocolate maker ------------------
|
||
|
|
prt_castle,54,34,4 script Carl Orleans#val1 47,{
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Yes? What can I cook for you?";
|
||
|
|
next;
|
||
|
|
menu "Black handmade Chocolate, please",-,"I want a White handmade Chocolate...",M_WHITE,"I'm lost, sorry to bother you.",M_END;
|
||
|
|
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Well, I just might be able to fulfill your needs...";
|
||
|
|
next;
|
||
|
|
if (countitem(558)<3) {
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "I'm sorry you do not have enough Chocolate Bars to do this.";
|
||
|
|
if(rand(2))mes "They say Stephen from Alberta used to sell good Chocolate.";
|
||
|
|
close;
|
||
|
|
}
|
||
|
|
delitem 558,3;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "You got 3 pieces of pure chocolate I see.";
|
||
|
|
mes "Give them to me...";
|
||
|
|
next;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Ok, now I will only create my special handmade chocolates if you promise to use it wisely.";
|
||
|
|
next;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "....Hmmmmmm.....";
|
||
|
|
mes "Well...";
|
||
|
|
next;
|
||
|
|
getitem 559,1;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Here.";
|
||
|
|
if(rand(2))close;
|
||
|
|
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 "[Carl Orleans]";
|
||
|
|
mes "Enjoy.";
|
||
|
|
close;
|
||
|
|
|
||
|
|
M_WHITE:
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Well, I just might be able to fulfill your needs...";
|
||
|
|
next;
|
||
|
|
if (countitem(561)<3) {
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "I'm sorry you do not have enough White Chocolate Bars to do this.";
|
||
|
|
if(rand(2))mes "They say Jainie from Alberta used to sell good White Chocolate.";
|
||
|
|
close;
|
||
|
|
}
|
||
|
|
delitem 561,3;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "You got 3 pieces of pure white chocolate I see.";
|
||
|
|
mes "Give them to me...";
|
||
|
|
next;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Ok, now I will only create my special handmade chocolates if you promise to use it wisely.";
|
||
|
|
next;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "....Hmmmmmm.....";
|
||
|
|
mes "Well...";
|
||
|
|
next;
|
||
|
|
getitem 560,1;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Here.";
|
||
|
|
if(rand(2))close;
|
||
|
|
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 "[Carl Orleans]";
|
||
|
|
mes "Enjoy.";
|
||
|
|
close;
|
||
|
|
|
||
|
|
M_END:
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "Oh.. well, if you want me to make some of my special handmade Chocolate....";
|
||
|
|
mes "You will need to give me at least ^0000FF 3 Chocolates^000000 or ^0000FF 3 White Chocolates^000000.";
|
||
|
|
if(rand(2))close;
|
||
|
|
next;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "That's right, only ^0000FF 3 Chocolates^000000 or ^0000FF 3 White Chocolates^000000.";
|
||
|
|
mes "Bring them to me and you'll get what you came for.";
|
||
|
|
if(rand(2))close;
|
||
|
|
next;
|
||
|
|
mes "[Carl Orleans]";
|
||
|
|
mes "See You.";
|
||
|
|
close;
|
||
|
|
}
|