function snow();
function infinity();
function effect_snowflake();
function createParticles();
BMAP* particle_map;
particle_map = bmap_create("particle.pcx");
VECTOR g_snowbox;

function createParticles() {
	snow(4000,4000,2000,5000);
}

function infinity(PARTICLE* p) 
{
   vec_set(p.x,vector(cycle(p.x,camera.x-g_snowbox.x,camera.x+g_snowbox.x),
       cycle(p.y,camera.y-g_snowbox.y,camera.y+g_snowbox.y),
       cycle(p.z,camera.z-g_snowbox.z,camera.z+g_snowbox.z)));
   p.lifespan=1; // live forever
}

function effect_snowflake(PARTICLE* p)
{
   vec_set(p.x,vector(camera.x+random(g_snowbox.x*2)-g_snowbox.x,
       camera.y+random(g_snowbox.y*2)-g_snowbox.y,
       camera.z+random(g_snowbox.z*2)-g_snowbox.z));
   
   vec_set(p.vel_z,vector(-(random(4)+4), random(2)-1, random(2)-1));
   
   p.bmap=particle_map;
   p.size=random(1)+2;
   p.alpha=random(30)+10;
   //p.move=on;
 
}

function snow(cx,cy,cz,numparticles)
{
   g_snowbox.x=cx/2;
   g_snowbox.y=cy/2;
   g_snowbox.z=cz/2;
   effect(effect_snowflake,numparticles,nullvector,nullvector);
}

 

//// Particle movement handling ///////
function vec_randomize (var* vec, var range)
{
   vec[0] = random(0.5) - 0.25;
   vec[1] = random(0.5) - 0.25;
   vec[2] = random(1) - 0.25;
   vec_normalize(vec,random(range));
}

//// particle alpha handling ////////
function part_alphafade(PARTICLE *p)
{
   p.alpha -= 1*time_step;
   if (p.alpha <= 0) p.lifespan = 0;
}

///// particle creating /////////
function effect_smokes(PARTICLE *p)
{
   p.red = 100;
   p.blue = 100;
   p.green = 100;
   var temp[3];
   vec_randomize(temp,3);
   vec_add (p.vel_x, temp);
   p.alpha = 50 + random(25);
   p.size = 30;
   p.bmap = rauch2_farbe6;
   p.flags |= (MOVE);
   p.event = part_alphafade; // change to a shorter, faster function
}
//// particle using  /////////
action destroyed_tank()
{
  while(1)
  {
	effect(effect_smokes,50,my.x,normal);
	wait(20);
  }
}