Heater

int update_HETR(UPDATE_FUNC_ARGS) {
    int r,rx,ry,rt;
	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];
				rt = (r&0xFF);
				if (!r)
					continue;
				if ((r&0xFF)==PT_SPRK&&parts[r>>8].ctype!=PT_PSCN&&parts[r>>8].ctype!=PT_NSCN){
					if((pmap[y+-2][x+-2]&0xFF) == PT_DLAY)
						parts[pmap[y+-2][x+-2]>>8].temp += 4.0f;
					if((pmap[y+-1][x+-2]&0xFF) == PT_DLAY)
							parts[pmap[y+-1][x+-2]>>8].temp += 4.0f;
					if((pmap[y][x+-2]&0xFF) == PT_DLAY)
							parts[pmap[y][x+-2]>>8].temp += 4.0f;
					if((pmap[y+1][x+-2]&0xFF) == PT_DLAY)
							parts[pmap[y+1][x+-2]>>8].temp += 4.0f;
					if((pmap[y+2][x+-2]&0xFF) == PT_DLAY)
							parts[pmap[y+2][x+-2]>>8].temp += 4.0f;
					if((pmap[y+-2][x+-1]&0xFF) == PT_DLAY)
						parts[pmap[y+-2][x+-1]>>8].temp += 4.0f;
					if((pmap[y+-1][x+-1]&0xFF) == PT_DLAY)
							parts[pmap[y+-1][x+-1]>>8].temp += 4.0f;
					if((pmap[y][x+-1]&0xFF) == PT_DLAY)
							parts[pmap[y][x+-1]>>8].temp += 4.0f;
					if((pmap[y+1][x+-1]&0xFF) == PT_DLAY)
							parts[pmap[y+1][x+-1]>>8].temp += 4.0f;
					if((pmap[y+2][x+-1]&0xFF) == PT_DLAY)
							parts[pmap[y+2][x+-1]>>8].temp += 4.0f;
					if((pmap[y+-2][x]&0xFF) == PT_DLAY)
						parts[pmap[y+-2][x]>>8].temp += 4.0f;
					if((pmap[y+-1][x]&0xFF) == PT_DLAY)
							parts[pmap[y+-1][x]>>8].temp += 4.0f;
					if((pmap[y+1][x]&0xFF) == PT_DLAY)
							parts[pmap[y+1][x]>>8].temp += 4.0f;
					if((pmap[y+2][x]&0xFF) == PT_DLAY)
							parts[pmap[y+2][x]>>8].temp += 4.0f;
					if((pmap[y+-2][x+1]&0xFF) == PT_DLAY)
						parts[pmap[y+-2][x+1]>>8].temp += 4.0f;
					if((pmap[y+-1][x+1]&0xFF) == PT_DLAY)
							parts[pmap[y+-1][x+1]>>8].temp += 4.0f;
					if((pmap[y][x+1]&0xFF) == PT_DLAY)
							parts[pmap[y][x+1]>>8].temp += 4.0f;
					if((pmap[y+1][x+1]&0xFF) == PT_DLAY)
							parts[pmap[y+1][x+1]>>8].temp += 4.0f;
					if((pmap[y+2][x+1]&0xFF) == PT_DLAY)
							parts[pmap[y+2][x+1]>>8].temp += 4.0f;
					if((pmap[y+-2][x+2]&0xFF) == PT_DLAY)
						parts[pmap[y+-2][x+2]>>8].temp += 4.0f;
					if((pmap[y+-1][x+2]&0xFF) == PT_DLAY)
							parts[pmap[y+-1][x+2]>>8].temp += 4.0f;
					if((pmap[y][x+2]&0xFF) == PT_DLAY)
							parts[pmap[y][x+2]>>8].temp += 4.0f;
					if((pmap[y+1][x+2]&0xFF) == PT_DLAY)
							parts[pmap[y+1][x+2]>>8].temp += 4.0f;
					if((pmap[y+2][x+2]&0xFF) == PT_DLAY)
							parts[pmap[y+2][x+2]>>8].temp += 4.0f;
					}
			}
	return 0;
}