Some hydro bugfixes. You can now extract seeds from nettles.

As they were of different object type, extractor didn't work with them.

Also adjusted poison effect a bit.

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

code/game/machinery/hydroponics.dm

@@ -95,6 +95,8 @@ obj/machinery/hydroponics/process()
 				while(m_count < src.mutmod)
 					if(prob(90))
 						src.mutate()
+					else if(prob(30))
+						src.hardmutate()
 					else
 						src.mutatespecie() // Just testing this here until mutagens are in place
 					m_count++;

code/game/machinery/seed_extractor.dm

@@ -26,4 +26,23 @@ obj/machinery/seed_extractor/attackby(var/obj/item/O as obj, var/mob/user as mob
 			t_prod.potency = F.potency
 			t_amount++
 		del(O)
+
+	else if (istype(O, /obj/item/weapon/grown/))
+		var/obj/item/weapon/grown/F = O
+		user << "\blue You extract some seeds from the [F.name]"
+		var/seed = text2path(F.seed)
+		var/t_amount = 0
+		var/t_max = rand(1,4)
+		while ( t_amount < t_max)
+			var/obj/item/seeds/t_prod = new seed(src.loc)
+			t_prod.species = F.species
+			t_prod.lifespan = F.lifespan
+			t_prod.endurance = F.endurance
+			t_prod.maturation = F.maturation
+			t_prod.production = F.production
+			t_prod.yield = F.yield
+			t_prod.potency = F.potency
+			t_amount++
+		del(O)
+
 	return