Doors now check for critter access.

Cleaned up the objectives a bit and made a new "kill" one for rev.
Cleaned up implants and implanters a bit.
Cleaned up the prisoner computer a bit.
Sec Huds can be placed on security helmets (Still needs a sprite)
The beachball now has in hand sprites (Kor)

Cult:
Heads other than the Captain and HoS are now able to start as or be converted to a cultist.
Loyalty implants will block conversion but will not unconvert cultists.

Rev:
Station Heads or Head Revs who leave z1 will count as dead so long as they are off of the z level.
Loyalty implants will block conversion and will unconvert revs upon injection.
Once a mind has been unconverted it may not be reconverted

New items:
Loyalty implants, small implant that prevents reving/cult
The Captain, Warden, Officers, and Detective all start with one already implanted
Loyalty Implanter machine on the prison station that implants loyalty implants and may regen implants after a cooldown.


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

code/game/objects/devices/flash.dm

@@ -40,18 +40,28 @@
 
 		if(iscarbon(M))
 			var/safety = M:eyecheck()
-			if(!safety)
+			if(safety <= 0)
 				if(M.weakened <= 10)
 					M.weakened = 10
 					flick("e_flash", M.flash)
 
-				if(ishuman(M))//&& (rerevcheckvargoeshere))  //Rev check
-					if(user.mind in ticker.mode.head_revolutionaries)
-						ticker.mode.add_revolutionary(M.mind)
+				if(ishuman(M))
+					var/revsafe = 0
+					for(var/obj/item/weapon/implant/loyalty/L in M)
+						if(L && L.implanted)
+							revsafe = 1
+							break
+					if(M.mind.has_been_rev)
+						revsafe = 1
+					if(!revsafe)
+						if(user.mind in ticker.mode.head_revolutionaries)
+							ticker.mode.add_revolutionary(M.mind)
+							M.mind.has_been_rev = 1
 			else
 				flashfail = 1
 
 		else if(isrobot(user))
+			M.weakened = max(user.weakened, rand(5,10))
 			spawn(0)
 				var/atom/movable/overlay/animation = new(user.loc)
 				animation.layer = user.layer + 1
@@ -61,7 +71,6 @@
 				flick("blspell", animation)
 				sleep(5)
 				del(animation)
-				M.weakened = max(user.weakened, 10)
 
 
 		if(!flashfail)