function bloodfade(PARTICLE *p)
{
p.alpha -= 20*time_step;

if (p.alpha <= 0)
{
p.lifespan = 0;
}
}

function blood(PARTICLE *p)
{

p.bmap = bloodbmap;

p.vel_x+=random(10)-random(10);
p.vel_y+=random(10)-random(10);
p.vel_z-=random(10)-random(10);

p.size=random(4);
p.alpha = 100;
p.flags |= ( MOVE | TRANSLUCENT );
p.event = bloodfade; // change to a shorter, faster function
}