prontera,148,191,5	script	test_walk	100,{
	end;
OnInit:
	getmapxy .@map$, .@x, .@y, 1;
	callfunc "npcwalk",
		100, // npc speed
		.@x, .@y, // starting point
		148, 183, // 1st waypoint
		156, 187, // 2nd waypoint
		156, 179, // 3rd waypoint
		164, 191, // 4th waypoint
		164, 183; // 5th waypoint
}

function	script	npcwalk	{
	npcspeed getarg(0);
	.@cnt = ( getargcount() -1 ) -2;
	while (1) {
		for ( .@i = 0; .@i < .@cnt; .@i += 2 ) {
		//    announce ( .@i /2 ) +". I'm going to walk to ("+( .@i +3 )+")"+ getarg( .@i +3 ) +" ("+( .@i +4 )+")"+ getarg( .@i +4 ) +"["+ distance( getarg( .@i +1 ), getarg( .@i +2 ), getarg( .@i +3 ), getarg( .@i +4 ) ) * getarg(0) +"]", 0;
			npcwalkto getarg( .@i +3 ), getarg( .@i +4 );
		//    sleep distance( getarg( .@i +1 ), getarg( .@i +2 ), getarg( .@i +3 ), getarg( .@i +4 ) ) * getarg(0);
			sleep callfunc( "radius_distance", getarg( .@i +1 ), getarg( .@i +2 ), getarg( .@i +3 ), getarg( .@i +4 ) ) * getarg(0) + 200;
		}
	//    announce ( .@i /2 ) +". I'm going to walk to (1)"+ getarg(1) +" (2)"+ getarg(2) +"["+ distance( getarg(1), getarg(2), getarg( getargcount() -2 ), getarg( getargcount() -1 ) ) * getarg(0) +"]", 0;
		npcwalkto getarg(1), getarg(2);
	//    sleep distance( getarg(1), getarg(2), getarg( getargcount() -2 ), getarg( getargcount() -1 ) ) * getarg(0);
		sleep callfunc( "radius_distance", getarg(1), getarg(2), getarg( getargcount() -2 ), getarg( getargcount() -1 ) ) * getarg(0) + 200;
	}
}

function	script	radius_distance	{
	.@x = callfunc( "F_abs", getarg(0)-getarg(2) );
	.@y = callfunc( "F_abs", getarg(1)-getarg(3) );
	.@min = ( .@x < .@y )? .@x : .@y;
	.@max = ( .@x > .@y )? .@x : .@y;
	if ( !.@min )
		return .@max;
	return ( ( ( .@max << 8 ) + ( .@max << 3 ) - ( .@max << 4 ) - ( .@max << 1 ) + ( .@min << 7 ) - ( .@min << 5 ) + ( .@min << 3 ) - ( .@min << 1 ) ) >> 8 );
}
function	script	F_abs	{
	return sqrt( pow( getarg(0), 2 ) );
}