#include "macros.dm"
/client/proc/Debug2()
set category = "Debug"
set name = "Debug-Game"
admin_only
if(src.holder.rank == "Coder")
Debug2 = !Debug2
boutput(src, "Debugging [Debug2 ? "On" : "Off"]")
logTheThing("admin", src, null, "toggled debugging to [Debug2]")
logTheThing("diary", src, null, "toggled debugging to [Debug2]", "admin")
else if(src.holder.rank == "Host")
Debug2 = !Debug2
boutput(src, "Debugging [Debug2 ? "On" : "Off"]")
logTheThing("admin", src, null, "toggled debugging to [Debug2]")
logTheThing("diary", src, null, "toggled debugging to [Debug2]", "admin")
else
alert("Coders only baby")
return
/client/proc/debug_deletions()
set category = "Debug"
set name = "Debug Deletions"
admin_only
var/deletedJson = "\[{path:null,count:0}"
var/deletionWhat = "Deleted Object Counts:"
#ifdef DELETE_QUEUE_DEBUG
for(var/path in deletedObjects)
deletedJson += ",{path:\"[path]\",count:[deletedObjects[path]]}\n"
#else
deletionWhat = "Detailed counts disabled."
#endif
deletedJson += "]"
var/html = {"
Deletions debug
Delete Queue Length: [global.delete_queue.count()]
[deletionWhat]
"}
src << browse(html, "window=deletedObjects;size=400x600")
#ifdef IMAGE_DEL_DEBUG
/client/proc/debug_image_deletions_clear()
set category = "Debug"
set name = "Clear Image Deletion Log"
admin_only
deletedImageData = new
/client/proc/debug_image_deletions()
set category = "Debug"
set name = "Debug Image Deletions"
admin_only
#ifdef IMAGE_DEL_DEBUG
var/deletedJson = "\[''"
var/deletionWhat = "Deleted Image data:"
var/deletionCounts = "Deleted icon_state counts:
"
for(var/i = 1,i <= deletedImageIconStates.len, i++)
deletionCounts += "[deletedImageIconStates[i]]: [deletedImageIconStates[deletedImageIconStates[i]]]
"
for(var/i = 1,i <= deletedImageData.len, i++)
deletedJson += ",'[deletedImageData[i]]'\n"
deletedJson += "]"
var/html = {"
Image data deletion debug
[deletionWhat]
[deletionCounts]
"}
#else
var/html = "Image deletion debug disabled
"
#endif
src << browse(html, "window=deletedImageData;size=400x600")
#endif
/client/proc/debug_pools()
set category = "Debug"
set name = "Debug Object Pools"
admin_only
var/matrixPoolCount = matrixPool.len
#ifndef DETAILED_POOL_STATS
var/poolsJson = "\[{pool:null,count:0}"
for(var/pool in object_pools)
var/list/poolList = object_pools[pool]
poolsJson += ",{pool:'[pool]',count:[poolList.len]}\n"
poolsJson += "]"
var/html = {"
object pool counts
Object Pool Counts:
- Matrix pool length: [matrixPoolCount]
- Matrix pool hit count: [matrixPoolHitCount]
- Matrix pool miss count: [matrixPoolMissCount]
"}
#else
var/poolsJson = getPoolingJson()
var/html = {"
object pool counts
Object Pool Counts:
- Matrix pool length: [matrixPoolCount]
- Matrix pool hit count: [matrixPoolHitCount]
- Matrix pool miss count: [matrixPoolMissCount]
"}
#endif
src << browse(html, "window=poolCounts;size=400x800")
/client/proc/call_proc_atom(atom/target as null|area|obj|mob|turf in world)
set name = "Call Proc"
set desc = "Calls a proc associated with the targeted atom"
set category = null
set popup_menu = 1
admin_only
if (!target)
return
doCallProc(target)
/client/proc/call_proc_all(var/typename as null|text)
set category = "Debug"
set name = "Call Proc All"
set desc = "Call proc on all instances of a type, will probably slow shit down"
if (!typename)
return
var/thetype = get_one_match(typename, /atom)
if (thetype)
var/counter = 0
var/procname = input("Procpath","path:", null) as text
var/argnum = input("Number of arguments:","Number", 0) as num
var/list/listargs = list()
for(var/i=0, i'[procname]' called on [counter] instances of '[typename]'")
message_admins("Admin [key_name(src)] called '[procname]' on all instances of '[typename]'")
logTheThing("admin", src, null, "called [procname] on all instances of [typename]")
logTheThing("diary", src, null, "called [procname] on all instances of [typename]")
else
boutput(usr, "No type matches for [typename]")
return
/client/proc/call_proc()
set category = "Debug"
set name = "Advanced ProcCall"
admin_only
var/target = null
switch (alert("Proc owned by obj?",,"Yes","No","Cancel"))
if ("Cancel")
return
if ("Yes")
target = input("Enter target:","Target",null) as null|obj|mob|area|turf in world
if (!target)
return
if ("No")
target = null
doCallProc(target)
/proc/doCallProc(target = null)
var/returnval = null
var/procname = input("Procpath","path:", null) as null|text
if (isnull(procname))
return
var/argnum = input("Number of arguments:","Number", 0) as null|num
if (isnull(argnum))
return
var/list/listargs = list()
for(var/i=0, iCalling '[procname]' with [listargs.len] arguments on '[target]'")
if(listargs.len)
returnval = call(target,procname)(arglist(listargs))
else
returnval = call(target,procname)()
else
boutput(usr, "Calling '[procname]' with [listargs.len] arguments")
if(listargs.len)
returnval = call(procname)(arglist(listargs))
else
returnval = call(procname)(arglist(listargs))
boutput(usr, "Proc returned: [returnval ? returnval : "null"]")
return
/client/proc/cmd_admin_mobileAIize(var/mob/M in world)
set category = null
set name = "Mobile AIize"
set popup_menu = 0
if(!ticker)
alert("Wait until the game starts")
return
if(istype(M, /mob/living/carbon/human))
logTheThing("admin", src, M, "has mobile-AIized %target%")
logTheThing("diary", src, M, "has mobile-AIized %target%", "admin")
spawn(10)
M:AIize(1)
else
alert("Invalid mob")
/client/proc/cmd_admin_makeai(var/mob/M in world)
set category = null
set name = "Make AI"
set popup_menu = 0
if(!ticker)
alert("Wait until the game starts")
return
if(ishuman(M))
var/mob/living/carbon/human/H = M
var/obj/S = locate(text("start*AI"))
if ((istype(S, /obj/landmark/start) && istype(S.loc, /turf)))
boutput(M, "You have been teleported to your new starting location!")
M.set_loc(S.loc)
M.buckled = null
message_admins("Admin [key_name(src)] AIized [key_name(M)]!")
logTheThing("admin", src, M, "AIized %target%")
logTheThing("diary", src, M, "AIized %target%", "admin")
return H.AIize()
else
alert("Non-humans cannot be made into AI units.")
return
/* Just use the set traitor dialog thing
/client/proc/cmd_admin_changelinginize(var/mob/M in world)
set category = null
set name = "Make Changeling"
set popup_menu = 0
if(!ticker)
alert("Wait until the game starts")
return
if(istype(M, /mob/living/carbon/human) && M.mind != null)
logTheThing("admin", src, M, "has made %target% a changeling.")
logTheThing("diary", src, M, "has made %target% a changeling.", "admin")
spawn(10)
M.mind.absorbed_dna[M.bioHolder] = M.real_name
M.make_changeling()
else
alert("Invalid mob")
*/
/client/proc/cmd_debug_del_all()
set category = "Debug"
set name = "Del-All"
// to prevent REALLY stupid deletions
var/blocked = list(/obj, /mob, /mob/living, /mob/living/carbon, /mob/living/carbon/human)
var/hsbitem = input("Enter atom path:","Delete",null) as null|text
hsbitem = text2path(hsbitem)
for(var/V in blocked)
if(V == hsbitem)
boutput(usr, "Can't delete that you jerk!")
return
if(hsbitem)
src.delete_state = DELETE_RUNNING
src.verbs += /client/proc/cmd_debug_del_all_cancel
src.verbs += /client/proc/cmd_debug_del_all_check
boutput(usr, "Deleting [hsbitem]...")
var/numdeleted = 0
for(var/atom/O in world)
if(istype(O, hsbitem))
del(O)
numdeleted ++
LAGCHECK(80)
if (src.delete_state == DELETE_STOP)
break
else if (src.delete_state == DELETE_CHECK)
boutput(usr, "Deleted [numdeleted] instances of [hsbitem] so far.")
src.delete_state = DELETE_RUNNING
if(numdeleted == 0) boutput(usr, "No instances of [hsbitem] found!")
else boutput(usr, "Deleted [numdeleted] instances of [hsbitem]!")
logTheThing("admin", src, null, "has deleted [numdeleted] instances of [hsbitem].")
logTheThing("diary", src, null, "has deleted [numdeleted] instances of [hsbitem].", "admin")
message_admins("[key_name(src)] has deleted [numdeleted] instances of [hsbitem].")
src.verbs -= /client/proc/cmd_debug_del_all_cancel
src.verbs -= /client/proc/cmd_debug_del_all_check
src.delete_state = DELETE_STOP
// cancels your del_all in process, if one is running
/client/proc/cmd_debug_del_all_cancel()
set category = "Debug"
set name = "Del-All Cancel"
src.delete_state = DELETE_STOP
// makes del_all print how much is currently deleted
/client/proc/cmd_debug_del_all_check()
set category = "Debug"
set name = "Del-All Progress"
src.delete_state = DELETE_CHECK
// fuck this
// fuck
// GO AWAY
/client/proc/cmd_explosion(var/turf/T in world)
set name = "Create Explosion"
var/esize = input("Enter POWER of Explosion\nPlease use decimals for greater accuracy!)","Explosion Power",null) as num|null
if (!esize)
return
var/bris = input("Enter BRISANCE of Explosion\nLeave it on 1 if you have no idea what this is.", "Brisance", 1) as num
logTheThing("admin", src, null, "created an explosion (power [esize], brisance [bris]) at [log_loc(T)].")
logTheThing("diary", src, null, "created an explosion (power [esize], brisance [bris]) at [log_loc(T)].", "admin")
message_admins("[key_name(src)] has created an explosion (power [esize], brisance [bris]) at [log_loc(T)].")
explosion_new(null, T, esize, bris)
return
/*
/client/proc/cmd_ultimategrife()
set category = "Debug"
set name = "ULTIMATE GRIFE"
switch(alert("Holy shit are you sure?! (also the server will lag for a few seconds)",,"Yes","No"))
if("Yes")
for(var/turf/simulated/wall/W in world)
new /obj/machinery/crusher(get_turf(W))
qdel(W)
for(var/turf/simulated/wall/r_wall/RW in world)
new /obj/machinery/crusher(get_turf(RW))
qdel(RW)
logTheThing("admin", src, null, "has turned every wall into a crusher! God damn.")
logTheThing("diary", src, null, "has turned every wall into a crusher! God damn.", "admin")
message_admins("[key_name(src)] has turned every wall into a crusher! God damn.")
alert("Uh oh.")
if("No")
alert("Thank god for that.")
*/
/client/proc/cmd_debug_mutantrace(var/mob/mob in world)
set name = "Mutant Race Debug"
set category = "Debug"
set popup_menu = 0
if(!ishuman(mob))
alert("[mob] is not a human mob!")
return
var/mob/living/carbon/human/H = mob
var/race = input("Select a mutant race","Races",null) as null|anything in typesof(/datum/mutantrace)
if (!race)
return
if(H.mutantrace)
qdel(H.mutantrace)
H.set_mutantrace(race)
H.set_face_icon_dirty()
H.set_body_icon_dirty()
H.update_clothing()
/client/proc/view_save_data(var/mob/mob in world)
set category = "Debug"
set name = "View Save Data"
set desc = "Displays the save data for any mob with an associated client."
if(!mob.client)
boutput(src, "That mob has no client!")
return
var/datum/preferences/prefs = new
prefs.savefile_load(mob.client)
var/title = "[mob.client]'s Save Data"
var/body = ""
body += ""
var/list/names = list()
for (var/V in prefs.vars)
names += V
names = sortList(names)
for (var/V in names)
body += debug_variable(V, prefs.vars[V], 0)
body += "
"
var/html = ""
if (title)
html += "[title]"
html += {""}
html += ""
html += body
html += ""
usr << browse(html, "window=variables\ref[prefs]")
/client/proc/check_gang_scores()
set category = "Debug"
set name = "Check Gang Scores"
if(!(ticker && ticker.mode && istype(ticker.mode, /datum/game_mode/gang)))
alert("It isn't gang mode, dummy!")
return
boutput(usr, "Gang scores:")
for(var/datum/gang/G in ticker.mode:gangs)
boutput(usr, "[G.gang_name]: [G.gang_score()] ([G.num_areas_controlled()] areas)")
/client/proc/scenario()
set category = "Debug"
set name = "Profiling Scenario"
var/selected = input("Select scenario", "Do not use on a live server for the love of god", "Cancel") in list("Cancel", "Disco Inferno", "Chemist's Delight", "Viscera Cleanup Detail")
switch (selected)
if ("Disco Inferno")
for (var/turf/T in blobstart)
var/datum/gas_mixture/gas = unpool(/datum/gas_mixture)
gas.toxins = 10000
gas.oxygen = 10000
gas.temperature = 10000
T.assume_air(gas)
for (var/obj/machinery/door/airlock/maintenance/door in world)
qdel(door)
for (var/obj/machinery/door/firedoor/door in world)
qdel(door)
if ("Chemist's Delight")
for (var/turf/simulated/floor/T in world)
if ((T.x*T.y) % 50 == 0)
T.reagents = new(300)
T.reagents.my_atom = T
T.reagents.add_reagent("argine", 100)
T.reagents.add_reagent("nitrogen", 50)
T.reagents.add_reagent("plasma", 50)
T.reagents.add_reagent("water", 50)
T.reagents.add_reagent("oxygen", 50)
T.reagents.handle_reactions()
if ("Viscera Cleanup Detail")
for (var/turf/simulated/floor/T in world)
if ((T.x*T.y) % 10 == 0)
gibs(T)
/*
/client/proc/icon_print_test()
set category = "Debug"
set name = "Icon printing test"
set desc = "Tests printing all the objects around you with or without icons to test 507"
var/with_icons = alert("Print with icons?", "Icon Test","Yes", "No", "Cancel")
if (with_icons == "Cancel") return
with_icons = with_icons == "Yes"
for(var/obj/O in range(usr,5))
if(with_icons)
boutput(usr, "[bicon(O)] : [O]")
else
boutput(usr, "NI : [O]")
*/
/client/proc/debug_reaction_list()
set category = "Debug"
set name = "Debug Reaction Structure"
set desc = "Checks the current reaction structure."
var/T = "Reaction Structure
"
for(var/reagent in total_chem_reactions)
T += "[reagent]
"
for(var/datum/chemical_reaction/R in total_chem_reactions[reagent])
T += " - [R.type]
"
T+="
"
usr << browse(T, "window=browse_reactions")
/client/proc/debug_reagents_cache()
set category = "Debug"
set name = "Debug Reagents Cache"
set desc = "Check which things are in the reaction cache."
var/T = "Reagents Cache
| ID | Name | Type | "
for(var/reagent in reagents_cache)
var/datum/reagent/R = reagents_cache[reagent]
T += "
| [reagent] | [R] | [R.type] |
"
T += "
"
usr << browse(T, "window=browse_reagents;size=800x400")
/client/proc/debug_check_possible_reactions(var/atom/O as mob|obj|turf)
set category = "Debug"
set name = "Check Possible Reactions"
set desc = "Checks which things could possibly be made from reagents in this thing."
if(O.reagents && O.reagents.total_volume)
var/T = "Possible Reactions
for reagents inside
[O]
"
if(O.reagents.possible_reactions.len)
for(var/datum/chemical_reaction/CR in O.reagents.possible_reactions)
T += " - [CR.type]
"
else
T += "Nothing at all!"
usr << browse(T, "window=possible_chem_reactions_in_thing")
else
usr.show_text("\The [O] does not have a reagent holder or is empty.", "red")
/client/proc/showMyCoords(var/x, var/y, var/z)
return replacetext(showCoords(x,y,z), "%admin_ref%", "\ref[src.holder]")
/client/proc/print_instance(var/atom/theinstance)
if (isarea(theinstance))
var/turf/T = locate(/turf) in theinstance
if (!T)
boutput(usr, "[theinstance] (no turfs in area).")
else
boutput(usr, "[theinstance] including [showMyCoords(T.x, T.y, T.z)].")
else if (isturf(theinstance))
boutput(usr, "[theinstance] at [showMyCoords(theinstance.x, theinstance.y, theinstance.z)].")
else
var/turf/T = get_turf(theinstance)
var/in_text = ""
var/atom/Q = theinstance.loc
while (Q && Q != T)
in_text += " in [Q]"
Q = Q.loc
boutput(usr, "[theinstance][in_text] at [showMyCoords(T.x, T.y, T.z)]")
/client/proc/find_one_of(var/typename as text)
set category = "Debug"
set name = "Find One"
set desc = "Show the location of one instance of type."
var/thetype = get_one_match(typename, /atom)
if (thetype)
var/atom/theinstance = locate(thetype) in world
if (!theinstance)
boutput(usr, "Cannot locate an instance of [thetype].")
return
boutput(usr, "Found instance of [thetype]:")
print_instance(theinstance)
else
boutput(usr, "No type matches for [typename].")
return
/client/proc/find_all_of(var/typename as text)
set category = "Debug"
set name = "Find All"
set desc = "Show the location of all instances of a type. Performance warning!!"
var/thetype = get_one_match(typename, /atom)
if (thetype)
var/counter = 0
boutput(usr, "All instances of [thetype]: ")
for (var/atom/theinstance in world)
if (!istype(theinstance, thetype))
continue
counter++
print_instance(theinstance)
boutput(usr, "Found [counter] instances total.")
else
boutput(usr, "No type matches for [typename].")
return
/client/proc/find_thing(var/atom/A as null|anything in world)
set category = "Debug"
set name = "Find Thing"
set desc = "Show the location of an atom by name."
set popup_menu = 0
if (!A)
return
boutput(usr, "Located [A] ([A.type]): ")
print_instance(A)
/client/proc/count_all_of(var/typename as text)
set category = "Debug"
set name = "Count All"
set desc = "Returns the number of all instances of a type that exist."
var/thetype = get_one_match(typename, /atom)
if (thetype)
var/counter = 0
for (var/atom/theinstance in world)
if (!istype(theinstance, thetype))
continue
counter++
boutput(usr, "There are [counter] instances total of [thetype].")
else
boutput(usr, "No type matches for [typename].")
return
/client/proc/set_admin_level()
set category = "Debug"
set name = "Change Admin Level"
set desc = "Allows you to change your admin level at will for testing. Does not change your available verbs."
set popup_menu = 0
admin_only
var/new_level = input(src, null, "Choose New Rank", "Coder") as anything in null|list("Host", "Coder", "Shit Guy", "Primary Admin", "Admin", "Secondary Admin", "Mod", "Babby")
if (!new_level)
return
src.holder.rank = new_level
switch (new_level)
if ("Host")
src.holder.level = LEVEL_HOST
if ("Coder")
src.holder.level = LEVEL_CODER
if ("Shit Guy")
src.holder.level = LEVEL_SHITGUY
if ("Primary Admin")
src.holder.level = LEVEL_PA
if ("Admin")
src.holder.level = LEVEL_ADMIN
if ("Secondary Admin")
src.holder.level = LEVEL_SA
if ("Mod")
src.holder.level = LEVEL_MOD
if ("Babby")
src.holder.level = LEVEL_BABBY
var/global/debug_camera_paths = 0
/client/proc/show_camera_paths()
set name = "Toggle camera connections"
set category = "Debug"
admin_only
if (!debug_camera_paths && alert(src, "DO YOU REALLY WANT TO TURN THIS ON? THE SERVER WILL SHIT ITSELF AND DIE DO NOT DO IT ON THE LIVE SERVERS THANKS", "Confirmation", "Yes", "No") == "No")
return
debug_camera_paths = !(debug_camera_paths)
if (debug_camera_paths)
display_camera_paths()
else
remove_camera_paths()
message_admins("[key_name(usr)] [debug_camera_paths ? "displayed" : "hid"] all camera connections!")
logTheThing("admin", usr, null, "[debug_camera_paths ? "displayed" : "hid"] all camera connections!")
logTheThing("diary", usr, null, "[debug_camera_paths ? "displayed" : "hid"] all camera connections!", "admin")
proc/display_camera_paths()
remove_camera_paths() //Clean up any old ones laying around before displaying this
for (var/obj/machinery/camera/C in machines)
if (C.c_north)
camera_path_list.Add(particleMaster.SpawnSystem(new /datum/particleSystem/mechanic(C.loc, C.c_north.loc)))
if (C.c_east)
camera_path_list.Add(particleMaster.SpawnSystem(new /datum/particleSystem/mechanic(C.loc, C.c_east.loc)))
if (C.c_south)
camera_path_list.Add(particleMaster.SpawnSystem(new /datum/particleSystem/mechanic(C.loc, C.c_south.loc)))
if (C.c_west)
camera_path_list.Add(particleMaster.SpawnSystem(new /datum/particleSystem/mechanic(C.loc, C.c_west.loc)))
/*
/client/proc/remove_camera_paths_verb()
set name = "Hide camera connections"
set category = "Debug"
admin_only
remove_camera_paths()
*/
/proc/remove_camera_paths()
for (var/datum/particleSystem/mechanic/M in camera_path_list)
M.Die()
camera_path_list.Cut()
/client/proc/toggle_camera_network_reciprocity()
set name = "Toggle Camnet Reciprocity"
set desc = "Toggle AI camera connection behaviour, off to select each node based on the individual camera, on to force cameras to reciprocate the connection"
set category = "Toggles (Server)"
admin_only
camera_network_reciprocity = !camera_network_reciprocity
boutput(usr, "Toggled camera network reciprocity [camera_network_reciprocity ? "on" : "off"]")
logTheThing("admin", usr, null, "toggled camera network reciprocity [camera_network_reciprocity ? "on" : "off"]")
logTheThing("diary", usr, null, "toggled camera network reciprocity [camera_network_reciprocity ? "on" : "off"]", "admin")
message_admins("[key_name(usr)] toggled camera network reciprocity [camera_network_reciprocity ? "on" : "off"]")
//Force a complete rebuild
disconnect_camera_network()
build_camera_network()
if(camera_path_list.len > 0) //Refresh the display
display_camera_paths()
/client/proc/show_runtime_window()
set name = "Show Runtime Window"
set desc = "Shows the runtime window for yourself"
set category = "Debug"
winshow(src, "runtimes", 1)
/client/proc/cmd_randomize_look()
set name = "Randomize Appearance"
set desc = "Randomizes how you look (if you are a human)"
set category = "Debug"
admin_only
if (!ishuman(src.mob))
return boutput(usr, "Error: client mob is invalid type or does not exist")
randomize_look(src.mob)
logTheThing("admin", usr, null, "randomized their appearance")
logTheThing("diary", usr, null, "randomized their appearance", "admin")
/client/proc/cmd_randomize_handwriting()
set name = "Randomize Handwriting"
set desc = "Randomizes how you write on paper."
set category = "Debug"
admin_only
if (src.mob && src.mob.mind)
src.mob.mind.handwriting = pick(handwriting_styles)
boutput(usr, "Handwriting style is now: [src.mob.mind.handwriting]")
logTheThing("admin", usr, null, "randomized their handwriting style: [src.mob.mind.handwriting]")
logTheThing("diary", usr, null, "randomized their handwriting style: [src.mob.mind.handwriting]", "admin")
#ifdef MACHINE_PROCESSING_DEBUG
/client/proc/cmd_display_detailed_machine_stats()
set name = "Machine stats"
set desc = "Displays the statistics for how machines are processed."
set category = "Debug"
admin_only
var/output = ""
for(var/T in detailed_machine_timings)
var/list/dmtl = detailed_machine_timings[T]
//Item type - Total processing time - Times processed - Average processing time
output += "| [T] | [dmtl[1]] | [dmtl[2]] | [dmtl[1] / dmtl[2]] | "
output = {"
| Item Type | Total processing time | Times processed | Avg processing time |
|---|
[output]
"}
src << browse(output, "window=holyfuck;size=600x500")
#endif
#ifdef QUEUE_STAT_DEBUG
/client/proc/cmd_display_queue_stats()
set name = "Queue stats"
set desc = "Displays the statistics for how queue stuff is processed."
set category = "Debug"
admin_only
var/output = ""
for(var/T in queue_stat_list)
var/list/dmtl = queue_stat_list[T]
//Item type - Total processing time - Times processed - Average processing time
output += "
| [T] | [dmtl[1]] | [dmtl[2]] | [dmtl[1] / dmtl[2]] | "
output = {"
| Type | Total processing time | Times processed | Avg processing time |
|---|
[output]
"}
src << browse(output, "window=queuestats;size=600x500")
#endif
/client/proc/upload_custom_hud()
set name = "Upload Custom HUD Style"
set desc = "Adds a dmi to the global list of available huds, for every player to use."
set category = "Debug"
admin_only
var/icon/new_style = input("Please choose a new icon file to upload", "Upload Icon") as null|icon
if (!isicon(new_style))
return
var/new_style_name = input("Please enter a new name for your HUD", "Enter Name") as null|text
if (!new_style_name)
boutput(src, "Cannot create a HUD with no name![prob(5) ? " It's not a horse!" : null]") // c:
return
if (alert("Create: \"[new_style_name]\" with icon [new_style]?", "Confirmation", "Yes", "No") == "Yes")
hud_style_selection[new_style_name] = new_style
logTheThing("admin", usr, null, "added a new HUD style with the name \"[new_style_name]\"")
logTheThing("diary", usr, null, "added a new HUD style with the name \"[new_style_name]\"", "admin")
message_admins("[key_name(usr)] added a new HUD style with the name \"[new_style_name]\"")