Procedural Generation

__DEFINES/_macros.dm

@@ -66,6 +66,8 @@
 
 #define islarva(A) istype(A, /mob/living/carbon/alien/larva)
 
+#define ishostile(A) (istype(A, /mob/living/simple_animal/hostile))
+
 #define iszombie(A) istype(A, /mob/living/simple_animal/hostile/necro/zombie)
 
 #define isslime(A) (istype(A, /mob/living/carbon/slime) || istype(A, /mob/living/simple_animal/slime))

__DEFINES/areas.dm

@@ -4,3 +4,10 @@
 #define NO_MESONS 4
 #define NO_PERSISTENCE 8
 #define NO_PACIFICATION 16 //no pillowbug cheese for you
+
+//planetgen flags
+#define CAVES_ALLOWED 32
+/// If flora are allowed to spawn in this area randomly through tunnel generation
+#define FLORA_ALLOWED 64
+/// If mobs can be spawned by natural random generation
+#define MOB_SPAWN_ALLOWED 128

__DEFINES/map.dm

@@ -0,0 +1,18 @@
+///Map generation defines
+#define BIOME_LOWEST_HUMIDITY "biome_lowest_humidity"
+#define BIOME_LOW_HUMIDITY "biome_low_humidity"
+#define BIOME_MEDIUM_HUMIDITY "biome_medium_humidity"
+#define BIOME_HIGH_HUMIDITY "biome_high_humidity"
+#define BIOME_HIGHEST_HUMIDITY "biome_highest_humidity"
+
+#define BIOME_COLDEST "coldest"
+#define BIOME_COLD "cold"
+#define BIOME_WARM "warm"
+#define BIOME_TEMPERATE "perfect"
+#define BIOME_HOT "hot"
+#define BIOME_HOTTEST "hottest"
+
+#define BIOME_COLDEST_CAVE "coldest_cave"
+#define BIOME_COLD_CAVE "cold_cave"
+#define BIOME_WARM_CAVE "warm_cave"
+#define BIOME_HOT_CAVE "hot_cave"

__DEFINES/ruins.dm

@@ -0,0 +1,87 @@
+#define RUINTYPE_SPACE "Space"
+#define RUINTYPE_LAVA "Lava"
+#define RUINTYPE_SNOW "Snow"
+#define RUINTYPE_SAND "Sand"
+#define RUINTYPE_JUNGLE "Jungle"
+#define RUINTYPE_ROCK "Rock"
+#define RUINTYPE_BEACH "Beach"
+#define RUINTYPE_WASTE "Waste"
+#define RUINTYPE_YELLOW "Yellow"
+#define RUINTYPE_XENO "Xeno"
+#define RUINTYPE_DESERT "Desert"
+#define RUINTYPE_WATER "Water"
+#define RUINTYPE_BATTLEFIELD "Battlefield"
+
+/// do not actually use this for your ruin type, this is for the ruintype_to_list proc
+#define RUINTYPE_EVERYTHING "Everything"
+
+// HEY LISTEN!
+// IF YOU ADD NEW A NEW RUIN TYPE
+// PLEASE MAKE SURE YOU ADD IT TO THE BELOW LIST AND PROC!
+
+#define RUINTYPE_LIST_ALL list(\
+	RUINTYPE_SPACE,\
+	RUINTYPE_LAVA,\
+	RUINTYPE_ICE,\
+	RUINTYPE_SAND,\
+	RUINTYPE_JUNGLE,\
+	RUINTYPE_ROCK,\
+	RUINTYPE_BEACH,\
+	RUINTYPE_WASTE,\
+	RUINTYPE_YELLOW,\
+	RUINTYPE_EVERYTHING)
+
+/* /proc/ruintype_to_list(ruintype)
+	if(ruintype == RUINTYPE_EVERYTHING)
+		return SSmapping.ruins_templates
+	else
+		return SSmapping.ruin_types_list[ruintype] */
+
+/*
+Maps described in the catalogue must be described with at least one or more of the following tags.
+
+*Loot Summary
+Minor Loot = Has negligable/no loot at all, only contains fluff items or just the loot found from enemy drops or structures in the ruin.
+Medium Loot = Has a pool of loot that is useful for the average player or ship, but not in large amounts, and does not have more than one or two boss drops.
+Major Loot = Contains a large pool of loot useful to the average player or ship. Or includes more boss drops or necropolis loot than there are challenges for.
+*/
+#define RUIN_TAG_MINOR_LOOT "Minor Loot"
+#define RUIN_TAG_MEDIUM_LOOT "Medium Loot"
+#define RUIN_TAG_MAJOR_LOOT "Major Loot"
+
+/*Combat Summary
+No Combat = Contains no enemies or combat challenges.
+Minor Combat Challenge = Has only 1-2 hit melee mobs in small or moderate amounts.
+Medium Combat Challenge = Contains more than just simple low health melee mobs, or a moderate amount of mobs.
+Boss Combat Challenge = Contains either one or more bossmobs, has a large number of mobs that are either overwhelming or considerably challenging, or has a significant combat challenge overall.
+*/
+#define RUIN_TAG_NO_COMBAT "No Combat"
+#define RUIN_TAG_MINOR_COMBAT "Minor Combat Challenge"
+#define RUIN_TAG_MEDIUM_COMBAT "Medium Combat Challenge"
+#define RUIN_TAG_HARD_COMBAT "Hard Combat Challenge"
+#define RUIN_TAG_BOSS_COMBAT "Boss Combat Challenge"
+
+
+/*Qualities
+Megafauna = Map contains one or more megafauna.
+Antag Gear = Map contains one or more items typically only obtainable by antag roles.
+Necropolis Loot = Map contains an item or chest from the necropolis loot pool.
+Liveable = The entirety of the map is inhabitable without protective gear, and the map is not surrounded by an inhospitable environment.
+Inhospitable = The majority of the map is uninhabitable without protective gear, and the map is not surrounded by a hospitable environment.
+Shelter = The map contains a portion that is hospitable without protective gear, with a surrounding section that is inhospitable. Or the map is an enclosed hospitable space that spawns on an inhospitable planet.
+Bad Shelter = The map contains a portion that is inhospitable without protective gear, with a surround section that is hospitable. Or the map is an enclosed inhospitable space that spawn on a hospitable planet.
+No Content = A map that contains no objects. It contains only turfs, walls, and or areas.
+Hazardous = Contains hazardous environment elements. Elements include but are not limited to: Mines, IEDs, Chasms appearing more than twice or more than once if one is 3x3 or more, disease spawns, beartraps.
+Unknown Details = Something about the map can't be checked with a map editor alone, and has not been tested for confirmation yet.
+Lava = Contains lava or liquid plasma tiles.
+Ghost Role = Contains a ghost role.
+*/
+#define RUIN_TAG_MEGAFAUNA "Megafauna"
+#define RUIN_TAG_LIVEABLE "Liveable"
+#define RUIN_TAG_INHOSPITABLE "Inhospitable"
+#define RUIN_TAG_SHELTER "Shelter"
+#define RUIN_TAG_BAD_SHELTER "Bad Shelter"
+#define RUIN_TAG_NO_CONTENT "No Content"
+#define RUIN_TAG_HAZARDOUS "Hazardous"
+#define RUIN_TAG_UNKNOWN_DETAILS "Unknown Details"
+#define RUIN_TAG_LAVA "Lava"

__DEFINES/setup.dm

@@ -260,7 +260,9 @@ var/MAX_EXPLOSION_RANGE = 32
 //turf-only flags
 #define NOJAUNT		1
 #define NO_MINIMAP  2 //Invisible to minimaps (fuck minimaps)
-
+#define CAN_BE_DIRTY_1 4 // If a procgen turf can be made dirty at roundstart. This is also used in areas.
+#define NO_LAVA_GEN_1 8 // Blocks lava rivers being generated on the turf
+#define NO_RUINS_1 16 // Blocks ruins spawning on the turf
 
 //slots
 #define slot_back 1

code/__HELPERS/lists.dm

@@ -261,6 +261,41 @@
 
 	return L[L.len]
 
+/// Takes a weighted list (see above) and expands it into raw entries
+/// This eats more memory, but saves time when actually picking from it
+/proc/expand_weights(list/list_to_pick)
+	var/list/values = list()
+	for(var/item in list_to_pick)
+		var/value = list_to_pick[item]
+		if(!value)
+			continue
+		values += value
+
+	var/gcf = greatest_common_factor(values)
+
+	var/list/output = list()
+	for(var/item in list_to_pick)
+		var/value = list_to_pick[item]
+		if(!value)
+			continue
+		for(var/i in 1 to value / gcf)
+			output += item
+	return output
+
+/// Takes a list of numbers as input, returns the highest value that is cleanly divides them all
+/// Note: this implementation is expensive as heck for large numbers, I only use it because most of my usecase
+/// Is < 10 ints
+/proc/greatest_common_factor(list/values)
+	var/smallest = min(arglist(values))
+	for(var/i in smallest to 1 step -1)
+		var/safe = TRUE
+		for(var/entry in values)
+			if(entry % i != 0)
+				safe = FALSE
+				break
+		if(safe)
+			return i
+
 //Pick a random element from the list and remove it from the list.
 /proc/pick_n_take(list/L)
 	if(L.len)

code/controllers/subsystem/mapping.dm

@@ -0,0 +1,114 @@
+// Subsystem for things such as vaults, away mission init, and procgen.
+
+var/datum/subsystem/mapping/SSmapping
+
+
+/datum/subsystem/mapping
+	name       = "Map"
+	init_order = SS_INIT_MAP
+	flags      = SS_NO_FIRE
+
+	///All possible biomes in assoc list as type || instance
+	var/list/biomes = list()
+
+/datum/subsystem/mapping/New()
+	NEW_SS_GLOBAL(SSmapping)
+
+
+/datum/subsystem/mapping/Initialize(timeofday)
+	if (config.enable_roundstart_away_missions)
+		log_startup_progress("Attempting to generate an away mission...")
+		createRandomZlevel()
+
+	var/watch
+	if (!config.skip_fixedvault_generation)
+		watch = start_watch()
+		log_startup_progress("Placing fixed space structures...")
+		generate_fixedvaults()
+		log_startup_progress("Finished placing fixed structures in [stop_watch(watch)]s.")
+	else
+		log_startup_progress("Not generating fixed vaults - SKIP_VAULT_GENERATION found in config/config.txt")
+
+	if (!config.skip_vault_generation)
+		watch = start_watch()
+		log_startup_progress("Placing random space structures...")
+		generate_vaults()
+		generate_asteroid_secrets()
+		make_mining_asteroid_secrets() // loops 3 times
+		log_startup_progress("Finished placing structures in [stop_watch(watch)]s.")
+	else
+		log_startup_progress("Not generating vaults - SKIP_VAULT_GENERATION found in config/config.txt")
+
+	//hobo shack generation, one shack will spawn, 1/3 chance of two shacks
+	generate_hoboshack()
+	if (rand(1,3) == 3)
+		generate_hoboshack()
+
+	watch = start_watch()
+	for(var/datum/zLevel/z in map.zLevels)
+		var/watch_prim = start_watch()
+		z.post_mapload()
+		log_debug("Finished with zLevel [z.z] in [stop_watch(watch_prim)]s.", FALSE)
+	log_debug("Finished calling post on zLevels in [stop_watch(watch)]s.", FALSE)
+
+	watch = start_watch()
+	map.map_specific_init()
+	log_debug("Finished map-specific inits in [stop_watch(watch)]s.", FALSE)
+
+	spawn_map_pickspawners() //this is down here so that it calls after allll the vaults etc are done spawning - if in the future some pickspawners don't fire, it's because this needs moving
+
+	watch = start_watch()
+	initialize_biomes()
+	log_startup_progress("Finished initializing biomes in [stop_watch(watch)]s.")
+
+	..()
+
+/proc/generate_planet()//debug
+	return SSmapping.spawn_planetoid(/datum/planet_type/snow, /datum/map_element/mining_surprise/crashed_tradeship)
+
+///Initialize all biomes, assoc as type || instance
+/datum/subsystem/mapping/proc/initialize_biomes()
+	for(var/biome_path in subtypesof(/datum/biome))
+		var/datum/biome/biome_instance = new biome_path()
+		biomes[biome_path] += biome_instance
+
+/datum/subsystem/mapping/proc/spawn_planetoid(datum/planet_type/planet_datum, ruin_type)
+	var/datum/planetGenerator/mapgen = new planet_datum.mapgen
+	var/datum/map_element/mining_surprise/used_ruin = ispath(ruin_type) ? (new ruin_type) : ruin_type
+	message_admins("Generating turfs")
+	world.maxz += 1
+	map.addZLevel(new /datum/zLevel/away, world.maxz, TRUE, TRUE)
+	mapgen.generate_turfs(map.zLevels.len)
+
+	//DEBUG needs less hardcoding
+	for(var/x = 1,  x < 102, x++)
+		var/turf/T = locate(x,101,world.maxz)
+		T.ChangeTurf(/turf/unsimulated/border)
+	for(var/y = 1, y < 102, y++)
+		var/turf/T = locate(101,y,world.maxz)
+		T.ChangeTurf(/turf/unsimulated/border)
+
+
+	var/list/ruin_turfs = list()
+	var/list/ruin_templates = list()
+	if(used_ruin)
+		var/turf/ruin_turf = locate(
+			rand(
+				11,
+				100-used_ruin.width-6 - 11
+			),
+			100-used_ruin.height-6 - 11,
+			world.maxz
+		)
+		message_admins("Generating ruin at [ruin_turf.x], [ruin_turf.y], [world.maxz]")
+		used_ruin.load(ruin_turf.x, ruin_turf.y, world.maxz, 0, TRUE, TRUE, 1, world.maxx-11, 11, world.maxy-11, 11, world.maxz-11)
+		ruin_turfs[used_ruin.name] = ruin_turf
+		ruin_templates[used_ruin.name] = used_ruin
+
+	// fill in the turfs, AFTER generating the ruin. this prevents them from generating within the ruin
+	// and ALSO prevents the ruin from being spaced when it spawns in
+	// WITHOUT needing to fill the reservation with a bunch of dummy turfs
+	message_admins("Populating turfs")
+	mapgen.populate_turfs()
+
+	return world.maxz

code/game/area/areas.dm

@@ -20,7 +20,7 @@ var/area/space_area
 	var/obj/effect/narration/narrator = null
 	var/holomap_draw_override = HOLOMAP_DRAW_NORMAL
 
-	flags = 0
+	flags = CAVES_ALLOWED
 
 /area/New()
 	area_turfs = list()

code/modules/procedural mapping/planetGenerator/area.dm

@@ -0,0 +1,31 @@
+//Collection of areas used only for procgen.
+
+/area/planetoid/beach
+	name = "Beach"
+	requires_power = 0
+	dynamic_lighting = 1
+	flags = CAVES_ALLOWED|NO_PERSISTENCE|FLORA_ALLOWED|MOB_SPAWN_ALLOWED
+
+/area/planetoid/cave
+	name = "Cave"
+	requires_power = 0
+	dynamic_lighting = 1
+	flags = CAVES_ALLOWED|NO_PERSISTENCE|FLORA_ALLOWED|MOB_SPAWN_ALLOWED
+
+/area/planetoid/desert
+	name = "Desert Planetoid"
+	requires_power = 0
+	dynamic_lighting = 1
+	flags = CAVES_ALLOWED|NO_PERSISTENCE|FLORA_ALLOWED|MOB_SPAWN_ALLOWED
+
+/area/planetoid/snow
+	name = "Frozen Planetoid"
+	requires_power = 0
+	dynamic_lighting = 1
+	flags = CAVES_ALLOWED|NO_PERSISTENCE|FLORA_ALLOWED|MOB_SPAWN_ALLOWED
+
+/area/planetoid/xeno
+	name = "Xeno Planetoid"
+	requires_power = 0
+	dynamic_lighting = 1
+	flags = CAVES_ALLOWED|NO_PERSISTENCE|FLORA_ALLOWED|MOB_SPAWN_ALLOWED