Antimatter code

#define QHA 0.995
#define ENERGYCOEF 48000 //At 1 gramm, 48000 joules, Transfer to watts - 48000 * mass in grams * 0.995(see above)
/datum/Antimatter
	var/AntimatterHydrogen = 0.0 //Gramms
	var/MatterHydrogen = 0.0 //Gramms
	var/Energy = 0.0
	var/obj/item/URing/myholder
	proc/calculate()
		if(AntimatterHydrogen != MatterHydrogen)
			var/EQ = min(AntimatterHydrogen,MatterHydrogen)
			Energy = Round(ENERGYCOEF * EQ * QHA)
		else
			Energy = Round(ENERGYCOEF * AntimatterHydrogen * QHA)
	proc/radiate()
		myholder.GetImpulse(Energy)
		Jorn()
	proc/Jorn()
		var/lessH = -1
		if(AntimatterHydrogen != MatterHydrogen)
			lessH = 0
			if(AntimatterHydrogen < MatterHydrogen)
				LessH = 0
			else
				LessH = 1
		switch(LessH)
			if(-1)
				MatterHydrogen -= 0
				AntimatterHydrogen = 0 //Full reaction
			if(0)
				MatterHydrogen -= AntimatterHydrogen
				AntimatterHydrogen = 0
			if(1)
				AntimatterHydrogen -= MatterHydrogen
				MatterHydrogen = 0