Pasted

// https://rathena.org/board/topic/107931-nstats-randomizer/
 prontera,155,181,5	script	Sample#rand_stat	757,{
 	OnTalk:
		mes "Randomize your stat between "+.stat_range[0]+" ~ "+.stat_range[1]+" ?";
		mes " ";
		mes "Required items:";
		for ( .@i = 0; .@i < .item_list_size; .@i += 2 ) {
			mes " ~ "+.item_list[.@i+1]+"x "+getitemname( .item_list[.@i] );
			if ( countitem( .item_list[.@i] ) < .item_list[.@i+1] )
				.@fail++;
		}
		if ( !.@fail ) {
			next;
			if ( select( "Yes","No" ) == 1 ) {
				for ( .@i = 0; .@i < .item_list_size; .@i += 2 )
					delitem .item_list[.@i],.item_list[.@i+1];
				resetstatus;
				for ( .@i = 0; .@i < 6; .@i++ )
					statusup2 ( bStr + .@i ),( rand( .stat_range[0],.stat_range[1] ) - 1 );
				StatusPoint = 0;
				mes "Done";
			}
		}
		close;
 	OnInit:
		setarray .stat_range,1,1000;
		setarray .item_list,
			501,1,
			502,2,
			503,3,
			504,4;
		.item_list_size = getarraysize( .item_list ) - 1;
		end;
}