- forgot to commit biomass.dm. Sorry about that.

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

code/game/gamemodes/events/biomass.dm

@@ -0,0 +1,174 @@
+// BIOMASS (Note that this code is very similar to Space Vine code)
+/obj/effect/biomass
+	name = "biomass"
+	desc = "Space barf from another dimension. It just keeps spreading!"
+	icon = 'icons/obj/biomass.dmi'
+	icon_state = "stage1"
+	anchored = 1
+	density = 0
+	layer = 5
+	pass_flags = PASSTABLE | PASSGRILLE
+	var/energy = 0
+	var/obj/effect/biomass_controller/master = null
+
+	New()
+		return
+
+	Del()
+		if(master)
+			master.vines -= src
+			master.growth_queue -= src
+		..()
+
+/obj/effect/biomass/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if (!W || !user || !W.type) return
+	switch(W.type)
+		if(/obj/item/weapon/circular_saw) del src
+		if(/obj/item/weapon/kitchen/utensil/knife) del src
+		if(/obj/item/weapon/scalpel) del src
+		if(/obj/item/weapon/twohanded/fireaxe) del src
+		if(/obj/item/weapon/hatchet) del src
+		if(/obj/item/weapon/melee/energy) del src
+
+		//less effective weapons
+		if(/obj/item/weapon/wirecutters)
+			if(prob(25)) del src
+		if(/obj/item/weapon/shard)
+			if(prob(25)) del src
+
+		else //weapons with subtypes
+			if(istype(W, /obj/item/weapon/melee/energy/sword)) del src
+			else if(istype(W, /obj/item/weapon/weldingtool))
+				var/obj/item/weapon/weldingtool/WT = W
+				if(WT.remove_fuel(0, user)) del src
+			else
+				return
+	..()
+
+/obj/effect/biomass_controller
+	var/list/obj/effect/biomass/vines = list()
+	var/list/growth_queue = list()
+	var/reached_collapse_size
+	var/reached_slowdown_size
+	//What this does is that instead of having the grow minimum of 1, required to start growing, the minimum will be 0,
+	//meaning if you get the biomasssss..s' size to something less than 20 plots, it won't grow anymore.
+
+	New()
+		if(!istype(src.loc,/turf/simulated/floor))
+			del(src)
+
+		spawn_biomass_piece(src.loc)
+		processing_objects.Add(src)
+
+	Del()
+		processing_objects.Remove(src)
+		..()
+
+	proc/spawn_biomass_piece(var/turf/location)
+		var/obj/effect/biomass/BM = new(location)
+		growth_queue += BM
+		vines += BM
+		BM.master = src
+
+	process()
+		if(!vines)
+			del(src) //space  vines exterminated. Remove the controller
+			return
+		if(!growth_queue)
+			del(src) //Sanity check
+			return
+		if(vines.len >= 250 && !reached_collapse_size)
+			reached_collapse_size = 1
+		if(vines.len >= 30 && !reached_slowdown_size )
+			reached_slowdown_size = 1
+
+		var/maxgrowth = 0
+		if(reached_collapse_size)
+			maxgrowth = 0
+		else if(reached_slowdown_size)
+			if(prob(25))
+				maxgrowth = 1
+			else
+				maxgrowth = 0
+		else
+			maxgrowth = 4
+		var/length = min( 30 , vines.len / 5 )
+		var/i = 0
+		var/growth = 0
+		var/list/obj/effect/biomass/queue_end = list()
+
+		for( var/obj/effect/biomass/BM in growth_queue )
+			i++
+			queue_end += BM
+			growth_queue -= BM
+			if(BM.energy < 2) //If tile isn't fully grown
+				if(prob(20))
+					BM.grow()
+
+			if(BM.spread())
+				growth++
+				if(growth >= maxgrowth)
+					break
+			if(i >= length)
+				break
+
+		growth_queue = growth_queue + queue_end
+
+/obj/effect/biomass/proc/grow()
+	if(!energy)
+		src.icon_state = "stage2"
+		energy = 1
+		src.opacity = 0
+		src.density = 0
+		layer = 5
+	else
+		src.icon_state = "stage3"
+		src.opacity = 0
+		src.density = 1
+		energy = 2
+
+/obj/effect/biomass/proc/spread()
+	var/direction = pick(cardinal)
+	var/step = get_step(src,direction)
+	if(istype(step,/turf/simulated/floor))
+		var/turf/simulated/floor/F = step
+		if(!locate(/obj/effect/biomass,F))
+			if(F.Enter(src))
+				if(master)
+					master.spawn_biomass_piece( F )
+					return 1
+	return 0
+
+/obj/effect/biomass/ex_act(severity)
+	switch(severity)
+		if(1.0)
+			del(src)
+			return
+		if(2.0)
+			if (prob(90))
+				del(src)
+				return
+		if(3.0)
+			if (prob(50))
+				del(src)
+				return
+	return
+
+/obj/effect/biomass/temperature_expose(null, temp, volume) //hotspots kill biomass
+	del src
+
+
+/proc/biomass_infestation()
+
+	spawn() //to stop the secrets panel hanging
+		var/list/turf/simulated/floor/turfs = list() //list of all the empty floor turfs in the hallway areas
+		for(var/areapath in typesof(/area/hallway))
+			var/area/hallway/A = locate(areapath)
+			for(var/turf/simulated/floor/F in A)
+				if(!F.contents.len)
+					turfs += F
+
+		if(turfs.len) //Pick a turf to spawn at if we can
+			var/turf/simulated/floor/T = pick(turfs)
+			new/obj/effect/biomass_controller(T) //spawn a controller at turf
+			message_admins("\blue Event: Biomass spawned at [T.loc.loc] ([T.x],[T.y],[T.z])")