Merge pull request #9588 from AnturK/build_area

Adds map generators to build mode

code/modules/admin/verbs/buildmode.dm

@@ -1,3 +1,10 @@
+#define BASIC_BUILDMODE 1
+#define ADV_BUILDMODE 2
+#define VAR_BUILDMODE 3
+#define THROW_BUILDMODE 4
+#define AREA_BUILDMODE 5
+#define NUM_BUILDMODES 5
+
 /proc/togglebuildmode(mob/M as mob in player_list)
 	set name = "Toggle Build Mode"
 	set category = "Special Verbs"
@@ -35,7 +42,7 @@
 			M.client.screen += D
 			H.cl = M.client
 
-/obj/effect/bmode//Cleaning up the tree a bit
+/obj/effect/bmode //Cleaning up the tree a bit
 	density = 1
 	anchored = 1
 	layer = 20
@@ -68,7 +75,7 @@
 
 /obj/effect/bmode/buildhelp/Click()
 	switch(master.cl.buildmode)
-		if(1)
+		if(BASIC_BUILDMODE)
 			usr << "\blue ***********************************************************"
 			usr << "\blue Left Mouse Button        = Construct / Upgrade"
 			usr << "\blue Right Mouse Button       = Deconstruct / Delete / Downgrade"
@@ -78,7 +85,7 @@
 			usr << "\blue Use the button in the upper left corner to"
 			usr << "\blue change the direction of built objects."
 			usr << "\blue ***********************************************************"
-		if(2)
+		if(ADV_BUILDMODE)
 			usr << "\blue ***********************************************************"
 			usr << "\blue Right Mouse Button on buildmode button = Set object type"
 			usr << "\blue Left Mouse Button on turf/obj          = Place objects"
@@ -87,17 +94,23 @@
 			usr << "\blue Use the button in the upper left corner to"
 			usr << "\blue change the direction of built objects."
 			usr << "\blue ***********************************************************"
-		if(3)
+		if(VAR_BUILDMODE)
 			usr << "\blue ***********************************************************"
 			usr << "\blue Right Mouse Button on buildmode button = Select var(type) & value"
 			usr << "\blue Left Mouse Button on turf/obj/mob      = Set var(type) & value"
 			usr << "\blue Right Mouse Button on turf/obj/mob     = Reset var's value"
 			usr << "\blue ***********************************************************"
-		if(4)
+		if(THROW_BUILDMODE)
 			usr << "\blue ***********************************************************"
 			usr << "\blue Left Mouse Button on turf/obj/mob      = Select"
 			usr << "\blue Right Mouse Button on turf/obj/mob     = Throw"
 			usr << "\blue ***********************************************************"
+		if(AREA_BUILDMODE)
+			usr << "\blue ***********************************************************"
+			usr << "\blue Left Mouse Button on turf/obj/mob      = Select corner"
+			usr << "\blue Right Mouse Button on buildmode button = Select generator"
+			usr << "\blue ***********************************************************"
+
 	return 1
 
 /obj/effect/bmode/buildquit
@@ -117,6 +130,13 @@
 	var/obj/effect/bmode/buildmode/buildmode = null
 	var/obj/effect/bmode/buildquit/buildquit = null
 	var/atom/movable/throw_atom = null
+	var/turf/cornerA = null
+	var/turf/cornerB = null
+	var/generator_path = null
+
+/obj/effect/bmode/buildholder/proc/Reset()//Reset temporary variables
+	cornerA = null
+	cornerB = null
 
 /obj/effect/bmode/buildmode
 	icon_state = "buildmode1"
@@ -129,25 +149,15 @@
 	var/list/pa = params2list(params)
 
 	if(pa.Find("left"))
-		switch(master.cl.buildmode)
-			if(1)
-				master.cl.buildmode = 2
-				src.icon_state = "buildmode2"
-			if(2)
-				master.cl.buildmode = 3
-				src.icon_state = "buildmode3"
-			if(3)
-				master.cl.buildmode = 4
-				src.icon_state = "buildmode4"
-			if(4)
-				master.cl.buildmode = 1
-				src.icon_state = "buildmode1"
+		master.cl.buildmode = (master.cl.buildmode % NUM_BUILDMODES) +1
+		master.Reset()
+		src.icon_state = "buildmode[master.cl.buildmode]"
 
 	else if(pa.Find("right"))
 		switch(master.cl.buildmode)
-			if(1)
+			if(BASIC_BUILDMODE)
 				return 1
-			if(2)
+			if(ADV_BUILDMODE)
 				objholder = text2path(input(usr,"Enter typepath:" ,"Typepath","/obj/structure/closet"))
 				if(!ispath(objholder))
 					objholder = /obj/structure/closet
@@ -155,7 +165,7 @@
 				else
 					if(ispath(objholder,/mob) && !check_rights(R_DEBUG,0))
 						objholder = /obj/structure/closet
-			if(3)
+			if(VAR_BUILDMODE)
 				var/list/locked = list("vars", "key", "ckey", "client", "firemut", "ishulk", "telekinesis", "xray", "virus", "viruses", "cuffed", "ka", "last_eaten", "urine")
 
 				master.buildmode.varholder = input(usr,"Enter variable name:" ,"Name", "name")
@@ -174,6 +184,16 @@
 						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as obj in world
 					if("turf-reference")
 						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as turf in world
+			if(AREA_BUILDMODE)
+				var/list/gen_paths = typesof(/datum/mapGenerator) - /datum/mapGenerator
+
+				var/type = input(usr,"Select Generator Type","Type") as null|anything in gen_paths
+				if(!type) return
+				
+				master.generator_path = type
+				master.cornerA = null
+				master.cornerB = null 
+
 	return 1
 
 
@@ -186,8 +206,11 @@
 	if(!holder) return
 	var/list/pa = params2list(params)
 
+	if(istype(object,/obj/effect/bmode))
+		return
+
 	switch(buildmode)
-		if(1)
+		if(BASIC_BUILDMODE)
 			if(istype(object,/turf) && pa.Find("left") && !pa.Find("alt") && !pa.Find("ctrl") )
 				var/turf/T = object
 				if(istype(object,/turf/space))
@@ -233,7 +256,7 @@
 						var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
 						WIN.dir = NORTHWEST
 				log_admin("Build Mode: [key_name(usr)] built a window at ([object.x],[object.y],[object.z])")
-		if(2)
+		if(ADV_BUILDMODE)
 			if(pa.Find("left"))
 				if(ispath(holder.buildmode.objholder,/turf))
 					var/turf/T = get_turf(object)
@@ -248,7 +271,7 @@
 					log_admin("Build Mode: [key_name(usr)] deleted [object] at ([object.x],[object.y],[object.z])")
 					qdel(object)
 
-		if(3)
+		if(VAR_BUILDMODE)
 			if(pa.Find("left")) //I cant believe this shit actually compiles.
 				if(object.vars.Find(holder.buildmode.varholder))
 					log_admin("Build Mode: [key_name(usr)] modified [object.name]'s [holder.buildmode.varholder] to [holder.buildmode.valueholder]")
@@ -262,7 +285,7 @@
 				else
 					usr << "<span class='warning'>[initial(object.name)] does not have a var called '[holder.buildmode.varholder]'</span>"
 
-		if(4)
+		if(THROW_BUILDMODE)
 			if(pa.Find("left"))
 				if(isturf(object))
 					return
@@ -271,4 +294,35 @@
 				if(holder.throw_atom)
 					holder.throw_atom.throw_at(object, 10, 1)
 					log_admin("Build Mode: [key_name(usr)] threw [holder.throw_atom] at [object] ([object.x],[object.y],[object.z])")
-
+		if(AREA_BUILDMODE)
+			if(!holder.cornerA)
+				holder.cornerA = get_turf(object)
+				return
+			if(holder.cornerA && !holder.cornerB)
+				holder.cornerB = get_turf(object)
+			
+			if(pa.Find("left")) //rectangular
+				if(holder.cornerA && holder.cornerB)
+					if(!holder.generator_path)
+						usr << "<span class='warning'>Select generator type first.</span>"
+					var/datum/mapGenerator/G = new holder.generator_path
+					G.defineRegion(holder.cornerA,holder.cornerB,1)
+					G.generate()
+					holder.cornerA = null
+					holder.cornerB = null
+					return
+			/* Something wrong with this, will check later
+			if(pa.Find("right")) // circular
+				if(holder.cornerA && holder.cornerB)
+					if(!holder.generator_path)
+						usr << "<span class='warning'>Select generator type first.</span>"
+					var/datum/mapGenerator/G = new holder.generator_path
+					G.defineCircularRegion(holder.cornerA,holder.cornerB,1)
+					G.generate()
+					holder.cornerA = null
+					holder.cornerB = null
+					return
+			*/
+			//Something wrong - Reset
+			holder.cornerA = null
+			holder.cornerB = null