//===== eAthena Script =======================================
//= Merchant Skills Quests
//===== By: ==================================================
//= kobra_k88
//===== Current Version: =====================================
//= 1.4b
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= <Description>
//===== Additional Comments: =================================
//= Fully working
//= v1.1 Bug fixes
//= v1.a Now using functions found in "Global_Functions.txt"
//= for class checks.[kobra_k88]
//= 1.2 Added Baby Class Support [Lupus]
//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
//= 1.4 Fixed exploits [Lupus]
//= 1.4a Fixed some typos [IVBela] 1.4b Gershaun -> Gershuan
//= changed perm. variables to temp ones [Lupus]
//============================================================
//--------------------------------------- Necko: Crazy Uproar--------------------------------\\
alberta.gat,89,96,5 script Necko#01 139,0,4,{
mes "[!?]";
mes "Muahahahahhhahahahahhahah!!";
mes "Pukakakakakkakakakakakakaka!!";
close;
}
alberta.gat,83,96,5 script Necko#02 98,{
mes "[Necko]";
if(baseClass == Job_Merchant) goto L_Start;
L_Other:
mes "Necko's store is closed right now. Come back later..... Hehe....";
close;
L_Start:
if(getskilllv(155)>0) goto L_GotSkill;
if(@CRAZYROAR) goto L_GetSkill;
mes "Oh! Did you come here because you were intrigued by my boisterous voice? My voice is quite loud, isn't it?";
mes "After all you heared it from a far off distance.";
emotion e_what;
next;
mes "[Necko]";
mes "I'll let you in on something....... My voice is more than just loud..... it's actually quite unique......";
next;
mes "[Necko]";
if(BaseJob==Job_Merchant && JobLevel < 15) goto L_JobLvl;
mes "You see, I know a skill that lets me shout in a way that actually helps me.... It is the ^3355FFCrazy Uproar^000000 skill!!!";
emotion e_ic;
next;
mes "[Necko]";
mes "Crazy Uproar uses your loud voice to boost your battle spirit!";
mes "The skill requires ^FF55338 sp^000000 to use and in turn you will receive an additional ^3355FF4 STR for 5 min^000000!!";
next;
mes "[Necko]";
mes "This skill is very useful. To learn it you must learn the essentials of sound. There was a singer in Payon that taught sound theory.......";
next;
mes "[Necko]";
mes "Unfortunately that person passed away so you can no longer learn those essentials..............";
mes "Aww.... you look disappointed.... Do you really want to learn Crazy Uproar??";
next;
mes "[Necko]";
mes "Hmm..... I will teach you then, that is, if you truly wish to learn. You will have to train your vocal cords.";
mes "You will also need to gather these items:";
next;
mes "[Necko]";
mes "- ^3355FF7 Pearls,";
mes "- 1 Banana juice,";
mes "- 50 Mushroom spores^000000.";
next;
mes "[Necko]";
mes "Come back when you are ready! I think I shall do a little vocal training myself........";
mes "Bbooowuuuuuuuuuuuuuuuuuuuuuuuuuh!!";
set @CRAZYROAR, 1;
close;
L_JobLvl:
mes "Once you've reached a ^3355FFjob level of 15^000000 come back and see me. I'll tell you all about the secret to my voice.....";
next;
mes "[Necko]";
mes "Uahahahahahahhahahahahahaha!";
mes "Kyukwakakakakkakakakakakkakaka!";
close;
L_GetSkill:
if((countitem(722)<7) || (countitem(532)<1) || (countitem(921)<50)) goto L_Items;
delitem 722,7;
delitem 532,1;
delitem 921,50;
mes "Oh You've gathered the items! Very good, very good. Now it's time to start your training.....";
next;
mes "[Necko]";
mes "Repeat after me: Fa fa fa fa fa.... So so so so so..... La la la la la.... Mi mi mi mi mi mi......";
next;
mes "~several hours later~";
next;
mes "[Necko]";
mes "Raaaaaawwwwrrrrrrrrrrr!....... Ha ha!! Excellent. Your voice is now finely tuned for ^3355FFCrazy Uproar^000000. Good job.";
skill 155,1,0;
set @CRAZYROAR, 0;
emotion e_no1;
close;
L_Items:
mes "You need to get these items for Crazy Uproar:";
mes "- ^3355FF7 Pearls,";
mes "- 1 Banana juice,";
mes "- 50 Mushroom spores^000000.";
close;
L_GotSkill:
mes "Hello again. I can tell by the sound of your mighty voice that you are becoming very good at Crazy Uproar.";
close;
}
//----------------------------------------- Charlron: Change cart ---------------------------------\\
alberta.gat,119,221,6 script Charlron 107,{
mes "[Charlron]";
if(baseClass == Job_Merchant) goto L_Start;
L_Other:
mes "I am a merchant that deals with many things. My name is Charlron. If you ever find anything interesting, come back and try to negotiate a deal with me.";
close;
L_Start:
if(getskilllv(154)>0) goto L_GotSkill;
if(@CHANGECART) goto L_GetSkill;
mes "Welcome young one. Is selling fun for you? I am the merchant Charlron.";
next;
mes "[Charlron]";
mes "Aren't you tired of your old, and plain looking cart? Well I can help.";
next;
mes "[Charlon]";
mes "I have been doing some research on cart design recently and have come up with some new and interesting designs for the cart.";
next;
mes "[Charlon]";
mes "I can change the way your cart looks for you. Of course some conditions need to be met......";
next;
mes "[Charlron]";
if(BaseJob==Job_Merchant && JobLevel < 30) goto L_JobLvl;
mes "First you will need to bring me these items:";
mes "^3355FF50 Trunks,";
mes "20 Animal Skin,";
mes "10 Iron^000000.";
set @CHANGECART, 1;
close;
L_JobLvl:
mes "I'm a pretty famous merchant, so I don't really do business with beginners but..........";
mes "Once you've reached ^3355FFjob level 30^000000 I may consider doing business with you.";
close;
L_GetSkill:
if((countitem(1019)<50) || (countitem(998)<10) || (countitem(919)<20)) goto L_Items;
mes "Oh good, you have all of the items. Well here you are..... Hmm?... Oh these are the design sheets for your cart.";
mes "Now that you have the proper materials, just follow these guides to make your cart look spectacular.";
// Note: It is not supposed to take these items, just check you have collected them
skill 154,1,0;
set @CHANGECART, 0;
next;
mes "[Charlron]";
mes "Good luck, see you around";
close;
L_Items:
mes "Come back when you've brought me these items:";
mes "^3355FF50 Trunks,";
mes "20 Animal Skin,";
mes "10 Iron^000000.";
close;
L_GotSkill:
mes "Heh heh... It's nice to see fancy looking carts like yours on the streets of town. Well back to the drawing board....";
close;
}
//-------------------------====-------- Gershaun: Cart Revolution ---------------------------------\\
alberta.gat,232,106,6 script Gershuan 57,{
if(baseClass == Job_Merchant) goto L_Start;
L_Other:
mes "[Gershuan]";
mes "If it doesn't work, make it work!";
mes "If it doesn't work, make it work!";
mes "If it doesn't work, make it work!";
close;
L_Start:
if(getskilllv(153)>0) goto L_GotSkill;
if(@CARTREVO) goto L_GetSkill;
mes "[Gershuan]";
mes "Hmm... a young merchant. You must use carts too right? Since you have to do all of that vending..... But is that all you use your cart for?";
emotion e_hmm;
next;
mes "[Gershuan]";
mes "I researched some ways of using the cart differently. One way involved cooking ramen and another involved jump-roping (don't ask).";
mes "Still none of my new ideas were satisfactory.";
next;
menu "I know what you mean.",M_0, "......???",M_1;
M_0:
mes "[Gershuan]";
mes "You KNOW what I MEAN!! HOW the HECK would YOU KNOW what I MEAN????";
emotion e_omg;
close;
M_1:
mes "[Gershuan]";
mes "In despair, I wandered through the fields with my cart. Day after day I did this.... I was in a daze....";
next;
mes "[Gershuan]";
mes "Then I crossed paths with a very strong monster! I knew immediately that my life was in danger!";
mes "I thought to myself, 'Why me! A weaponless, armorless merchant!?'";
emotion e_gasp;
next;
mes "[Gershuan]";
mes "I was scared to death... hoping that this would not be the end of me. With what strength I had left, I tried a desperation move.....";
emotion e_swt2;
next;
mes "[Gershuan]";
mes "I used my cart to attack the monster!!";
emotion e_gasp;
next;
mes "[Gershuan]";
mes "Just like that the monster was defeated!! Finally I had found another excellent use for the cart! A WEAPON!!!";
next;
mes "[Gershuan]";
mes "I called my newly found discovery ^3355FF'Cart Revolution'^000000!";
mes "By using ^FF553312 sp^000000 you can spin your cart around your body doing major damage to an enemy!";
emotion e_ic;
next;
mes "[Gershuan]";
mes "The heavier your cart is, the more damage it will do. Would you like to learn this skill?";
next;
menu "Yes!!",sM_0, "Actually I want to learn some sushi skills...",sM_1;
sM_0:
mes "[Gershuan]";
if(BaseJob==Job_Merchant && JobLevel < 35) goto ssL_LowLvl;
mes "OK! I will give you the special training for Cart Revolution. The first thing you will have to do is bring me these items:";
mes "^3355FF30 Sticky Mucus,";
mes "20 Fly wings,";
mes "15 Iron,";
mes "5 Tentacles,";
mes "2 Grape Juice^000000.";
next;
mes "[Gershuan]";
mes "Come back when you have all of these items. Good luck.";
set @CARTREVO, 1;
close;
ssL_LowLvl:
mes "[Gershuan]";
mes "OK! I will give you the special training for Cart Revolution.";
mes "But first you will have to get yourself to a ^3355FFjob level of 35^000000! After you've done that, then we can talk.";
close;
sM_1:
mes "[Sushi King Gershuan]";
mes "Stupid!! You're waaay to young to even try your hand at sushi!!";
emotion e_an;
close;
L_GetSkill:
if((countitem(533)<2) || (countitem(998)<15) || (countitem(938)<30) || (countitem(601)<20) || (countitem(962)<5)) goto sM_0;
delitem 533,2;
delitem 998,15;
delitem 938,30;
delitem 601,20;
delitem 962,5;
mes "[Gershuan]";
mes "It's good to see you again. I'm glad you were able to get all of the items. Take a minute to prepare, for your training is about to take place....";
next;
mes "[Gershuan]";
mes "First make sure your feet are shoulder width apart. Balance is key! Now get into a good crouch... grasp the handles of the cart firmly but not too tight...";
next;
mes "[Gershuan]";
mes "NOW SWING!!!";
next;
mes "[Gershuan]";
mes "Eh....... that was terrible.... Okay, lets try again.....";
emotion e_swt;
next;
mes "~many hours later~";
next;
mes "[Gershuan]";
mes "YES!!! FINALLY! I could REALLY FEEL the power in that swing!";
mes "Give yourself a good pat on the back because you have just mastered Cart Revolution!";
emotion e_no1;
next;
skill 153,1,0;
set @CARTREVO, 0;
mes "[Gershuan]";
mes "Take care of yourself and remember to fill that cart up so that it can do some major damage.";
emotion e_gg;
close;
L_GotSkill:
mes "[Gershuan]";
mes "So how do you like cart revolution? Remember, the ^3355FFheavier^000000 the cart, the ^3355FFgreater^000000 the damage.";
close;
}
