/
Lachklen
/
MYtgstation
Обзор
Документация
Войти
/
Lachklen
/
MYtgstation
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
code/modules/admin/verbs/path_debugger.dm
263 строки
8 KB
LemonInTheDark
Pathfinding Visualization, JPS fixes, Misc Improvement (#90233)
28 мар 2025, 02:51
Не верифицирован
28 мар 2025, 02:51
77823ad
Код
Авторство
О чём код?
GLOBAL_DATUM_INIT(pathfind_dude, /obj/pathfind_guy, new()) /obj/pathfind_guy /// Enables testing/visualization of pathfinding work /datum/pathfind_debug var/datum/admins/owner var/datum/action/innate/path_debug/jps/jps_debug var/datum/action/innate/path_debug/sssp/sssp_debug /datum/pathfind_debug/New(datum/admins/owner) src.owner = owner hook_client() /datum/pathfind_debug/Destroy(force) QDEL_NULL(jps_debug) QDEL_NULL(sssp_debug) return ..() /datum/pathfind_debug/proc/hook_client() if(!owner.owner) return QDEL_NULL(jps_debug) QDEL_NULL(sssp_debug) jps_debug = new jps_debug.Grant(owner.owner.mob) sssp_debug = new() sssp_debug.Grant(owner.owner.mob) RegisterSignal(owner.owner.mob, COMSIG_MOB_LOGOUT, PROC_REF(on_logout)) /datum/pathfind_debug/proc/on_logout(mob/logging_out) SIGNAL_HANDLER UnregisterSignal(logging_out, COMSIG_MOB_LOGOUT) var/mob/new_mob = owner.owner?.mob if(!new_mob) RegisterSignal(logging_out, COMSIG_MOB_LOGIN, PROC_REF(on_login)) return hook_client() /datum/pathfind_debug/proc/on_login(mob/logging_in) SIGNAL_HANDLER UnregisterSignal(logging_in, list(COMSIG_MOB_LOGOUT, COMSIG_MOB_LOGIN)) hook_client() /datum/action/innate/path_debug var/list/image/display_images = list() /datum/action/innate/path_debug/Activate() . = ..() RegisterSignal(owner, COMSIG_MOB_CLICKON, PROC_REF(clicked_somethin)) active = TRUE /datum/action/innate/path_debug/Deactivate() UnregisterSignal(owner, COMSIG_MOB_CLICKON) clear_visuals() active = FALSE return ..() /datum/action/innate/path_debug/proc/clicked_somethin(datum/source, atom/clicked, list/modifiers) SIGNAL_HANDLER if(LAZYACCESS(modifiers, SHIFT_CLICK)) return NONE var/turf/clunked = get_turf(clicked) if(!clunked) return NONE if(LAZYACCESS(modifiers, RIGHT_CLICK)) right_clicked(clunked) else left_clicked(clunked) update_visuals() if(path_ready()) pathfind() /datum/action/innate/path_debug/proc/left_clicked(turf/clicked_on) return /datum/action/innate/path_debug/proc/right_clicked(turf/clicked_on) return /datum/action/innate/path_debug/proc/update_visuals() clear_visuals() build_visuals() owner.client?.images += display_images /datum/action/innate/path_debug/proc/clear_visuals() owner.client?.images -= display_images display_images = list() /datum/action/innate/path_debug/proc/build_visuals() return /datum/action/innate/path_debug/proc/path_ready() return FALSE /datum/action/innate/path_debug/proc/pathfind() INVOKE_ASYNC(src, PROC_REF(run_the_path), GLOB.pathfind_dude) GLOB.pathfind_dude.moveToNullspace() /datum/action/innate/path_debug/proc/run_the_path(atom/movable/middle_man) return /datum/action/innate/path_debug/proc/render_path(list/turf/draw_list) if(!length(draw_list)) return list() var/list/image/turf_images = list() // Render everything but the first and last for(var/i in 1 to (length(draw_list) - 1)) var/turf/problem_child = draw_list[i] var/turf/next = draw_list[i + 1] turf_images += render_turf(problem_child, get_dir(problem_child, next)) return turf_images /datum/action/innate/path_debug/proc/render_turf(turf/draw, direction) var/image/arrow = image('icons/turf/debug.dmi', draw, "arrow", PATH_ARROW_DEBUG_LAYER, direction) SET_PLANE_EXPLICIT(arrow, BALLOON_CHAT_PLANE, draw) return arrow /datum/action/innate/path_debug/jps name = "JPS Test" button_icon = 'icons/turf/debug.dmi' button_icon_state = "jps" // Mirror vars for jps calls var/turf/source_turf var/turf/target_turf var/max_distance var/min_distance var/allowed_on_space var/turf/blacklisted_turf var/diagonal_handling /// List of turfs we are showing to our owner currently var/list/turf/display_turfs /datum/action/innate/path_debug/jps/Activate() . = ..() max_distance = tgui_input_number(owner, "How far should we be allowed to try and path", "Max Distance", min_value = 1, default = 30) min_distance = tgui_input_number(owner, "How close should we try and get to the target before stopping", "Min Distance", min_value = 0, default = 0) allowed_on_space = tgui_alert(owner, "Are we allowed to path over space?", "Space Pathing", buttons = list("Yes", "No")) == "Yes" var/text_blacklist = tgui_input_text(owner, "Enter any turf path you want to blacklist (You get one)", "Turf Blacklist") if(text_blacklist) blacklisted_turf = pick_closest_path(text_blacklist) else blacklisted_turf = null diagonal_handling = DIAGONAL_DO_NOTHING switch(tgui_input_list(owner, "Pick how you want to handle diagonal moves", "Diagonal Moves", list("Leave Them Be", "Drop All", "Drop Odd Ones"))) if("Leave Them Be") diagonal_handling = DIAGONAL_DO_NOTHING if("Drop All") diagonal_handling = DIAGONAL_REMOVE_ALL if("Drop Odd Ones") diagonal_handling = DIAGONAL_REMOVE_CLUNKY /datum/action/innate/path_debug/jps/Deactivate() source_turf = null target_turf = null display_turfs = list() return ..() /datum/action/innate/path_debug/jps/left_clicked(turf/clicked_on) source_turf = clicked_on display_turfs = list() /datum/action/innate/path_debug/jps/right_clicked(turf/clicked_on) target_turf = clicked_on display_turfs = list() /datum/action/innate/path_debug/jps/build_visuals() . = ..() if(source_turf) var/image/start = image('icons/turf/debug.dmi', source_turf, "start", PATH_DEBUG_LAYER) SET_PLANE_EXPLICIT(start, BALLOON_CHAT_PLANE, source_turf) display_images += start if(target_turf) var/image/end = image('icons/turf/debug.dmi', target_turf, "end", PATH_DEBUG_LAYER) SET_PLANE_EXPLICIT(end, BALLOON_CHAT_PLANE, target_turf) display_images += end display_images += render_path(display_turfs) /datum/action/innate/path_debug/jps/path_ready() return (source_turf && target_turf) /datum/action/innate/path_debug/jps/run_the_path(atom/movable/middle_man) middle_man.forceMove(source_turf) display_turfs = get_path_to(middle_man, target_turf, max_distance, min_distance, list(), allowed_on_space, blacklisted_turf, skip_first = FALSE, diagonal_handling = diagonal_handling) update_visuals() /datum/action/innate/path_debug/sssp name = "Pathmap Test" button_icon = 'icons/turf/debug.dmi' button_icon_state = "sssp" // Mirror vars for sssp calls var/turf/source_turf var/max_distance var/allowed_on_space var/turf/blacklisted_turf // Turf to display the path to (optional) var/turf/target_turf /// List of turfs we are showing to our owner currently var/datum/path_map/shown_map /datum/action/innate/path_debug/sssp/Activate() . = ..() max_distance = tgui_input_number(owner, "How far should we be allowed to try and path", "Max Distance", min_value = 1, default = 30) allowed_on_space = tgui_alert(owner, "Are we allowed to path over space?", "Space Pathing", buttons = list("Yes", "No")) == "Yes" var/text_blacklist = tgui_input_text(owner, "Enter any turf path you want to blacklist (You get one)", "Turf Blacklist") if(text_blacklist) blacklisted_turf = pick_closest_path(text_blacklist) else blacklisted_turf = null /datum/action/innate/path_debug/sssp/Deactivate() source_turf = null target_turf = null shown_map = null return ..() /datum/action/innate/path_debug/sssp/left_clicked(turf/clicked_on) source_turf = clicked_on shown_map = null /datum/action/innate/path_debug/sssp/right_clicked(turf/clicked_on) if(clicked_on == target_turf) target_turf = null return target_turf = clicked_on /datum/action/innate/path_debug/sssp/build_visuals() . = ..() if(source_turf) var/image/start = image('icons/turf/debug.dmi', source_turf, "start", PATH_DEBUG_LAYER) SET_PLANE_EXPLICIT(start, BALLOON_CHAT_PLANE, source_turf) display_images += start if(target_turf) var/image/end = image('icons/turf/debug.dmi', target_turf, "end", PATH_DEBUG_LAYER) SET_PLANE_EXPLICIT(end, BALLOON_CHAT_PLANE, target_turf) display_images += end if(shown_map) display_images += render_path(shown_map.get_path_to(target_turf)) else if(!shown_map) return var/list/turf/next_closest = shown_map.next_closest var/turf/start = shown_map?.start for(var/turf/next_dude as anything in next_closest) if(next_dude == start) continue display_images += render_turf(next_dude, get_dir(next_dude, next_closest[next_dude])) /datum/action/innate/path_debug/sssp/path_ready() return (source_turf && source_turf != shown_map?.start) /datum/action/innate/path_debug/sssp/run_the_path(atom/movable/middle_man) middle_man.forceMove(source_turf) shown_map = get_sssp(middle_man, max_distance, list(), allowed_on_space, blacklisted_turf) update_visuals()