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",-,"Bye",L_Bye;
if(@menu == 1){ set @t,1; goto L_Clear; }
if(@menu == 2){ set @t,2; goto L_Clear; }
if(@menu == 3){ set @t,3; goto L_Clear; }
if(@menu == 4){ set @t,4; goto L_Clear; }
if(@menu == 5){ set @t,5; goto L_Clear; }

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_Clear:
mes "[Custom Headgears v1]";
mes "Oh dear, what a shame. Giving up already?";
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;
}