int update_HETR(UPDATE_FUNC_ARGS) {
    int r,rx,ry,rt,a,b;
	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){
					for (a=-2; a<3; a++)
						for (b=-2; b<3; b++){
							if ((pmap[y+b][x+a]&0xFF)==PT_DLAY)
								parts[pmap[y+b][x+a]>>8].temp += 2.0f;
							else if ((pmap[y+b][x+a]&0xFF)==PT_WIFI||(pmap[b][a]&0xFF)==PT_PRTI||(pmap[b][a]&0xFF)==PT_PRTO)
								parts[pmap[y+b][x+a]>>8].temp += 100.0f;
						}
				}
			}
	return 0;
}