[RO] Simple Item Refiner - Coin

// dude can I request Refine Coins.
// the function is there are 10% success refine
// but if the refining is Failed the refine will be deducted not breaking the items
// or not lose the items it only -1 refine


prontera,155,181,5	script	Refiner	4_F_KAFRA1,{

	disable_items;
	mes "Refine equip ?";
	mes "Cost - "+getitemname( .coin_nameid );

	for ( .@i = 2; .@i <= 9; .@i++ ) {
		.@item_id = getequipid( .@i );
		if ( .@item_id > 0 ) {
			.@refine = getequiprefinerycnt( .@i );
			if ( .@refine < .max_refine )
				.@menu$ = .@menu$ + (( .@refine ) ? "+"+.@refine+" ":"" ) + getitemname( .@item_id );
		}
		.@menu$ = .@menu$ + ":";
	}
	if ( countitem( .coin_nameid ) ) {
		.@i = select( .@menu$ ) - 1;
		delitem .coin_nameid,1;
		.@refine = getequiprefinerycnt( .@i );
		if ( rand( 100 ) < .success_rate ) {
			mes "Success";
			successrefitem .@i;
		}
		else {
			mes "Failed";
			if ( .@refine )
				downrefitem .@i;
		}
	}
	close;

	OnInit:
		.max_refine = 20;
		.coin_nameid = 512;
		.success_rate = 10;
		end;
}