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

BMAP* star_map = "star.pcx";
BMAP* star_map2= "starmap.dds";

var star_gen_pos[3];

var star_map_pos[25][3];

ENTITY* plSHIP;


TEXT* help = {
	string = "TEST-PROGRAMM - CREATED BY MARCEL KLEE";
	red = 255; green=55; blue=55;
	flags=VISIBLE;
}


function plActor();
function part_alphafade(PARTICLE *p);
function effect_explo(PARTICLE *p);





function main(){
	
	video_mode = 6; // create a program window of 640x480 pixels

	
	
	//Load the Environment
	level_load("");
	

	wait(3);
		
	fps_max=60;			
	ent_create("s1.mdl", vector(0,0,0),plActor);
	
	
	
}





function plActor()
{

plSHIP = me;

var vecPos[3]   = {0,0,0};
var vecSpeed[3] = {0,0,0};
var vecAng[3]   = {0,0,0};

var vecForce1[3] = {0,0,0};

var mySpeed = 0;
var facCamAbst;

var shipmass = 80; //80tons

while(1){
mySpeed += key_force.y*time_step/shipmass;
vecSpeed[1] += mySpeed*cos(my.pan);
vecSpeed[2] += mySpeed*sin(my.pan);
vecSpeed[3] = 0;


vecAng[1] -= key_force.x*15*time_step;

vec_add(vecPos[1], vecSpeed[1]);

accelerate(mySpeed, 0, 0.05);

accelerate(vecSpeed[1], 0, 0.05);
accelerate(vecSpeed[2], 0, 0.05);
accelerate(vecSpeed[3], 0, 0.05);


vecForce1[1] -= mySpeed*key_force.x/shipmass*cos(my.pan-90);
vecForce1[2] -= mySpeed*key_force.x/shipmass*sin(my.pan-90);
vecForce1[3] = 0;

vec_add(vecPos[1], vecForce1[1]);
accelerate(vecForce1[1], 0, 0.05);
accelerate(vecForce1[2], 0, 0.05);
accelerate(vecForce1[3], 0, 0.05);



my.pan  = vecAng[1];
my.tilt = 0;
my.roll = 0;

my.x = vecPos[1];
my.y = vecPos[2];
my.z = vecPos[3];

camera.x = my.x;
camera.y = my.y;
camera.z = my.z + 550 + facCamAbst;
camera.tilt= -90;
camera.roll= 0;
camera.pan = 0;

facCamAbst = mySpeed*15*shipmass;
facCamAbst = abs(facCamAbst);
		
		vec_set(star_gen_pos[1],my.x);

if(num_particles < 300) { effect(effect_explo,50 * time_step,star_gen_pos[1],normal); }


wait(1);
 }
}



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



function part_alphafade(PARTICLE *p)
{

  var distanz;
  var rand_alpha;
	p.alpha = 1;
	rand_alpha = random(100)-50;
	if(p.alpha < rand_alpha) { p.alpha+=1;}
  
   p.lifespan = 1;
   distanz = vec_dist(p.x, plSHIP.x);
     
if(num_particles > 1000) {   p.lifespan = 0; }   
if(distanz > 600) { p.lifespan = 0; }

}

function effect_explo(PARTICLE *p)
{
   var temp[3];
   p.lifespan = random(500) - 200;

   p.x = star_gen_pos[1] + random(600) - random(600);
   p.y = star_gen_pos[2] + random(600) - random(600);
   p.z = star_gen_pos[3] + random(600) - random(600);
   p.size = random(8)-4;
   
   p.alpha = 50 + random(25);
   p.bmap = star_map;
   p.flags |= (BRIGHT | TRANSLUCENT);
   p.event = part_alphafade; 
}