All pastes #260233 Raw Edit

Someone

public text v1 · immutable
#260233 ·published 2006-11-28 03:35 UTC
rendered paste body
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",0) == 1) && (callfunc("F_HeQuests",1) == 1) && callfunc(callfunc("F_HeQuests",2) == 1) (callfunc("F_HeQuests",3) == 1) (callfunc("F_HeQuests",4) == 1)){
				set @give_head_all, 1;
				goto L_Bu_Reward;
			}else if((buquest == 1) && (callfunc("F_HeQuests",0) == 1)){
				goto L_Bu_Reward;
			}else if((bequest == 1) && (callfunc("F_HeQuests",1) == 1)){
				goto L_Be_Reward;
			}else if((shquest == 1) && (callfunc("F_HeQuests",2) == 1)){
				goto L_Sh_Reward;
			}else if((dequest == 1) && (callfunc("F_HeQuests",3) == 1)){
				goto L_De_Reward;
			}else if((ghquest == 1) && (callfunc("F_HeQuests",4) == 1)){
				goto L_Gh_Reward;
		}else if(buquest == 1){ goto L_NO_Bu; 
		}else if(bequest == 1){ goto L_NO_Be; 
		}else if(shquest == 1){ goto L_NO_Sh;
		}else if(dequest == 1){ goto L_NO_De; 
		}else if(ghquest == 1){ goto L_NO_Gh; 
 
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!",L_Yes,"No Thank you.",L_No;
 
L_Yes:
mes "[Custom Headgears v1]";
mes "Which headgear do you prefer?";
next;
menu "Decorative Bunny",L_Bu_Quest,"Mini Berserk Helm",L_Be_Quest,"Shadow Helm",L_Sh_Quest,"Spirit of Deviling",L_De_Quest,"Spirit of Ghostring",L_Gh_Quest;
 
L_Bu_Quest:
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]";
set buquest,1;
close;
 
L_NO_Bu:
if (callfunc("F_HeQuests",0) == 1) goto L_Bu_Reward;
mes "Oh dear. This won't do. Have you checked all your items carefully?";
next;
menu "What were the items again?",L_Forgot_Bu,"Cancel Quest",L_Cancel_Bu,"Bye",L_Bye;
close;
 
L_Forgot_Bu:
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_Bu_Reward:
mes "[Custom Headgears v1]";
mes "Here is your [Decorative Bunny].";
callfunc "F_HeQuests",2;
if (@give_head_all == 1) { goto L_De_Reward; }
set buquest,0;
close;

L_Cancel_Bu:
mes "[Custom Headgears v1]";
mes "Oh dear, what a shame. Giving up already?";
set redquest,0;
close;
 
L_Blue:
mes "[Custom Headgears v1]";
mes "Bring me 5 [Sea Otter Fur]";
mes "5 [Soft Blade of Grass]";
mes "5 [Piece of Egg Shell]";
mes "5 [Blue Hair]";
mes "5 [Orcish Voucher]";
mes "5 [Mane]";
mes "5 [Anolian Skin]";
mes "5 [Bug Leg]"; 
mes "5 [Bacillus]";
mes "and 5 [Yellow Plate].";
set bluequest,1;
close;
 
L_NO_Blue:
if (callfunc("F_HeQuests",1) == 1) goto L_Blue_Reward;
mes "Oh dear. This won't do. Have you checked all your items carefully?";
next;
menu "What were the items again?",L_Forgot_Blue,"Cancel Quest",L_Cancel_Blue,"Bye",L_Bye_Blue;
close;
 
L_Forgot_Blue:
mes "[Custom Headgears v1]";
mes "Bring me 5 [Sea Otter Fur]";
mes "5 [Soft Blade of Grass]";
mes "5 [Piece of Egg Shell]";
mes "5 [Blue Hair]";
mes "5 [Orcish Voucher]";
mes "5 [Mane]";
mes "5 [Anolian Skin]";
mes "5 [Bug Leg]"; 
mes "5 [Bacillus]";
mes "and 5 [Yellow Plate].";
close;
 
L_Blue_Reward:
mes "[Custom Headgears v1]";
mes "Here is your 3 [Blue Ticket].";
callfunc "F_HeQuests",3;
set @give_head_both, 0;
set bluequest,0;
close;

L_Cancel_Blue:
mes "[Custom Headgears v1]";
mes "Oh dear, what a shame. Giving up already?";
set bluequest,0;
close;

// Bad Stuff :P //
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;
// Bad Stuff ^^ //

}

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)>=100) && (countitem(7551)>=100) && (countitem(603)>=50) && (countitem(617)>=5)) {
		return(1);
	}
}
if (getarg(0) == 2) {
	if((countitem(7550)>=100) && (countitem(7551)>=100) && (countitem(603)>=50) && (countitem(617)>=5)) {
		return(1);
	}
}
if (getarg(0) == 3) {
	if((countitem(7550)>=100) && (countitem(7551)>=100) && (countitem(603)>=50) && (countitem(617)>=5)) {
		return(1);
	}
}
if (getarg(0) == 4) {
	if((countitem(7550)>=100) && (countitem(7551)>=100) && (countitem(603)>=50) && (countitem(617)>=5)) {
		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) == 5) {
	delitem 7550,100;
	delitem 7551,100;
	delitem 603,50;
	delitem 617,5;
	getitem 20004,1;
	return;
}
return(0);
}