mirror of
https://github.com/Aurorastation/Aurora.3.git
synced 2025-12-21 15:42:35 +00:00
d86dcf74f8
Improved Icarus combat drone code across the board, added a non-malfunctioning variant.
The Icarus now sends combat drones to substantial space wildlife migrations.
Added an Icarus drone target painter to some admin roles. It is an orbital drop device that will warp two Icarus drones at the targetted location.
Added examine texts to malfunctioning combat drones that tells you what they're doing.
110 lines
2.9 KiB
Plaintext
110 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)
|
|
if(A.station_area)
|
|
return TRUE
|
|
return FALSE
|
|
|
|
/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) |