Files
CHOMPStation2/code/modules/random_map/automata/caves.dm
CHOMPStation2StaffMirrorBot 747ed116c6 [MIRROR] Reagent Refinery (#11282)
Co-authored-by: Will <7099514+Willburd@users.noreply.github.com>
Co-authored-by: C.L. <killer65311@gmail.com>
2025-08-02 12:08:35 +02:00

88 lines
2.3 KiB
Plaintext

/datum/random_map/automata/cave_system
iterations = 5
descriptor = "moon caves"
var/list/ore_turfs = list()
var/list/turfs_changed
var/make_cracked_turfs = TRUE
/datum/random_map/automata/cave_system/no_cracks
make_cracked_turfs = FALSE
/datum/random_map/automata/cave_system/get_appropriate_path(var/value)
return
/datum/random_map/automata/cave_system/get_map_char(var/value)
switch(value)
if(DOOR_CHAR)
return "x"
if(EMPTY_CHAR)
return "X"
return ..(value)
// Create ore turfs.
/datum/random_map/automata/cave_system/cleanup()
var/tmp_cell
for (var/x = 1 to limit_x)
for (var/y = 1 to limit_y)
tmp_cell = TRANSLATE_COORD(x, y)
if (CELL_ALIVE(map[tmp_cell]))
ore_turfs += tmp_cell
#ifdef TESTING
testing("ASGEN: Found [ore_turfs.len] ore turfs.")
#endif
var/ore_count = round(map.len/20)
var/door_count = 0
var/empty_count = 0
while((ore_count>0) && (ore_turfs.len>0))
if(!priority_process)
CHECK_TICK
var/check_cell = pick(ore_turfs)
ore_turfs -= check_cell
if(prob(75))
map[check_cell] = DOOR_CHAR // Mineral block
door_count += 1
else
map[check_cell] = EMPTY_CHAR // Rare mineral block.
empty_count += 1
ore_count--
#ifdef TESTING
testing("ASGEN: Set [door_count] turfs to random minerals.")
testing("ASGEN: Set [empty_count] turfs to high-chance random minerals.")
#endif
return 1
/datum/random_map/automata/cave_system/apply_to_turf(var/x,var/y)
var/current_cell = get_map_cell(x,y)
if(!current_cell)
return 0
var/turf/simulated/mineral/T = locate((origin_x-1)+x,(origin_y-1)+y,origin_z)
if(istype(T) && !T.ignore_mapgen)
if(!T.ignore_cavegen)
if(map[current_cell] == FLOOR_CHAR)
T.make_floor()
if(prob(0.5)) // 1 in 200 chance //CHOMP Add
new /obj/structure/mob_spawner/scanner/mining_animals(T) //CHOMP Add
else
T.make_wall()
LAZYSET(turfs_changed, T, TRUE)
if(T.density && !T.ignore_oregen)
if(map[current_cell] == DOOR_CHAR)
T.turf_resource_types |= TURF_HAS_ORE
else if(map[current_cell] == EMPTY_CHAR)
T.turf_resource_types |= TURF_HAS_RARE_ORE
get_additional_spawns(map[current_cell],T,get_spawn_dir(x, y))
return T
/datum/random_map/automata/cave_system/apply_to_map()
. = ..()
for(var/turf/simulated/mineral/T as anything in turfs_changed)
T.update_icon(1, turfs_changed)
LAZYCLEARLIST(turfs_changed)