// helper function: sets the vector to random direction and length
function vec_randomize (VECTOR* vec, var range)
{
   vec_set(vec,vector(random(1)-0.5,random(1)-0.5,random(1)-0.5));
   vec_normalize(vec,random(range));
}

// helper function: fades out a particle
function p_alphafade(PARTICLE *p)
{
    p.alpha -= p.skill_a*time_step;
    if (p.alpha <= 0) p.lifespan = 0;
}

function p_fountain(PARTICLE* p)
{
   VECTOR vTemp;
   vec_randomize(vTemp,2);
   vec_add(p.vel_x,vTemp);
   vec_set(p.blue,vector(random(255),random(255),255));
   set(p, MOVE | BRIGHT | TRANSLUCENT);
   p.alpha = 100;
   p.size = 2;
   p.gravity = 0.2;
   p.skill_a = 3; // fade factor
   p.event = p_alphafade;
}

function main()
{
  level_load(NULL);
  video_window(NULL,NULL,0,"Particle demo");
  vec_set(camera.x,vector(-150,0,50));
  vec_set(sky_color,vector(50,0,0)); // dark blue

  while(1)
  {
     effect(p_fountain,maxv(1,40*time_step),vector(0,0,0),vector(0,0,5));
     wait(1);
  }
}

VIEW* movie_camera1 =
{
	layer = 5;
	pos_x = 0;
	pos_y = 0;
	size_x = screen_size.x;
	size_y = screen_size.y;
	arc = 60;
	x = 5800;
	y = 0;
	z = 2036;
	tilt = -20;
	pan = 181;
	genius = NULL;
	flags = UNTOUCHABLE;
} 
/////////////////////////////////////////

TEXT* location_info =
{
	pos_x = 300;
	pos_y = 500;
	layer = 0;
	font = "coure#25b";
	blue = 255;
	green = 20;
	red = 25;
	string("L");
}





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


function p_explo1fade(PARTICLE *p)
{
    p.alpha -= 3*time_step;
    if (p.alpha <= 0) p.lifespan = 0;
}

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

function p_explo1(PARTICLE* p)
{
   VECTOR explo1_speed;
   vec_set(explo1_speed,vector(0.5-random(1),0.5-random(1),0.5-random(1)));
   vec_set(p.vel_x,explo1_speed.x);
   set(p, MOVE | BRIGHT | TRANSLUCENT);
   p.alpha = 100;
   p.size = 16;
   p.bmap = "explo+13.tga";
   p.gravity = 0.2;
   p.event = p_explo1fade;
}


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

function play_movie1 ()
{
	var CamPanStore;
	var time_passed = 0;
	
	VECTOR camera_speed;
	
	if (p_able_to_move == 0)
	{
		set(camera,0);
		set(movie_camera1,SHOW);
   }
   CamPanStore = movie_camera1.pan;
   set(location_info,SHOW);
   while(time_passed < 7)
   {
   	movie_camera1.pan -= 0.5*time_step;
   	time_passed += time_step/16;
   	if (time_passed >= 0.1) str_cpy((location_info.pstring)[0],"Lo");
   	if (time_passed >= 0.2) str_cpy((location_info.pstring)[0],"Loc");
   	if (time_passed >= 0.3) str_cpy((location_info.pstring)[0],"Loca");
   	if (time_passed >= 0.4) str_cpy((location_info.pstring)[0],"Locat");
   	if (time_passed >= 0.5) str_cpy((location_info.pstring)[0],"Locati");
   	if (time_passed >= 0.6) str_cpy((location_info.pstring)[0],"Locatio");
   	if (time_passed >= 0.7) str_cpy((location_info.pstring)[0],"Location");
   	if (time_passed >= 0.8) str_cpy((location_info.pstring)[0],"Location:");
   	if (time_passed >= 0.9) str_cpy((location_info.pstring)[0],"Location: ");
   	if (time_passed >= 1) str_cpy((location_info.pstring)[0],"Location: C");
   	if (time_passed >= 1.1) str_cpy((location_info.pstring)[0],"Location: Ch");
   	if (time_passed >= 1.2) str_cpy((location_info.pstring)[0],"Location: Chi");
   	if (time_passed >= 1.3) str_cpy((location_info.pstring)[0],"Location: Chin");
   	if (time_passed >= 1.4) str_cpy((location_info.pstring)[0],"Location: China");
   	wait(1);
   }
   toggle(location_info,SHOW);
   vec_set(movie_camera1.x,vector(6474,5770,2609));
   movie_camera1.pan += 43;
   
   wait(-1);
   time_passed = 0;
   while(time_passed < 2)
   {
   	time_passed += time_step/16;
   	movie_camera1.x -= 50*time_step;
   	movie_camera1.tilt -= 0.25*time_step;
   	wait(1);
   }
   
   effect(p_explo1,1,vector(1921,7288,95),normal);
   
   toggle(movie_camera1,SHOW);
   set(camera,SHOW);
   p_able_to_move = 1;

}

#include <particles.c>


function p_fountain(PARTICLE* p)
{
   VECTOR vTemp;
   vec_randomize(vTemp,2);
   vec_add(p.vel_x,vTemp);
   vec_set(p.blue,vector(random(255),random(255),255));
   set(p, MOVE | BRIGHT | TRANSLUCENT);
   p.alpha = 100;
   p.size = 2;
   p.gravity = 0.2;
   p.skill_a = 3; // fade factor
   p.event = p_fade;
}

// sprite-emulated particle function
function p_fountain_sprite(ENTITY* p)
{
   VECTOR vTemp;
   vec_randomize(vTemp,2);
   vec_add(p._VEL_X,vTemp);
   vec_set(p.blue,vector(random(255),random(255),255));
   set(p, _MOVE | BRIGHT | TRANSLUCENT);
   p.alpha = 100;
   p._SIZE = 2;
   p._GRAVITY = 0.2;
   p._FADE = 3;  // fade factor
   p.event = p_fade_sprite;
}


function create particles()
{
   while(x)
       {
         effect_sprite("explo+13.tga", p_fountain_sprite,1*time_step,my.x,vector(0,0,50));
       wait(1);
       } 
}