mirror of
https://github.com/Aurorastation/Aurora.3.git
synced 2025-12-22 16:12:19 +00:00
2e5fdf970c
The lifeless live again. Or in this case, what never actually lived here. Ports Baystation12/Baystation12#17460 probably for real this time. What this allows us to do is create shuttles on runtime and make shuttles easier by just making landmarks and a shuttle instead of areas and shuttles. Also allows runtime landmark creation via flares or whatever AND allows shuttles to use different landmarks at will. I removed most of the overmap stuff, I think. It shouldn't be hard to slam it in whenever we need to. Changes: "Shuttle code has been completely reworked." "Shuttles can now be modified to have more than one destination." "Shuttles now have a takeoff sound." "You can now throw mobs against walls to damage them. A lot." "You now need a neckgrab to throw mobs." "BEING UNBUCKLED DURING SHUTTLE LAUNCH IS DANGEROUS! Don't do it." "Adminghosts can now interact with all shuttles."
108 lines
2.9 KiB
Plaintext
108 lines
2.9 KiB
Plaintext
/*
|
|
List generation helpers
|
|
*/
|
|
/proc/get_filtered_areas(var/list/predicates = list(/proc/is_area_with_turf))
|
|
. = list()
|
|
if(!predicates)
|
|
return
|
|
if(!islist(predicates))
|
|
predicates = list(predicates)
|
|
for(var/area/A)
|
|
if(all_predicates_true(list(A), predicates))
|
|
. += A
|
|
|
|
/proc/get_area_turfs(var/area/A, var/list/predicates)
|
|
. = new/list()
|
|
A = istype(A) ? A : locate(A)
|
|
if(!A)
|
|
return
|
|
for(var/turf/T in A.contents)
|
|
if(!predicates || all_predicates_true(list(T), predicates))
|
|
. += T
|
|
|
|
/proc/get_subarea_turfs(var/area/A, var/list/predicates)
|
|
. = new/list()
|
|
A = istype(A) ? A.type : A
|
|
if(!ispath(A))
|
|
return
|
|
for(var/sub_area_type in typesof(A))
|
|
var/area/sub_area = locate(sub_area_type)
|
|
for(var/turf/T in sub_area.contents)
|
|
if(!predicates || all_predicates_true(list(T), predicates))
|
|
. += T
|
|
|
|
/proc/group_areas_by_name(var/list/predicates)
|
|
. = list()
|
|
for(var/area/A in get_filtered_areas(predicates))
|
|
group_by(., A.name, A)
|
|
|
|
/proc/group_areas_by_z_level(var/list/predicates)
|
|
. = list()
|
|
var/enough_digits_to_contain_all_zlevels = 3
|
|
for(var/area/A in get_filtered_areas(predicates))
|
|
group_by(., add_zero(num2text(A.z), enough_digits_to_contain_all_zlevels), A)
|
|
|
|
/*
|
|
Pick helpers
|
|
*/
|
|
/proc/pick_subarea_turf(var/areatype, var/list/predicates)
|
|
var/list/turfs = get_subarea_turfs(areatype, predicates)
|
|
if(LAZYLEN(turfs))
|
|
return pick(turfs)
|
|
|
|
/proc/pick_area(var/list/predicates)
|
|
var/list/areas = get_filtered_areas(predicates)
|
|
if(LAZYLEN(areas))
|
|
. = pick(areas)
|
|
|
|
/proc/pick_area_and_turf(var/list/area_predicates, var/list/turf_predicates)
|
|
var/list/areas = get_filtered_areas(area_predicates)
|
|
// We loop over all area candidates, until we finally get a valid turf or run out of areas
|
|
while(!. && length(areas))
|
|
var/area/A = pick_n_take(areas)
|
|
. = pick_area_turf(A, turf_predicates)
|
|
|
|
/proc/pick_area_turf_in_connected_z_levels(var/list/area_predicates, var/list/turf_predicates, var/z_level)
|
|
area_predicates = area_predicates.Copy()
|
|
|
|
var/z_levels = GetConnectedZlevels(z_level)
|
|
area_predicates[/proc/area_belongs_to_zlevels] = z_levels
|
|
return pick_area_and_turf(area_predicates, turf_predicates)
|
|
|
|
/proc/pick_area_turf(var/areatype, var/list/predicates)
|
|
var/list/turfs = get_area_turfs(areatype, predicates)
|
|
if(turfs && turfs.len)
|
|
return pick(turfs)
|
|
|
|
/*
|
|
Predicate Helpers
|
|
*/
|
|
/proc/area_belongs_to_zlevels(var/area/A, var/list/z_levels)
|
|
. = (A.z in z_levels)
|
|
|
|
/proc/is_station_area(var/area/A)
|
|
. = isStationLevel(A.z)
|
|
|
|
/proc/is_contact_area(var/area/A)
|
|
. = isContactLevel(A.z)
|
|
|
|
/proc/is_player_area(var/area/A)
|
|
. = isPlayerLevel(A.z)
|
|
|
|
/proc/is_not_space_area(var/area/A)
|
|
. = !istype(A,/area/space)
|
|
|
|
/proc/is_not_shuttle_area(var/area/A)
|
|
. = !istype(A,/area/shuttle)
|
|
|
|
/proc/is_area_with_turf(var/area/A)
|
|
. = isnum(A.x)
|
|
|
|
/proc/is_area_without_turf(var/area/A)
|
|
. = !is_area_with_turf(A)
|
|
|
|
/proc/is_maint_area(var/area/A)
|
|
. = istype(A,/area/maintenance)
|
|
|
|
/proc/is_not_maint_area(var/area/A)
|
|
. = !is_maint_area(A) |