92 lines
2.4 KiB
C
92 lines
2.4 KiB
C
/*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <element.h>
|
|
|
|
int update_ACID(UPDATE_FUNC_ARGS) {
|
|
int r, rx, ry, trade, np;
|
|
for (rx=-2; rx<3; rx++)
|
|
for (ry=-2; ry<3; ry++)
|
|
if (x+rx>=0 && y+ry>0 && x+rx<XRES && y+ry<YRES && (rx || ry))
|
|
{
|
|
r = pmap[y+ry][x+rx];
|
|
if (!r)
|
|
continue;
|
|
if ((r&0xFF)!=PT_ACID && (r&0xFF)!=PT_CAUS)
|
|
{
|
|
if ((r&0xFF)==PT_PLEX || (r&0xFF)==PT_NITR || (r&0xFF)==PT_GUNP || (r&0xFF)==PT_RBDM || (r&0xFF)==PT_LRBD)
|
|
{
|
|
part_change_type(i,x,y,PT_FIRE);
|
|
part_change_type(r>>8,x+rx,y+ry,PT_FIRE);
|
|
parts[i].life = 4;
|
|
parts[r>>8].life = 4;
|
|
}
|
|
else if ((r&0xFF)==PT_WTRV)
|
|
{
|
|
if(!(rand()%250))
|
|
{
|
|
part_change_type(i, x, y, PT_CAUS);
|
|
parts[i].life = (rand()%50)+25;
|
|
kill_part(r>>8);
|
|
}
|
|
}
|
|
else if (((r&0xFF)!=PT_CLNE && (r&0xFF)!=PT_PCLN && ptypes[r&0xFF].hardness>(rand()%1000))&&parts[i].life>=50)
|
|
{
|
|
if (parts_avg(i, r>>8,PT_GLAS)!= PT_GLAS)//GLAS protects stuff from acid
|
|
{
|
|
float newtemp = ((60.0f-(float)ptypes[r&0xFF].hardness))*7.0f;
|
|
if(newtemp < 0){
|
|
newtemp = 0;
|
|
}
|
|
parts[i].temp += newtemp;
|
|
parts[i].life--;
|
|
kill_part(r>>8);
|
|
}
|
|
}
|
|
else if (parts[i].life<=50)
|
|
{
|
|
kill_part(i);
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
for ( trade = 0; trade<2; trade ++)
|
|
{
|
|
rx = rand()%5-2;
|
|
ry = rand()%5-2;
|
|
if (x+rx>=0 && y+ry>0 && x+rx<XRES && y+ry<YRES && (rx || ry))
|
|
{
|
|
r = pmap[y+ry][x+rx];
|
|
if ((r>>8)>=NPART || !r)
|
|
continue;
|
|
if ((r&0xFF)==PT_ACID&&(parts[i].life>parts[r>>8].life)&&parts[i].life>0)//diffusion
|
|
{
|
|
int temp = parts[i].life - parts[r>>8].life;
|
|
if (temp ==1)
|
|
{
|
|
parts[r>>8].life ++;
|
|
parts[i].life --;
|
|
}
|
|
else if (temp>0)
|
|
{
|
|
parts[r>>8].life += temp/2;
|
|
parts[i].life -= temp/2;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|