function move_Pengu()
{
	var walk_percentage;
	var winken_percentage;
	var sli;  
	var winks;  
	player=my;

	while(1)
	{
		c_move(my, vector(my.skill1, 0, 0), nullvector, IGNORE_PASSABLE | GLIDE);  
		c_move(my,vector(0,0,my.skill5),nullvector,IGNORE_PASSABLE | GLIDE);
		c_move(my,vector(0,0,-20),nullvector,IGNORE_PASSABLE | GLIDE);
		my.pan += my.skill2;
		
		
		
		
		if (my.skill1)
		{
			walk_percentage += 1.5 * my.skill1 * sign(my.skill1);
			ent_animate(my,"walk",walk_percentage, ANM_CYCLE); 
		}
		
		if(my.skill5)
		{
			
			my.tilt=-90;
			sli += 1.5 * my.skill5 * sign(my.skill5);
			ent_animate(my,"slide",sli, ANM_CYCLE); // "walk" animation loop 
		} 
		else
		{
			my.tilt=0;   
			sli=0;
		}
		
		if(my.skill4)
		{
			winks += 1.5 * my.skill4 * sign(my.skill4);
			ent_animate(my,"winken",winks, ANM_CYCLE);
		} 
		ent_sendnow(my);
		wait(1);
	} 
}

function main()
{
	fps_max=60;
	ent_createlayer("cubemap+6.tga", SKY | CUBE | SHOW , 1); // create the sky cube
	media_loop("flies.mp3",0,100);
	mouse_map =mouse_pcx;
	mouse_mode = 4;
	video_screen=1;
	video_mode=10;
	level_load("penguinland.WMB");
	on_ctrl  = input_text;
	on_server = server_event;

	
	


	if (!connection) // no server could be found?
	sys_exit(NULL); // then shut down the engine
	if(connection==2)
	{
		Scholle=ent_create ("eis2.mdl", vector (100, 50, 6000),Nebel);
		my= ent_create ("pos.mdl", vector (100, 50, 60), move_Pengu);
		wait(-5);
		
		
		client_ent = handle(my); 
		send_var (client_ent);
		
		while(1)
		{

			my.skill1 = 5 * (key_w - key_s) * time_step;
			my.skill2 = 4 * (key_a - key_d) * time_step;
			my.skill3 = 3*(key_a - key_d)* time_step;
			my.skill4 = 1*(key_h)*time_step;
			my.skill5 = (key_space) * speed*time_step;
			
			send_skill (my.skill1, SEND_VEC); // send skill1...3 to the server
			send_skill(my.skill2,SEND_VEC);
			send_skill(my.skill3,SEND_VEC);		
			send_skill(my.skill5,SEND_VEC);
			
			// send client_fired to the server; even client's bullets are created on the server
			simple_camera(); // call the simple camera function
			wait (1);
		}
	}	

	if(connection==3)
	{
		my=ent_create ("pos.mdl", vector (-100, -50, 40), move_Pengu); // create the blue soldier
		while(1)
		{
			
			my.skill1 = 5 * (key_w - key_s) * time_step;
			my.skill2 = 4 * (key_a - key_d) * time_step;
			my.skill3 = 3*(key_a - key_d)* time_step;
			my.skill4 = 1*(key_h)*time_step;
			my.skill5 = 5*(key_space) * speed*time_step;
			simple_camera();
			
			wait(1);
		}
		
	}
}