New virus called Retrovirus. It scrambles your UI and SE after a certain stage.

Implemented CTRL+DIRECTION KEY to face a direction.

Tweaked some drink icons.

Added in two new icon_states to genetics.dmi. It doesn't do anything yet, but I might toy with them later on.

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

code/WorkInProgress/Chemistry-Tools.dm

@@ -1913,6 +1913,17 @@
 		var/list/data = list("viruses"= list(F))
 		reagents.add_reagent("blood", 20, data)
 
+/obj/item/weapon/reagent_containers/glass/bottle/retrovirus
+	name = "Retrovirus culture bottle"
+	desc = "A small bottle. Contains a retrovirus culture in a synthblood medium."
+	icon = 'chemical.dmi'
+	icon_state = "bottle3"
+	New()
+		..()
+		var/datum/disease/F = new /datum/disease/dna_retrovirus(0)
+		var/list/data = list("viruses"= list(F))
+		reagents.add_reagent("blood", 20, data)
+
 /*
 /obj/item/weapon/reagent_containers/glass/bottle/gbs
 	name = "GBS culture bottle"

code/datums/disease.dm

@@ -36,7 +36,7 @@ to null does not delete the object itself. Thank you.
 	var/carrier = 0.0 //there will be a small chance that the person will be a carrier
 	var/curable = 0 //can this disease be cured? (By itself...)
 	var/list/strain_data = list() //This is passed on to infectees
-	var/stage_prob = 4		// probability of advancing to next stage, default 5% per check
+	var/stage_prob = 4		// probability of advancing to next stage, default 4% per check
 	var/agent = "some microbes"//name of the disease agent
 	var/permeability_mod = 1//permeability modifier coefficient.
 	var/desc = null//description. Leave it null and this disease won't show in med records.

code/game/dna.dm

@@ -160,6 +160,19 @@
 	M.dna.struc_enzymes = newdna
 	return
 
+/proc/scramble(var/type, mob/M as mob, var/p)
+	if(type)
+		for(var/i = 1, i <= 13, i++)
+			if(prob(p))
+				M.dna.uni_identity = setblock(M.dna.uni_identity, i, add_zero2(num2hex(rand(1,4095), 1), 3), 3)
+		updateappearance(M, M.dna.uni_identity)
+
+	else
+		for(var/i = 1, i <= 13, i++)
+			if(prob(p))
+				M.dna.struc_enzymes = setblock(M.dna.struc_enzymes, i, add_zero2(num2hex(rand(1,4095), 1), 3), 3)
+		domutcheck(M, null)
+
 /proc/randmuti(mob/M as mob)
 	var/num
 	var/newdna

code/modules/mob/mob.dm

@@ -2257,3 +2257,86 @@ note dizziness decrements automatically in the mob's Life() proc.
 			else
 				boom.icon_state = "loss_general"
 #endif
+
+
+
+
+
+
+// facing verbs
+/mob/verb/eastface()
+	set hidden = 1
+	if(!canmove)
+		return
+	if (client.moving)
+		return 0
+	if (world.time < client.move_delay)
+		return
+	if (stat==2)
+		return
+	if (anchored)
+		return
+	if (monkeyizing)
+		return
+	if (restrained())
+		return
+	dir = EAST
+	client.move_delay += movement_delay()
+
+/mob/verb/westface()
+	set hidden = 1
+	if(!canmove)
+		return
+	if (client.moving)
+		return 0
+	if (world.time < client.move_delay)
+		return
+	if (stat==2)
+		return
+	if (anchored)
+		return
+	if (monkeyizing)
+		return
+	if (restrained())
+		return
+	dir = WEST
+	client.move_delay += movement_delay()
+
+/mob/verb/northface()
+	set hidden = 1
+	if(!canmove)
+		return
+	if (client.moving)
+		return 0
+	if (world.time < client.move_delay)
+		return
+	if (stat==2)
+		return
+	if (anchored)
+		return
+	if (monkeyizing)
+		return
+	if (restrained())
+		return
+	dir = NORTH
+	client.move_delay += movement_delay()
+
+/mob/verb/southface()
+	set hidden = 1
+	if(!canmove)
+		return
+	if (client.moving)
+		return 0
+	if (world.time < client.move_delay)
+		return
+	if (stat==2)
+		return
+	if (anchored)
+		return
+	if (monkeyizing)
+		return
+	if (restrained())
+		return
+	dir = SOUTH
+	client.move_delay += movement_delay()
+