anchor.diff:  		if(!istype(H.glasses, /obj/item/clothing/glasses/meson))
   			to_chat(H, "<span class='danger'>You get headaches just from looking at it.</span>")
   		return
  -
  -#define CRITICAL_TEMPERATURE 10000
   
   /obj/machinery/power/supermatter_crystal/proc/get_status()
   	var/turf/T = get_turf(src)
  
positive.code: #define SUPERMATTER_EMERGENCY_PERCENT 25
  #define SUPERMATTER_DANGER_PERCENT 50
  #define SUPERMATTER_WARNING_PERCENT 100
  
  #define SUPERMATTER_COUNTDOWN_TIME 30 SECONDS
  
  
negative.code: 		plasmacomp = max(removed.gases[/datum/gas/plasma]/combined_gas, 0)
  		o2comp = max(removed.gases[/datum/gas/oxygen]/combined_gas, 0)
  		co2comp = max(removed.gases[/datum/gas/carbon_dioxide]/combined_gas, 0)
  		pluoxiumcomp = max(removed.gases[/datum/gas/pluoxium]/combined_gas, 0)
  		tritiumcomp = max(removed.gases[/datum/gas/tritium]/combined_gas, 0)
  		bzcomp = max(removed.gases[/datum/gas/bz]/combined_gas, 0)
  
  		n2ocomp = max(removed.gases[/datum/gas/nitrous_oxide]/combined_gas, 0)
  		n2comp = max(removed.gases[/datum/gas/nitrogen]/combined_gas, 0)
  
  		if(pluoxiumcomp >= 15)
  			pluoxiumbonus = 1	//Just to be safe I don't want to remove pluoxium
  		else
  			pluoxiumbonus = 0
  
  		gasmix_power_ratio = min(max(plasmacomp + o2comp + co2comp + tritiumcomp + bzcomp - pluoxiumcomp - n2comp, 0), 1)
  
  		dynamic_heat_modifier = max((plasmacomp * PLASMA_HEAT_PENALTY) + (o2comp * OXYGEN_HEAT_PENALTY) + (co2comp * CO2_HEAT_PENALTY) + (tritiumcomp * TRITIUM_HEAT_PENALTY) + ((pluoxiumcomp * PLUOXIUM_HEAT_PENALTY) * pluoxiumbonus) + (n2comp * NITROGEN_HEAT_PENALTY) + (bzcomp * BZ_HEAT_PENALTY), 0.5)
  		dynamic_heat_resistance = max((n2ocomp * N2O_HEAT_RESISTANCE) + ((pluoxiumcomp * PLUOXIUM_HEAT_RESISTANCE) * pluoxiumbonus), 1)
  
  		power_transmission_bonus = max((plasmacomp * PLASMA_TRANSMIT_MODIFIER) + (o2comp * OXYGEN_TRANSMIT_MODIFIER) + (bzcomp * BZ_TRANSMIT_MODIFIER), 0)
  
  		//more moles of gases are harder to heat than fewer, so let's scale heat damage around them
  		mole_heat_penalty = max(combined_gas / MOLE_HEAT_PENALTY, 0.25)
  