#define BP_MAX_ROOM_SIZE 300

GLOBAL_LIST_INIT(typecache_powerfailure_safe_areas, typecacheof(list(/area/engine/engineering,

/area/engine/supermatter,

/area/engine/atmospherics_engine,

/area/ai_monitored/turret_protected/ai)))

/proc/detect_room(turf/origin, list/break_if_found, max_size=INFINITY)

if(origin.blocks_air)

return list(origin)

. = list()

var/list/checked_turfs = list()

var/list/found_turfs = list(origin)

while(found_turfs.len)

var/turf/sourceT = found_turfs[1]

found_turfs.Cut(1, 2)

var/dir_flags = checked_turfs[sourceT]

for(var/dir in GLOB.alldirs)

if(length(.) > max_size)

return

if(dir_flags & dir) // This means we've checked this dir before, probably from the other turf

continue

var/turf/checkT = get_step(sourceT, dir)

if(!checkT)

continue

checked_turfs[sourceT] |= dir

checked_turfs[checkT] |= turn(dir, 180)

.[sourceT] |= dir

.[checkT] |= turn(dir, 180)

if(break_if_found[checkT.type] || break_if_found[checkT.loc.type])

return FALSE

var/static/list/cardinal_cache = list("[NORTH]"=TRUE, "[EAST]"=TRUE, "[SOUTH]"=TRUE, "[WEST]"=TRUE)

if(!cardinal_cache["[dir]"] || checkT.blocks_air || !CANATMOSPASS(sourceT, checkT))

continue

found_turfs += checkT // Since checkT is connected, add it to the list to be processed

/proc/create_area(mob/creator)

// Passed into the above proc as list/break_if_found

var/static/area_or_turf_fail_types = typecacheof(list(

/turf/open/space,

/area/shuttle,

))

// Ignore these areas and dont let people expand them. They can expand into them though

var/static/blacklisted_areas = typecacheof(list(

/area/space,

))

var/list/turfs = detect_room(get_turf(creator), area_or_turf_fail_types, BP_MAX_ROOM_SIZE*2)

if(!turfs)

to_chat(creator, span_warning("The new area must be completely airtight and not a part of a shuttle."))

return

if(turfs.len > BP_MAX_ROOM_SIZE)

to_chat(creator, span_warning("The room you're in is too big. It is [turfs.len >= BP_MAX_ROOM_SIZE *2 ? "more than 100" : ((turfs.len / BP_MAX_ROOM_SIZE)-1)*100]% larger than allowed."))

return

var/list/areas = list("New Area" = /area)

for(var/i in 1 to turfs.len)

var/area/place = get_area(turfs[i])

if(blacklisted_areas[place.type])

continue

if(!place.requires_power || place.noteleport || place.hidden)

continue // No expanding powerless rooms etc

areas[place.name] = place

var/area_choice = input(creator, "Choose an area to expand or make a new area.", "Area Expansion") as null|anything in areas

area_choice = areas[area_choice]

if(!area_choice)

to_chat(creator, span_warning("No choice selected. The area remains undefined."))

return

var/area/newA

var/area/oldA = get_area(get_turf(creator))

if(!isarea(area_choice))

var/str = stripped_input(creator,"New area name:", "Blueprint Editing", "", MAX_NAME_LEN)

if(!str || !length(str)) //cancel

return

if(length(str) > 50)

to_chat(creator, span_warning("The given name is too long. The area remains undefined."))

return

newA = new area_choice

newA.setup(str)

newA.set_dynamic_lighting()

newA.has_gravity = oldA.has_gravity

else

newA = area_choice

for(var/i in 1 to turfs.len)

var/turf/thing = turfs[i]

var/area/old_area = thing.loc

newA.contents += thing

thing.change_area(old_area, newA)

newA.reg_in_areas_in_z()

var/list/firedoors = oldA.firedoors

for(var/door in firedoors)

var/obj/machinery/door/firedoor/FD = door

FD.CalculateAffectingAreas()

to_chat(creator, span_notice("You have created a new area, named [newA.name]. It is now weather proof, and constructing an APC will allow it to be powered."))

return TRUE

#undef BP_MAX_ROOM_SIZE