//fpsp Created by Vadim647 from his example
#include <acknex.h>
#include <default.c>

///////////////////////////////////////////////////
//**************************************************|added
#define max_cam_dist 5000;
#define min_cam_dist 10;
#define max_cam_angle 90;
#define min_cam_angle 1;

var cam_dist = 100;
var cam_angle = 1;
var cam_move[3];
var temp_var;

BMAP* crosshair_map = "cross.tga";


function bomb_event();
function move_bomb();
function follow();


STRING* bomb_mdl = "bomb.mdl";
//STRING* ring_mdl = "fogband.mdl";


FONT* arial_font = "Arial#20";
////////////////////////////////////////////////////

VECTOR temp_vec, tv;
ENTITY* fpsp;
var fpsp_10;
var my_pos[3];
var add_pan;
var add_tilt;
////////////////////////////////////////////////////

//simply comment whole panel to disengage
PANEL* my_pan =

{

layer = 15;

pos_x = 0;

pos_y = 0;

bmap = "DckWnFram2.tga"; // the frame panel

// button = 780, 0, quit2_pcx, quit1_pcx, quit2_pcx, quit_game, null, null;

flags = visible;

}



PANEL* crosshair_pan =
{
bmap = crosshair_map;
layer = 20;
pos_x = 0;
pos_y = 0;
flags = TRANSLUCENT, OVERLAY;
}

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

function fps_player()//Vadim647
{//simple gliding algoritm for player
fpsp = me;
set(my,SHADOW);
vec_fill(my.scale_x,0.1);
c_setminmax(me);

crosshair_pan.pos_x = screen_size.x / 2 - 32; // the crosshair has 16x16 pixels
crosshair_pan.pos_y = screen_size.y / 2 - 16;
while (1)
{
set(crosshair_pan,SHOW);
my.skill1 += (key_w-key_s) * 2 * (1 + 2 * key_r);
my.skill2 += (key_a-key_d) * 2;
my.skill10 = c_trace(my.x,vector(my.x,my.y,my.z-4096),IGNORE_ME|IGNORE_PASSABLE|USE_BOX);
fpsp_10 = my.skill10;
// if (vec_length(my.skill1)>3) vec_normalize(my.skill1,2);//speed
// vec_normalize(my.skill1,vec_length(my.skill1) * 1.35);
// my.skill1 += (key_w-key_s) * 0.2;
vec_set(temp_vec,my.skill1);
vec_rotate(temp_vec,my.skill7);
vec_add(temp_vec,my.skill4);
c_move(me,nullvector,temp_vec,IGNORE_PASSABLE|GLIDE);

vec_set(camera.x,my.x);
camera.x = my.x - 30 * cos(my.pan); // ...3rdP mode 200 = distance
camera.y = my.y - 30 * sin(my.pan); // same value here
camera.z = my.z;

vec_set(camera.pan,my.skill7);
my.skill7 -= mouse_force.x;
my.skill8 += mouse_force.y;
my.pan = camera.pan;
my.tilt = camera.tilt;// * mouse_force.y;



add_pan=0;
add_tilt=0;

add_pan=minv(40*time_step,(maxv(mouse_force.x*5,-40*time_step)));
add_tilt=minv(40*time_step,(maxv(mouse_force.y*5,-40*time_step)));
if(my.roll>time_step*5){my.roll-=time_step*5;}
if(my.roll<time_step*5){my.roll+=time_step*5;}
my.roll+=add_pan;
my.roll=minv(40,(maxv(my.roll,-40)));
my.pan -= add_pan*.5;
my.tilt -= add_tilt*.5;
while(key_f < 0){wait(1);}
if(key_f ==1)
{
my.skill1 -=0.1*time_step;
if(my.skill1 <= 0)
{
my.skill1 = 0;
}
my.skill2 = 0;

}
if(my.skill1 > 3)
{
my.skill1 = 3;
}
while(key_b < 0){wait(1);}
if (key_b > 0)

{
// create the bomb 20 quants below the bird's origin
ent_create (bomb_mdl, vector(my.x, my.y, my.z - 10), move_bomb);
}
wait(1);
}
}



void main()//Vadim647
{
vec_set(sky_color,vector(192,160,128));//background color
var video_screen = 2;
video_switch(8,32,2);//used in conjunction with video_window
video_window(nullvector, vector(1024,568,0), 1, "Adapted from Vadim647 flight script");
level_load("flightTest.wmb");//load your own level here
wait(3);
ent_createlayer("scifi1b+6.tga", SKY | CUBE | VISIBLE, 0); // create the sky layer
camera.clip_far = 15000;//clipfar. If you've made too big level and it lags, reduce it
camera.clip_near = 0;//since camera can go very close to walls, we set it to 0
camera.arc = 70;//makes it look more unique
move_friction = 0;//gliding requires this one
ent_create("AirRaptor.mdl",vector(-2200.00,0,50),fps_player);//and finaly, create the player entity
fog_color = 1;
fps_max = 60;
camera.fog_start = 0.01 * camera.clip_far; // fog starts at 10% of clip range
camera.fog_end = 0.2 * camera.clip_far; // total foggy at 90% of clip range
ent_create ("fogband.mdl", vector(camera.x,camera.y,camera.z), follow);
}


action poly_on() //just to stop the default animations from running on static model for comparisons
{
my.ambient = 50;
set(my, POLYGON);
}

function bomb_event()

{

// do something bad to the player here ..and add effects etc....

wait (1);

ent_remove(my);

}



function move_bomb()

{
my.pan = camera.pan;
my.tilt = camera.tilt;
my.emask |= (ENABLE_BLOCK | ENABLE_IMPACT | ENABLE_ENTITY);
my.roll +=15 *time_step;
my.event = bomb_event;

while (my)

{
c_move(my, vector(15 * time_step, 0, -1 * time_step), nullvector, IGNORE_SPRITES);
wait (1);
}

}

function follow()
{

while (fps_player <1) {wait (1);}
proc_mode = PROC_LATE;
fpsp = fps_player;
set(my, PASSABLE);
set(my,TRANSLUCENT);
set(my, LIGHT);
my.red=255;
my.green=255;
my.blue=255;
my.ambient = 100;
vec_fill(my.scale_x,10);
my.alpha = 50; // play with this value
while (fps_player !=NULL)
{
my.x = camera.x;
my.y = camera.y;
my.z = camera.z +20; // 40 = experimental value


wait(1);
}
}