if (1>rand()%2)
create_part(i, x, y, PT_DUST);
else
create_part(i, x, y, PT_WATR);
if ((rand()%1+1)>1){
parts[i].type = Element1;
}else{
parts[i].type = Element2;
}
// turn the current particle into water
create_part(i,x,y,PT_WATR);
if (pfree!=-1)
{
// allocate a new particle (normally done by create_part)
r = pfree;
pfree = parts[r].life;
// make the new particle into O2
create_part(r,x,y,PT_O2);
}