From 620e60eebce2c1f35c5c9a82f6ca365b316587f5 Mon Sep 17 00:00:00 2001 From: Valaris Date: Sun, 29 Jan 2006 16:10:48 +0000 Subject: AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK. IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK. EVERYTHING ELSE GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/custom/quests/bandit_beard.txt | 234 +++++++++++++++++++++++++++++++++++++ 1 file changed, 234 insertions(+) create mode 100644 npc/custom/quests/bandit_beard.txt (limited to 'npc/custom/quests/bandit_beard.txt') diff --git a/npc/custom/quests/bandit_beard.txt b/npc/custom/quests/bandit_beard.txt new file mode 100644 index 000000000..8efb0243a --- /dev/null +++ b/npc/custom/quests/bandit_beard.txt @@ -0,0 +1,234 @@ +//===== eAthena Script ======================================= +//= Bandit Beard Quest +//===== By: ================================================== +//= Mega Man Expert & Lupus +//===== Current Version: ===================================== +//= 1.1b +//===== Compatible With: ===================================== +//= eAthena 0.5.2 + +//===== Description: ========================================= +//= A harmless quest for a simply item w/o any bonuses "Bandit Beard" +//===== Additional Comments: ================================= +//= Fully working. +//= 1.0 First release +//= 1.1 Fixed some exploits, bugs and typos. Optimized 8) [Lupus] +//= 1.1b fixed some typos +//============================================================ + +umbala.gat,126,129,4 script Bearded Man 120,{ + if(BEARD_QUEST == 4 ) goto L_MAKE; + if(BEARD_QUEST >= 5 ) goto L_DONE; + if(BEARD_QUEST >= 1 ) goto L_THREAD; + + mes "[Bearded Man]"; + mes "Beards! Get your wonderful beards!"; + mes "Would you like a beard?"; + next; + menu "Yes, I'd like some facial hair!",-,"No thanks, thats gross!",M_NO; + + mes "[Bearded Man]"; + mes "HoHo~ So you want some whiskers."; + emotion 18; + mes "Well I would give you my beards but there not cheap."; + mes "Matter of fact I have only one left..."; + mes "but I'm not selling it."; + mes "But don't get mad! I can make you one."; + next; + set BEARD_QUEST,1; +L_THREAD: + mes "[Bearded Man]"; + mes "I would need some ^8080FFThread^000000 for the Beard."; + mes "Talk to my friend in Izlude for some ^8080FFThread^000000."; + next; + + mes "[Bearded Man]"; + mes "Also I would need you to get me some things for the beard."; + mes "They are:"; +L_LIST: + mes "^8080FFElastic Band^000000"; + mes "^8080FF5 Animal Skins^000000"; + mes "^8080FFBlack Dye Stuff^000000"; + mes "^8080FFGranpa Beard^000000"; + mes "^8080FF100 sticky Mucus^000000"; + mes "^8080FFCounteragent^000000"; + mes " and one ^8080FF2 Carat Diamond^000000"; + close; + +M_NO: + mes "[Bearded Man]"; + mes "Fine, be that way!"; + emotion 7; + close; + +L_DONE: + mes "[Bearded Man]"; + mes "Sorry, I can only make one per person."; + mes "We dont want too many beards now. Right?"; + emotion 29; + close; + +L_MAKE: + mes "[Bearded Man]"; + mes "Let's make you your beard!"; + next; + if(countitem(7200) < 1 || countitem(919) < 1 || countitem(983) < 1 || countitem(2241) < 1 || + countitem(938) < 100 || countitem(973) < 1 || countitem(731) < 1) goto L_NOITEMS; + delitem 7200, 1; + delitem 919, 1; + delitem 983, 1; + delitem 2241, 1; + delitem 938, 100; + delitem 973, 1; + delitem 731, 1; + mes "^8080FF~You see him cutting and sewing the beard together~^000000"; + next; + mes "^8080FF~He hands you the finished beard~^000000"; + next; + getitem 2237, 1; + set BEARD_QUEST, 5; + mes "[Bearded Man]"; + mes "Have a nice day!"; + emotion 29; + close; + +L_NOITEMS: + mes "[Bearded Man]"; + mes "What the hell! I can't make a beard without the items!"; + mes "Here is the list again:"; + emotion 23; + goto L_LIST; +} + +//Master Tailor---------- +izlude_in.gat,123,175,4 script Master Tailor 50,{ + mes "[Master Tailor]"; + mes "Good evening! I am the Master Tailor!"; + if(BEARD_QUEST != 1 ) close; + + next; + mes "[Master Tailor]"; + mes "What? A Bearded Man sent you..."; + mes "Well I'm sorry to say that I am out of ^8080FFThread^000000."; + mes "But I have the address to where I get the shipments."; + mes "It is in Al de Baran Karfa Inc. warehouse area."; + mes "The address is: Al de Baran 59, 221"; + mes "See you later."; + set BEARD_QUEST, 2; + close; +} +// Karfa Thread Clerk--- +aldeba_in.gat,70,179,5 script Karfa Clerk 113,{ + mes "[Karfa Clerk]"; + if(BEARD_QUEST == 3 ) goto L_REPEAT; + if(BEARD_QUEST > 3 ) goto L_DONE; + + mes "What can I do for you?"; + next; + if(BEARD_QUEST == 2 ) goto L_DELIVERY; + + menu "What's in the boxes?",-,"Nothing.",M_NOPE; + + mes "[Karfa Clerk]"; + mes "They're empty."; +M_NOPE: + close; + +L_DELIVERY: + + mes "[Karfa Clerk]"; + mes "Sorry but we have not received any ^8080FFThread^000000."; + mes "Our shipments have been put off until its safe."; + mes "You see we get our ^8080FFThread^000000 from Alberta and a monsters keeps attacking our merchants."; + next; + mes "[Karfa Clerk]"; + mes "Now this monsters has not been doing this before."; + mes "It may have to do with the warmer months."; + mes "Please help us out!"; + set BEARD_QUEST,3; + next; + mes "[Karfa Clerk]"; +L_REPEAT: + mes "Oh by the way, that Thread Merchant is somewhere around Alberta 60 and 100..."; +L_DONE: + mes "Thank You!"; + close; +} + +//Thread Merchant ------ +alberta.gat,65,123,6 script Man 85,{ + if(BEARD_QUEST == 3 && $@beardMobD) goto L_KILLED; + if(BEARD_QUEST > 3) goto L_DONE; + + mes "[Thread Merchant]"; + mes "ARGGG!! I can never get my stuff to Al de Baran!"; + mes "I keep getting mobbed by some bugs."; + mes "They steal all my supplies and ^8080FFThread^000000."; + next; + mes "[Thread Merchant]"; + + if(BEARD_QUEST != 3) mes "What am I to do?"; + if(BEARD_QUEST != 3) close; + + if($@beardmob > 0) mes "Kill! Kill them already!!!"; + if($@beardmob > 0) close; + mes "Are you here to help me?"; + emotion 1; + next; + menu "Yes",-,"No",M_NO; + + mes "[Thread Merchant]"; + mes "Oh thank the Gods!"; + mes "If you can only just kill the bugs I would be able to make my delivery."; + next; + mes "[Thread Merchant]"; + mes "Oh NO! Here they come!!"; + emotion 19; + donpcevent "BRDQ_MOBS"; + close; + +L_KILLED: + set $@beardMobD,0; + mes "[Thread Merchant]"; + mes "Thank you for killing the Thief Bugs."; + mes "As a token of my gratitude here is a box full of ^8080FFThread^000000."; + set BEARD_QUEST,4; + close; + +L_DONE: + mes "[Thread Merchant]"; + mes "Thank you again!"; + emotion 15; + close; + +M_NO: + mes "[Thread Merchant]"; + mes "What to do..."; + close; +} + +//mobsummons ------- +alberta.gat,1,1,1 script BRDQ_MOBS -1,{ + set $@beardMob,10; + set $@beardMobD,0; + monster "alberta.gat",65,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",66,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",67,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",68,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",66,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",67,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",68,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",66,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",67,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + monster "alberta.gat",68,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie"; + end; +OnDie: + set $@beardmob, $@beardmob - 1; + if($@beardmob > 0) end; + set $@beardMobD,1; + end; +On1201: +On0001: + set $@beardMob,0; + set $@beardMobD,0; + end; +} \ No newline at end of file -- cgit v1.2.3-70-g09d2