function vec_smoke(VECTOR* vec)
{
var vec2[3];
vec2[0] = random(40) - 20;
vec2[1] = random(40) - 20;
vec2[2] = random(5) + 1;
vec_set(vec,vec2);
}

function smoke_func(PARTICLE* p)
{
p.size += 2 * time_step;
p.alpha -= 4 * time_step;
if(my.alpha < 0) { p.lifespan = 0; }
p.vel_x = p.vel_x / 1.2;
p.vel_y = p.vel_y / 1.2;

}
function particle_smoke(PARTICLE* p)
{
var temp[3];
vec_smoke(temp);
vec_set(p.vel_x,temp);
p.size = random(25)+12.5; // 5 to 10 in size
p.bmap = feuer_gros1;
p.lifespan = 100;
p.alpha = 50;
set(p, MOVE | BRIGHT);
p.event = smoke_func;
}