//===== eAthena Script =======================================
//= Thief Skills Quests
//===== By: ==================================================
//= kobra_k88
//===== Current Version: =====================================
//= 1.4a
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= Sand Attack, Back Slide, Find Stone, Stone Fling skill quests.
//===== Additional Comments: =================================
//= v1.0 Fully working
//= v1.1 Changed Sand Attack requirements from 5 Grit to 5 Fine Grit and a
//= Leather Bag of Infinity. These are the official RO requirements
//= Added npc RuRumuni, maker of Leather Bag of Infinity. [kobra_k88]
//= v1.1a 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 exploit [Lupus]
//= 1.4a Fixed some typos [IVBela]
//============================================================
//======================================================================================================
moc_prydb1.gat,154,128,4 script Alcouskou 118,{
mes "[Alcouskou]";
if(baseClass == Job_Thief) goto L_Start;
if(BaseJob==Job_Novice) goto L_Novice;
L_Other:
mes "Your kind isn't welcome here.";
close;
L_Novice:
mes "Although thieves and assassins have basic skills which aid them in their jobs, most don't have the 'special' skills which can make them truly great!";
next;
mes "[Alcouskou]";
mes "I just happen to be the ONLY one who can teach them these skills!";
mes "If you ever decide to become a Thief or an Assassin, come back here and I'll teach you these cool skills.";
next;
mes "[Alcouskou]";
mes "And if you know anyone who already is one, send them to me. I'm willing to teach anyone who's interested.";
close;
L_Start:
mes "During the course of your life you will experience many things.";
mes "You many have trouble understanding the importance of some of these experiences, and may even consider them to be useless to you.";
next;
mes "[Alcouskou]";
mes "But do not be to hasty with your judgement of them, for some of these experience may actually prove to be beneficial for you.";
next;
mes "[Alcouskou]";
mes "Let me explain:";
M_Menu:
next;
menu "-Sand Attack",M_Sand, "-Back Slide",M_Back, "-Find Stone",M_Find, "-Stone Fling",M_Fling, "-I will be back later.",M_End;
M_Sand:
mes "[Alcouskou]";
if(SANDATTACK == 1) goto L_Sand;
if(getskilllv(149) > 0) goto L_GotSand;
mes "The most important aspect of being a good Thief/Assassin is stealth. One should never be seen or touched unless he/she wants to be";
next;
mes "[Alcouskou]";
mes "Some may consider this cowardly but I don't see it that way.";
mes "We live in a world where it is the survival of the fittest and you must do whatever it takes to survive.....";
next;
mes "[Alcouskou]";
mes "Even if this means throwing sand in an enemy's face. That is why the skill, ^5555FFSand Attack^000000, was created.";
next;
mes "[Alcouskou]";
mes "This skill allows the user to throw and kick sand in the eyes of an opponent, temporarily blinding them.";
mes "This effectively impairs the opponent's ability to defend or attack giving the user a brief but great advantage.";
next;
mes "[Alcouskou]";
mes "In order to learn this skill you will need to gather ^5555FF5 Fine Grit^000000 and a ^FF3355'Leather Bag of Infinity'^000000.";
if(BaseJob == Job_Thief) mes "You will also need a job level of at least ^5555FF25^000000.";
next;
mes "[Alcouskou]";
mes "You can find the Leather Bag of Infinity by talking to a merchant by the name of ^5533FFRuRumuni^000000.";
mes "He can be found in the ^009500West end of Payon^000000.";
next;
mes "[Alcouskou]";
mes "Come back when you are ready.";
set SANDATTACK, 1;
goto M_Menu;
M_Back:
mes "[Alcouskou]";
if (BACKSLIDE == 1)goto L_Back;
if (getskilllv(150)>0) goto L_GotBack;
mes "People tend to focus on attack and damage, but it's necessary to understand that FLEEING is JUST AS IMPORTANT as attacking!";
next;
mes "[Alcouskou]";
mes "We thieves/assassins pride ourselves on our speed and ability to quickly dodge.";
mes "Of course I'm sure you've noticed that there is a downside to that speed and quickness.....";
next;
mes "[Alcouskou]";
mes "If we DO get hit, depending on the monster, that single hit could put us in serious danger!";
next;
mes "[Alcouskou]";
mes "I can understand how funny it is to watch a monster constantly miss while its attacking you, but......";
next;
mes "[Alcouskou]";
mes "If you get attacked by a large group of monsters..... you may not even have room to dodge and that won't be at all funny.";
next;
mes "[Alcouskou]";
mes "That's why most Thieves/Assassins fear large mobs and will flee at the first sign of them.";
mes "There are those however, that do not fear being overwhelmed by a large mob.";
next;
mes "[Alcouskou]";
mes "These are the people who have learned a unique skill that allows them to deal with mob situations.";
mes "The skill enables the user to quickly 'back' out of the way of a mob, putting a great deal of distance between the two.";
next;
mes "[Alcouskou]";
mes "The skill is called ^5555FFBack Slide^000000 and requires a lot of practice to master.";
mes "If you wish to learn this skill you will first need to bring in ^5555FF20 Grasshopper's Legs^000000.";
next;
mes "[Alcouskou]";
mes "Think of it as the first part of your training.";
if(BaseJob == Job_Thief) mes "If you are a Thief, you will also need to have a job level of at least ^5555FF35^000000.";
set BACKSLIDE, 1;
goto M_Menu;
M_Find:
mes "[Alcouskou]";
if (FINDSTONE == 1) goto L_Find;
if (getskilllv(151)>0) goto L_GotFind;
mes "The more experienced and better skilled members of our guild are quite handy.";
mes "They can turn something as common as a rock on the ground into a very effective weapon.";
next;
mes "[Alcouskou]";
mes "They can throw a rock at a far away target with great accuracy and strength.";
mes "They can throw it so powerfully that sometimes an enemy will become stunned by it.";
next;
mes "[Alcouskou]";
mes "Of course not every stone can be used as a weapon. That is why the skill, ^5555FFFind Sone^000000, was developed.";
mes "With practice one can learn to pick out a stone that has a weight and shape that is fit for 'flinging'.";
next;
mes "[Alcouskou]";
mes "Once mastered a Thieve/Assassin will be able to pick up stones from any location.";
mes "Think about it... the ability to use a long range weapon without spending any zeny.... isn't it great?";
next;
mes "[Alcouskou]";
mes "If you want to learn this skill you must do a little training first. Start by picking up ^5555FF1 Bear's Footskin^000000.";
mes "Then try to find ^5555FF1 Zargon^000000. Next pick out ^5555FF5 Spawn^000000. Once you've done all this come back and see me.";
next;
mes "[Alcouskou]";
mes "Collecting those items will help you develop the skills necessary to learn Find Stone.";
set FINDSTONE, 1;
goto M_Menu;
M_Fling:
mes "[Alcouskou]";
if (STONEFLING == 1) goto L_Fling;
if (getskilllv(152)>0) goto L_GotFling;
mes "The more experienced and better skilled members of our guild are quite handy.";
mes "They can turn something as common as a rock on the ground into a very effective weapon.";
next;
mes "[Alcouskou]";
mes "They can throw a stone at a target far away with great accuracy and strength.";
mes "They can throw it so powerfully that sometimes an enemy will become stunned by it.";
next;
mes "[Alcouskou]";
mes "These guild members call this skill ^5555FFStone Fling^000000. It is extremely useful and doesn't cost any zeny.";
next;
mes "[Alcouskou]";
mes "If you wish to learn Stone Fling you must first bring me ^5555FF2 Garlet and 2 Scell^000000.";
mes "You will also need to have mastered ^5555FFFind Stone^000000 as well.";
set STONEFLING, 1;
goto M_Menu;
M_End:
mes "[Alcouskou]";
mes "It seems that you are not experienced enough yet....";
close;
L_Sand:
if (countitem(7041)<5 || countitem(7042)<1) goto L_NotRdy1;
if (BaseJob==Job_Thief && JobLevel<25) goto L_LowLvl1;
delitem 7041, 5;
delitem 7042, 1;
mes "Alright, you've got all the items. Now it's time to learn.... the... ultimate.... attack.... Sand Attack!!!";
next;
mes "[Alcouskou]";
mes "Look down at your feet. See that? The very thing your stepping on is the secret behind this skill......... SAND!!";
next;
mes "[Alcouskou]";
mes "Okay, grab a handful....... yep, that much will do....... now.........";
next;
mes "[Alcouskou]";
mes "THROW IT AT ME!!!";
emotion e_go;
next;
mes "[Alcouskou]";
mes "(AHHH!! My EYES!!! Son of a)......... ya see how effective that was........ (JEEZE that STINGS!!).......";
emotion e_omg;
next;
mes "[Alcouskou]";
mes "Anyways that's all there is too it....... (CRAP that's a lot of sand!!).... So yeah, Sand Attack, use it as a last resort...... (AWW MAN!!)";
next;
mes "[Alcouskou]";
mes "Oh and it does Earth Property damage....... (I gotta find a better way to teach this).........";
emotion e_swt;
skill 149,1,0;
set SANDATTACK, 0;
set BAGNFNTY, 0;
close;
L_NotRdy1:
mes "You need ^5555FF5 Fine Grit^000000 and a ^FF3355'Leather Bag of Infinity'^000000.";
next;
mes "[Alcouskou]";
mes "You can find the Leather Bag of Infinity by talking to a merchant by the name of ^5533FFRuRumuni^000000.";
mes "He can be found in the ^009500West end of Payon^000000.";
close;
L_LowLvl1:
mes "You need to have a ^5555FFJob level of 25^000000 to learn Sand Attack.";
close;
L_GotSand:
mes "Oh you're back... hopefully not to throw any more sand in my eyes, heh heh.... heh........ heh..............";
emotion e_swt;
close;
L_Back:
if (countitem(940)<20) goto L_NotRdy2;
if (BaseJob==Thief && JobLevel<35) goto L_LowLvl2;
delitem 940,20;
mes "Great, you have the grasshopper legs. While you were collecting them I'm sure you picked up on many of the characteristics of grasshoppers.";
next;
mes "[Alcouskou]";
mes "You will need that knowledge because this skill is based on the movement of the grasshopper. Like it you will become quick, agile, and have a keen eyesight.";
next;
mes "[Alcouskou]";
mes "Okay, lets begin........";
next;
mes "~fwoosh~";
next;
mes "~fwooooosh~";
next;
mes "~fwoooooooooooooooosh~";
next;
mes "[Alcouskou]";
mes "Ah! You've got it. Just like a pro. With this skill being overwhelmed by mobs is a thing of the past.";
skill 150,1,0;
set BACKSLIDE, 0;
close;
L_NotRdy2:
mes "You need ^5555FF20 Grasshopper's Legs^000000.";
close;
L_LowLvl2:
mes "You need a ^5555FFJob level of 35^000000 to learn Back Slide.";
close;
L_GotBack:
mes "Seeing as you already have Back Slide..... why don't you 'Back' on outta here.....";
close;
L_Find:
if (countitem(912)<1 || countitem(948)<1 || countitem(908)<5) goto L_NotRdy3;
delitem 912,1;
delitem 948,1;
delitem 908,5;
mes "Ah! I see that you're fully prepared to learn this skill. Let us begin....";
next;
mes "[Alcouskou]";
mes "There are many stones on the floor here. Pick them all up one by one and examine each one carefully.";
mes "Get a feel for how much each one weighs and become aware of how each one has a different texture.";
next;
mes "[Alcouskou]";
mes "You must become one with the stone... it is the only way you will be able to use it effectively...";
next;
mes "~ an hour later... ~";
next;
mes "[Alcouskou]";
mes "Very good. You have chosen some fine stones. This tells me that you have now perfected the Find Stone skill.";
emotion e_no1;
skill 151,1,0;
set FINDSTONE, 0;
next;
mes "[Alcouskou]";
mes "Have fun using it.";
close;
L_NotRdy3:
mes "You need ^5555FF1 Bear's Footskin, 1 Zargon, and 5 Spawns^000000 to learn Find Stone.";
close;
L_GotFind:
mes "Picking up stones can be fun but...... don't spend all day doing it OK?.....";
close;
L_Fling:
if (getskilllv(151) == 0) goto L_NotRdy4;
if ((countitem(910)<2) || (countitem(911)<2)) goto L_NotRdy4;
delitem 910,2;
delitem 911,2;
mes "Good! You look like you're ready for me to teach you the Stone Fling skill. Let us begin....";
next;
mes "[Alcouskou]";
mes "First, loosen up your arm. Next, find a good quality stone using Find Stone. Now close your eyes and visualize the target in your mind.";
next;
mes "[Alcouskou]";
mes "Now imagine yourself going straight through the target! Continue to visualize this!";
next;
mes "~ 1/2 hour later... ~";
next;
mes "[Alcouskou]";
mes "Think of the stone as an extension of your body. Keep the target clear in your mind! You are one with the stone, the stone is one with you.....";
next;
mes "[Alcouskou]";
mes "Open your eyes! SEE THE TARGET!! Throw the stone at the target as if you were hurling yourself towards it! DO IT NOW!!";
emotion e_go;
next;
mes "!!Whooooossshh!!................. !!Thwack!!";
next;
mes "[Alcouskou]";
mes "Haha! Excellent! It's a bullseye. You have now mastered Stone Fling, congratulations.";
emotion e_no1;
skill 152,1,0;
set STONEFLING, 0;
next;
mes "[Alcouskou]";
mes "As you can see this is a skill that relies heavily on concentration.";
mes "As long as you keep your mind focused you will have on problems using this skill.";
close;
L_NotRdy4:
mes "You need ^5555FF2 Scell and 2 Garlet^000000, and the ability to use ^5555FFFind Stone^000000 to learn Stone Fling.";
close;
L_GotFling:
mes "So Stone Fling is coming in handy huh? Just make sure you don't hit the wrong monster";
close;
}
//====================================================================================
payon.gat,91,77,4 script RuRumuni 99,{
mes "[RuRumuni]";
if(SANDATTACK == 1 && BAGNFNTY != 2) goto L_Start;
mes "I am a humble merchant here in Payon. I buy leather hides, brought in by the hunters, to make leather pouches to sell.";
mes "I grew up around leather and am quite good at working with it.";
next;
mes "[RuRumuni]";
mes "There is a Thief guild in the Morroc area.";
mes "I know someone there that sends me Thieves in need of the items I make, such as the ^5533FF'Leather Bag of Infinity'^000000.";
close;
L_Start:
if(BAGNFNTY == 1) goto L_Check;
mes "Hello. So you were sent by Alcouskou to obtain a ^5533FF'Leather Bag of Infinity'^000000........";
mes "I will be more than happy to make one for you............";
next;
mes "[RuRumuni]";
mes "But this bag is very special, and I will need some special items in order to make it.";
next;
set BAGNFNTY, 1;
L_List:
mes "[RuRumuni]";
mes "Here are the items that I will need:";
mes "- 5 ^5533FFScorpion Tails^000000";
mes "- 1 ^5533FFCobweb^000000";
mes "- 1 ^5533FFCactus Needle^000000";
mes "- 1 ^5533FFEarthworm Peeling^000000.";
next;
mes "[RuRumuni]";
mes "Once you have all of these items I will be able to make the Bag of Infinity for you.";
close;
L_Check:
mes "Nice to see you again. Do you have all of the items? Lets see........";
next;
if(countitem(904)<5 || countitem(1025)<1 || countitem(952)<1 || countitem(1055)<1) goto L_List;
delitem 904, 5;
delitem 1025, 1;
delitem 952, 1;
delitem 1055, 1;
mes "[RuRumuni]";
mes "Great you have everything I asked for. Let me start making the bag right away.......";
next;
mes "~( 30 minutes later )~";
next;
mes "[RuRumuni]";
mes "Here you go, one Leather Bag of Infinity. Enjoy!";
getitem 7042, 1;
set BAGNFNTY, 2;
close;
}
