//===== eAthena Script =======================================
//= Treasure Hunter Script
//===== Converted By =========================================
//= Fredzilla
//= Original
//////////////////////////////////////////////////////////////
//                  Treasure Hunter Quests                  //
//                       By: Ezekial                        //
//             for the use on nRO run by Newbe5             //
//                    revised By Warlock                    //
//////////////////////////////////////////////////////////////
//===== Version ==============================================
//= 1.4
//===== Compatible With ======================================
//= eAthena 1.0
//===== Description ==========================================
//= Start for Treasure hunter quests
//===== Comments =============================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//= 1.0 - Straight conversionof Aegis NPC file
//= 1.2 some bugfixes, typos [Lupus]
//= 1.3 Removed Duplicates [Silent]
//= 1.4 Further removed duplicates. [L0ne_W0lf]
//============================================================


///////Job list 1///////
//1-1
mjolnir_09,187,189,6	script	Old Man	107,{
	if (one_qset==1) goto N_QuestStart;
	mes "[Old Man]";
	mes "Eh! Can't and old man walk in peace anymore?!";
	close;
N_QuestStart:
	mes "[Old Man]";
	mes "Eh? whats that?!";
	mes " ";
	mes "My wife wants me home?! Alright, alright... I'm going, I'm going. Thank you for telling me the message.";
	mes " ";
	mes "Here take this Treasure Token.";
	set one_qset,0;
	set On_Quest,0;
	set #Treasure_Token,#Treasure_Token+1;
	close;
}
//1-2;
pay_arche,86,129,6	script	Archer	732,{
	if (one_qset == 2) goto N_QuestStart;
	mes "[Kieth]";
	mes "Sorry can't talk, I'm a busy man, I'm waiting for my package.";
	close;
N_QuestStart:
	mes "[Kieth]";
	mes "Ahh, you must be from the Treasure Hunter Agensy. Do you have my bow??";
	mes " ";
	mes "Ahh, good,thank you for your time. Take this Treasure Token.";
	set one_qset,0;
	set On_Quest,0;
	delitem 1072,1;
	set #Treasure_Token,#Treasure_Token+1;
	close;
}
//1-3
prt_fild06,37,192,6	script	Farmer	125,{
	if (one_qset == 3 && countitem(909) > 19 && countitem(955) > 19 && countitem(914) > 19 && countitem(705) > 19) goto N_QuestComp;
	if (one_qset==3) goto N_QuestStart;
	mes "[Billy-Bob]";
	mes "Arrrg!... Those Bastard Bugs have eaten everything, this place donest even look like my farm anymore!!";
	close;
N_QuestComp:
	mes "[Billy-Bob]";
	mes "Ohhh, thank you thats a good start for me.";
	mes "Well those bugs can bugger off...";
	mes " ";
	mes "Well here take these 2 Treasure Tokens.";
	set one_qset,0;
	set #Treasure_Token,#Treasure_Token+2;
	set On_Quest,0;
	delitem 909,20;
	delitem 955,20;
	delitem 914,20;
	delitem 705,20;
	close;
N_QuestStart:
	mes "[Billy-Bob]";
	mes "Those Bastard Bugs are Everywere!!!";
	mes "You must be from the guild! OK, bring me 20 Worm Peelings, 20 Jellopys, 20 fluff and 20 Clovers.";
	close;
}
//1-4
prontera,264,353,6	script	Old Lady#thq	103,{
	if (one_qset == 4 && countitem(934) > 14) goto N_QuestComp;
	if (one_qset == 4) goto N_QuestStart;
	mes "[Old Lady]";
	mes "This is my husbands grave... I'm just paying him a little visit.";
	close;
N_QuestComp:
	mes "[Old Lady]";
	mes "You have them?!";
	next;
	mes "[Old Lady]";
	mes "Thank you sooo much here have these 3 Treasure Tokens.";
	set #Treasure_Token,#Treasure_Token+3;
	delitem 934,15;
	set one_qset,0;
	set On_Quest,0;
	close;
N_QuestStart:
	mes "[Old Lady]";
	mes "So your the one that has come to help me?";
	mes " ";
	mes "Ok well this is what I wanted you to do,this greave beside me is my husbands grave and I promised him that I would bury some Mementos with him, The problem is that I have no Mementos...";
	next;
	mes "[Old Lady]";
	mes "Bring me 15 Mementos, please.";
	close;
}
///////Job list 2///////
//2-1;
morocc,59,109,6	script	Erika	700,{
	if (two_qset == 1 && countitem(1072) > 0) goto N_QuestComp;
	if (two_qset == 1) goto N_QuestStart;
	mes "[Erika]";
	mes "Hello my name is Erika.";
	close;
N_QuestComp:
	mes "[Erika]";
	mes "What's that? You have a letter for me!!";
	mes "Oooooh I just love,love letters :D. next here will I open it.";
	next;
	mes "[Letter]";
	mes "Dear Erika";
	mes " ";
	mes "Sorry to inform you but you have been evicted, please move out within 3-5 days.";
	mes " ";
	mes "-Managment";
	next;
	mes "[Erika]";
	mes "Oh... um... Well fuck, that bastard thinks he can kick me out!!!!! He's got another thing coming!";
	mes " ";
	mes "Well thank you for delivering this anyway have this Treasure Token.";
	delitem 1072,1;
	set two_qset,0;
	set #Treasure_Token,#Treasure_Token+1;
	set On_Quest,0;
	close;
N_QuestStart:
	mes "[Erika]";
	mes "So your the one that has a letter for me?";
	mes " ";
	mes "Ok well where's the letter?";
	close;
}
//2-2;
in_moc_16,15,30,6	script	Jeramiah	730,{
	if (two_qset == 2 && countitem(1998) > 0) goto N_QuestComp;
	if (two_qset == 2) goto N_QuestStart;
	mes "[Jeramiah]";
	mes "Its so boring when you have to next on people...";
	close;
N_QuestComp:
	mes "[Jeramiah]";
	mes "Ahh hello, you must be from the Treasure Hunter Guild.";
	mes "Do you have my Jur? Ahh good good. Thank you.";
	mes "Here have this Treasure Hunter Token.";
	set two_qset,0;
	set On_Quest,0;
	delitem 1998,1;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Jeramiah]";
	mes "So your the one that is supposed to bring my Jur?";
	mes "So where's my Jur?";
	close;
}
//2-3;
prt_fild07,316,263,6	script	Marsh Man	84,{
	if (two_qset == 3 && countitem(518) > 19) goto N_QuestComp;
	if (two_qset == 3) goto N_QuestStart;
	mes "[Lenith]";
	mes "Hello, sorry I don't have much time to talk I'm waiting for someone.";
	close;
N_QuestComp:
	mes "[Lenith]";
	mes "Oh hello, OH you have my honey, my bees and I thank you.";
	mes " ";
	mes "Here have these 2 Treasure Hunter Tokens.";
	delitem 518,20;
	set #Treasure_Token,#Treasure_Token+2;
	set two_qset,0;
	set On_Quest,0;
	close;
N_QuestStart:
	mes "[Lenith]";
	mes "Hello, my name is Lenith and I have a quest for you.";
	mes "Well resently a bunch of stupid bears stole the supers off all my bee's nests...Stupid bears.";
	mes " ";
	mes "What I need you to do is find me some more honey so these bee's can get through the winter. I will need about 20 Honey.";
	close;
}
//2-4;
payon,161,72,6	script	Molly	714,{
	if (two_qset == 4 && countitem(7005) > 0) goto N_QuestComp;
	if (two_qset == 4) goto N_QuestStart;
	mes "[Molly]";
	mes "Sorry can't talk, I'm waiting for someone.";
	close;
N_QuestComp:
	mes "[Molly]";
	mes "WOW YOU DID IT!!!";
	mes " ";
	mes "I knew you looked strong, I have no idea how you could have killed that monster though.";
	mes "thank you so much, here have these 3 Guild Tokens as a reward.";
	set two_qset,0;
	set On_Quest,0;
	set #Treasure_Token,#Treasure_Token+3;
	delitem 7005,1;
	close;
N_QuestStart:
	mes "[Molly]";
	mes "Wow you must be the brave man from the treasure hunter guild!";
	mes "Ok here is whats happening, I don't know what started it but there is a strange Ronan Skeleton running aroung the woods 2 East from here.";
	next;
	mes "[Molly]";
	mes "We have try to kill him in the past but it was not...ummm...It was a bad idea. What I want you to do is go there and bring me back his Skull as proof of you killing him.";
	mes " ";
	mes "Good Luck";
	close;
}
///////Job list 3///////
//3-1;
moc_fild04,208,322,6	script	Clark	65,{
	if (three_qset == 1 && countitem(1040) > 29) goto N_QuestComp;
	if (three_qset == 1) goto N_QuestStart;
	mes "[Clark]";
	mes "Love to chat, but I'm waiting for someone.";
	close;
N_QuestComp:
	mes "[Clark]";
	mes "Ok well this is a start.";
	mes " ";
	mes "I hope that this hole will go away 1 day, and I might have another quest for you in the future.";
	mes "here take these 2 Treasure Tokens.";
	set #Treasure_Token,#Treasure_Token+2;
	delitem 1040,30;
	set three_qset,0;
	set On_Quest,0;
	close;
N_QuestStart:
	mes "[Clark]";
	mes "Well hello to you.";
	mes "You must be from the Treasure Hunter Guild.";
	mes " ";
	mes "Ok well this is my problem, yah see that hole in the ground? Yah that thing just popped out of nowhere a couple years ago, inside its full of these ugly ants and these monsters called Giearths.";
	next;
	mes "[Clark]";
	mes "What I want you to do is kill some of the Giearths.Bring me 30 of there little Moustaches.";
	close;
}
//3-2;
yuno_fild01,186,162,6	script	Flank	73,{
	if (three_qset == 2 && countitem(1082) > 0) goto N_QuestComp;
	if (three_qset == 2) goto N_QuestStart;
	mes "[Flank]";
	mes "Sorry I'm waiting for my package so I don't want to talk.";
	close;
N_QuestComp:
	mes "[Flank]";
	mes "Perfect right on time, now I must be going to plant this bomb.... Err I meen give this package to my mother for her birthday.";
	next;
	mes "[Flank]";
	mes "Thanks";
	mes "Have this Treasure Token";
	set three_qset,0;
	delitem 1082,1;
	set #Treasure_Token,#Treasure_Token+1;
	set On_Quest,0;
	close;
N_QuestStart:
	mes "[Flank]";
	mes "So you have my packages?";
	mes "Well where is it then?";
	close;
}
//3-3 Goes to 7-3 using callfunc
prt_sewb1,120,245,6	script	Sewer Managment Knight	705,{
	if (three_qset == 3 && countitem(955) > 149) goto N_QuestComp;
	if (three_qset == 3) goto N_QuestStart;
	if (seven_qset == 3) goto N_QuestStart2;
	mes "[Sewer Managmant]";
	mes "Live dosent get any worse for me,working in the bug filled Culvert every day...";
	close;
N_QuestComp:
	mes "[Sewer Managment]";
	mes "Well that looked like it was no trouble for you.";
	mes "Thanks have these 4 Treause Tokens.";
	delitem 955,150;
	set #Treasure_Token,#Treasure_Token+4;
	set three_qset,0;
	set On_Quest,0;
	close;
N_QuestStart:
	mes "[Sewer Managmant]";
	mes "For a while now we have had monster, mostly bugs infesting the culvert...";
	mes " ";
	mes "What I want you to do is kinda clean some of it out, every little bit counts.";
	mes "Bring me 150 Worm Peelings.";
	close;
N_QuestStart2:
	callfunc "seven_qset-3";
	close;
}
//3-4
mjolnir_02,87,357,6	script	Man#01	51,{
	if (three_qset == 4 && countitem(1041) > 49) goto N_QuestComp;
	if (three_qset == 4) goto N_QuestStart;
	mes "[Rudolfo]";
	mes "Danger, the Coal Mine is now a hostile area.";
	close;
N_QuestComp:
	mes "[Rudolfo]";
	mes "Well its good to see that you have come back alive.";
	mes "I had my doughts but thank you for your help.";
	mes " ";
	mes "Here have these 4 Treasure Tokens.";
	set three_qset,0;
	set On_Quest,0;
	delitem 1041,50;
	set #Treasure_Token,#Treasure_Token+4;
	close;
N_QuestStart:
	mes "[Rudolfo]";
	mes "Hello, you must be from the Treasure Hunter Guild.";
	mes " ";
	mes "They must have filled you in on what is happening on the lower levels of this Coal Mine, I know its desturbing and we are still trying to figure out why and how 2 Evil Druids got down there.";
	mes " ";
	mes "Well what I want you to do is bring me 50 Lantern's as proof that you have cleaned some of them out, any loot you find down there you may keep other then what I have asked you to get for me.";
	close;
}
///////Job list 4///////
//4-1;
pay_arche,45,138,6	script	Flora	724,{
	if (four_qset == 1 && countitem(957) > 49) goto N_QuestComp;
	if (four_qset == 1) goto N_QuestStart;
	mes "[Flora]";
	mes "Well hello be carfull in the cave, we have heard reports of Undead monster funning around.";
	close;
N_QuestComp:
	mes "[Flora]";
	mes "Welcome back, good job you did it. (I wonder if that Flaming Bastard is still alive)";