lhz_in02.gat,238,272,4	script	Custom Headgears v1	803,{

		if((buquest == 1 && bequest == 1 && shquest == 1 && dequest == 1 && ghquest == 1) && (callfunc("F_HeQuests",1) == 1)){
				goto L_Reward_All;
			}else if((buquest == 1) && (callfunc("F_HeQuests",0) == 1)){
				goto L_Bu_Reward;
			}else if((bequest == 1) && (callfunc("F_HeQuests",0) == 1)){
				goto L_Be_Reward;
			}else if((shquest == 1) && (callfunc("F_HeQuests",0) == 1)){
				goto L_Sh_Reward;
			}else if((dequest == 1) && (callfunc("F_HeQuests",0) == 1)){
				goto L_De_Reward;
			}else if((ghquest == 1) && (callfunc("F_HeQuests",0) == 1)){
				goto L_Gh_Reward;
		}else if(buquest == 1) || (bequest == 1) || (shquest == 1) || (dequest == 1) ||(ghquest == 1){ goto L_NO_Items; }
 
mes "[Custom Headgears v1]";
mes "Have you seen the Tickets?";
mes "I heard you can get them in exchange for these headgears!";
mes "I'd be willing to part with these headgears in exchange for some items.";
next;
menu "Yes!",-,"No Thank you.",L_No;
next;
mes "[Custom Headgears v1]";
mes "Which headgear do you prefer?";
next;
menu "Decorative Bunny",-,"Mini Berserk Helm",-,"Shadow Helm",-,"Spirit of Deviling",-,"Spirit of Ghostring",-;
next;
mes "[Custom Headgears v1]";
mes "Bring me";
mes "100 [Red Ticket]";
mes "100 [Blue Ticket]";
mes "50 [Old Blue Box]";
mes "and 5 [Old Purple Box]";
if(@menu == 1) set buquest,1;
if(@menu == 2) set bequest,1;
if(@menu == 3) set shquest,1; 
if(@menu == 4) set dequest,1;
if(@menu == 5) set ghquest,1; 
close;

L_NO_Items:
if (callfunc("F_HeQuests",0) == 1) goto L_Reward;
mes "Oh dear. This won't do. Have you checked all your items carefully?";
next;
menu "What were the items again?",L_Forgot,"Cancel Quest",L_Cancel,"Bye",L_Bye;
close;

L_Reward:
if(buquest == 1) { callfunc("F_HeQuests",2 } 
if(bequest == 1) { callfunc("F_HeQuests",3 } 
if(shquest == 1) { callfunc("F_HeQuests",4 } 
if(dequest == 1) { callfunc("F_HeQuests",5 } 
if(ghquest == 1) { callfunc("F_HeQuests",6 } 
close;

L_Reward_All:
callfunc "F_HeQuests",7;
set buquest,0; && set bequest,0; && set shquest,0; && set dequest,0; && set ghquest,0;
close;

L_Forgot:
mes "[Custom Headgears v1]";
mes "Bring me";
mes "100 [Red Ticket]";
mes "100 [Blue Ticket]";
mes "50 [Old Blue Box]";
mes "and 5 [Old Purple Box]";
close;

L_Bye:
mes "[Custom Headgears v1]";
mes "Bye";
close;

L_No:
mes "[Custom Headgears v1]";
mes "WHAT?!? Do you have any idea how rare these headgears are?";
close;

L_Cancel:
mes "[Custom Headgears v1]";
mes "Oh dear, what a shame. Giving up already?";
set @t,1;
set @t,2;
set @t,3;
set @t,4;
set @t,5;
if(@t == 1) set buquest,0;
if(@t == 2) set bequest,0;
if(@t == 3) set shquest,0;
if(@t == 4) set dequest,0;
if(@t == 5) set ghquest,0;
close;
}

function	script	F_HeQuests	{
if (getarg(0) == 0) { 
	if((countitem(7550)>=100) && (countitem(7551)>=100) && (countitem(603)>=50) && (countitem(617)>=5)) {
		return(1);
	}
}
if (getarg(0) == 1) { 
	if((countitem(7550)>=500) && (countitem(7551)>=500) && (countitem(603)>=250) && (countitem(617)>=25)) {
		return(1);
	}
}
if (getarg(0) == 2) {
	delitem 7550,100;
	delitem 7551,100;
	delitem 603,50;
	delitem 617,5;
	getitem 20003,1;
	return;
}
if (getarg(0) == 3) {
	delitem 7550,100;
	delitem 7551,100;
	delitem 603,50;
	delitem 617,5;
	getitem 20002,1;
	return;
}
if (getarg(0) == 4) {
	delitem 7550,100;
	delitem 7551,100;
	delitem 603,50;
	delitem 617,5;
	getitem 20000,1;
	return;
}
if (getarg(0) == 5) {
	delitem 7550,100;
	delitem 7551,100;
	delitem 603,50;
	delitem 617,5;
	getitem 20001,1;
	return;
}
if (getarg(0) == 6) {
	delitem 7550,100;
	delitem 7551,100;
	delitem 603,50;
	delitem 617,5;
	getitem 20004,1;
	return;
}
if (getarg(0) == 7) {
	delitem 7550,500;
	delitem 7551,500;
	delitem 603,250;
	delitem 617,25;
	getitem 20003,1;
	getitem 20002,1;
	getitem 20000,1;
	getitem 20001,1;
	getitem 20004,1;
	return;
}
return(0);
}