692e2ba86d
For compatibility with some saves relying on the exact time taken for a switch on/off to spread through adjacent PCLN dots.
68 lines
1.8 KiB
C
68 lines
1.8 KiB
C
#include <powder.h>
|
|
|
|
int update_PCLN(UPDATE_FUNC_ARGS) {
|
|
int r;
|
|
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>>8)>=NPART || !r)
|
|
continue;
|
|
if ((r&0xFF)==PT_SPRK)
|
|
{
|
|
if (parts[r>>8].ctype==PT_PSCN)
|
|
parts[i].life = 10;
|
|
else if (parts[r>>8].ctype==PT_NSCN)
|
|
parts[i].life = 9;
|
|
}
|
|
if ((r&0xFF)==PT_PCLN)
|
|
{
|
|
if (parts[i].life==10&&parts[r>>8].life<10&&parts[r>>8].life>0)
|
|
parts[i].life = 9;
|
|
else if (parts[i].life==0&&parts[r>>8].life==10)
|
|
parts[i].life = 10;
|
|
}
|
|
}
|
|
if (!parts[i].ctype)
|
|
for (nx=-1; nx<2; nx++)
|
|
for (ny=-1; ny<2; ny++)
|
|
if (x+nx>=0 && y+ny>0 &&
|
|
x+nx<XRES && y+ny<YRES &&
|
|
pmap[y+ny][x+nx] &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_CLNE &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_PCLN &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_BCLN &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_SPRK &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_NSCN &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_PSCN &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_STKM &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=PT_STKM2 &&
|
|
(pmap[y+ny][x+nx]&0xFF)!=0xFF)
|
|
parts[i].ctype = pmap[y+ny][x+nx]&0xFF;
|
|
if (parts[i].ctype && parts[i].life==10) {
|
|
if (parts[i].ctype==PT_PHOT) {
|
|
for (nx=-1; nx<2; nx++) {
|
|
for (ny=-1; ny<2; ny++) {
|
|
int r = create_part(-1, x+nx, y+ny, parts[i].ctype);
|
|
if (r!=-1) {
|
|
parts[r].vx = nx*3;
|
|
parts[r].vy = ny*3;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else if (ptypes[parts[i].ctype].properties&PROP_LIFE) {
|
|
for (nx=-1; nx<2; nx++) {
|
|
for (ny=-1; ny<2; ny++) {
|
|
create_part(-1, x+nx, y+ny, parts[i].ctype);
|
|
}
|
|
}
|
|
} else {
|
|
create_part(-1, x+rand()%3-1, y+rand()%3-1, parts[i].ctype);
|
|
}
|
|
}
|
|
return 0;
|
|
}
|