Bugfix for some clothing making your hair disappear.

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

code/modules/chemical/Chemistry-Reagents.dm

@@ -437,11 +437,24 @@ datum
 				M.druggy = max(M.druggy, 15)
 				if(isturf(M.loc))
 					if(M.canmove)
-						step(M, pick(cardinal))
+						if(prob(10)) step(M, pick(cardinal))
 				if(prob(7)) M:emote(pick("twitch","drool","moan","giggle"))
 				holder.remove_reagent(src.id, 0.2)
 				return
 
+		serotrotium
+			name = "Serotrotium"
+			id = "serotrotium"
+			description = "A chemical compound that promotes concentrated production of the serotonin neurotransmitter in humans."
+			reagent_state = LIQUID
+			color = "#202040" // rgb: 20, 20, 40
+
+			on_mob_life(var/mob/living/M as mob)
+				if(ishuman(M))
+					if(prob(7)) M:emote(pick("twitch","drool","moan","gasp"))
+					holder.remove_reagent(src.id, 0.1)
+				return
+
 		silicate
 			name = "Silicate"
 			id = "silicate"