prontera,155,181,3	script	Item Convert	10173,{

	mes .name$;
	mes "Hello there!";
	mes "I convert things swiftly and diligently!";
	mes "Is there anything you like to convert?";
	next;
	.@opt = select(.Menu$)-1;
	mes .name$;
	mes "You want to convert ^0055FF"+getitemname(.ItemIDFrom[.@opt])+"^000000 into ^0055FF"+getitemname(.ItemIDTo[.@opt])+"^000000.";
	next;
	.@menu$ = "";
	for(.@i=0;.@i<getarraysize(.Chances);.@i++)
		.@menu$ = .@menu$ + "Exchange ^0055FF"+getitemname(.ItemIDFrom[.@opt])+" for ^0055FF"+getitemname(.ItemIDto[.@i])+"^000000:";
	.@menu$ = .@menu$;
	next;
	.@opt2 = select(.@menu$)-1;
	.@amount = ((.ToAmount[.@opt]*.Chances[.@opt2])/100);
	.@chance = .Chances[.@opt2];
	mes .name$;
	mes "You are about to exchange ^FF55001^000000x "+getitemname(.ItemIDFrom[.@opt])+" into ^FF5500"+.ToAmount+"^000000x "+getitemname(.ItemIDTo[.@opt])+".";
	mes "Would you like to proceed?.";
	next;
	if(select("Yes Please..:Cancel")==2) end;
	if(countitem(.ItemIDFrom[.@opt]) < .@amount){
		mes .name$;
		mes "I'm sorry, but i cannot process your request because you lack of ^0055FF"+getitemname(.ItemIDFrom[.@opt])+"^000000.";
		end;
	}
	mes .name$;
	if(rand(1,100) > .@chance){
		mes "Oh!~ Sorry, too bad~~";
		mes "The conversion has failed miserably.";
		mes "You can try again anytime.";
		end;
	}
	delitem .ItemIDFrom[.@opt],1;
	getitem .ItemIDTo[.@opt],.ToAmount;
	mes "Alright!~";
	mes "The conversion is a success!";
	mes "Hoping that you love my service.";
close;

OnInit:
	.name$ = "[ ^FF5500Item Convert^000000 ]";
	//Setup Here
	setarray .ItemIDFrom[0],501,502,503,504,505;
	setarray .ToAmount[0],500,500,500,500,500;
	setarray .ItemIDTo[0],909,909,909,909,909;

	//Do not touch without knowing - Just leave it to 100%
	setarray .Chances[0],100;
	
	for(.@i=0;.@i<getarraysize(.ItemIDFrom);.@i++)
		.Menu$ = .Menu$ + getitemname(.ItemIDFrom[.@i])+" to "+getitemname(.ItemIDTo[.@i]) +":";
	.Menu$ = .Menu$ + "Cancel";
	//NOTE: Chance = 100/AmountFrom %;
end;

}