#define update_rate 0.1 //time in seconds that passes between the updates

function control_player();

function move_player()
{
	var save_pan = 0; //stores the entity.pan (needed to find out if the pan has changed)
	VECTOR save_pos; //stores the entity.pos (needed to find out if the position has changed)
	
	while(enet_ent_globpointer(my) == -1) {wait(1);} //wait until the entity gets a global pointer
	
	//If the entity was created by this client, control it:
	if(enet_ent_creator(enet_ent_globpointer(my)) == enet_get_clientid())
	{control_player();}
	
	//The Server or ClientServer moves the entity:
	if(enet_get_connection() == SERVER_MODE || enet_get_connection() == CLIENT_SERVER_MODE)
	{
		var update_time = update_rate; //time that has to pass until an update must be sent
		
		//If you are using the physicengine, set up the physic parameters here
		
		while(1)
		{
			//Ge the sent control input:
			var forward_key = my.skill[0]&0x00000001; //get bit1
			var backward_key = (my.skill[0]&0x00000002)>>1; //get bit2
			var left_key = (my.skill[0]&0x00000004)>>2; //get bit3
			var right_key = (my.skill[0]&0x00000008)>>3; //get bit4
			
			//Do the entitymovement here
			
			//sends the position if changed and an update is needed:
			if((save_pos.x != my.x || save_pos.y != my.y || save_pos.z != my.z) && update_time <= 0)
			{
				my.skill[1] = my.x;
				my.skill[2] = my.y;
				my.skill[3] = my.z;
				enet_send_skills(enet_ent_globpointer(my),1,3,BROADCAST);
				vec_set(save_pos,my.x);
				update_time = update_rate;
			}
			//sends the angles if they changed
			if(save_pan != my.pan) {enet_send_angle(enet_ent_globpointer(my),BROADCAST);save_pan = my.pan;}

			update_time -= time_step/16.0; //reduce the time
			wait(1);
		}
	}
	else
	{ //On all participants except the server or server-client:
		VECTOR new_pos;
		VECTOR old_pos;
		var time_passed = 0;
		
		new_pos.x = 0;
		new_pos.y = 0;
		new_pos.z = 0;
		
		//wait for the first data to arrive
		while(new_pos.x == my.skill[1] && new_pos.y == my.skill[2] && new_pos.z == my.skill[3]) {wait(1);}
		while(1)
		{
			//If a new position was sent, use the new position as destination for the interpolation
			if(new_pos.x != my.skill[1] || new_pos.y != my.skill[2] || new_pos.z != my.skill[3])
			{vec_set(new_pos.x,my.skill[1]);vec_set(old_pos.x,my.x);time_passed = 0;}
			
			//Interpolate between the current and the last received position
			time_passed += time_step/16.0;
			var factor = time_passed/(update_rate+0.1); //using a little higher update_rate for interpolation makes it look smoother
			if(time_passed/(update_rate+0.1) > 1) {factor = 1;} //Stops interpolating after the destination position was reached
			vec_lerp(my.x,old_pos.x,new_pos.x,factor); //interpolate
			
			wait(1);
		}
	}

}

function control_player()
{
	var oldskill0;
	
	if(enet_get_connection() == CLIENT_SERVER_MODE) proc_mode = PROC_LATE;
	
	while(1)
	{
		//Do the camera movement here:
		vec_set(camera.x,my.x);
		
		my.skill[0] = 0;
		my.skill[0] |= key_pressed(key_for_str("w")); //forward key in bit0
		my.skill[0] |= key_pressed(key_for_str("s"))<<1; //backward key in bit1
		my.skill[0] |= key_pressed(key_for_str("a"))<<2; //left key in bit2
		my.skill[0] |= key_pressed(key_for_str("d"))<<3; //right key in bit3
		
		//Sends the skill if it has changed to the Server:
		if(my.skill[0] != oldskill0 && enet_get_connection() != CLIENT_SERVER_MODE)
		{
			enet_send_skills(enet_ent_globpointer(my),0,0,SERVER);
			oldskill0 = my.skill[0];
		}
		wait(1);
	}
}