action player_move ()
{
	player = me;
	while (1)
	{
		set (my,POLYGON)
		camera.pan = player.pan;
		player.pan = (key_cur-key_cul) * 10 * time_step;
		movement = (key_cuu-key_cud) * 10 * time_step;
		c_move (player, vector(0,movement,0),nullvector, GLIDE);
		wait (1);
	}
}