//===== eAthena Script =======================================
//= Orc Hero Helm Quest
//===== By: ================================================== 
//= DracoRPG (1.0)
//===== Current Version: ===================================== 
//= 1.1
//===== Compatible With: ===================================== 
//= Any eAthena Version with gmcommand function
//===== Description: ========================================= 
//= Orc Hero Helm quest
//===== Additional Comments: ================================= 
//= Only needed items and sprite/name are official
//= 1.1 fixed items exploit [Lupus]
//============================================================

gef_fild10.gat,131,274,4	script	Orc Warrior	1023,{
	if(ORC_HERO_HELM_Q==1) goto Q1;
	if(ORC_HERO_HELM_Q==2) goto Q2;
	if(ORC_HERO_HELM_Q==3) goto Q3;
	if(ORC_HERO_HELM_Q==4) goto Q4;
	emotion 6;
	mes "[Orc Warrior]";
	mes "What does an human here? Cheeit!";
	mes "Here are only true Orc Warriors! Get out of our village!";
	next;
	menu "Hey, I'm as strong as you are!",Q0,"Leave before he gets angry...",-;
	close;
Q0:
	mes "[Orc Warrior]";
	mes "Humph! As strong as an orc? I dun think so!";
	mes "If you're able to prove it to me... I'll reward ya with the hat of the true warriors...";
	mes "The ^ff0000Orc Hero Helm^000000! Cheeit!";
	next;
	mes "[Orc Warrior]";
	mes "But you'll need to show me your strength and courage before.";
	mes "First bring me back 10,000 Jellopies to prove your determination! Cheeit!";
	set ORC_HERO_HELM_Q,1;
	set ORC_HERO_HELM_Q2,0;
	close;
Q1:
	mes "[Orc Warrior]";
	mes "Then, ya're back! Let's see whether you've got what I asked ya to find!";
	next;
	mes "[Orc Warrior]";
	set @temp,countitem(909);
	if(ORC_HERO_HELM_Q2+@temp>10000) set @temp,10000-ORC_HERO_HELM_Q2;
	set ORC_HERO_HELM_Q2,ORC_HERO_HELM_Q2+@temp;
	delitem 909,@temp;
	if(ORC_HERO_HELM_Q2==0) goto Q1_noitem;
	if(ORC_HERO_HELM_Q2==10000) goto Q1_allitem;
	mes "Ya've brought me " + @temp + " Jellopies this time. This makes a total of " + ORC_HERO_HELM_Q2 + " Jellopies. Remember, I want 10,000 of 'em!";
	close;
Q1_allitem:
	mes "I see that ya've more courage that I imagined. Cheeit!";
	mes "But it's not finished! Now I want to test your strength. Go and fight our warriors, and get 100 Orcish Vouchers from 'em!";
	set ORC_HERO_HELM_Q,2;
	set ORC_HERO_HELM_Q2,0;
	close;
Q1_noitem:
	emotion 6;
	mes "Cheeit! I told ya to bring me back 10,000 Jellopies, and you don't have even one!";
	close;
Q2:
	mes "[Orc Warrior]";
	if(countitem(931)<100) goto Q2_noitem;
	delitem 931,100;
	mes "Ya managed to get those Orcish Vouchers? Cheeit! Maybe I didn't ask ya to bring me enough of 'em!";
	mes "Go and find 10,000 more Orcish Vouchers!";
	set ORC_HERO_HELM_Q,3;
	set ORC_HERO_HELM_Q2,0;
	close;
Q2_noitem:
	emotion 6;
	mes "Ya couldn't win against my brother warriors ? Stay away until ya find those 100 Orcish Vouchers! Cheeit!";
	close;
Q3:
	mes "[Orc Warrior]";
	set @temp,countitem(931);
	if(ORC_HERO_HELM_Q2+@temp>10000) set @temp,10000-ORC_HERO_HELM_Q2;
	set ORC_HERO_HELM_Q2,ORC_HERO_HELM_Q2+@temp;
	delitem 931,@temp;
	if(ORC_HERO_HELM_Q2==0) goto Q3_noitem;
	if(ORC_HERO_HELM_Q2==10000) goto Q3_allitem;
	mes "Good, ya've come with " + @temp + " Orcish Vouchers. With all those ya brought previously, it goes up to " + ORC_HERO_HELM_Q2 + " Orcish Vouchers on the 10,000 I want!";
	close;
Q3_allitem:
	mes "Humph! Ya're really a powerful warrior! Maybe ya deserve to wear the Orc Hero Helm.";
	mes "For the moment, take those items. Keep 'em well, ya'll need 'em to make your helm!";
	set ORC_HERO_HELM_Q,4;
	set ORC_HERO_HELM_Q2,0;
	getitem 2299,1;
	getitem 968,1;
	next;
	mes "[Orc Warrior]";
	mes "Now, ya'll have to fight our best warlords and heroes! Bring me 100 Heroic Emblems and I'll give ya your helm.";
	close;
Q3_noitem:
	emotion 6;
	mes "Bringing me back at least one of those 10,000 Orcish Vouchers is too hard for ya, poor human? Go out of there, then! Cheeit!";
	close;
Q4:
	mes "[Orc Warrior]";
	mes "Have ya fighted the best warriors among us, and brought me 100 Heroic Emblems as a token?";
	mes "And don't forget the Orc Helm I gave ya, I need it too. Cheeit!";
	next;
	mes "[Orc Warrior]";
	if(countitem(968)<100 || countitem(2299)<1) goto Q4_noitem;
	delitem 968,100;
	delitem 2299,1;
	mes "Ya got all of them! Cheeit! Ya're a true warrior, one of our heroes!";
	mes "I'll make your Orc Hero Helm to prove your strength and valour!";
	next;
	mes "[Orc Warrior]";
	getnameditem 5094,strcharinfo(0);
	set ORC_HERO_HELM_Q,0;
	logmes "Quest: Got Orc Hero Helm";
	mes "Here ya are! Wear it and be proud to be one of the mightiest Orc Heroes! Cheeit!";
	close;
Q4_noitem:
	emotion 6;
	mes "No? Ya miss items... I was sure that ya weren't really a hero!";
	close;
}