Added HoS (58), HoP (57) and CE (56) access levels. The HoP level applied to the HoP's locker, the CE access level applied to CE's locker and office door, the HoS' access level applied to HoS office door and locker. Each of these heads spawns with only their own access level:

Consequences:
- They cannot enter eachother's office (Except for HoP's office, which retains heads/bridge access)
- They cannot steal eachother's stuff so easily
- The borg blowing console is safe from the HoP's ugly fingers
- The hypospray is also safe from the HoP's fingers. (Both only until he grants himself full access, obviously)

- Commit includes commented out ion storm code and not-commented-out ion_act procs.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@1485 316c924e-a436-60f5-8080-3fe189b3f50e

code/modules/power/apc.dm

@@ -864,6 +864,28 @@
 
 	return
 
+/obj/machinery/power/apc/proc/ion_act()
+	//intended to be exactly the same as an AI malf attack
+	if(!src.malfhack && src.z == 1)
+		if(prob(3))
+			src.locked = 1
+			if (src.cell.charge > 0)
+				world << "\red blew APC in [src.loc.loc]"
+				src.cell.charge = 0
+				cell.corrupt()
+				src.malfhack = 1
+				updateicon()
+				var/datum/effects/system/harmless_smoke_spread/smoke = new /datum/effects/system/harmless_smoke_spread()
+				smoke.set_up(3, 0, src.loc)
+				smoke.attach(src)
+				smoke.start()
+				var/datum/effects/system/spark_spread/s = new /datum/effects/system/spark_spread
+				s.set_up(3, 1, src)
+				s.start()
+				for(var/mob/M in viewers(src))
+					M.show_message("\red The [src.name] suddenly lets out a blast of smoke and some sparks!", 3, "\red You hear sizzling electronics.", 2)
+
+
 /obj/machinery/power/apc/surplus()
 	if(terminal)
 		return terminal.surplus()

code/modules/power/smes.dm

@@ -346,6 +346,36 @@
 
 	return
 
+/obj/machinery/power/smes/proc/ion_act()
+	if(src.z == 1)
+		if(prob(1)) //explosion
+			world << "\red SMES explosion in [src.loc.loc]"
+			for(var/mob/M in viewers(src))
+				M.show_message("\red The [src.name] is making strange noises!", 3, "\red You hear sizzling electronics.", 2)
+			sleep(10*pick(4,5,6,7,10,14))
+			var/datum/effects/system/harmless_smoke_spread/smoke = new /datum/effects/system/harmless_smoke_spread()
+			smoke.set_up(3, 0, src.loc)
+			smoke.attach(src)
+			smoke.start()
+			explosion(src.loc, -1, 0, 1, 3, 0)
+			del(src)
+			return
+		if(prob(15)) //Power drain
+			world << "\red SMES power drain in [src.loc.loc]"
+			var/datum/effects/system/spark_spread/s = new /datum/effects/system/spark_spread
+			s.set_up(3, 1, src)
+			s.start()
+			if(prob(50))
+				emp_act(1)
+			else
+				emp_act(2)
+		if(prob(5)) //smoke only
+			world << "\red SMES smoke in [src.loc.loc]"
+			var/datum/effects/system/harmless_smoke_spread/smoke = new /datum/effects/system/harmless_smoke_spread()
+			smoke.set_up(3, 0, src.loc)
+			smoke.attach(src)
+			smoke.start()
+
 /obj/machinery/power/smes/emp_act(severity)
 	online = 0
 	charging = 0