// -------------------------------------------------------------------------------
// 	Script Name : Headgear to Costume converter >> Costume to Headgear converter
// -------------------------------------------------------------------------------
// Description :
// - Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
//   costume item. It will remove any card and refine of the Item.
// - Allows a user to restore the equipped costume headgear (on Top, Mid or Low)
//     into its original form. It will not return any card or refine of the item.
// -------------------------------------------------------------------------------
-	script	Costume Clown	-1,{



	mes "[Clown]";
	mes "Do you want to make some costumes out of your headgears? For everychange you have to pay";
	mes "an fee of 250000 Zeny. How this sounds for you?";
	switch(select("Yes, here is my money.:No, thanks!")){

	case 1:
		if (Zeny<250000){
		mes "[Clown]";
		mes "Don't waste my time, dude!";
		close;
		} else {
		set Zeny,Zeny-250000;

		mes("Thanks for your money, bro!");
		switch(select("Go ahead")){
		next;


			case 1:
			mes "[Clown]";
			mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
			switch(select("I want to convert.:I want to restore.:No thanks.")) {
				case 1:
					next;
					mes "Please, select what to convert.";
					mes "Remember, cards and refine will be removed.";
					next;
					setarray .@Position$[1],"Top","Mid","Low";
					setarray .@Position[1],     6,    5,   4;
					set .@Menu$,"";
					for( set .@i, 1; .@i < 4; set .@i, .@i + 1 )
					{
					if( getequipisequiped(.@Position[.@i]) )
					set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i])

+ "]";
					set .@Menu$, .@Menu$ + ":";
					}
					set .@Part, .@Position[ select(.@Menu$) ];
					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:
					next;
					mes "Please, select what to restore.";
					mes "Remember, I will only restore it back without refine and cards.";
					next;
					setarray .@Position$[1],"Top","Mid","Low";
					setarray .@Position[1],     10,   11,   12;
					set .@Menu$,"";
					for( set .@i, 1; .@i < 4; set .@i, .@i + 1 )
					{
					if( getequipisequiped(.@Position[.@i]) )
					set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i])

+ "]";
					set .@Menu$, .@Menu$ + ":";
					}
					set .@Part, .@Position[ select(.@Menu$) ];
					if( !getequipisequiped(.@Part) )
					{
					mes "[Clown]";
					mes "Your not wearing anything there...";
					close;
					}
					mes "[Clown]";
					mes "You want to restore 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;
					}
					a = getequipid(.@Part);
					delitem a,1;
					getitem a,1;

					mes "[Clown]";
					mes "Done, enjoy your restored headgear.";
					close;
				case 3:
					mes "[Clown]";
					mes "Very well. Return at once if you seek my services.";
					close;
			}
		}
	}
	case 2:

	mes "[Clown]";
	mes "As you wish friend!";
	close;
	}
}
// --------------------------------------------------------------------------
// Use duplicates to put your npc on different cities
// --------------------------------------------------------------------------
itemmall,188,56,1	duplicate(Costume Clown)	Costume Clown#1	715