Recreational Drug & Toxins Tweaks & Additions (#13129)

This took way too long.

code/modules/mob/living/carbon/human/life.dm

@@ -626,6 +626,25 @@
 				if(prob(2))
 					to_chat(src, SPAN_WARNING(pick("The itch is becoming progressively worse.", "You need to scratch that itch!", "The itch isn't going!")))
 
+		if(CE_HAUNTED in chem_effects)
+			var/haunted = chem_effects[CE_HAUNTED]
+			if(haunted < 5)
+				if(prob(20))
+					set_see_invisible(SEE_INVISIBLE_CULT)
+				if(prob(5))
+					emote("shiver")
+					to_chat(src, SPAN_GOOD(pick("You hear the clinking of dinner plates and laughter.", "You hear a distant voice of someone you know talking to you.", "Fond memories of a departed loved one flocks to your mind.", "You feel the reassuring presence of a departed loved one.", "You feel a hand squeezing yours.")))
+			if(haunted >= 5)
+				set_see_invisible(SEE_INVISIBLE_CULT)
+				make_jittery(5)
+				if(prob(5))
+					visible_message("<b>[src]</b> trembles uncontrollably.", "<span class='warning'>You tremble uncontrollably.</span>")
+					to_chat(src, SPAN_CULT(pick("You feel fingers tracing up your back.", "You hear the distant wailing and sobbing of a departed loved one.", "You feel like you are being closely watched.", "You hear the hysterical laughter of a departed loved one.", "You no longer feel the reassuring presence of a departed loved one.", "You feel a hand taking hold of yours, digging its nails into you as it clings on.")))
+			if(haunted >= 10)
+				if(prob(5))
+					emote(pick("shiver", "twitch"))
+					to_chat(src, SPAN_CULT(pick("You feel a cold and threatening air wrapping around you.", "Whispering shadows, ceaseless in their demands, twist your thoughts...", "The whispering, anything to make them stop!", "Your head spins amid the cacophony of screaming, wailing and maniacal laughter of distant loved ones.", "You feel vestiges of decaying souls cling to you, trying to re-enter the world of the living.")))
+
 		sprint_speed_factor = species.sprint_speed_factor
 		max_stamina = species.stamina
 		stamina_recovery = species.stamina_recovery

code/modules/mob/living/living.dm

@@ -956,7 +956,7 @@ default behaviour is:
 /mob/living/proc/seizure()
 	if(!paralysis && stat == CONSCIOUS)
 		visible_message("<span class='danger'>\The [src] starts having a seizure!</span>")
-		Paralyse(rand(8,16))
+		Paralyse(rand(16,24))
 		make_jittery(rand(150,200))
 		adjustHalLoss(rand(50,60))