//Notes: ct is ctype, which is what VSPK is on.

//If surrounding parts are not ZRNT, do {...}
                    if (parts[r>>8].type!=PT_ZRNT)
                    {
//Set the surrounding to 4500 degrees, set life of VSPK to the current life - 300, set VSPK to 5000 degrees
                        parts[r>>8].temp = 4500;
                        parts[i].life = parts[i].life - 300;
                        parts[i].temp = 5000;
//if the ctype is ZRNT do {...}
                        if(parts[i].ctype==PT_ZRNT)
                        {
//Set the temp of VSPK to 0 (273.15 because we need to account for negative temps)
                            parts[i].temp = 273.15;
                        }
                    }
//if temp of VSPK is 4500 or more, change VSPK to it's ctype, eg metl
                    if(parts[i].temp>=4500)
                        sim->part_change_type(i,x,y,ct);