function	script	array_shuffle	{
	.@size = getarraysize(getarg(0));
	for (.@i = .@size - 1; .@i >= 1; --.@i)
		swap(getelementofarray(getarg(0), rand(0, .@i)), getelementofarray(getarg(0), .@i));
	return true;
}

function	script	array_sort	{
	.@total = .@size = getarraysize( getarg(0) );
	copyarray .@arr, getarg(0), .@size;
	for ( .@i = 0; .@i < .@size; ++.@i )
		++.@tmp[.@arr[.@i]];
	for ( ; .@size; --.@size ) {
		.@index = getarraysize(.@tmp) -1;
		.@output[.@size-1] = .@index;
		--.@tmp[.@index];
	}
	copyarray getarg(0), .@output, .@total;
	return;
}

function	script	printdispbottom	{
	.@size = getarraysize( getarg(1) );
	for ( .@i = 0; .@i < .@size; ++.@i )
		.@print$ += getelementofarray( getarg(1), .@i )+",";
	dispbottom getarg(0) +" = "+ .@print$;
	return;
}

poring_w01,105,100,5	script	222	1_F_MARIA,{
	dispbottom " ==== "+ strnpcinfo(NPC_NAME) +" ===";
	setarray .@a, 0,1,2,3,4,5,6,7,8,9;
//		1,2,5,6,3,8,9,4,6,3,5,6,8,3,5;
	printdispbottom "original", .@a;
	array_shuffle .@a;
	printdispbottom " shuffle", .@a;
	array_sort .@a;
	printdispbottom "     sort", .@a;
	end;
}