//===== Hercules Script ======================================
//= Eden Group Quests - Mission [86 - 90]
//===== By: ==================================================
//= Chilly
//===== Current Version: =====================================
//= 1.2
//===== Description: =========================================
//= Repetable Quests for Players between Baselevel 86 - 90.
//===== Additional Comments: =================================
//= 1.0 First Version. [Chilly]
//= 1.1 Some little improvements here and there. [Masao]
//= 1.2 Optimized. [Euphy]
//============================================================

moc_para01,48,175,3	script	Mission [86 - 90]	857,{
	if (countitem(6219) < 1) {
		mes "- Only members of the -";
		mes "- Eden Group can read -";
		mes "- this bulletin board. -";
		close;
	}
	if (BaseLevel < 86) {
		mes "- This missions can only be -";
		mes "- read by those who are -";
		mes "- of the correct level. -";
		mes "- There might be another -";
		mes "- board somewhere for -";
		mes "- my level. -";
		close;
	}
	if (BaseLevel > 90) {
		setarray .@Exp[0],76000,82000,82000,72000,76000,72000,117000,82000,120000,72000,72000,72000,86000,80000;
		setarray .@Mob$[0],"Dragon Tail","Spring Rabbit","Pest","Bathory","Alarm","Baba Yaga","Hyegun","Antique Firelock","Zipper Bear","Earth Petite","Rafflesia","Venomous","Pitman","Yellow Novus";
		for(set .@i,0; .@i<14; set .@i,.@i+1)
			if (checkquest(4167+.@i,HUNTING) == 2) {
				mes "You hunted all 30 "+.@Mob$[.@i]+".";
				mes "Thank you very much.";
				next;
				mes "I know it isn't much but here's a small gift.";
				mes "I hope that it helps you at least a little bit.";
				next;
				erasequest 4167+.@i;
				getexp .@Exp[.@i],0;
				mes "Wooohoo!";
				mes "Good luck.";
				close;
			}
		mes "- This missions can only be -";
		mes "- read by those who are -";
		mes "- of the correct level. -";
		mes "- There might be another -";
		mes "- board somewhere for -";
		mes "- my level. -";
		close;
	}
	mes "- Many hunting missions -";
	mes "- are on the bulletin board. -";
	next;
	switch(select("Turtle Dungeon Area:Clock Tower Area:Local Area:Other Area")) {
	case 1:
		switch(select("Dragon Tail:Spring Rabbit:Pest")) {
			case 1: callsub L_Quest,4167,"Dragon Tail",76000;
			case 2: callsub L_Quest,4168,"Spring Rabbit",82000;
			case 3: callsub L_Quest,4169,"Pest",82000;
		}
	case 2:
		switch(select("Bathory:Alarm")) {
			case 1: callsub L_Quest,4170,"Bathory",72000;
			case 2: callsub L_Quest,4171,"Alarm",76000;
		}
	case 3:
		switch(select("Baba Yaga:Hyegun:Antique Firelock:Zipper Bear")) {
			case 1: callsub L_Quest,4172,"Baba Yaga",72000;
			case 2: callsub L_Quest,4173,"Hyegun",117000;
			case 3: callsub L_Quest,4174,"Antique Firelock",82000;
			case 4: callsub L_Quest,4175,"Zipper Bear",120000;
		}
	case 4:
		switch(select("Earth Petite:Rafflesia:Venomous:Pitman:Yellow Novus")) {
			case 1: callsub L_Quest,4176,"Earth Petite",72000;
			case 2: callsub L_Quest,4177,"Rafflesia",72000;
			case 3: callsub L_Quest,4178,"Venomous",72000;
			case 4: callsub L_Quest,4179,"Pitman",86000;
			case 5: callsub L_Quest,4180,"Yellow Novus",80000;
		}
	}
	end;
L_Quest:
	if (checkquest(getarg(0),HUNTING) == 2) {
		mes "You hunted all 30 "+getarg(1)+".";
		mes "Thank you very much.";
		next;
		mes "I know it isn't much but here's a small gift.";
		mes "I hope that it helps you at least a little bit.";
		next;
		erasequest getarg(0);
		getexp getarg(2),0;
		mes "Wooohoo!";
		mes "Good luck.";
		close;
	}
	if (checkquest(getarg(0)) == -1) {
		setquest getarg(0);
		mes "Please hunt 30 "+getarg(1)+" and return here.";
		close;
	}
	mes "Umm? You didn't hunt";
	mes "all 30 "+getarg(1)+" yet...";
	mes "Will you check again?";
	close;
}