Pasted

// https://rathena.org/board/topic/107460-r-100-refine-and-de-refiner/
 prontera,155,175,5	script	Sample#item_refine	4_F_KAFRA9,{
 	if ( countitem( .item ) >= .item_count ) {
		.@i = select( 
			"HEAD_TOP",
			"ARMOR",
			"HAND_L",
			"HAND_R",
			"GARMENT",
			"SHOES"
		);
		if ( getequipid( .@i ) != -1 ) {
			.@refine = getequiprefinerycnt( .@i );
			switch ( select( "Refine","De-Refine" ) ) {
				case 1:
					if ( .@refine >= MAX_REFINE ) {
						mes "Already reach max refine.";
					}
					else {
						delitem .item,.item_count;
						successrefitem .@i;
						mes "Done";
					}
					break;
				case 2:
					if ( .@refine <= 0 ) {
						mes "Already reach min refine.";
					}
					else {
						delitem .item,.item_count;
						downrefitem .@i;
						mes "Done";
					}
					break;
			}
		}
	}
	else {
		mes "You need "+getitemname( .item )+" x "+.item_count;
	}
	close;
 	OnInit:
		.item = 512;
		.item_count = 10;
		end;
}