P1BNPC

mapname,x,y,4	script	Mad Beret	ID,{

	mes "[Mad Beret]";
	mes "I can trade in your feather berets for any colour of choice!";
	mes "All it takes is the requirements and the beret."
	mes "Choose";
	switch(select("Black:Brown:Gold:Green:Light Blue:Orange:Pink:Purple:Red:Silver:White:Close NPC")) {

		case 1:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21064,1;
			end;
			close;
		
		case 2:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21065,1;
			end;
			close;

		case 3:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21066,1;
			end;
			close;

		case 4:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21067,1;
			end;
			close;

		case 5:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21068,1;
			end;
			close;

		case 6:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21069,1;
			end;
			close;

		case 7:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21070,1;
			end;
			close;
		case 8:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21071,1;
			end;
			close;
		case 9:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21072,1;
			end;
			close;
		case 10:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21073,1;
			end;
			close;
		case 11:
			if(countitem(5170)<1) goto L_Beret;
			if(zeny < 500000) goto L_Beret;
			set zeny,zeny-500000;
			delitem 5170,1;
			getitem 21074,1;
			end;
			close;
		case 12:
			close;
}
}