action patrol_path()
 {
 // attach entity to nearest path
  result = path_scan(me,my.x,my.pan,vector(360,180,1000));
  if (result == 0) { return; } // no path found
 
 // find first waypoint
  var node = 1; // start at first node
  path_nodepos(my,node,my.skill20);
 
  while (1)
  {
    var angle[3];
 // find direction
    result = vec_to_angle(angle,vec_diff(temp,my.skill20,my.x));
 
 // near target? Find next waypoint of the path
    if (result < 25) {
      node = path_nextnode(my,node,1);
      path_nodepos(my,node,my._TARGET_X);
    }
 
 // turn and walk towards target
    my.pan = angle[0];
    c_move(me,vector(3*time_step,0,0),NULL,GLIDE); // walk ahead...
    wait(1);
  }
}

// attach path in WED !
action follow_path() {
	my.skill1 = 1; //start with first node
	path_getnode(my,my.skill1,my.skill2,NULL);
	while(1) {
		
		// close to node => get position of next node
		my.skill4 = my.z;
		if(vec_dist(my.skill2,my.x) < 16) {
			my.skill1 = path_nextnode(my, my.skill1, 1);
			path_getnode(my,my.skill1,my.skill2,NULL);
		}
		
		// turn to next node
		vec_diff(my.skill5,my.skill2,my.x);
		vec_to_angle(my.pan,my.skill5);
		my.tilt = 0;
		
		c_move(me,vector(5*time_step,0,0),nullvector,GLIDE | IGNORE_PASSABLE);
		wait(1);
	}
}

action walking_npc()
{
	my.skill1 = 1; //start with first node
	path_getnode(my,my.skill1,my.skill2,NULL);
	while(1) {
		
		// close to node => get position of next node
		my.skill4 = my.z;
		if(vec_dist(my.skill2,my.x) < 16) {
			my.skill1 = path_nextnode(my, my.skill1, 1);
			path_getnode(my,my.skill1,my.skill2,NULL);
		}
		
		// turn to next node
		vec_diff(my.skill5,my.skill2,my.x);
		vec_to_angle(my.pan,my.skill5);
		my.tilt = 0;
		
		c_move(me,vector(2*time_step,0,0),nullvector,GLIDE | IGNORE_PASSABLE);
		ent_animate(me, "walk", walk_percentage, ANM_CYCLE); 
		walk_percentage += 4 * time_step; 
		wait(1);
	}
}

// attach path in WED !
action follow_path_spline() {
	while(1) {
		
		vec_set(my.skill2,my.x);
		
		path_spline(me,my.x,my.skill1);
		my.skill1 += 3*time_step;


		vec_diff(my.skill5,my.x,my.skill2);
		vec_to_angle(my.skill8,my.skill5);
		
		my.pan += clamp(ang(my.skill8-my.pan)*0.25,-5,5)*time_step;
		
		wait(1);
	}
}

action follow_path_smooth() {
	my.skill1 = 1; //start with first node
	path_getnode(my,my.skill1,my.skill2,NULL);
	while(1) {
		
		// close to node => get position of next node
		my.skill4 = my.z;
		if(vec_dist(my.skill2,my.x) < 16) {
			my.skill1 = path_nextnode(my, my.skill1, 1);
			path_getnode(my,my.skill1,my.skill2,NULL);
		}
		
		// turn to next node
		vec_diff(my.skill5,my.skill2,my.x);
		vec_to_angle(my.skill8,my.skill5);
		
		my.pan += clamp(ang(my.skill8-my.pan)*0.25,-5,5)*time_step;
		
		c_move(me,vector(5*time_step,0,0),nullvector,GLIDE | IGNORE_PASSABLE);
		wait(1);
	}
}

action follow_path_smooth() {
	my.skill1 = 1; //start with first node
	path_getnode(my,my.skill1,my.skill2,NULL);
	while(1) {
		
		// close to node => get position of next node
		my.skill4 = my.z;
		if(vec_dist(my.skill2,my.x) < 16) {
			my.skill1 = path_nextnode(my, my.skill1, 1);
			path_getnode(my,my.skill1,my.skill2,NULL);
		}
		
		// turn to next node
		vec_diff(my.skill5,my.skill2,my.x);
		vec_to_angle(my.skill8,my.skill5);
		
		my.pan += clamp(ang(my.skill8-my.pan)*0.25,-5,5)*time_step;
		
		c_move(me,vector(2*time_step,0,0),nullvector,GLIDE | IGNORE_PASSABLE);
		ent_animate(me, "walk", walk_percentage, ANM_CYCLE); 
		walk_percentage += 4 * time_step;
		
		wait(1);
	}
}

action follow_path_smooth() {
	my.skill1 = 1; //start with first node
	path_getnode(my,my.skill1,my.skill2,NULL);
	wait(1);
	c_setminmax(my);
	vec_scale(my.min_x,0.8);
	vec_scale(my.max_x,0.8);
	while(1) {
		
		// close to node => get position of next node
		my.skill4 = my.z;
		if(vec_dist(my.skill2,my.x) < 16) {
			my.skill1 = path_nextnode(my, my.skill1, 1);
			path_getnode(my,my.skill1,my.skill2,NULL);
		}
		
		// turn to next node
		vec_diff(my.skill5,my.skill2,my.x);
		vec_to_angle(my.skill8,my.skill5);
		
		my.pan += clamp(ang(my.skill8-my.pan)*0.25,-5,5)*time_step;
		
		c_trace(my.x,vector(my.x,my.y,my.z-500),IGNORE_ME | USE_BOX);
		my.z += (target.z+??-my.min_z*1.25-my.z)*0.25*time_step;
				
		c_move(me,vector(2*time_step,0,0),nullvector,GLIDE | IGNORE_PASSABLE);
		
		ent_animate(me, "walk", my.skill11, ANM_CYCLE);
		my.skill11 += 4 * time_step;
		my.skill11 %= 100;
		wait(1);
	}
}