prontera,155,181,5	script	Sample	757,{
mes "Select an Equipment ";
for( set .@i,1; .@i < 10; set .@i,.@i + 1 )
	set .@EquipMenu$,.@EquipMenu$ + (( getequipid(.@i) == -1 )?"":getitemname( getequipid(.@i) ) )+":";
set .@EQPart,select( .@EquipMenu$ );
if( countitem( getequipid(.@i) ) > 1 ){
	mes "Make sure you have only 1 "+getitemname(getequipid(.@i))+" with you.";
}else if( Zeny < 400000 ){
	mes "You need 400,000 Zeny.";
}else if( getequipweaponlv( .@EQPart ) ){
	mes "I cant enchant on Weapon.";
}else{
	set Zeny,Zeny - 400000;
	setarray .@RunesID[0],4701,4702,4703,4704,4705,4706;
	if( rand(100) < 30 ){ // 30% Success
		set .@ItemID,getequipid(.@i);
		delitem .@ItemID,1;
		getitem2 .@ItemID,1,1,0,0,0,0,0,.@RunesID[ rand( getarraysize(.@RunesID) ) ];
		mes "Success";
	}else{
		failedrefitem .@EQPart;
		mes "Failed.";
	}
}
close;
}