-	script	Costume Clown	-1,{
	mes "[Clown]";
	mes "Here you can convert your headgears into a Costume Headgear.";
	switch(select("I want to convert.:No thanks.")) {
	case 1:
			next;
			mes "Please, select what to convert.";
			mes "Remember, cards and refine will be removed.";
			next;

			for( set .@i, 0; .@i < .position_size; set .@i, .@i + 1 ){
				if( getequipisequiped( .position[.@i] ) )
					set .@menu$, .@menu$ + "["+getequipname( .position[.@i] )+"]";
				set .@menu$, .@menu$ + ":";
			}
			set .@Part, .position[ select( .@menu$ ) - 1 ];
			set .@equip_id,getequipid(.@Part);
			if( countbound() ){
				for( set .@i,0; .@i < getarraysize( @bound_items ); set .@i,.@i+1 )
					if( @bound_items[.@i] == .@equip_id ){
						mes "This is bounded items.";
						close;
					}
			}
			if( !getequipisequiped(.@Part) )
			{
				mes "[Clown]";
				mes "Your not wearing anything there...";
				close;
			}
			mes "[Clown]";
			mes "You want to Costume your " + getitemname(getequipid(.@Part)) + "?";
			next;
			if( select("Yes, proceed:No, I am sorry.") == 2 )
			{
				mes "[Clown]";
				mes "Need some time to think about it, huh?";
				mes "Alright, I can understand.";
				close;
			}
			costume .@Part; // Convert the Headgear
			mes "[Clown]";
			mes "Done, enjoy your costume headgear.";
			close;
	case 2:
		mes "[Clown]";
		mes "Very well. Return at once if you seek my services.";
		close;
	}

OnInit:
setarray .position,EQI_HEAD_TOP,EQI_HEAD_MID,EQI_HEAD_LOW;
set .position_size,getarraysize( .position );
end;
}