lse if(t==PT_O2)
{
    for(nx=-2;nx<3;nx++)
        for(ny=-2;ny<3;ny++)
        {
            if(x+nx>=0 && y+ny>0 && x+nx<XRES && y+ny<YRES && (nx || ny))
            {
            r=pmap[y+ny][x+nx];
                if ((r&0xFF)==PT_H2)
                {
                    parts[i].type=PT_WATR;
                    parts[r>>8].type=PT_WATR;
                }
            }
        }
}