Belt Mining V1.5

maps/tether/maps.dm

@@ -0,0 +1,249 @@
+
+GLOBAL_DATUM_INIT(using_map, /datum/map, new USING_MAP_DATUM)
+
+var/list/all_maps = list()
+
+/hook/startup/proc/initialise_map_list()
+	for(var/type in typesof(/datum/map) - /datum/map)
+		var/datum/map/M
+		if(type == GLOB.using_map.type)
+			M = GLOB.using_map
+			M.setup_map()
+		else
+			M = new type
+		if(!M.path)
+			log_debug("Map '[M]' does not have a defined path, not adding to map list!")
+		else
+			all_maps[M.path] = M
+	return 1
+
+
+/datum/map
+	var/name = "Unnamed Map"
+	var/full_name = "Unnamed Map"
+	var/path
+
+	var/list/zlevels = list()
+	var/zlevel_datum_type			// If populated, all subtypes of this type will be instantiated and used to populate the *_levels lists.
+
+	var/list/station_levels = list() // Z-levels the station exists on
+	var/list/admin_levels = list()   // Z-levels for admin functionality (Centcom, shuttle transit, etc)
+	var/list/contact_levels = list() // Z-levels that can be contacted from the station, for eg announcements
+	var/list/player_levels = list()  // Z-levels a character can typically reach
+	var/list/sealed_levels = list()  // Z-levels that don't allow random transit at edge
+	var/list/xenoarch_exempt_levels = list()	//Z-levels exempt from xenoarch finds and digsites spawning.
+	var/list/empty_levels = null     // Empty Z-levels that may be used for various things (currently used by bluespace jump)
+
+	var/list/map_levels              // Z-levels available to various consoles, such as the crew monitor (when that gets coded in). Defaults to station_levels if unset.
+	var/list/base_turf_by_z = list() // Custom base turf by Z-level. Defaults to world.turf for unlisted Z-levels
+
+	var/list/usable_email_tlds = list("freemail.nt")
+	//This list contains the z-level numbers which can be accessed via space travel and the percentile chances to get there.
+	var/list/accessible_z_levels = list()
+
+	//List of additional z-levels to load above the existing .dmm file z-levels using the maploader. Must be map template >>> NAMES <<<.
+	var/list/lateload_z_levels = list()
+
+	//Similar to above, but only pick ONE to load, useful for random away missions and whatnot
+	var/list/lateload_single_pick = list()
+
+	var/list/allowed_jobs = list() //Job datums to use.
+	                               //Works a lot better so if we get to a point where three-ish maps are used
+	                               //We don't have to C&P ones that are only common between two of them
+	                               //That doesn't mean we have to include them with the rest of the jobs though, especially for map specific ones.
+	                               //Also including them lets us override already created jobs, letting us keep the datums to a minimum mostly.
+	                               //This is probably a lot longer explanation than it needs to be.
+
+	var/list/holomap_smoosh		// List of lists of zlevels to smoosh into single icons
+	var/list/holomap_offset_x = list()
+	var/list/holomap_offset_y = list()
+	var/list/holomap_legend_x = list()
+	var/list/holomap_legend_y = list()
+	var/list/meteor_strike_areas	// VOREStation Edit - Areas meteor strikes may choose to hit.
+	var/ai_shell_restricted = FALSE			//VOREStation Addition - are there z-levels restricted?
+	var/ai_shell_allowed_levels = list()	//VOREStation Addition - which z-levels ARE we allowed to visit?
+
+
+	//VOREStation Addition Start - belter stuff
+	var/list/belter_docked_z = list()
+	var/list/belter_transit_z = list()
+	var/list/belter_belt_z = list()
+	//VOREStation Addition End - belter stuff
+
+
+	var/station_name  = "BAD Station"
+	var/station_short = "Baddy"
+	var/dock_name     = "THE PirateBay"
+	var/boss_name     = "Captain Roger"
+	var/boss_short    = "Cap'"
+	var/company_name  = "BadMan"
+	var/company_short = "BM"
+	var/starsys_name  = "Dull Star"
+
+	var/shuttle_docked_message
+	var/shuttle_leaving_dock
+	var/shuttle_called_message
+	var/shuttle_recall_message
+	var/emergency_shuttle_docked_message
+	var/emergency_shuttle_leaving_dock
+	var/emergency_shuttle_called_message
+	var/emergency_shuttle_recall_message
+
+	var/list/station_networks = list() 		// Camera networks that will show up on the console.
+	var/list/secondary_networks = list()	// Camera networks that exist, but don't show on regular camera monitors.
+
+	var/bot_patrolling = TRUE				// Determines if this map supports automated bot patrols
+
+	var/allowed_spawns = list("Arrivals Shuttle","Gateway", "Cryogenic Storage", "Cyborg Storage")
+
+	// VOREStation Edit - Persistence!
+	var/datum/spawnpoint/spawnpoint_died = /datum/spawnpoint/arrivals 	// Used if you end the round dead.
+	var/datum/spawnpoint/spawnpoint_left = /datum/spawnpoint/arrivals 	// Used of you end the round at centcom.
+	var/datum/spawnpoint/spawnpoint_stayed = /datum/spawnpoint/cryo 	// Used if you end the round on the station.
+	// VOREStation Edit End
+
+	var/lobby_icon = 'icons/misc/title.dmi' // The icon which contains the lobby image(s)
+	var/list/lobby_screens = list("mockingjay00")                 // The list of lobby screen to pick() from. If left unset the first icon state is always selected.
+
+	var/default_law_type = /datum/ai_laws/nanotrasen // The default lawset use by synth units, if not overriden by their laws var.
+
+	var/id_hud_icons = 'icons/mob/hud.dmi' // Used by the ID HUD (primarily sechud) overlay.
+
+	// Some maps include areas for that map only and don't exist when not compiled, so Travis needs this to learn of new areas that are specific to a map.
+	var/list/unit_test_exempt_areas = list()
+	var/list/unit_test_exempt_from_atmos = list()
+	var/list/unit_test_exempt_from_apc = list()
+	var/list/unit_test_z_levels //To test more than Z1, set your z-levels to test here.
+
+/datum/map/New()
+	..()
+	if(zlevel_datum_type)
+		for(var/type in subtypesof(zlevel_datum_type))
+			new type(src)
+	if(!map_levels)
+		map_levels = station_levels.Copy()
+	if(!allowed_jobs || !allowed_jobs.len)
+		allowed_jobs = subtypesof(/datum/job)
+
+/datum/map/proc/setup_map()
+	return
+
+/datum/map/proc/perform_map_generation()
+	return
+
+// Used to apply various post-compile procedural effects to the map.
+/datum/map/proc/refresh_mining_turfs()
+	// Update all turfs to ensure everything looks good post-generation. Yes,
+	// it's brute-forcey, but frankly the alternative is a mine turf rewrite.
+	for(var/turf/simulated/mineral/M in world) // Ugh.
+		M.update_icon()
+		CHECK_TICK
+
+/datum/map/proc/get_network_access(var/network)
+	return 0
+
+// By default transition randomly to another zlevel
+/datum/map/proc/get_transit_zlevel(var/current_z_level)
+	var/list/candidates = GLOB.using_map.accessible_z_levels.Copy()
+	candidates.Remove(num2text(current_z_level))
+
+	if(!candidates.len)
+		return current_z_level
+	return text2num(pickweight(candidates))
+
+/datum/map/proc/get_empty_zlevel()
+	if(empty_levels == null)
+		world.increment_max_z()
+		empty_levels = list(world.maxz)
+	return pick(empty_levels)
+
+// Get the list of zlevels that a computer on srcz can see maps of (for power/crew monitor, cameras, etc)
+// The long_range parameter expands the coverage.  Default is to return map_levels for long range otherwise just srcz.
+// zLevels outside station_levels will return an empty list.
+/datum/map/proc/get_map_levels(var/srcz, var/long_range = TRUE)
+	if (long_range && (srcz in map_levels))
+		return map_levels
+	else if (srcz in station_levels)
+		return list(srcz)
+	else
+		return list()
+
+/datum/map/proc/get_zlevel_name(var/index)
+	var/datum/map_z_level/Z = zlevels["[index]"]
+	return Z.name
+
+// Another way to setup the map datum that can be convenient.  Just declare all your zlevels as subtypes of a common
+// subtype of /datum/map_z_level and set zlevel_datum_type on /datum/map to have the lists auto-initialized.
+
+// Structure to hold zlevel info together in one nice convenient package.
+/datum/map_z_level
+	var/z = 0				// Actual z-index of the zlevel. This had better be right!
+	var/name				// Friendly name of the zlevel
+	var/flags = 0			// Bitflag of which *_levels lists this z should be put into.
+	var/turf/base_turf		// Type path of the base turf for this z
+	var/transit_chance = 0	// Percentile chance this z will be chosen for map-edge space transit.
+
+// Holomaps
+	var/holomap_offset_x = -1	// Number of pixels to offset the map right (for centering) for this z
+	var/holomap_offset_y = -1	// Number of pixels to offset the map up (for centering) for this z
+	var/holomap_legend_x = 96	// x position of the holomap legend for this z
+	var/holomap_legend_y = 96	// y position of the holomap legend for this z
+
+// Default constructor applies itself to the parent map datum
+/datum/map_z_level/New(var/datum/map/map)
+	if(!z) return
+	map.zlevels["[z]"] = src
+	if(flags & MAP_LEVEL_STATION) map.station_levels += z
+	if(flags & MAP_LEVEL_ADMIN) map.admin_levels += z
+	if(flags & MAP_LEVEL_CONTACT) map.contact_levels += z
+	if(flags & MAP_LEVEL_PLAYER) map.player_levels += z
+	if(flags & MAP_LEVEL_SEALED) map.sealed_levels += z
+	if(flags & MAP_LEVEL_XENOARCH_EXEMPT) map.xenoarch_exempt_levels += z
+	if(flags & MAP_LEVEL_EMPTY)
+		if(!map.empty_levels) map.empty_levels = list()
+		map.empty_levels += z
+	if(flags & MAP_LEVEL_CONSOLES)
+		if (!map.map_levels) map.map_levels = list()
+		map.map_levels += z
+	if(base_turf)
+		map.base_turf_by_z["[z]"] = base_turf
+	if(transit_chance)
+		map.accessible_z_levels["[z]"] = transit_chance
+	// Holomaps
+	// Auto-center the map if needed (Guess based on maxx/maxy)
+	if (holomap_offset_x < 0)
+		holomap_offset_x = ((HOLOMAP_ICON_SIZE - world.maxx) / 2)
+	if (holomap_offset_x < 0)
+		holomap_offset_y = ((HOLOMAP_ICON_SIZE - world.maxy) / 2)
+	// Assign them to the map lists
+	LIST_NUMERIC_SET(map.holomap_offset_x, z, holomap_offset_x)
+	LIST_NUMERIC_SET(map.holomap_offset_y, z, holomap_offset_y)
+	LIST_NUMERIC_SET(map.holomap_legend_x, z, holomap_legend_x)
+	LIST_NUMERIC_SET(map.holomap_legend_y, z, holomap_legend_y)
+
+/datum/map_z_level/Destroy(var/force)
+	stack_trace("Attempt to delete a map_z_level instance [log_info_line(src)]")
+	if(!force)
+		return QDEL_HINT_LETMELIVE // No.
+	if (GLOB.using_map.zlevels["[z]"] == src)
+		GLOB.using_map.zlevels -= "[z]"
+	return ..()
+
+// Access check is of the type requires one. These have been carefully selected to avoid allowing the janitor to see channels he shouldn't
+// This list needs to be purged but people insist on adding more cruft to the radio.
+/datum/map/proc/default_internal_channels()
+	return list(
+		num2text(PUB_FREQ)   = list(),
+		num2text(AI_FREQ)    = list(access_synth),
+		num2text(ENT_FREQ)   = list(),
+		num2text(ERT_FREQ)   = list(access_cent_specops),
+		num2text(COMM_FREQ)  = list(access_heads),
+		num2text(ENG_FREQ)   = list(access_engine_equip, access_atmospherics),
+		num2text(MED_FREQ)   = list(access_medical_equip),
+		num2text(MED_I_FREQ) = list(access_medical_equip),
+		num2text(SEC_FREQ)   = list(access_security),
+		num2text(SEC_I_FREQ) = list(access_security),
+		num2text(SCI_FREQ)   = list(access_tox,access_robotics,access_xenobiology),
+		num2text(SUP_FREQ)   = list(access_cargo),
+		num2text(SRV_FREQ)   = list(access_janitor, access_hydroponics),
+	)

maps/tether/tether_areas2.dm

@@ -139,6 +139,9 @@
 	name = "\improper Mining Bathroom"
 /area/tether/surfacebase/mining_main/lobby
 	name = "\improper Mining Lobby"
+/area/quartermaster/belterdock
+	name = "\improper Cargo Belter Access"
+	icon_state = "mining"
 
 // Mining Underdark
 /area/mine/unexplored/underdark
@@ -713,4 +716,4 @@
 	excluded |= /area/tether/surfacebase/atrium_three
 	excluded |= /area/teleporter/departing
 	excluded |= /area/hallway/station/upper
-	..()
+	..()

maps/tether/tether_defines.dm

@@ -22,7 +22,10 @@
 #define Z_LEVEL_BEACH_CAVE					16
 #define Z_LEVEL_AEROSTAT					17
 #define Z_LEVEL_AEROSTAT_SURFACE			18
-
+#define Z_LEVEL_ROGUEMINE_1					19
+#define Z_LEVEL_ROGUEMINE_2					20
+#define Z_LEVEL_ROGUEMINE_3					21
+#define Z_LEVEL_ROGUEMINE_4					22
 //Camera networks
 #define NETWORK_TETHER "Tether"
 #define NETWORK_TCOMMS "Telecommunications" //Using different from Polaris one for better name
@@ -52,7 +55,6 @@
 	station_name  = "NSB Adephagia"
 	station_short = "Tether"
 	dock_name     = "Virgo-3B Colony"
-	dock_type     = "surface"
 	boss_name     = "Central Command"
 	boss_short    = "CentCom"
 	company_name  = "NanoTrasen"
@@ -63,7 +65,6 @@
 	shuttle_leaving_dock = "The Orange Line tram has left the station. Estimate %ETA% until the tram arrives at %dock_name%."
 	shuttle_called_message = "A scheduled crew transfer to the %dock_name% is occuring. The tram will be arriving shortly. Those departing should proceed to the Orange Line tram station within %ETA%."
 	shuttle_recall_message = "The scheduled crew transfer has been cancelled."
-	shuttle_name = "Automated Tram"
 	emergency_shuttle_docked_message = "The evacuation tram has arrived at the tram station. You have approximately %ETD% to board the tram."
 	emergency_shuttle_leaving_dock = "The emergency tram has left the station. Estimate %ETA% until the shuttle arrives at %dock_name%."
 	emergency_shuttle_called_message = "An emergency evacuation has begun, and an off-schedule tram has been called. It will arrive at the tram station in approximately %ETA%."
@@ -123,11 +124,19 @@
 		/area/tether/surfacebase/emergency_storage/rnd,
 		/area/tether/surfacebase/emergency_storage/atrium)
 
+
+	belter_docked_z = 		list(Z_LEVEL_SPACE_HIGH)
+	belter_transit_z =	 	list(Z_LEVEL_SHIPS)
+	belter_belt_z = 		list(Z_LEVEL_ROGUEMINE_1,
+						 		 Z_LEVEL_ROGUEMINE_2,
+						 	 	 Z_LEVEL_ROGUEMINE_3,
+								 Z_LEVEL_ROGUEMINE_4)
 	lateload_z_levels = list(
 		list("Tether - Misc","Tether - Ships","Tether - Underdark"), //Stock Tether lateload maps
 		list("Alien Ship - Z1 Ship"),
 		list("Desert Planet - Z1 Beach","Desert Planet - Z2 Cave"),
-		list("Remmi Aerostat - Z1 Aerostat","Remmi Aerostat - Z2 Surface")
+		list("Remmi Aerostat - Z1 Aerostat","Remmi Aerostat - Z2 Surface"),
+		list("Asteroid Belt 1","Asteroid Belt 2","Asteroid Belt 3","Asteroid Belt 4")
 	)
 
 	ai_shell_restricted = TRUE

maps/tether/tether_shuttle_defs.dm

@@ -190,23 +190,23 @@
 //////////////////////////////////////////////////////////////
 // RogueMiner "Belter: Shuttle
 // TODO - Not implemented yet on new map
-/*
+
 /datum/shuttle/ferry/belter
 	name = "Belter"
 	location = 0
 	warmup_time = 6
-	move_time = 60
+	move_time = 30
 	area_station = /area/shuttle/belter/station
 	area_offsite = /area/shuttle/belter/belt/zone1
 	area_transition = /area/shuttle/belter/transit
-	docking_controller_tag = "belter_docking"
+	docking_controller_tag = "belter_dock"
 	dock_target_station = "belter_nodocking" //Fake tags to prevent the shuttle from opening doors.
 	dock_target_offsite = "belter_nodocking"
 
 /datum/shuttle/ferry/belter/New()
-	move_time = move_time + rand(10, 40)
+	move_time = move_time + rand(-10, 20) //50sec max, 20sec min.
 	..()
-*/
+
 
 //////////////////////////////////////////////////////////////
 // CC Lewdship shuttle
@@ -221,4 +221,4 @@
 	docking_controller_tag = "cruiser_shuttle"
 	dock_target_station = "d1a1_dock"
 	dock_target_offsite = "cruiser_shuttle_bay"
-*/
+*/