Pasted

// https://rathena.org/board/topic/107680-reset-stats-npc/
 prontera,155,181,4	script	reset_one_stat	4_F_KAFRA1,{
 	.@stat = select( 
		"bStr",
		"bAgi",
		"bVit",
		"bInt",
		"bDex",
		"bLuk"
	) - 1 + bStr;
 	for ( .@i = bStr; .@i <= bLuk; .@i++ ) {
		.@original_stat[ .@i - bStr ] = readparam( .@i ) - 1;
	}
	resetstatus;
 	for ( .@i = bStr; .@i <= bLuk; .@i++ ) {
		if ( .@i != .@stat ) {
			while ( .@original_stat[ .@i - bStr ] > 0 ) {
				statusup( .@i );
				.@original_stat[ .@i - bStr ]--;
			}
		}
	}
	mes "Done.";
	close;
}