///////////////////////////////////////////////////////////////////////////////////////////
// Template shooter game example
// Written by George Pirvu - v1.0 March 2010
///////////////////////////////////////////////////////////////////////////////////////////

#include <acknex.h>
#include <default.c>
 

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Template shooter player / camera code
// Written by George Pirvu - v1.0 March 2010
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

var tshooter_player_speed = 25; // player's movement speed
var tshooter_fwdbk_accel = 7; // player's forward / backward acceleration
var tshooter_side_accel = 3; // player's sideway (strafe) acceleration
var tshooter_friction = 1.5; // player's friction - this value should always be greater than 1
var tshooter_fallspeed = 1; // player's fall down speed
var tshooter_jump = 20; // player's jumping force
var tshooter_resilience = 4; // pushes the player upwards a bit if it sinks too much in the floor
var tshooter_disttoground = 64; // distance between the origin of player's model and the ground (used by the camera as well)
var tshooter_camera_h = 12; // horizontal camera acceleration
var tshooter_camera_h_frict = 0.95; // always use a value below 1 here
var tshooter_camera_v = 8; // vertical camera acceleration
var tshooter_camera_v_frict = 0.8; // always use a value below 1 here

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

// default player movement keys used by the shooter template: WSAD, space to jump and left shift to run
STRING* key_forward = "w";
STRING* key_backward = "s";
STRING* key_left = "a";
STRING* key_right = "d";
STRING* key_jump = "space";
STRING* key_run = "shiftl"; // left shift key


////////////////////////////////////////////////////////////////////////////////////////////
action t_shooter_player()
{
	set (my, INVISIBLE); // using a 1st person player
	var forward_on, backward_on, right_on, left_on, jump_on, run_on;
	var camera_h_speed = 0, camera_v_speed = 0, current_height = 0, jump_handle;
	VECTOR horizontal_speed, vertical_speed, temp;
	vec_set(horizontal_speed.x, nullvector); // initialize this vector
	vec_set(vertical_speed.x, nullvector); // initialize this vector
	while(1)
	{
		// key input start
		forward_on = 0; // reset all the key values at the beginning of each frame
		backward_on = 0;
		right_on = 0;
		left_on = 0;
		jump_on = 0;
		run_on = 0;
		// set the proper variables if their corresponding keys are pressed
		if(key_pressed(key_for_str(key_forward)))
			forward_on = 1;
		if(key_pressed(key_for_str(key_backward)))
			backward_on = 1;  
		if(key_pressed(key_for_str(key_left)))
			left_on = 1;
		if(key_pressed(key_for_str(key_right)))
			right_on = 1;  
		if(key_pressed(key_for_str(key_jump)))
			jump_on = 1;     
		if(key_pressed(key_for_str(key_run)))
			run_on = 1;     
		// key input end

		// camera code
		vec_set(camera.x, my.x);
		// accelerate camera's pan and tilt angles depending on mouse_force.x and mouse_force.y in order to create a smooth camera
		camera.pan -= accelerate (camera_h_speed, tshooter_camera_h * (mouse_force.x), tshooter_camera_h_frict);
		camera.tilt += accelerate (camera_v_speed, tshooter_camera_v * (mouse_force.y), tshooter_camera_v_frict);
		my.pan = camera.pan;
		// camera code end

		// player movement start
		// player's horizontal speed (forward / backward / sideways) movement uses acceleration and friction as well
		horizontal_speed.x = (horizontal_speed.x > 0) * maxv(horizontal_speed.x - time_step * tshooter_friction, 0) + (horizontal_speed.x < 0) * minv(horizontal_speed.x + time_step * tshooter_friction, 0);
		if(forward_on)
		{
			horizontal_speed.x += time_step * tshooter_fwdbk_accel;
			horizontal_speed.x = minv(horizontal_speed.x, time_step * tshooter_player_speed  * (1 + run_on));
		}    
		if(backward_on)
		{
			horizontal_speed.x -= time_step * tshooter_fwdbk_accel;
			horizontal_speed.x = maxv(horizontal_speed.x, -(time_step * tshooter_player_speed * (1 + run_on)));
		}    
		horizontal_speed.y = (horizontal_speed.y > 0) * maxv(horizontal_speed.y - time_step * tshooter_friction, 0) + (horizontal_speed.y < 0) * minv(horizontal_speed.y + time_step * tshooter_friction, 0);
		if(left_on)
		{
			horizontal_speed.y += time_step * tshooter_side_accel;
			horizontal_speed.y = minv(horizontal_speed.y, time_step * tshooter_player_speed * (1 + run_on));
		}
		if(right_on)
		{
			horizontal_speed.y -= time_step * tshooter_side_accel;
			horizontal_speed.y = maxv(horizontal_speed.y, -(time_step * tshooter_player_speed * (1 + run_on)));
		}    	
		// disable the friction, allow smooth gliding along the surfaces
		move_friction = 0;
		vec_set(temp.x, my.x);
		temp.z -= 10000;
		current_height = c_trace(my.x, temp.x, IGNORE_ME | IGNORE_PASSABLE | USE_BOX | GLIDE); // compute the distance between player's origin and the floor below its feet 
		if(current_height < (tshooter_disttoground * 0.97)) // if it is smaller than the default value (64 quants) push the player upwards a bit (resilience) - 0.97 gives the hysteresis
		{
			vertical_speed.z = tshooter_resilience * time_step;
		}
		else
		{
			if(current_height > tshooter_disttoground) // if it is bigger than the default value (64 quants), move the player downwards
			{
				vertical_speed.z -= tshooter_fallspeed * time_step;
			}
			else // sitting properly on the floor?
			{
				vertical_speed.z = 0; // then don't do anything on the z axis
			}
		}    
		if((jump_on) && (current_height < tshooter_disttoground)) // jumping while player's feet are placed on the floor?
		{
			if (!snd_playing (jump_handle)) // if no jumping sound is playing, play the jumping sound now
				jump_handle = snd_play(tshooter_jump_wav, 70, 0);
			vertical_speed.z = tshooter_jump * time_step; // push the player upwards
		}
		// this c_move instruction does all the job, moving the player in the direction given by horizontal_speed (forward, backward, sideways) and vertical_speed (on the z axis)
		c_move (my, horizontal_speed.x , vertical_speed.x, IGNORE_PASSABLE | USE_BOX | GLIDE); 
		// player movement end
		wait(1);
	}
}


function main()
{
	fps_max = 75; // limit the frame rate to 75 fps (not really needed)
	video_screen = 1; // start the game in full screen mode
	video_mode = 8; // run at a 1024x768 pixels resolution
	level_load ("map1_1.wmb");
	wait (3); 
	ent_create("player.mdl",vector(0,0,0),t_shooter_player);
	
}