// https://rathena.org/board/topic/107575-r-custom-refiner/
// Using item 7806 or 6232 will increase your odds or make the items not decrease when refined respectively.
prontera,150,192,5	script	God Refiner	4_F_KAFRA9,{
	@menu = 0;
	mes "[Sample]";
	mes "Select you refining options and click refine.";
	next;
	while( @menu != 1 ) {
		rf_opt = rf_opt ^ pow( 2, select (
			"[Refine]",
			( ( rf_opt & 4 ? "[^0000FFOn^000000] ":"[^FF0000Off^000000] " ) + "Add Chance Refine" ),
			( ( rf_opt & 8 ? "[^0000FFOn^000000] ":"[^FF0000Off^000000] " ) + "No Reduction Refine" )
		) );
	}
	
	if( !countitem( 7806 ) ) {
		mes "[Sample]";
		mes "You need at least one " + getitemname( 7806 ) + " for me to refine your items.";
		close;
	}
	
	if( ( rf_opt & 4 ) && !countitem( 6232 ) ) {
		mes "[Sample]";
		mes "You need at least one " + getitemname( 6232 ) + " to use the 'Add Chance Refine' option.";
		close;
	}
	
	if( ( rf_opt & 8 ) && !countitem( 6228 ) ) {
		mes "[Sample]";
		mes "You need at least one " + getitemname( 6228 ) + " to use the 'No Reduction Refine' option.";
		close;
	}
	
	.@i = select( 
		""+( ( .@ep = getequipid( EQI_HEAD_TOP )   +1 ) > 0 ? "^0000FF"+getitemname(getequipid( EQI_HEAD_TOP ))+"^000000" : "" ),
		""+( ( .@ep[1] = getequipid( EQI_ARMOR )   +1 ) > 0 ? "^0000FF"+getitemname(getequipid( EQI_ARMOR ))   +"^000000" : "" ),
		""+( ( .@ep[2] = getequipid( EQI_HAND_L )  +1 ) > 0 ? "^0000FF"+getitemname(getequipid( EQI_HAND_L ))  +"^000000" : "" ),
		""+( ( .@ep[3] = getequipid( EQI_HAND_R )  +1 ) > 0 ? "^0000FF"+getitemname(getequipid( EQI_HAND_R ))  +"^000000" : "" ),
		""+( ( .@ep[4] = getequipid( EQI_GARMENT ) +1 ) > 0 ? "^0000FF"+getitemname(getequipid( EQI_GARMENT )) +"^000000" : "" ),
		""+( ( .@ep[5] = getequipid( EQI_SHOES )   +1 ) > 0 ? "^0000FF"+getitemname(getequipid( EQI_SHOES ))   +"^000000" : "" ),
		( getarraysize(.@ep) ? "" : "I have nothing equipped!" )
	);
	
	if( getequipid( .@i ) != -1 || !.@ep ) {
		if ( getequipisenableref( .@i ) ) {
			.@refine = getequiprefinerycnt( .@i );
			if ( .@refine >= 10 ) {
				mes "[Sample]";
				mes "That item has already reached max level!";
				close;
			}
			delitem 7806,1;
			if ( ( rf_opt & 4 ) ) { delitem 6232,1; .@pr = .plus_refine; }
			if ( ( rf_opt & 8 ) ) { delitem 6228,1; .@rr++; }
			.@rand = rand(100) + 1;
			.@rand_refine = .refine_rates[.@refine] + .@pr;
			if( .@rand <= .@rand_refine ) {
				successrefitem .@i;
				mes "[Sample]";
				mes "Success!!!";
			} else {
				if( !.@rr ) {
					downrefitem .@i;
					mes "[Sample]";
					mes "I failed and the item lost one refine!";
				} else {
					mes "[Sample]";
					mes "I failed but your item is fine!";
				}
			}
		} else {
			mes "[Sample]";
			mes "I'm sorry but I can't refine that item!";
		}
	} else {
		mes "[Sample]";
		mes "You need to equip something first!";
	}
	close;
	
	OnInit:
		.plus_refine = 5;
		setarray .refine_rates,
			100, 100, 100, 100, 100,
			15 , 10 , 5  , 3  , 1  ;
		end;
}