splendide,210,199,5	script	chances	757,{
setarray .@OriID,2357,2358,2359,2360;
setarray .@RareID,2305,2360,2359,2359;
setarray .@Rates,80,20,10,50;

for( set .@i,0; .@i < getarraysize( .@OriID ); set .@i,.@i + 1 )
	set .@Menu$,.@Menu$ + getitemname( .@OriID[.@i] )+":";
set .@i,select( .@Menu$ ) - 1;
mes "Do you want to refine your "+getitemname( .@OriID[.@i] )+" into "+getitemname( .@RareID[.@i] )+" ?";
mes "Rate of Success : "+.@Rates[.@i]+"%";
next;
if( select("Yes:No") == 1 ){
	if( !countitem( .@OriID[.@i] ) ){
		mes "You didnt have "+getitemname( .@OriID[.@i] )+" now.";
	}else{
		delitem .@OriID[.@i],1;
		if( rand(100) < .@Rates[.@i] ){
			getitem .@RareID[.@i],1;
			mes "Done, congratz.";
		}else
			mes "But Failed.";
	}
}
close;
}