cyberpresidentvanellope/goonstation-2016
1
0
Fork 0
mirror of https://github.com/goonstation/goonstation-2016.git synced 2026-03-24 02:12:37 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
master
goonstation-2016/code/admin/admin.dm
drsingh dc4217b498 modified process scheduler, 510 compatibility, explosions moved to process 
this is all very alpha please don't hate me too much if i fucked it up
2016-03-12 16:36:00 -08:00

3893 lines
167 KiB
Plaintext
Raw Permalink Blame History

/////////////////////
//CONTENTS
//Global Vars and procs
//Topic() - A giant fuck tonne of admin options.
//Admin panels
//Admin procs
//
var/global/noir = 0
////////////////////////////////
/proc/message_admins(var/text, var/asay = 0)
var/rendered = "<span class=\"admin\"><span class=\"prefix\">ADMIN LOG:</span> <span class=\"message\">[text]</span></span>"
for (var/mob/M in mobs)
if (M && M.client && M.client.holder)
if (!asay && rank_to_level(M.client.holder.rank) < LEVEL_MOD) // No confidential info for goat farts (Convair880).
continue
if (M.client.player_mode)
if (asay && M.client.player_mode_asay)
boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]"))
else
continue
else
boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]")) //this doesnt fail if the placeholder doesnt exist ok dont worry
sleep(-1)
/proc/message_coders(var/text) //Shamelessly adapted from message_admins
var/rendered = "<span class=\"admin\"><span class=\"prefix\">CODER LOG:</span> <span class=\"message\">[text]</span></span>"
for (var/mob/M in mobs)
if (M && M.client && M.client.holder && rank_to_level(M.client.holder.rank) >= LEVEL_CODER) //This is for edge cases where a coder needs a goddamn notification when it happens
boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]"))
sleep(-1)
/proc/message_attack(var/text) //Sends a message to folks when an attack goes down
var/rendered = "<span class=\"admin\"><span class=\"prefix\">ATTACK LOG:</span> <span class=\"message\">[text]</span></span>"
for (var/mob/M in mobs)
if (M && M.client && M.client.holder && rank_to_level(M.client.holder.rank) >= LEVEL_MOD && M.client.holder.attacktoggle && !M.client.player_mode)
boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]"))
sleep(-1)
/proc/rank_to_level(var/rank)
var/level = 0
switch(rank)
if("Host")
level = LEVEL_HOST
if("Coder")
level = LEVEL_CODER
if("Shit Person")
level = LEVEL_SHITGUY
if("Primary Administrator")
level = LEVEL_PA
if("Administrator")
level = LEVEL_ADMIN
if("Secondary Administrator")
level = LEVEL_SA
if("Moderator")
level = LEVEL_MOD
if("Goat Fart", "Ayn Rand's Armpit")
level = LEVEL_BABBY
return level
/datum/admins/Topic(href, href_list)
..()
if (src.level < 0)
alert("UM, EXCUSE ME?? YOU AREN'T AN ADMIN, GET DOWN FROM THERE!")
usr << csound("sound/misc/poo2.ogg")
return
if (usr.client != src.owner)
message_admins("<span style=\"color:blue\">[key_name(usr)] has attempted to override the admin panel!</span>")
logTheThing("admin", usr, null, "tried to use the admin panel without authorization.")
logTheThing("diary", usr, null, "tried to use the admin panel without authorization.", "admin")
return
//Wires bad hack to update the player options menu on click, part 1
//Also I guess it has sort of expanded now to correctly pick targets
if (href_list["targetckey"])
var/targetCkey = href_list["targetckey"]
for (var/mob/M in mobs) //Find the mob ref for that nerd
if (M.ckey == targetCkey)
href_list["target"] = "\ref[M]"
break
var/originWindow
var/adminCkey = usr.client.ckey
if (href_list["origin"])
originWindow = href_list["origin"]
if (!href_list["action"])
//alert("You must define an action! Yell at Wire if you see this.")
return
switch(href_list["action"])
if ("load_admin_prefs")
if (src.level >= LEVEL_MOD)
src.load_admin_prefs()
if ("save_admin_prefs")
if (src.level >= LEVEL_MOD)
src.save_admin_prefs()
if ("refresh_admin_prefs")
if (src.level >= LEVEL_MOD)
src.show_pref_window(usr)
if ("toggle_extra_verbs")
if (src.level >= LEVEL_CODER)
usr.client.toggle_extra_verbs()
src.show_pref_window(usr)
if ("toggle_popup_verbs")
if (src.level >= LEVEL_MOD)
usr.client.toggle_popup_verbs()
src.show_pref_window(usr)
if ("toggle_server_toggles_tab")
if (src.level >= LEVEL_MOD)
usr.client.toggle_server_toggles_tab()
src.show_pref_window(usr)
if ("toggle_atom_verbs")
if (src.level >= LEVEL_PA)
usr.client.toggle_atom_verbs()
src.show_pref_window(usr)
if ("toggle_attack_messages")
if (src.level >= LEVEL_MOD)
usr.client.toggle_attack_messages()
src.show_pref_window(usr)
if ("toggle_hear_prayers")
if (src.level >= LEVEL_MOD)
usr.client.holder.hear_prayers = !usr.client.holder.hear_prayers
src.show_pref_window(usr)
if ("toggle_auto_stealth")
if (src.level >= LEVEL_SA)
src.auto_stealth = !(src.auto_stealth)
boutput(usr, "<span style=\"color:blue\">Auto Stealth [src.auto_stealth ? "enabled" : "disabled"].</span>")
if (src.auto_stealth)
if (src.auto_alt_key)
src.auto_alt_key = 0
if (usr.client.alt_key)
src.set_alt_key()
if (!usr.client.stealth && !isnull(src.auto_stealth_name))
src.set_stealth_mode(src.auto_stealth_name)
else if (isnull(src.auto_stealth_name))
var/new_key = input("Enter your desired display name.", "Fake Key", usr.client.key) as null|text
if (!new_key)
src.auto_stealth_name = null
boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
return src.show_pref_window(usr)
if (alert("Use \"[new_key]\" as your Auto Stealth name?", "Confirmation", "OK", "Cancel") == "OK")
src.auto_stealth_name = new_key
src.set_stealth_mode(src.auto_stealth_name)
else
src.auto_stealth_name = null
boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
return src.show_pref_window(usr)
src.show_pref_window(usr)
if ("set_auto_stealth_name")
if (src.level >= LEVEL_SA)
var/new_key = input("Enter your desired display name.", "Fake Key", usr.client.key) as null|text
if (!new_key)
src.auto_stealth_name = null
boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
return
if (alert("Use \"[new_key]\" as your Auto Stealth name?", "Confirmation", "OK", "Cancel") == "OK")
src.auto_stealth_name = new_key
src.show_pref_window(usr)
else
src.auto_stealth_name = null
boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
return
if ("toggle_auto_alt_key")
if (src.level >= LEVEL_SA)
src.auto_alt_key = !(src.auto_alt_key)
boutput(usr, "<span style=\"color:blue\">Auto Alt Key [src.auto_alt_key ? "enabled" : "disabled"].</span>")
if (src.auto_alt_key)
if (src.auto_stealth)
src.auto_stealth = 0
if (usr.client.stealth)
src.set_stealth_mode()
if (!usr.client.alt_key && !isnull(src.auto_alt_key_name))
src.set_alt_key(src.auto_alt_key_name)
else if (isnull(src.auto_alt_key_name))
var/new_key = input("Enter your desired display name.", "Alt Key", usr.client.key) as null|text
if (!new_key)
src.auto_alt_key_name = null
boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
return src.show_pref_window(usr)
if (alert("Use \"[new_key]\" as your Auto Alt Key?", "Confirmation", "OK", "Cancel") == "OK")
src.auto_alt_key_name = new_key
src.set_alt_key(src.auto_alt_key_name)
else
src.auto_alt_key_name = null
boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
return src.show_pref_window(usr)
src.show_pref_window(usr)
if ("set_auto_alt_key_name")
if (src.level >= LEVEL_SA)
var/new_key = input("Enter your desired display name.", "Alt Key", usr.client.key) as null|text
if (!new_key)
src.auto_alt_key_name = null
boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
return
if (alert("Use \"[new_key]\" as your Auto Alt Key?", "Confirmation", "OK", "Cancel") == "OK")
src.auto_alt_key_name = new_key
src.show_pref_window(usr)
else
src.auto_alt_key_name = null
boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
return
if ("refreshoptions")
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.holder.playeropt(M)
if("call_shuttle")
if (src.level >= LEVEL_SA)
switch(href_list["type"])
if("1")
if ((!( ticker ) || emergency_shuttle.location))
return
emergency_shuttle.incall()
boutput(world, "<span style=\"color:blue\"><B>Alert: The emergency shuttle has been called. It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes.</B></span>")
logTheThing("admin", usr, null, "called the Emergency Shuttle")
logTheThing("diary", usr, null, "called the Emergency Shuttle", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] called the Emergency Shuttle to the station</span>")
if("2")
if ((!( ticker ) || emergency_shuttle.location || emergency_shuttle.direction == 0))
return
switch(emergency_shuttle.direction)
if(-1)
emergency_shuttle.incall()
boutput(world, "<span style=\"color:blue\"><B>Alert: The emergency shuttle has been called. It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes.</B></span>")
logTheThing("admin", usr, null, "called the Emergency Shuttle")
logTheThing("diary", usr, null, "called the Emergency Shuttle", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] called the Emergency Shuttle to the station</span>")
if(1)
emergency_shuttle.recall()
boutput(world, "<span style=\"color:blue\"><B>Alert: The shuttle is going back!</B></span>")
logTheThing("admin", usr, null, "sent the Emergency Shuttle back")
logTheThing("diary", usr, null, "sent the Emergency Shuttle back", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] recalled the Emergency Shuttle</span>")
else
alert("You need to be at least a Secondary Administrator to do a shuttle call.")
if("edit_shuttle_time")
if (src.level >= LEVEL_SHITGUY)
emergency_shuttle.settimeleft( input("Enter new shuttle duration (seconds):","Edit Shuttle Timeleft", emergency_shuttle.timeleft() ) as num )
logTheThing("admin", usr, null, "edited the Emergency Shuttle's timeleft to [emergency_shuttle.timeleft()]")
logTheThing("diary", usr, null, "edited the Emergency Shuttle's timeleft to [emergency_shuttle.timeleft()]", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] edited the Emergency Shuttle's timeleft to [emergency_shuttle.timeleft(, 1)]</span>")
else
alert("You need to be at least a Shit Person to edit the shuttle timer.")
if("notes")
var/player = null
var/mob/M = locate(href_list["target"])
if(M)
player = M.ckey
else
player = href_list["target"]
if(!player)
return
src.player_notes(player)
if("notes2")
var/player = href_list["target"]
if(!player)
return
//if(rank_to_level(admins[player]) > src.level) <- Pointless.
// alert("You can't modify this player's notes, they are of a higher admin rank!")
// return
switch(href_list["type"])
if("del")
if(src.level < LEVEL_SA)
alert("You need to be at least a Primary Administrator to delete notes.")
return
if(href_list["id"])
if(alert("Delete This Note?",,"Yes","No") == "No")
return
else
world.Export("[config.player_notes_baseurl]playernotes.php?action=delnote&id=[href_list["id"]]")
src.player_notes(player)
logTheThing("admin", usr, null, "deleted note [href_list["id"]] belonging to [player].")
logTheThing("diary", usr, null, "deleted note [href_list["id"]] belonging to [player].", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] deleted note [href_list["id"]] belonging to <A href='?src=%admin_ref%;action=notes&target=[player]'>[player]</A>.</span>")
if("add")
if(src.level < LEVEL_SA)
alert("You need to be at least a Secondary Adminstrator to add notes.")
return
var/list/new_note = list()
new_note["admin"] = usr.ckey
new_note["ckey"] = player
new_note["note"] = url_encode(input("Write your note here!", "Note for [player]") as text)
if (new_note["note"])
add_player_note(new_note["ckey"], new_note["admin"], new_note["note"])
spawn(20) src.player_notes(player)
logTheThing("admin", usr, null, "added a note for [player]: [new_note["note"]]")
logTheThing("diary", usr, null, "added a note for [player]: [new_note["note"]]", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] added a note for <A href='?src=%admin_ref%;action=notes&target=[player]'>[player]</A>.</span>")
if("viewcompids")
var/player = href_list["targetckey"]
view_client_compid_list(usr, player)
return
/////////////////////////////////////ban stuff
if ("addban") //Add ban
var/mob/M = (href_list["target"] ? locate(href_list["target"]) : null)
usr.client.addBanDialog(M)
if("unbane") //Edit ban
if (src.level >= LEVEL_SA)
var/id = html_decode(href_list["id"])
var/ckey = html_decode(href_list["target"])
var/compID = html_decode(href_list["compID"])
var/ip = html_decode(href_list["ip"])
var/reason = html_decode(href_list["reason"])
var/timestamp = html_decode(href_list["timestamp"])
usr.client.editBanDialog(id, ckey, compID, ip, reason, timestamp)
else
alert("You need to be at least a Secondary Administrator to edit bans.")
if("unbanf") //Delete ban
if (src.level >= LEVEL_SA)
var/id = html_decode(href_list["id"])
var/ckey = html_decode(href_list["target"])
var/compID = html_decode(href_list["compID"])
var/ip = html_decode(href_list["ip"])
var/akey = usr.client.ckey
usr.client.deleteBanDialog(id, ckey, compID, ip, akey)
else
alert("You need to be at least a Secondary Administrator to remove bans.")
/////////////////////////////////////end ban stuff
if("jobbanpanel")
var/mob/M = locate(href_list["target"])
var/dat = ""
var/header = "<b>Pick Job to ban this guy from.<br>"
var/body
// var/list/alljobs = get_all_jobs()
var/jobs = ""
if (!M) return
for(var/job in uniquelist(occupations))
if(job in list("Tourist","Mining Supervisor","Atmospheric Technician","Vice Officer"))
continue
if(jobban_isbanned(M, job))
jobs += "<a href='?src=\ref[src];action=jobban;type=[job];target=\ref[M]'><font color=red>[replacetext(job, " ", "&nbsp")]</font></a> "
else
jobs += "<a href='?src=\ref[src];action=jobban;type=[job];target=\ref[M]'>[replacetext(job, " ", "&nbsp")]</a> " //why doesn't this work the stupid cunt
if(jobban_isbanned(M, "Captain"))
jobs += "<a href='?src=\ref[src];action=jobban;type=Captain;target=\ref[M]'><font color=red>Captain</font></a> "
else
jobs += "<a href='?src=\ref[src];action=jobban;type=Captain;target=\ref[M]'>Captain</a> " //why doesn't this work the stupid cunt
if(jobban_isbanned(M, "Head of Security"))
jobs += "<a href='?src=\ref[src];action=jobban;type=Head of Security;target=\ref[M]'><font color=red>Head of Security</font></a> "
else
jobs += "<a href='?src=\ref[src];action=jobban;type=Head of Security;target=\ref[M]'>Head of Security</a> "
if(jobban_isbanned(M, "Syndicate"))
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Syndicate;target=\ref[M]'><font color=red>[replacetext("Syndicate", " ", "&nbsp")]</font></a> "
else
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Syndicate;target=\ref[M]'>[replacetext("Syndicate", " ", "&nbsp")]</a> " //why doesn't this work the stupid cunt
if(jobban_isbanned(M, "Special Respawn"))
jobs += " <a href='?src=\ref[src];action=jobban;type=Special Respawn;target=\ref[M]'><font color=red>[replacetext("Special Respawn", " ", "&nbsp")]</font></a> "
else
jobs += " <a href='?src=\ref[src];action=jobban;type=Special Respawn;target=\ref[M]'>[replacetext("Special Respawn", " ", "&nbsp")]</a> "
if(jobban_isbanned(M, "Engineering Department"))
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Engineering Department;target=\ref[M]'><font color=red>[replacetext("Engineering Department", " ", "&nbsp")]</font></a> "
else
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Engineering Department;target=\ref[M]'>[replacetext("Engineering Department", " ", "&nbsp")]</a> "
if(jobban_isbanned(M, "Security Department"))
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Security Department;target=\ref[M]'><font color=red>[replacetext("Security Department", " ", "&nbsp")]</font></a> "
else
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Security Department;target=\ref[M]'>[replacetext("Security Department", " ", "&nbsp")]</a> "
if(jobban_isbanned(M, "Heads of Staff"))
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Heads of Staff;target=\ref[M]'><font color=red>[replacetext("Heads of Staff", " ", "&nbsp")]</font></a> "
else
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Heads of Staff;target=\ref[M]'>[replacetext("Heads of Staff", " ", "&nbsp")]</a> "
if(jobban_isbanned(M, "Everything Except Assistant"))
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Everything Except Assistant;target=\ref[M]'><font color=red>[replacetext("Everything Except Assistant", " ", "&nbsp")]</font></a> "
else
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Everything Except Assistant;target=\ref[M]'>[replacetext("Everything Except Assistant", " ", "&nbsp")]</a> "
if(jobban_isbanned(M, "Custom Names"))
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Custom Names;target=\ref[M]'><font color=red>[replacetext("Having a Custom Name", " ", "&nbsp")]</font></a> "
else
jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Custom Names;target=\ref[M]'>[replacetext("Having a Custom Name", " ", "&nbsp")]</a> "
body = "<br>[jobs]<br><br>"
dat = "<tt>[header][body]</tt>"
usr << browse(dat, "window=jobban2;size=600x150")
if("jobban")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
var/job = href_list["type"]
if (!M) return
if ((M.client && M.client.holder && (M.client.holder.level > src.level)))
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if (jobban_isbanned(M, job))
if(jobban_keylist.Find(text("[M.ckey] - Everything Except Assistant")) && job != "Everything Except Assistant")
alert("This person is banned from Everything Except Assistant. You must lift that ban first.")
return
if(job in list("Mining Supervisor","Engineer","Atmospheric Technician","Miner","Mechanic"))
if(jobban_keylist.Find(text("[M.ckey] - Engineering Department")))
alert("This person is banned from Engineering Department. You must lift that ban first.")
return
if(job in list("Security Officer","Vice Officer","Detective"))
if(jobban_keylist.Find(text("[M.ckey] - Security Department")))
alert("This person is banned from Security Department. You must lift that ban first.")
return
if(job in list("Captain","Head of Personnel","Head of Security","Chief Engineer","Research Director"))
if(jobban_keylist.Find(text("[M.ckey] - Heads of Staff")))
alert("This person is banned from Heads of Staff. You must lift that ban first.")
return
logTheThing("admin", usr, M, "unbanned %target% from [job]")
logTheThing("diary", usr, M, "unbanned %target% from [job]", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] unbanned [key_name(M)] from [job]</span>")
add_player_note(M, usr, "[usr] unbanned [M] from [job]")
jobban_unban(M, job)
if (announce_jobbans) boutput(M, "<span style=\"color:red\"><b>[key_name(usr)] has lifted your [job] job-ban.</b></span>")
else
logTheThing("admin", usr, M, "banned %target% from [job]")
logTheThing("diary", usr, M, "banned %target% from [job]", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] banned [key_name(M)] from [job]</span>")
add_player_note(M, usr, "[usr] banned [M] from [job]")
if(job == "Everything Except Assistant")
if(jobban_keylist.Find(text("[M.ckey] - Engineering Department")))
jobban_unban(M,"Engineering Department")
if(jobban_keylist.Find(text("[M.ckey] - Security Department")))
jobban_unban(M,"Security Department")
if(jobban_keylist.Find(text("[M.ckey] - Heads of Staff")))
jobban_unban(M,"Heads of Staff")
for(var/Trank1 in uniquelist(occupations))
if(jobban_keylist.Find(text("[M.ckey] - [Trank1]")))
jobban_unban(M,Trank1)
else if(job == "Engineering Department")
for(var/Trank2 in list("Mining Supervisor","Engineer","Atmospheric Technician","Miner","Mechanic"))
if(jobban_keylist.Find(text("[M.ckey] - [Trank2]")))
jobban_unban(M,Trank2)
else if(job == "Security Department")
for(var/Trank3 in list("Security Officer","Vice Officer","Detective"))
if(jobban_keylist.Find(text("[M.ckey] - [Trank3]")))
jobban_unban(M,Trank3)
else if(job == "Heads of Staff")
for(var/Trank4 in list("Captain","Head of Personnel","Head of Security","Chief Engineer","Research Director"))
if(jobban_keylist.Find(text("[M.ckey] - [Trank4]")))
jobban_unban(M,Trank4)
jobban_fullban(M, job)
if (announce_jobbans) boutput(M, "<span style=\"color:red\"><b>[key_name(usr)] has job-banned you from [job].</b></span>")
else
alert("You need to be at least a Secondary Administrator to work with job bans.")
if ("boot")
var/mob/M = locate(href_list["target"])
usr.client.cmd_boot(M)
if ("removejobban")
if (src.level >= LEVEL_CODER)
var/t = href_list["target"]
if(t)
logTheThing("admin", usr, null, "removed [t]")
logTheThing("diary", usr, null, "removed [t]", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] removed [t]</span>")
jobban_remove(t)
else
alert("You need to be at least a Coder to remove job bans.")
if ("mute")
if (src.level >= LEVEL_MOD)
var/mob/M = locate(href_list["target"])
if (ismob(M) && M.client)
var/muted = 0
if (M.client.ismuted())
M.client.unmute()
else
M.client.mute(-1)
muted = 1
logTheThing("admin", usr, M, "has [(muted ? "permanently muted" : "unmuted")] %target%")
logTheThing("diary", usr, M, "has [(muted ? "permanently muted" : "unmuted")] %target%.", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] has [(muted ? "permanently muted" : "unmuted")] [key_name(M)].</span>")
boutput(M, "You have been [(muted ? "permanently muted" : "unmuted")].")
else
alert("You need to be at least a Moderator to mute people.")
if ("tempmute")
if (src.level >= LEVEL_MOD)
var/mob/M = locate(href_list["target"])
if (ismob(M))
var/muted = 0
if (M.client.ismuted())
M.client.unmute()
else
M.client.mute(60)
muted = 1
logTheThing("admin", usr, M, "has [(muted ? "temporarily muted" : "unmuted")] %target%")
logTheThing("diary", usr, M, "has [(muted ? "temporarily muted" : "unmuted")] %target%.", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] has [(muted ? "temporarily muted" : "unmuted")] [key_name(M)].</span>")
boutput(M, "You have been [(muted ? "temporarily muted" : "unmuted")].")
else
alert("You need to be at least a Moderator to mute people.")
if ("banooc")
if (src.level >= LEVEL_MOD)
var/mob/M = locate(href_list["target"])
if (ismob(M) && M.client)
var/oocbanned = 0
if (!oocban_isbanned(M))
oocban_fullban(M)
oocbanned = 1
else
oocban_unban(M)
logTheThing("admin", usr, M, "has [(oocbanned ? "OOC Banned" : "OOC Unbanned")] %target%")
logTheThing("diary", usr, M, "has [(oocbanned ? "OOC Banned" : "OOC Unbanned")] %target%.", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] has [(oocbanned ? "OOC Banned" : "OOC Unbanned")] [key_name(M)].</span>")
if ("toggle_hide_mode")
if (src.level >= LEVEL_SA)
ticker.hide_mode = !ticker.hide_mode
Topic(null, list("src" = "\ref[src]", "action" = "c_mode_panel"))
else
alert("You need to be at least a Secondary Administrator to hide the game mode.")
if ("c_mode_panel") // I removed some broken/discontinued game modes here (Convair880).
if (src.level >= LEVEL_SA)
var/cmd = "c_mode_current"
var/addltext = ""
if (ticker && ticker.current_state != GAME_STATE_PREGAME)
cmd = "c_mode_next"
addltext = " next round"
var/dat = {"
<html><body><title>Select Round Mode</title>
<B>What mode do you wish to play[addltext]?</B><br>
Current mode is: <i>[master_mode]</i><br>
Mode is <A href='?src=\ref[src];action=toggle_hide_mode'>[ticker.hide_mode ? "hidden" : "not hidden"]</a><br/>
<HR>
<b>Regular Modes:</b><br>
<A href='?src=\ref[src];action=[cmd];type=secret'>Secret</A><br>
<A href='?src=\ref[src];action=[cmd];type=mixed'>Mixed</A><br>
<A href='?src=\ref[src];action=[cmd];type=traitor'>Traitor</A><br>
<A href='?src=\ref[src];action=[cmd];type=nuclear'>Nuclear Emergency</A><br>
<A href='?src=\ref[src];action=[cmd];type=wizard'>Wizard</A><br>
<A href='?src=\ref[src];action=[cmd];type=changeling'>Changeling</A><br>
<A href='?src=\ref[src];action=[cmd];type=blob'>Blob</A><br>
<b>Other Modes</b><br>
<A href='?src=\ref[src];action=[cmd];type=extended'>Extended</A><br>
<A href='?src=\ref[src];action=[cmd];type=disaster'>Disaster (Beta)</A><br>
<A href='?src=\ref[src];action=[cmd];type=spy'>Conspiracy</A><br>
<A href='?src=\ref[src];action=[cmd];type=revolution'>Revolution</A><br>
<A href='?src=\ref[src];action=[cmd];type=revolution_extended'>Revolution (no time limit)</A><br>
<A href='?src=\ref[src];action=[cmd];type=gang'>Gang War (Beta)</A><br>
<A href='?src=\ref[src];action=[cmd];type=construction'>Construction (For testing only. Don't select this!)</A>
</body></html>
"}
usr << browse(dat, "window=c_mode")
else
alert("You need to be at least a Secondary Adminstrator to change the game mode.")
if ("c_mode_current")
if (src.level >= LEVEL_SA)
if (ticker && ticker.current_state != GAME_STATE_PREGAME)
return alert(usr, "The game has already started.", null, null, null, null)
var/list/valid_modes = list("secret","random","traitor","meteor","extended","monkey",
"nuclear","blob","restructuring","wizard","revolution", "revolution_extended","malfunction",
"spy","gang","disaster","changeling","vampire","mixed","construction")
var/requestedMode = href_list["type"]
if (requestedMode in valid_modes)
logTheThing("admin", usr, null, "set the mode as [requestedMode].")
logTheThing("diary", usr, null, "set the mode as [requestedMode].", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] set the mode as [requestedMode].</span>")
world.save_mode(requestedMode)
master_mode = requestedMode
if (alert("Declare mode change to all players?","Mode Change","Yes","No") == "Yes")
boutput(world, "<span style=\"color:blue\"><b>The mode is now: [requestedMode]</b></span>")
else
boutput(usr, "<span style=\"color:red\"><b>That is not a valid game mode!</b></span>")
else
alert("You need to be at least a Secondary Adminstrator to change the game mode.")
if ("c_mode_next")
if (src.level >= LEVEL_SA)
var/newmode = href_list["type"]
logTheThing("admin", usr, null, "set the next round's mode as [newmode].")
logTheThing("diary", usr, null, "set the next round's mode as [newmode].", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] set the next round's mode as [newmode].</span>")
world.save_mode(newmode)
if (alert("Declare mode change to all players?","Mode Change","Yes","No") == "Yes")
boutput(world, "<span style=\"color:blue\"><b>The next round's mode will be: [newmode]</b></span>")
else
alert("You need to be at least a Secondary Adminstrator to change the game mode.")
if ("monkeyone")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
if(!ismob(M))
return
if(istype(M, /mob/living/carbon/human))
var/mob/living/carbon/human/N = M
logTheThing("admin", usr, M, "attempting to monkeyize %target%")
logTheThing("diary", usr, M, "attempting to monkeyize %target%", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] attempting to monkeyize [key_name(M)]</span>")
N.monkeyize()
else
boutput(usr, "<span style=\"color:red\">You can't transform that mob type into a monkey.</span>")
return
else
alert("You need to be at least a Secondary Adminstrator to monkeyize players.")
if ("toggle_dj")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (ismob(M))
usr.client.give_dj(M)
else
alert("You need to be at least a Primary Administrator to give a non-admin the ability to play music.")
if ("forcespeech")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (ismob(M))
var/speech = input("What will [key_name(M)] say?.", "Force speech", "")
if(!speech)
return
M.say(speech)
speech = copytext(sanitize(speech), 1, MAX_MESSAGE_LEN)
logTheThing("admin", usr, M, "forced %target% to say: [speech]")
logTheThing("diary", usr, M, "forced %target% to say: [speech]", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] forced [key_name(M)] to say: [speech]</span>")
else
alert("You need to be at least a Primary Administrator to force players to say things.")
if ("prison")
if (src.level >= LEVEL_MOD)
var/mob/M = locate(href_list["target"])
if (!M || !ismob(M)) return
usr.client.cmd_admin_prison_unprison(M)
else
alert("You need to be at least a Moderator to send players to prison.")
if ("shamecube")
if (src.level >= LEVEL_MOD)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_shame_cube(M)
else
alert("You need to be at least a Moderator to shame cube a player.")
if ("tdome")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
if (!M) return
var/team
var/type = href_list["type"]
if (type == "1")
M.set_loc(pick(tdome1))
team = "Team 1"
else if (type == "2")
M.set_loc(pick(tdome2))
team = "Team 2"
logTheThing("admin", usr, M, "sent %target% to the thunderdome. ([team])")
logTheThing("diary", usr, M, "sent %target% to the thunderdome. ([team])", "admin")
message_admins("[key_name(usr)] has sent [key_name(M)] to the thunderdome. ([team])")
boutput(M, "<span style=\"color:blue\"><b>You have been sent to the Thunderdome. You are on [team].</b></span>")
boutput(M, "<span style=\"color:blue\"><b>Prepare for combat. If you are not let out of the preparation area within a few minutes, please adminhelp. (F1 key)</b></span>")
else
alert("You need to be at least a Secondary Adminstrator to send players to Thunderdome.")
if ("revive")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (ismob(M))
if(istype(M, /mob/dead))
alert("You can't revive a ghost! How does that even work?!")
return
if(config.allow_admin_rev)
M.revive()
message_admins("<span style=\"color:red\">Admin [key_name(usr)] healed / revived [key_name(M)]!</span>")
logTheThing("admin", usr, M, "healed / revived %target%")
logTheThing("diary", usr, M, "healed / revived %target%", "admin")
else
alert("Reviving is currently disabled.")
else
alert("You need to be at least a Primary Adminstrator to revive players.")
if ("makeai")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
var/mob/newM = usr.client.cmd_admin_makeai(M)
href_list["target"] = "\ref[newM]"
else
alert("You need to be at least a Secondary Adminstrator to turn players into AI units.")
if ("modifylimbs")
if (src.level >= LEVEL_SA)
var/mob/MC = locate(href_list["target"])
if (MC && usr.client)
usr.client.modify_parts(MC, usr)
/*if (!ishuman(MC))
alert("Cannot limb modify [MC]: not human.")
return
var/mob/living/carbon/human/M = MC
if (!M.limbs)
alert("Mob limb holder is broken.")
return
var/which = input("Which limb?", "Which limb?", "cancel") in list("left arm", "right arm", "both arms", "left leg", "right leg", "both legs", "cancel")
if (which == "cancel")
return
else if (which == "left arm" || which == "right arm" || which == "both arms")
var/kind = input("What kind of arm?", "What kind of arm?", "normal arm") in list("normal arm", "synth arm", "blooming synth arm", "cyborg arm", "light cyborg arm", "wendigo arm", "bear arm", "abomination arm", "werewolf arm", "predator arm", "item arm", "sever")
if (kind == "normal arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left(M)
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm magically regrows!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a normal arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a new left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right(M)
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm magically regrows!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a normal arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a new right arm.")
if (kind == "synth arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/synth(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm magically becomes a synth arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a synth arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a synth left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/synth(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm magically becomes a synth arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a synth arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a synth right arm.")
if (kind == "blooming synth arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/synth/bloom(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm magically becomes a blooming synth arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a blooming synth arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a blooming synth left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/synth/bloom(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm magically becomes a blooming synth arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a blooming synth arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a blooming synth right arm.")
if (kind == "cyborg arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/robot_parts/arm/left(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm magically becomes a cyborg arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a cyborg arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a cyborg left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/robot_parts/arm/right(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm magically becomes a cyborg arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a cyborg arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a cyborg right arm.")
if (kind == "light cyborg arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/robot_parts/arm/left/light(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm magically becomes a light cyborg arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a light cyborg arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a light cyborg left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/robot_parts/arm/right/light(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm magically becomes a light cyborg arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a light cyborg arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a light cyborg right arm.")
if (kind == "wendigo arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/wendigo(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm eeriely becomes a wendigo arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a wendigo arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a wendigo left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/wendigo(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm eeriely becomes a wendigo arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a wendigo arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a wendigo right arm.")
if (kind == "bear arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/bear(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm eeriely becomes a bear arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a bear arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a bear left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/bear(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm eeriely becomes a bear arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a bear arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a bear right arm.")
if (kind == "abomination arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/abomination(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm becomes a chitinous tendril!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with an abomination arm.")
message_admins("[key_name(usr)] gave [key_name(M)] an abomination left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/abomination(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm becomes a chitinous tendril!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with an abomination arm.")
message_admins("[key_name(usr)] gave [key_name(M)] an abomination right arm.")
if (kind == "werewolf arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/werewolf(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm becomes a werewolf arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a werewolf arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a werewolf left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/werewolf(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm becomes a werewolf arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a werewolf arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a werewolf right arm.")
if (kind == "predator arm")
if (which == "left arm" || which == "both arms")
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/predator(M)
limb.quality = 0.5
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left arm becomes a predator arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with a predator arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a predator left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/predator(M)
limb.quality = 0.5
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right arm becomes a predator arm!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with a predator arm.")
message_admins("[key_name(usr)] gave [key_name(M)] a predator right arm.")
else if (kind == "item arm")
var/type_str = input("Enter a type path for the new arm.", "Replacing [which]", "/obj/item/saw/elimbinator") as text
if (type_str == "")
return
var/type = text2path(type_str)
if (type == null)
alert("No such type ([type_str]).")
return
if (!ispath(type,/obj/item))
alert("Item must be a descendant of /obj/item.")
return
if (which == "left arm" || which == "both arms")
var/item = new type()
if (M.limbs.l_arm)
qdel(M.limbs.l_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/left/item(M)
M.limbs.l_arm = limb
limb.holder = M
limb.remove_stage = 0
limb:set_item(item)
M.show_message("<span style=\"color:blue\"><b>Your left arm [pick("magically ", "weirdly ", "suddenly ", "unwillingly ", "grodily ", "")]becomes [item]!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left arm with [item].")
message_admins("[key_name(usr)] gave [key_name(M)] a new left arm: [item]")
if (which == "right arm" || which == "both arms")
var/item = new type()
if (M.limbs.r_arm)
qdel(M.limbs.r_arm)
var/obj/item/parts/human_parts/arm/limb = new /obj/item/parts/human_parts/arm/right/item(M)
M.limbs.r_arm = limb
limb.holder = M
limb.remove_stage = 0
limb:set_item(item)
M.show_message("<span style=\"color:blue\"><b>Your right arm [pick("magically ", "weirdly ", "suddenly ", "unwillingly ", "grodily ", "")]becomes [item]!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right arm with [item].")
message_admins("[key_name(usr)] gave [key_name(M)] a new right arm: [item]")
else if (kind == "sever")
if (which == "left arm" || which == "both arms")
if (M.limbs)
if (M.limbs.l_arm)
M.limbs.l_arm.sever()
logTheThing("admin", usr, null, "severed [key_name(M)]'s left arm.")
message_admins("[key_name(usr)] severed [key_name(M)]'s left arm.")
if (which == "right arm" || which == "both arms")
if (M.limbs)
if (M.limbs.r_arm)
M.limbs.r_arm.sever()
logTheThing("admin", usr, null, "severed [key_name(M)]'s right arm.")
message_admins("[key_name(usr)] severed [key_name(M)]'s right arm.")
else if (which == "left leg" || which == "right leg" || which == "both legs")
var/type = input("What kind?", "What kind?", "normal leg") in list("normal leg", "synth leg", "blooming synth leg", "cyborg leg", "light cyborg leg", "treads", "sever")
if (type == "sever")
if (which == "left leg" || which == "both legs")
if (M.limbs)
if (M.limbs.l_leg)
M.limbs.l_leg.sever()
logTheThing("admin", usr, null, "severed [key_name(M)]'s left leg.")
message_admins("[key_name(usr)] severed [key_name(M)]'s left leg.")
if (which == "right leg" || which == "both legs")
if (M.limbs)
if (M.limbs.r_leg)
M.limbs.r_leg.sever()
logTheThing("admin", usr, null, "severed [key_name(M)]'s right leg.")
message_admins("[key_name(usr)] severed [key_name(M)]'s right leg.")
else
var/tpath = ""
if (which == "left leg" || which == "both legs")
if (type == "normal leg")
tpath = /obj/item/parts/human_parts/leg/left
else if (type == "synth leg")
tpath = /obj/item/parts/human_parts/leg/left/synth
else if (type == "blooming synth leg")
tpath = /obj/item/parts/human_parts/leg/left/synth/bloom
else if (type == "cyborg leg")
tpath = /obj/item/parts/robot_parts/leg/left
else if (type == "light cyborg leg")
tpath = /obj/item/parts/robot_parts/leg/left/light
else if (type == "treads")
tpath = /obj/item/parts/robot_parts/leg/left/treads
var/obj/item/parts/limb = new tpath(M)
if (M.limbs.l_leg)
qdel(M.limbs.l_leg)
M.limbs.l_leg = limb
limb:holder = M
limb:remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your left leg becomes a brand new [limb]!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s left leg with [limb].")
message_admins("[key_name(usr)] gave [key_name(M)] a new left leg: [limb]")
if (which == "right leg" || which == "both legs")
if (type == "normal leg")
tpath = /obj/item/parts/human_parts/leg/right
else if (type == "synth leg")
tpath = /obj/item/parts/human_parts/leg/right/synth
else if (type == "blooming synth leg")
tpath = /obj/item/parts/human_parts/leg/right/synth/bloom
else if (type == "cyborg leg")
tpath = /obj/item/parts/robot_parts/leg/right
else if (type == "light cyborg leg")
tpath = /obj/item/parts/robot_parts/leg/right/light
else if (type == "treads")
tpath = /obj/item/parts/robot_parts/leg/right/treads
var/obj/item/parts/limb = new tpath(M)
if (M.limbs.r_leg)
qdel(M.limbs.r_leg)
M.limbs.r_leg = limb
limb:holder = M
limb:remove_stage = 0
M.show_message("<span style=\"color:blue\"><b>Your right leg becomes a brand new [limb]!</b></span>")
logTheThing("admin", usr, null, "replaced [key_name(M)]'s right leg with [limb].")
message_admins("[key_name(usr)] gave [key_name(M)] a new right leg: [limb]")
if (M.client)
M.client.move_delay = 0
M.set_body_icon_dirty()*/
else
alert("You need to be at least a Secondary Administrator to modify limbs.")
if ("jumpto")
if(src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
if (!M) return
if (!istype(M, /mob/dead/target_observer))
usr.client.jumptomob(M)
else
var/jumptarget = M.eye
if (jumptarget)
usr.client.jumptoturf(get_turf(jumptarget))
else
alert("You need to be at least a Secondary Adminstrator to jump to mobs.")
if ("jumptocoords")
if(src.level >= LEVEL_SA)
var/list/coords = splittext(href_list["target"], ",")
if (coords.len < 3) return
usr.client.jumptocoord(text2num(coords[1]), text2num(coords[2]), text2num(coords[3]))
else
alert("You need to be at least a Secondary Adminstrator to jump to coords.")
if ("getmob")
if(( src.level >= LEVEL_SHITGUY ) || ((src.level >= LEVEL_PA) ))
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.Getmob(M)
else
alert("If you are below the rank of Shit Person, you need to be observing and at least a Primary Administrator to get a player.")
if ("sendmob")
if(( src.level >= LEVEL_SHITGUY ) || ((src.level >= LEVEL_PA) ))
var/mob/M = locate(href_list["target"])
if (!M) return
var/list/areas = list( )
for (var/area/A in world)
areas += A
var/area = input(usr, "Select an area") in areas
usr.client.sendmob(M, area)
else
alert("If you are below the rank of Shit Person, you need to be observing and at least a Primary Administrator to get a player.")
if ("gib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_gib(M)
else
alert("You need to be at least a Shit Person to gib a dude.")
if ("partygib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_partygib(M)
else
alert("You need to be at least a Shit Person to party gib a dude.")
if ("owlgib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_owlgib(M)
else
alert("A loud hooting noise is heard. It sounds angry. I guess you aren't allowed to do this.")
if ("firegib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_firegib(M)
else
alert("You need to be at least a Shit Person to fire gib a dude.")
if ("elecgib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_elecgib(M)
else
alert("You need to be at least a Shit Person to elec gib a dude.")
if ("sharkgib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.sharkgib(M)
else
alert("You need to be at least a Shit Person to shark gib a dude.")
if ("icegib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_icegib(M)
else
alert("You need to be at least a Shit Person to ice gib a dude.")
if ("goldgib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_goldgib(M)
else
alert("You need to be at least a Shit Person to gold gib a dude.")
if("spidergib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_spidergib(M)
else
alert("You need to be at least a Shit Person to spider gib a dude.")
if("cluwnegib")
if( src.level >= LEVEL_SHITGUY )
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_cluwnegib(M)
else
alert("You need to be at least a Shit Person to cluwne gib a dude.")
if("transform")
if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
var/mob/M = locate(href_list["target"])
if (!ishuman(M))
alert("This secret can only be used on human mobs.")
return
var/mob/living/carbon/human/H = M
var/which = input("Transform them into what?","Transform") as null|anything in list("Monkey","Cyborg","Lizardman","Squidman","Martian","Skeleton","Flashman","Ghostdrone")
if (!which)
return
. = 0
switch(which)
if("Monkey")
H.monkeyize()
if("Cyborg")
H.Robotize_MK2()
if("Lizardman")
H.set_mutantrace(/datum/mutantrace/lizard)
. = 1
if("Squidman")
H.set_mutantrace(/datum/mutantrace/ithillid)
. = 1
if("Martian")
H.set_mutantrace(/datum/mutantrace/martian)
. = 1
if("Skeleton")
H.set_mutantrace(/datum/mutantrace/skeleton)
. = 1
if("Flashman")
H.set_mutantrace(/datum/mutantrace/flashy)
. = 1
if("Ghostdrone")
droneize(H, 0)
if(.)
message_admins("<span style=\"color:blue\">[key_name(usr)] transformed [H.real_name] into a [which].</span>")
else
alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to transform a player.")
if ("addbioeffect")
if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
var/mob/M = locate(href_list["target"])
if (!ishuman(M))
alert("You may only use this secret on human mobs.")
return
var/mob/living/carbon/human/X = M
var/pick = input("Which effect(s)?","Give Bioeffects") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
X.bioHolder.AddEffect(pick)
if (string_version)
string_version = "[string_version], \"[pick]\""
else
string_version = "\"[pick]\""
message_admins("[key_name(usr)] added the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] to [key_name(X)].")
else
alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to bioeffect a player.")
if ("removebioeffect")
if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
var/mob/M = locate(href_list["target"])
if (!ishuman(M))
alert("You may only use this secret on human mobs.")
return
var/mob/living/carbon/human/X = M
var/pick = input("Which effect(s)?","Remove Bioeffects") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
X.bioHolder.RemoveEffect(pick)
if (string_version)
string_version = "[string_version], \"[pick]\""
else
string_version = "\"[pick]\""
message_admins("[key_name(usr)] removed the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] from [X.real_name].")
else
alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to bioeffect a player.")
if ("addreagent")
if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
var/mob/M = locate(href_list["target"])
if (!ishuman(M))
alert("You may only use this secret on human mobs.")
return
var/mob/living/carbon/human/X = M
var/pick = input("Which reagent(s)?","Add Reagents") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
var/amt = input("How much of [pick]?","Add Reagent") as null|num
if(!amt || amt < 0)
return
if (X.reagents)
X.reagents.add_reagent(pick,amt)
if (string_version)
string_version = "[string_version], [amt] \"[pick]\""
else
string_version = "[amt] \"[pick]\""
message_admins("[key_name(usr)] added [string_version] to [key_name(X)].")
else
alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to affect player reagents.")
if ("removereagent")
if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
var/mob/M = locate(href_list["target"])
if (!ishuman(M))
alert("You may only use this secret on human mobs.")
return
var/mob/living/carbon/human/X = M
var/pick = input("Which reagent(s)?","Remove Reagents") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
var/amt = input("How much of [pick]?","Remove Reagent") as null|num
if(!amt || amt < 0)
return
if (X.reagents)
X.reagents.remove_reagent(pick,amt)
if (string_version)
string_version = "[string_version], [amt] \"[pick]\""
else
string_version = "[amt] \"[pick]\""
message_admins("[key_name(usr)] removed [string_version] from [X.real_name].")
else
alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to affect player reagents.")
if ("possessmob")
if( src.level >= LEVEL_PA )
var/mob/M = locate(href_list["target"])
if (!M) return
if (M == usr)
releasemob(M)
else
possessmob(M)
else
alert("You need to be at least a Primary Administrator to possess or release mobs.")
if ("checkcontents")
if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_check_contents(M)
else
alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to check player contents.")
if ("dropcontents")
if(( src.level >= LEVEL_SHITGUY ) || ((src.level >= LEVEL_PA) ))
var/mob/M = locate(href_list["target"])
if (!M) return
if (alert(usr, "Make [M] drop everything?", "Confirmation", "Yes", "No") == "Yes")
usr.client.cmd_admin_drop_everything(M)
else
alert("If you are below the rank of Shit Guy, you need to be observing and at least a Primary Admin to drop player contents.")
if ("addabil")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
if (!M.abilityHolder)
alert("No ability holder detected. Create a holder first!")
return
var/ab_to_add = input("Which ability?", "Ability", null) as anything in (typesof(/datum/targetable) - /datum/targetable)
M.abilityHolder.addAbility(ab_to_add)
message_admins("[key_name(usr)] added ability [ab_to_add] to [key_name(M)].")
logTheThing("admin", usr, M, "added ability [ab_to_add] to %target%.")
else
alert("You must be at least a Primary Administrator to do this!")
if ("removeabil")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
if (!M.abilityHolder)
alert("No ability holder detected.")
return
var/ab_to_rem = input("Which ability?", "Ability", null) as anything in M.abilityHolder.abilities
message_admins("[key_name(usr)] removed ability [ab_to_rem] from [key_name(M)].")
logTheThing("admin", usr, M, "removed ability [ab_to_rem] from %target%.")
M.abilityHolder.removeAbilityInstance(ab_to_rem)
else
alert("You must be at least a Primary Administrator to do this!")
if ("abilholder")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
var/ab_to_add = input("Which holder?", "Ability", null) as anything in (typesof(/datum/abilityHolder) - /datum/abilityHolder)
M.add_ability_holder(ab_to_add)
message_admins("[key_name(usr)] created abilityHolder [ab_to_add] for [key_name(M)].")
logTheThing("admin", usr, M, "created abilityHolder [ab_to_add] for %target%.")
else
alert("You must be at least a Primary Administrator to do this!")
if("subtlemsg")
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_subtle_message(M)
if("adminalert")
var/mob/M = locate(href_list["target"])
if(!M) return
usr.client.cmd_admin_alert(M)
if ("makewraith")
if( src.level < LEVEL_PA)
alert("You must be at least a Primary Administrator to make someone a wraith.")
return
if(!ticker || !ticker.mode)
alert("The game hasn't started yet!")
return
var/mob/M = locate(href_list["target"])
if (!M) return
if (alert("Make [M] a wraith?", "Make Wraith", "Yes", "No") == "Yes")
var/datum/mind/mind = M.mind
if (!mind)
mind = new /datum/mind( )
mind.key = M.key
mind.current = M
ticker.minds += mind
M.mind = mind
if (mind.objectives)
mind.objectives.len = 0
else
mind.objectives = list()
switch (alert("Objectives?", "Objectives", "Custom", "Random", "None"))
if ("Custom")
var/WO = null
do
WO = input("What objective?", "Objective", null) as null|anything in (typesof(/datum/objective/specialist/wraith) - /datum/objective/specialist/wraith)
if (WO)
var/datum/objective/specialist/wraith/WObj = new WO()
WObj.owner = mind
WObj.set_up()
mind.objectives += WObj
while (WO != null)
if ("Random")
generate_wraith_objectives(mind)
var/mob/wraith/Wr = M.wraithize()
if (!Wr)
if (!istype(mind.current, /mob/wraith))
boutput(usr, "<span style=\"color:red\">Wraithization failed! Call 1-800-MARQUESAS for help.</span>")
return
else
Wr = mind.current
if (mind.objectives.len)
boutput(Wr, "<b>Your objectives:</b>")
var/obj_count = 1
for (var/datum/objective/objective in mind.objectives)
boutput(Wr, "<B>Objective #[obj_count]</B>: [objective.explanation_text]")
obj_count++
mind.special_role = "wraith"
ticker.mode.Agimmicks += mind
Wr.antagonist_overlay_refresh(1, 0)
if ("makeblob")
if( src.level < LEVEL_PA )
alert("You must be at least a Primary Administrator to make someone a blob.")
return
if(!ticker || !ticker.mode)
alert("The game hasn't started yet!")
return
var/mob/M = locate(href_list["target"])
if (!M) return
if (alert("Make [M] a blob?", "Make Blob", "Yes", "No") == "Yes")
var/mob/B = M.blobize()
if (B)
if (B.mind)
B.mind.special_role = "blob"
var/datum/objective/specialist/blob/Bl = new()
Bl.owner = B.mind
B.mind.objectives = list(Bl)
var/i = 1
for (var/datum/objective/Obj in B.mind.objectives)
boutput(B, "<b>Objective #[i]</b>: [Obj.explanation_text]")
i++
ticker.mode.Agimmicks += B.mind
B.antagonist_overlay_refresh(1, 0)
spawn(0)
var/newname = input(B, "You are a Blob. Please choose a name for yourself, it will show in the form: <name> the Blob", "Name change") as text
if (newname)
if (length(newname) >= 26) newname = copytext(newname, 1, 26)
newname = replacetext(newname, ">", "'") + " the Blob"
B.real_name = newname
B.name = newname
if ("makemacho")
if( src.level < LEVEL_PA )
alert("You must be at least a Primary Administrator to make someone a Macho Man.")
return
if(!ticker || !ticker.mode)
alert("The game hasn't started yet!")
return
var/mob/M = locate(href_list["target"])
if (!M) return
if (alert("Make [M] a macho man?", "Make Macho", "Yes", "No") == "Yes")
M.machoize()
if ("makecritter")
if( src.level < LEVEL_PA )
alert("You must be at least a Primary Administrator to make someone a Critter.")
return
if(!ticker || !ticker.mode)
alert("The game hasn't started yet!")
return
var/mob/M = locate(href_list["target"])
if (!M) return
if (alert("Make [M] a critter?", "Make Critter", "Yes", "No") == "Yes")
var/CT = input("What kind of critter?", "Make Critter", null) as null|anything in (typesof(/mob/living/critter) - /mob/living/critter)
if (CT != null)
M.critterize(CT)
if ("remove_traitor")
if ( src.level < LEVEL_SA )
alert("You must be at least a Secondary Administrator to remove someone's status as an antagonist.")
return
if (!ticker || !ticker.mode)
alert("The game hasn't started yet!")
return
var/mob/M = locate(href_list["target"])
if (!M) return
if (alert("Remove [M]'s antag status?", "Remove Antag", "Yes", "No") == "Yes")
if (!M) return
if (!isturf(M.loc))
// They could be in a pod or whatever, which would have unfortunate results when respawned (Convair880).
alert(usr, "You currently cannot remove the antagonist status of somebody hiding in a pod, closet or other container.", "An error occurred")
return
remove_antag(M, usr, 0, 1)
if ("traitor")
if(!ticker || !ticker.mode)
alert("The game hasn't started yet!")
return
var/mob/M = locate(href_list["target"])
if (!M) return
//independant of mode and can be traitors as well
if(M.mind && (M.mind in miscreants))
var/t = ""
for(var/datum/objective/O in M.mind.objectives)
if (istype(O, /datum/objective/miscreant))
t += "[O.explanation_text]\n"
alert("Miscreant! Objective: [t]")
var/datum/game_mode/current_mode = ticker.mode
if (istype(current_mode, /datum/game_mode/revolution))
if(M.mind in current_mode:head_revolutionaries)
alert("Head Revolutionary!")
return
else if(M.mind in current_mode:revolutionaries)
alert("Revolutionary!")
return
else if (istype(current_mode, /datum/game_mode/nuclear))
if(M.mind in current_mode:syndicates)
alert("Syndicate Operative!", "[M.key]")
return
else if (istype(current_mode, /datum/game_mode/spy))
if(M.mind in current_mode:leaders)
var/datum/mind/antagonist = M.mind
var/t = ""
for(var/datum/objective/OB in antagonist.objectives)
if (istype(OB, /datum/objective/crew) || istype(OB, /datum/objective/miscreant))
continue
t += "[OB.explanation_text]\n"
if(antagonist.objectives.len == 0)
t = "None defined."
alert("Infiltrator. Objective(s):\n[t]", "[M.key]")
return
else if (istype(current_mode, /datum/game_mode/gang))
if(M.mind in current_mode:leaders)
alert("Leader of [M.mind.gang.gang_name].", "[M.key]")
return
for(var/datum/gang/G in current_mode:gangs)
if(M in G.members)
alert("Member of [G.gang_name].", "[M.key]")
return
// traitor, or other modes where traitors/counteroperatives would be.
if(M.mind in current_mode.traitors)
var/datum/mind/antagonist = M.mind
var/t = ""
for(var/datum/objective/OB in antagonist.objectives)
if (istype(OB, /datum/objective/crew) || istype(OB, /datum/objective/miscreant))
continue
t += "[OB.explanation_text]\n"
if(antagonist.objectives.len == 0)
t = "None defined."
alert("Assigned [M.mind.special_role]. Objective(s):\n[t]", "[M.key]")
return
if(M.mind in ticker.mode.Agimmicks)
var/datum/mind/antagonist = M.mind
var/t = ""
for(var/datum/objective/OB in antagonist.objectives)
if (istype(OB, /datum/objective/crew) || istype(OB, /datum/objective/miscreant))
continue
t += "[OB.explanation_text]\n"
if(antagonist.objectives.len == 0)
t = "None defined."
alert("Assigned [M.mind.special_role]. Objective(s):\n[t]", "[M.key]")
return
//they're nothing so turn them into a traitor!
if(ishuman(M) || isAI(M) || isrobot(M) || iscritter(M))
var/traitorize = "Cancel"
traitorize = alert("Is not a traitor, make Traitor?", "Traitor", "Yes", "Cancel")
if(traitorize == "Cancel")
return
if(traitorize == "Yes")
if (issilicon(M))
evilize(M, "traitor")
else if (iscritter(M))
// The only role that works for all critters at this point is hard-mode traitor, really. The majority of existing
// roles don't work for them, most can't wear clothes and some don't even have arms and/or can pick things up.
// That said, certain roles are mostly compatible and thus selectable.
var/list/traitor_types = list("Hard-mode traitor", "Wrestler", "Grinch")
var/selection = input(usr, "Select traitor type.", "Traitorize", "Traitor") in traitor_types
switch (selection)
if ("Hard-mode traitor")
evilize(M, "traitor", "hardmode")
else
evilize(M, selection)
else
spawn (0) alert("An error occurred, please try again.")
else
var/list/traitor_types = list("Traitor", "Wizard", "Changeling", "Vampire", "Werewolf", "Predator", "Wrestler", "Grinch", "Omnitraitor")
if(ticker && ticker.mode && istype(ticker.mode, /datum/game_mode/gang))
traitor_types += "Gang Leader"
var/selection = input(usr, "Select traitor type.", "Traitorize", "Traitor") in traitor_types
switch(selection)
if("Traitor")
if (alert("Hard Mode?","Treachery","Yes","No") == "Yes")
evilize(M, "traitor", "hardmode")
else
evilize(M, "traitor")
else
evilize(M, selection)
else
spawn (0) alert("An error occurred, please try again.")
//they're a ghost/hivebotthing/etc
else
alert("Cannot make this mob a traitor")
if ("create_object")
if (src.level >= LEVEL_PA)
create_object(usr)
else
alert("You need to be at least a Primary Adminstrator to create objects.")
if ("create_turf")
if (src.level >= LEVEL_PA)
create_turf(usr)
else
alert("You need to be at least a Primary Adminstrator to create turfs.")
if ("create_mob")
if (src.level >= LEVEL_PA) // Moved from SG to PA. They can do this through build mode anyway (Convair880).
create_mob(usr)
else
alert("You need to be at least a Primary Administrator to create mobs.")
if ("votekill")
votekill()
if ("voteres")
voteres()
if ("prom_demot")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
var/client/C = M.client
if(C.holder && (C.holder.level >= src.level))
alert("This cannot be done as [C] is ranked higher than you!")
return
var/dat = "[C] is a [C.holder ? "[C.holder.rank]" : "non-admin"]<br><br>Change [C]'s rank?<br>"
if (src.level >= LEVEL_CODER)
dat += {"
<A href='?src=\ref[src];action=chgadlvl;type=Coder;target=\ref[C]'>Coder</A><BR>
<A href='?src=\ref[src];action=chgadlvl;type=Shit Person;target=\ref[C]'>Shit Person</A><BR>
"}
if (src.level >= LEVEL_SHITGUY)
dat += "<A href='?src=\ref[src];action=chgadlvl;type=Primary Administrator;target=\ref[C]'>PA</A><BR>"
if (src.level >= LEVEL_PA)
dat += {"
<A href='?src=\ref[src];action=chgadlvl;type=Administrator;target=\ref[C]'>A</A><BR>
<A href='?src=\ref[src];action=chgadlvl;type=Secondary Administrator;target=\ref[C]'>SA</A><BR>
<A href='?src=\ref[src];action=chgadlvl;type=Moderator;target=\ref[C]'>M</A><BR>
<A href='?src=\ref[src];action=chgadlvl;type=Ayn Rand's Armpit;target=\ref[C]'>Ayn Rand's Armpit</A><BR>
<A href='?src=\ref[src];action=chgadlvl;type=Goat Fart;target=\ref[C]'>Goat Fart</A><BR>
<A href='?src=\ref[src];action=chgadlvl;type=Remove;target=\ref[C]'>Remove Admin</A><BR>
"}
usr << browse(dat, "window=prom_demot;size=480x300")
else
alert("You need to be at least a Primary Adminstrator to promote or demote.")
if ("chgadlvl")
if (src.level >= LEVEL_PA)
var/rank = href_list["type"]
var/client/C = locate(href_list["target"])
if (!rank || !C) return
if (C == usr.client)
alert("You can't change your own rank!")
return
if (rank == "Remove")
C.clear_admin_verbs()
C.update_admins(null)
logTheThing("admin", usr, C, "has removed %target%'s adminship")
logTheThing("diary", usr, null, "has removed [C]'s adminship", "admin")
message_admins("[key_name(usr)] has removed [C]'s adminship")
var/ircmsg[] = new()
ircmsg["key"] = usr.client.key
ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
ircmsg["msg"] = "has removed [C]'s adminship"
ircbot.export("admin", ircmsg)
admins.Remove(C.ckey)
onlineAdmins.Remove(C)
else
C.clear_admin_verbs()
C.update_admins(rank)
logTheThing("admin", usr, C, "has made %target% a [rank]")
logTheThing("diary", usr, null, "has made [C] a [rank]", "admin")
message_admins("[key_name(usr)] has made [C] a [rank]")
var/ircmsg[] = new()
ircmsg["key"] = usr.client.key
ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
ircmsg["msg"] = "has made [C] a [rank]"
ircbot.export("admin", ircmsg)
admins[C.ckey] = rank
onlineAdmins.Add(C)
else
alert("You need to be at least a Primary Adminstrator to promote or demote.")
if ("object_list")
if (src.level >= LEVEL_PA)
if (config.allow_admin_spawning && (src.state == 2 || src.level >= LEVEL_PA))
var/atom/loc = usr.loc
var/type = href_list["type"]
var/dirty_paths
if (istext(type))
dirty_paths = list(type)
else if (islist(type))
dirty_paths = type
var/paths = list()
var/removed_paths = list()
for (var/dirty_path in dirty_paths)
var/path = text2path(dirty_path)
if (!path)
removed_paths += dirty_path
else if (!ispath(path, /obj) && !ispath(path, /turf) && !ispath(path, /mob))
removed_paths += dirty_path
else if (dirty_path in do_not_spawn && src.level < LEVEL_PA)
removed_paths += dirty_path
else if (ispath(path, /mob) && src.level < LEVEL_PA)
removed_paths += dirty_path
else
paths += path
sleep(-1)
if (!paths)
return
else if (length(paths) > 5)
alert("Select five or less object types only, you colossal ass!")
return
else if (length(removed_paths))
alert("Spawning of these objects is blocked:\n" + jointext(removed_paths, "\n"))
return
var/list/offset = splittext(href_list["offset"],",")
var/number = dd_range(1, 100, text2num(href_list["object_count"]))
var/X = offset.len > 0 ? text2num(offset[1]) : 0
var/Y = offset.len > 1 ? text2num(offset[2]) : 0
var/Z = offset.len > 2 ? text2num(offset[3]) : 0
var/direction = text2num(href_list["one_direction"]) // forgive me
for (var/i = 1 to number)
switch (href_list["offset_type"])
if ("absolute")
for (var/path in paths)
var/atom/thing = new path(locate(0 + X,0 + Y,0 + Z))
thing.dir = direction ? direction : SOUTH
sleep(-1)
if ("relative")
if (loc)
for (var/path in paths)
var/atom/thing = new path(locate(loc.x + X,loc.y + Y,loc.z + Z))
thing.dir = direction ? direction : SOUTH
sleep(-1)
else
return
sleep(-1)
if (number == 1)
logTheThing("admin", usr, null, "created a [english_list(paths)]")
logTheThing("diary", usr, null, "created a [english_list(paths)]", "admin")
for(var/path in paths)
if(ispath(path, /mob))
message_admins("[key_name(usr)] created a [english_list(paths, 1)]")
break
sleep(-1)
else
logTheThing("admin", usr, null, "created [number]ea [english_list(paths)]")
logTheThing("diary", usr, null, "created [number]ea [english_list(paths)]", "admin")
for(var/path in paths)
if(ispath(path, /mob))
message_admins("[key_name(usr)] created [number]ea [english_list(paths, 1)]")
break
sleep(-1)
return
else
alert("Object spawning is currently disabled for anyone below the rank of Administrator.")
return
else
alert("You need to be at least an Adminstrator to spawn objects.")
if ("polymorph")
if (src.level >= LEVEL_SHITGUY)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_polymorph(M)
else
alert("You need to be at least a Shit Person to polymorph a dude.")
if ("modcolor")
if (src.level >= LEVEL_SHITGUY)
var/mob/M = locate(href_list["target"])
if (!M) return
mod_color(M)
else
alert("You need to be at least a Shit Person to modify an icon.")
if("giveantagtoken") //Gives player a token they can redeem to guarantee an antagonist role
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
var/removedall
if (!M)
return
if (M.ckey && M.ckey == usr.ckey)
alert(usr, "You cannot modify your own antag tokens.")
return
M.client.load_antag_tokens()
var/tokens = input(usr, "Current Tokens: [M.client.antag_tokens]","Add/Remove Antag Tokens?") as null|num
if (!tokens)
return
var/newtokens = M.client.antag_tokens + tokens
if (newtokens <= 0)
newtokens = 0
logTheThing("admin", usr, M, "Removed all antag tokens from %target%")
logTheThing("diary", usr, M, "Removed all antag tokens from %target%", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] removed all antag tokens from [key_name(M)]</span>")
removedall = 1
M.client.antag_tokens = newtokens
M.client.set_antag_tokens()
if (!removedall)
logTheThing("admin", usr, M, "[(tokens >= 1) ? "added" : "removed"] [abs(tokens)] Antag tokens [(tokens >= 1) ? "to" : "from"] %target%.")
logTheThing("diary", usr, M, "[(tokens >= 1) ? "added" : "removed"] [abs(tokens)] Antag tokens [(tokens >= 1) ? "to" : "from"] %target%.", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] [(tokens >= 1) ? "added" : "removed"] [abs(tokens)] Antag tokens [(tokens >= 1) ? "to" : "from"] [key_name(M)].</span>")
if ("viewsave")
if (src.level >= LEVEL_SHITGUY)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.view_save_data(M)
else
alert("You need to be at least a Shit Person to view save data.")
if ("editvars")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_modify_object_variables(M)
else
alert("You need to be at least a Primary Administrator to edit variables.")
if ("viewvars")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.debug_variables(M)
else
alert("You need to be at least a Primary Administrator to view variables.")
if ("adminplayeropts")
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.holder.playeropt(M)
if ("secretsfun")
if (src.level >= LEVEL_SA)
switch(href_list["type"])
if("sec_clothes")
for(var/obj/item/clothing/under/O in world)
qdel(O)
sleep(-1)
if("sec_all_clothes")
for(var/obj/item/clothing/O in world)
qdel(O)
sleep(-1)
if("sec_classic1")
for(var/obj/item/clothing/suit/fire/O in world)
qdel(O)
sleep(-1)
for(var/obj/grille/O in world)
qdel(O)
sleep(-1)
for(var/obj/machinery/vehicle/pod/O in machines)
for(var/atom/movable/A in O)
A.set_loc(O.loc)
qdel(O)
if("transform_one")
var/who = input("Transform who?","Transform") as null|mob in world
if (!who)
return
if (!istype(who,/mob/living/carbon/human/))
alert("This secret can only be used on human mobs.")
return
var/mob/living/carbon/human/H = who
var/which = input("Transform them into what?","Transform") as null|anything in list("Monkey","Cyborg","Lizardman","Squidman","Martian","Skeleton","Flashman")
if (!which)
return
switch(which)
if("Monkey") H.monkeyize()
if("Cyborg") H.Robotize_MK2()
if("Lizardman")
H.set_mutantrace(/datum/mutantrace/lizard)
if("Squidman")
H.set_mutantrace(/datum/mutantrace/ithillid)
if("Martian")
H.set_mutantrace(/datum/mutantrace/martian)
if("Skeleton")
H.set_mutantrace(/datum/mutantrace/skeleton)
if("Flashman")
H.set_mutantrace(/datum/mutantrace/flashy)
message_admins("<span style=\"color:blue\">[key_name(usr)] transformed [H.real_name] into a [which].</span>")
logTheThing("admin", usr, null, "transformed [H.real_name] into a [which].")
logTheThing("diary", usr, null, "transformed [H.real_name] into a [which].", "admin")
if("transform_all")
var/which = input("Transform everyone into what?","Transform") as null|anything in list("Monkey","Cyborg","Lizardman","Squidman","Martian","Skeleton","Flashman")
for(var/mob/living/carbon/human/H in mobs)
switch(which)
if("Monkey") H.monkeyize()
if("Cyborg") H.Robotize_MK2()
if("Lizardman")
H.set_mutantrace(/datum/mutantrace/lizard)
if("Squidman")
H.set_mutantrace(/datum/mutantrace/ithillid)
if("Martian")
H.set_mutantrace(/datum/mutantrace/martian)
if("Skeleton")
H.set_mutantrace(/datum/mutantrace/skeleton)
if("Flashman")
H.set_mutantrace(/datum/mutantrace/flashy)
sleep(-1)
message_admins("<span style=\"color:blue\">[key_name(usr)] transformed everyone into a [which].</span>")
logTheThing("admin", usr, null, "transformed everyone into a [which].")
logTheThing("diary", usr, null, "transformed everyone into a [which].", "admin")
if("prisonwarp")
if(!ticker)
alert("The game hasn't started yet!", null, null, null, null, null)
return
message_admins("<span style=\"color:blue\">[key_name(usr)] teleported all players to the prison zone.</span>")
logTheThing("admin", usr, null, "teleported all players to the prison zone.")
logTheThing("diary", usr, null, "teleported all players to the prison zone.", "admin")
for(var/mob/living/carbon/human/H in mobs)
var/turf/loc = find_loc(H)
var/security = 0
if(loc.z > 1 || prisonwarped.Find(H))
//don't warp them if they aren't ready or are already there
continue
H.paralysis += 5
if(H.wear_id)
for(var/A in H.wear_id:access)
if(A == access_security)
security++
if(!security)
//teleport person to cell
H.set_loc(pick(prisonwarp))
else
//teleport security person
H.set_loc(pick(prisonsecuritywarp))
prisonwarped += H
sleep(-1)
if("traitor_all")
if (src.level >= LEVEL_SA)
if(!ticker)
alert("The game hasn't started yet!")
return
var/which_traitor = input("What kind of traitor?","Everyone's a Traitor") as null|anything in list("Traitor","Wizard","Changeling","Werewolf","Vampire","Predator","Wrestler","Grinch","Omnitraitor")
if(!which_traitor)
return
var/hardmode = null
if (which_traitor == "Traitor")
if (alert("Hard Mode?","Everyone's a Traitor","Yes","No") == "Yes")
hardmode = "hardmode"
var/custom_objective = input("What should the objective be?","Everyone's a Traitor") as null|text
if (!custom_objective)
return
var/escape_objective = input("Which escaping objective?") as null|anything in typesof(/datum/objective/escape/) + "None"
if (!escape_objective)
return
if (escape_objective == "None")
escape_objective = null
for(var/mob/living/carbon/human/H in mobs)
if(H.stat == 2 || !(H.client)) continue
if(checktraitor(H)) continue
evilize(H, which_traitor, hardmode, custom_objective, escape_objective)
message_admins("<span style=\"color:blue\">[key_name(usr)] made everyone a[hardmode ? " hard-mode" : ""] [which_traitor]. Objective is [custom_objective]</span>")
logTheThing("admin", usr, null, "made everyone a[hardmode ? " hard-mode" : ""] [which_traitor]. Objective is [custom_objective]")
logTheThing("diary", usr, null, "made everyone a[hardmode ? " hard-mode" : ""] [which_traitor]. Objective is [custom_objective]", "admin")
else
alert("You're not of a high enough rank to do this")
if("flicklights")
while(!usr.stat)
//knock yourself out to stop the ghosts
for(var/mob/M in mobs)
if(M.client && M.stat != 2 && prob(25))
var/area/AffectedArea = get_area(M)
if(AffectedArea.name != "Space" && AffectedArea.name != "Engine Walls" && AffectedArea.name != "Chemical Lab Test Chamber" && AffectedArea.name != "Escape Shuttle" && AffectedArea.name != "Arrival Area" && AffectedArea.name != "Arrival Shuttle" && AffectedArea.name != "start area" && AffectedArea.name != "Engine Combustion Chamber")
AffectedArea.power_light = 0
AffectedArea.power_change()
spawn(rand(55,185))
AffectedArea.power_light = 1
AffectedArea.power_change()
var/Message = rand(1,4)
switch(Message)
if(1)
M.show_message(text("<span style=\"color:blue\">You shudder as if cold...</span>"), 1)
if(2)
M.show_message(text("<span style=\"color:blue\">You feel something gliding across your back...</span>"), 1)
if(3)
M.show_message(text("<span style=\"color:blue\">Your eyes twitch, you feel like something you can't see is here...</span>"), 1)
if(4)
M.show_message(text("<span style=\"color:blue\">You notice something moving out of the corner of your eye, but nothing is there...</span>"), 1)
for(var/obj/W in orange(5,M))
if(prob(25) && !W.anchored)
step_rand(W)
sleep(rand(100,1000))
for(var/mob/M in mobs)
if(M.client && M.stat != 2)
M.show_message(text("<span style=\"color:blue\">The chilling wind suddenly stops...</span>"), 1)
sleep(-1)
if("retardify")
if (src.level >= LEVEL_SHITGUY)
if (alert("Do you wish to give everyone brain damage?", "Confirmation", "Yes", "No") != "Yes")
return
for (var/mob/living/carbon/human/H in mobs)
if (H.get_brain_damage() < 60)
if (H.client)
H.show_text("<B>You suddenly feel stupid.</B>","red")
H.take_brain_damage(min(60 - H.get_brain_damage(), 60)) // 100+ brain damage is lethal.
sleep(-1)
else
continue
message_admins("[key_name(usr)] gave everybody severe brain damage.")
logTheThing("admin", usr, null, "gave everybody severe brain damage.")
logTheThing("diary", usr, null, "gave everybody severe brain damage.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
// FUN SECRETS CODE
if ("bioeffect_help")
var/be_string = "To add or remove multiple bioeffects enter multiple IDs separated by semicolons.<br><br><b>All Bio Effect IDs</b><hr>"
for(var/S in bioEffectList)
be_string += "[S]<br>"
usr << browse(be_string,"window=bioeffect_help;size=300x600")
if ("reagent_help")
var/r_string = "To add or remove multiple reagents enter multiple IDs separated by semicolons.<br><br><b>All Reagent IDs</b><hr>"
for(var/R in reagents_cache)
r_string += "[R]<br>"
usr << browse(r_string,"window=reagent_help;size=300x600")
if ("add_bioeffect_one","remove_bioeffect_one")
if (src.level >= LEVEL_PA)
var/adding = href_list["type"] == "add_bioeffect_one"
var/who = input("Which player?","[adding ? "Give" : "Remove"] Bioeffects") as null|mob in world
if (!who)
return
if (!istype(who,/mob/living/carbon/human/))
alert("You may only use this secret on human mobs.")
return
var/mob/living/carbon/human/X = who
var/pick = input("Which effect(s)?","[adding ? "Give" : "Remove"] Bioeffects") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
if (adding)
X.bioHolder.AddEffect(pick)
else
X.bioHolder.RemoveEffect(pick)
if (string_version)
string_version = "[string_version], \"[pick]\""
else
string_version = "\"[pick]\""
message_admins("[key_name(usr)] [adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] [key_name(X)].")
logTheThing("admin", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] [key_name(X)].")
logTheThing("diary", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] [key_name(X)].", "admin")
else
alert("You must be at least a Primary Administrator to bioeffect players.")
return
if ("add_reagent_one","remove_reagent_one")
if (src.level >= LEVEL_PA)
var/adding = href_list["type"] == "add_reagent_one"
var/who = input("Which player?","[adding ? "Add" : "Remove"] Reagents") as null|mob in world
if (!who)
return
if (!istype(who,/mob/living/carbon/human/))
alert("You may only use this secret on human mobs.")
return
var/mob/living/carbon/human/X = who
var/pick = input("Which reagent(s)?","[adding ? "Add" : "Remove"] Reagents") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
var/amt = input("How much of [pick]?","[adding ? "Add" : "Remove"] Reagent") as null|num
if(!amt || amt < 0)
return
if (adding)
if (X.reagents)
X.reagents.add_reagent(pick,amt)
else
if (X.reagents)
X.reagents.remove_reagent(pick,amt)
if (string_version)
string_version = "[string_version], [amt] \"[pick]\""
else
string_version = "[amt] \"[pick]\""
message_admins("[key_name(usr)] [adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] [key_name(X)].")
logTheThing("admin", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] [key_name(X)].")
logTheThing("diary", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] [key_name(X)].", "admin")
else
alert("You must be at least a Primary Administrator to affect player reagents.")
return
if ("add_bioeffect_all","remove_bioeffect_all")
if (src.level >= LEVEL_PA)
var/adding = href_list["type"] == "add_bioeffect_all"
var/pick = input("Which effect(s)?","[adding ? "Give" : "Remove"] Bioeffects [adding ? "to" : "from"] Everyone") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
if (string_version)
string_version = "[string_version], \"[pick]\""
else
string_version = "\"[pick]\""
spawn(0)
for(var/mob/living/carbon/X in mobs)
for(pick in picklist)
if (adding)
X.bioHolder.AddEffect(pick)
else
X.bioHolder.RemoveEffect(pick)
sleep(1)
message_admins("[key_name(usr)] [adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] everyone.")
logTheThing("admin", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] everyone.")
logTheThing("diary", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] everyone.", "admin")
else
alert("You must be at least a Primary Administrator to bioeffect players.")
return
if ("add_reagent_all","remove_reagent_all")
if (src.level >= LEVEL_PA)
var/adding = href_list["type"] == "add_reagent_all"
var/pick = input("Which reagent(s)?","[adding ? "Add" : "Remove"] Reagents [adding ? "to" : "from"] Everyone") as null|text
if (!pick)
return
var/list/picklist = params2list(pick)
if (picklist && picklist.len >= 1)
var/string_version
for(pick in picklist)
var/amt = input("How much of [pick]?","[adding ? "Add" : "Remove"] Reagent") as null|num
picklist[pick] = amt
if (string_version)
string_version = "[string_version], [amt] \"[pick]\""
else
string_version = "[amt] \"[pick]\""
spawn(0)
for(var/mob/living/carbon/X in mobs)
for(pick in picklist)
var/amt = picklist[pick]
if(!amt)
continue
if (adding)
if (X.reagents)
X.reagents.add_reagent(pick,amt)
else
if (X.reagents)
X.reagents.remove_reagent(pick,amt)
sleep(1)
message_admins("[key_name(usr)] [adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] everyone.")
logTheThing("admin", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] everyone.")
logTheThing("diary", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] everyone.", "admin")
else
alert("You must be at least a Primary Administrator to affect player reagents.")
return
if ("woodstation")
if (src.level >= LEVEL_PA)
message_admins("[key_name(usr)] began replacing all Z1 floors and walls with wooden ones.")
for (var/turf/simulated/wall/W in world)
if (atom_emergency_stop)
message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
return
if (W.z != 1)
break
if (W.icon_state != "wooden")
W.icon_state = "wooden"
sleep(-1)
for (var/turf/simulated/floor/F in world)
if (atom_emergency_stop)
message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
return
if (F.z != 1)
break
if (istype(F, /turf/simulated/floor/carpet))
continue
if (F.icon_state != "wooden")
F.icon_state = "wooden"
sleep(-1)
message_admins("[key_name(usr)] replaced all Z1 floors and walls with wooden ones.")
logTheThing("admin", usr, null, "replaced z1 floors and walls with wooden doors.")
logTheThing("diary", usr, null, "replaced z1 floors and walls with wooden doors.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if ("yeolde")
if (src.level >= LEVEL_PA)
message_admins("[key_name(usr)] began replacing all Z1 airlocks with wooden doors.")
for (var/obj/machinery/door/D in world)
if (atom_emergency_stop)
message_admins("[key_name(usr)]'s command to replace all Z1 airlocks with wooden doors was terminated due to the atom emerygency stop!")
return
if (D.z != 1)
break
if (istype(D, /obj/machinery/door/poddoor/) || istype(D, /obj/machinery/door/firedoor/) || istype(D, /obj/machinery/door/window/))
continue
new /obj/machinery/door/unpowered/wood(get_turf(D))
qdel(D)
sleep(-1)
message_admins("[key_name(usr)] replaced all Z1 airlocks with wooden doors.")
logTheThing("admin", usr, null, "replaced z1 airlocks with wooden doors.")
logTheThing("diary", usr, null, "replaced z1 airlocks with wooden doors.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("fakeguns")
if (src.level >= LEVEL_SHITGUY)
for(var/obj/item/W in world)
if(istype(W, /obj/item/clothing) || istype(W, /obj/item/card/id) || istype(W, /obj/item/disk) || istype(W, /obj/item/tank))
continue
W.icon = 'icons/obj/gun.dmi'
W.icon_state = "revolver"
W.item_state = "gun"
sleep(-1)
message_admins("[key_name(usr)] made every item look like a gun")
logTheThing("admin", usr, null, "used Fake Gun secret.")
logTheThing("diary", usr, null, "used Fake Gun secret.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("flipstation")
var/direction = input("Which way?", "Which direction?", "Normal") in list("Normal", "Rotated CW", "Rotated CCW", "Upside down")
var/setdir = NORTH
switch (direction)
if ("Rotated CW")
setdir = WEST
if ("Rotated CCW")
setdir = EAST
if ("Upside down")
setdir = SOUTH
if (src.level >= LEVEL_SHITGUY)
for(var/mob/M in mobs)
if(M.client)
M.client.dir = setdir
sleep(-1)
message_admins("[key_name(usr)] set station direction to [direction].")
logTheThing("admin", src, null, "set station direction to [direction].")
logTheThing("diary", src, null, "set station direction to [direction]", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("raiseundead")
if (src.level >= LEVEL_SHITGUY)
for(var/mob/living/carbon/human/H in mobs) //Only humans can be zombies!
if(H.stat != 2) //Not dead!
continue
if(istype(H.mutantrace, /datum/mutantrace/zombie))
continue //Already a zombie!
qdel(H.mutantrace)
H.set_mutantrace(/datum/mutantrace/zombie)
H.stat = 0 //Set stat back to zero so we can call death()
H.death()//Calling death() again means that the zombies will rise after ~20 seconds.
sleep(-1)
message_admins("[key_name(usr)] has brought back all dead humans as zombies.")
logTheThing("admin", usr, null, "brought back all dead humans as zombies.")
logTheThing("diary", usr, null, "brought back all dead humans as zombies", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("forcerandomnames")
if (src.level >= LEVEL_PA)
if(ticker.current_state != GAME_STATE_PREGAME)
alert("You can only only trigger this before the game starts, sorry pal!")
return
force_random_names = 1
for(var/client/C)
if (!C.preferences)
continue
C.preferences.be_random_name = 1
message_admins("[key_name(usr)] has set all players to use random names this round.")
logTheThing("admin", usr, null, "set all players to use random names.")
logTheThing("diary", usr, null, "set all players to use random names.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("forcerandomlooks")
if (src.level >= LEVEL_PA)
if(ticker.current_state != GAME_STATE_PREGAME)
alert("You can only only trigger this before the game starts, sorry pal!")
return
force_random_looks = 1
for(var/client/C)
if (!C.preferences)
continue
C.preferences.be_random_look = 1
message_admins("[key_name(usr)] has set all players to use random appearances this round.")
logTheThing("admin", usr, null, "set all players to use random appearances.")
logTheThing("diary", usr, null, "set all players to use random appearances.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("sawarms")
if (src.level >= LEVEL_SHITGUY)
for (var/mob/living/carbon/human/M in world)
if (!ismonkey(M))
for (var/obj/item/parts/human_parts/arm/P in M)
P.sever()
var/obj/item/parts/human_parts/arm/sawarm = null
if (P.slot == "l_arm")
sawarm = new /obj/item/parts/human_parts/arm/left/item(M)
M.limbs.l_arm = sawarm
else
sawarm = new /obj/item/parts/human_parts/arm/right/item(M)
M.limbs.r_arm = sawarm
if (!sawarm) return
sawarm.holder = M
sawarm.remove_stage = 0
sawarm:set_item(new /obj/item/saw/elimbinator())
playsound(M, "sound/machines/chainsaw_red.ogg", 60, 1)
M.update_body()
message_admins("[key_name(usr)] has given everyone new arms.")
logTheThing("admin", usr, null, "used the Saw Arms secret.")
logTheThing("diary", usr, null, "used the Saw Arms secret.", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!")
return
if("emag_all_things")
if (src.level >= LEVEL_SHITGUY)
if (alert("Do you really want to emag everything?","Bad Idea", "Yes", "No") == "Yes")
message_admins("[key_name(usr)] has started emagging everything!")
logTheThing("admin", usr, null, "used the Emag Everything secret.")
logTheThing("diary", usr, null, "used the Emag Everything secret.", "admin")
//DO IT!
for(var/atom/A as mob|obj in world)
if(A)
A.emag_act(null,null)
message_admins("[key_name(usr)] has emagged everything!")
else
return
else
alert("You need to be at least a shit person to emag everything")
return
if ("noir")
if(src.level >= LEVEL_SHITGUY)
if (noir)
alert("Noir is already engaged.")
return
if (alert("Are you sure you should noir?", "PARENTAL CONTROL", "Sure thing!", "Not really.") == "Sure thing!")
noir = 1
for (var/mob/M in world)
if (M.client)
animate_fade_grayscale(M.client, 50)
message_admins("[key_name(usr)] placed the station in noir mode.")
logTheThing("admin", usr, null, "used the Noir secret")
logTheThing("diary", usr, null, "used the Noir secret", "admin")
if("the_great_switcharoo")
if(src.level >= LEVEL_SHITGUY) //Will be SG when tested
if (alert("Do you really wanna do the great switcharoo?", "Awoo, awoo", "Sure thing!", "Not really.") == "Sure thing!")
var/list/mob/living/people_to_swap = list()
for(var/mob/living/L in world) //Build the swaplist
if(L && L.key && L.mind && L.stat != 2 && (ishuman(L) || issilicon(L)))
people_to_swap += L
if(people_to_swap.len > 1) //Jenny Antonsson switches bodies with herself! #wow #whoa
message_admins("[key_name(usr)] did The Great Switcharoo")
logTheThing("admin", usr, null, "used The Great Switcharoo secret")
logTheThing("diary", usr, null, "used The Great Switcharoo secret", "admin")
var/mob/A = pick(people_to_swap)
do //More random
people_to_swap -= A
var/mob/B = pick(people_to_swap)
if(A && A.mind && B)
A.mind.swap_with(B)
A = B
while(people_to_swap.len > 0)
else
return
else
alert("You are not a shit enough guy to switcharoo, bub.")
else
if (usr) logTheThing("admin", usr, null, "used secret [href_list["secretsfun"]]")
logTheThing("diary", usr, null, "used secret [href_list["secretsfun"]]", "admin")
else
alert("You need to be at least an Adminstrator to use the secrets panel.")
return
if ("secretsdebug")
if (src.level >= LEVEL_CODER)
switch(href_list["type"])
if("budget")
src.owner:debug_variables(wagesystem)
if("market")
src.owner:debug_variables(shippingmarket)
if("genetics")
src.owner:debug_variables(genResearch)
if("jobs")
src.owner:debug_variables(job_controls)
if("hydro")
src.owner:debug_variables(hydro_controls)
if("manuf")
src.owner:debug_variables(manuf_controls)
if("radio")
src.owner:debug_variables(radio_controller)
if("randevent")
src.owner:debug_variables(random_events)
if("disease")
src.owner:debug_variables(disease_controls)
if("mechanic")
src.owner:debug_variables(mechanic_controls)
if("artifact")
src.owner:debug_variables(artifact_controls)
if("gauntlet")
src.owner:debug_variables(gauntlet_controller)
if("colosseum")
src.owner:debug_variables(colosseum_controller)
if("stock")
src.owner:debug_variables(stockExchange)
if("emshuttle")
src.owner:debug_variables(emergency_shuttle)
if("overlays")
overlaytest()
if("overlaysrem")
removerlays()
else
alert("You need to be at least a Coder to use debugging secrets.")
if ("secretsadmin")
if (src.level >= LEVEL_MOD)
var/ok = 0
switch(href_list["type"])
/*
if("clear_bombs")
for(var/obj/item/assembly/radio_bomb/O in world)
qdel(O)
for(var/obj/item/assembly/proximity_bomb/O in world)
qdel(O)
for(var/obj/item/assembly/time_bomb/O in world)
qdel(O)
ok = 1
*/
if("check_antagonist")
if (ticker && ticker.mode && ticker.current_state >= GAME_STATE_PLAYING)
var/dat = "<html><head><title>Round Status</title></head><body><h1><B>Round Status</B></h1>"
dat += "Current Game Mode: <B>[ticker.mode.name]</B><BR>"
dat += "Round Duration: <B>[round(world.time / 36000)]:[add_zero(world.time / 600 % 60, 2)]:[world.time / 100 % 6][world.time / 100 % 10]</B><BR>"
if (istype(ticker.mode, /datum/game_mode/nuclear))
var/datum/game_mode/nuclear/NN = ticker.mode
dat += "<br><table cellspacing=5><tr><td><B>Syndicates</B></td><td></td></tr>"
for(var/datum/mind/N in NN.syndicates)
var/mob/M = N.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"
// This basic bit of info was missing, even though you could look up the
// location of the old auth disk here in the past (Convair880).
dat += "</table><br><table><tr><td><b>Nuclear bomb:</b></td></tr>"
if (NN.the_bomb && istype(NN.the_bomb, /obj/machinery/nuclearbomb/))
var/turf/T = get_turf(NN.the_bomb)
dat += "<tr><td>Location:"
if (T && istype(T, /turf))
dat += " <a href='?src=\ref[src];action=jumptocoords;target=[T.x],[T.y],[T.z]'>[T.x],[T.y],[T.z]</a> ([get_area(NN.the_bomb)])</tr></td>"
else
dat += " Found (unknown location)</tr></td>"
else
dat += "<tr><td>N/A (destroyed or not associated with objective)</tr></td>"
dat += "<tr><td>Target area:"
if (!isnull(NN.target_location_type))
dat += " [NN.target_location_name]</tr></td>"
else
dat += " Unknown or not assigned</tr></td>"
dat += "</table>"
else if (istype(ticker.mode, /datum/game_mode/revolution))
dat += "<br><table cellspacing=5><tr><td><B>Revolutionaries</B></td><td></td></tr>"
for(var/datum/mind/N in ticker.mode:head_revolutionaries)
var/mob/M = N.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a> <b>(Leader)</b>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"
for(var/datum/mind/N in ticker.mode:revolutionaries)
var/mob/M = N.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"
dat += "</table><table cellspacing=5><tr><td><B>Target(s)</B></td><td></td><td><B>Location</B></td></tr>"
for(var/datum/mind/N in ticker.mode:get_living_heads())
var/mob/M = N.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
var/turf/mob_loc = get_turf_loc(M)
dat += "<td>[mob_loc.loc]</td></tr>"
dat += "</table>"
else if (istype(ticker.mode, /datum/game_mode/spy))
if(ticker.mode:leaders.len > 0)
dat += "<br><table cellspacing=5><tr><td><B>Infiltrators:</B></td><td></td><tr>"
for(var/datum/mind/leader in ticker.mode:leaders)
var/mob/M = leader.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[key_name(M)]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
dat += "</table>"
else
dat += "There are no infiltrators."
if(ticker.mode:spies.len > 0)
dat += "<br><table cellspacing=5><tr><td><B>Brainwashed Followers:</B></td><td></td><tr>"
for(var/datum/mind/spy in ticker.mode:spies)
var/mob/M = spy.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td>Obeys: "
var/datum/mind/obeycheck = ticker.mode:spies[spy]
if (istype(obeycheck) && obeycheck.current)
dat += "[obeycheck.current.ckey]"
else
dat += "Nobody!"
dat += "</td><td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"
dat += "</table>"
else
dat += "There are no brainwashed followers."
else if (istype(ticker.mode, /datum/game_mode/gang))
if (ticker.mode:leaders.len > 0)
for(var/datum/mind/leader in ticker.mode:leaders)
var/mob/M = leader.current
var/datum/gang/gang = leader.gang
dat += "<br><table cellspacing=5><tr><td>([format_frequency(gang.gang_frequency)]) <B>[gang.gang_name]:</B></td><td></td><tr>"
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[key_name(M)]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
for(var/mob/member in gang.members)
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[key_name(member)]</a>[member.client ? "" : " <i>(logged out)</i>"][member.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[member.ckey]'>PM</A></td>"
dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[member]'>Show Objective</A></td></tr>"
dat += "</table>"
else
dat += "There are no gangs."
if (ticker.mode.traitors.len > 0)
dat += "<br><table cellspacing=5><tr><td><B>Traitors</B></td><td></td><td></td></tr>"
for (var/datum/mind/traitor in ticker.mode.traitors)
var/mob/M = traitor.current
if (!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
dat += "</table>"
if(ticker.mode.Agimmicks.len > 0)
dat += "<br><table cellspacing=5><tr><td><B>Misc Foes</B></td><td></td><td></td></tr>"
for(var/datum/mind/gimmick in ticker.mode.Agimmicks)
var/mob/M = gimmick.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
dat += "</table>"
if(miscreants.len > 0)
dat += "<br><table cellspacing=5><tr><td><B>Miscreants</B></td><td></td><td></td></tr>"
for(var/datum/mind/miscreant in miscreants)
var/mob/M = miscreant.current
if(!M) continue
dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][M.stat == 2 ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
dat += "</table>"
dat += "</body></html>"
usr << browse(dat, "window=roundstatus;size=400x500")
else
alert("The game hasn't started yet!")
if("shuttle_panel")
if (ticker && ticker.current_state >= GAME_STATE_PLAYING)
var/dat = "<html><head><title>Shuttle Controls</title></head><body><h1><B>Shuttle Controls</B></h1>"
dat += "Round Duration: <B>[round(world.time / 36000)]:[add_zero(world.time / 600 % 60, 2)]:[world.time / 100 % 6][world.time / 100 % 10]</B><BR>"
dat += "<B>Emergency shuttle:</B><BR>"
if (!emergency_shuttle.online)
dat += "<a href='?src=\ref[src];action=call_shuttle&type=1'>Call Shuttle</a><br>"
else
var/timeleft = emergency_shuttle.timeleft()
switch(emergency_shuttle.location)
if(0)
dat += "ETA: <a href='?src=\ref[src];action=edit_shuttle_time'>[(timeleft / 60) % 60]:[add_zero(num2text(timeleft % 60), 2)]</a><BR>"
dat += "<a href='?src=\ref[src];action=call_shuttle&type=2'>Send Back</a><br>"
if(1)
dat += "ETA: <a href='?src=\ref[src];action=edit_shuttle_time'>[(timeleft / 60) % 60]:[add_zero(num2text(timeleft % 60), 2)]</a><BR>"
dat += "</body></html>"
usr << browse(dat, "window=roundstatus;size=400x500")
if("manifest")
var/dat = "<B>Showing Crew Manifest.</B><HR>"
dat += "<table cellspacing=5><tr><th>Name</th><th>Original Position</th><th>Position</th></tr>"
for(var/mob/living/carbon/human/H in mobs)
if(H.ckey)
dat += "<tr><td>[H.name]</td><td>[(H.mind ? H.mind.assigned_role : "Unknown Position")]</td><td>[(istype(H.wear_id, /obj/item/card/id) || istype(H.wear_id, /obj/item/device/pda2)) ? "[H.wear_id:assignment]" : "Unknown Position"]</td></tr>"
sleep(-1)
dat += "</table>"
usr << browse(dat, "window=manifest;size=440x410")
if("jobcaps")
job_controls.job_config()
if("randomevents")
random_events.event_config()
if("pathology")
pathogen_controller.cdc_main(src)
if("motives")
simsController.showControls(usr)
if("artifacts")
artifact_controls.config()
if("unelectrify_all")
for(var/obj/machinery/door/airlock/D)
D.secondsElectrified = 0
sleep(-1)
message_admins("Admin [key_name(usr)] de-electrified all airlocks.")
logTheThing("admin", usr, null, "de-electrified all airlocks.")
logTheThing("diary", usr, null, "de-electrified all airlocks.", "admin")
if("DNA")
var/dat = "<B>Showing DNA from blood.</B><HR>"
dat += "<table cellspacing=5><tr><th>Name</th><th>DNA</th><th>Blood Type</th></tr>"
for(var/mob/living/carbon/human/H in mobs)
if(H.ckey)
dat += "<tr><td>[H]</td><td>[H.bioHolder.Uid]</td><td>[H.bioHolder.bloodType]</td></tr>"
sleep(-1)
dat += "</table>"
usr << browse(dat, "window=DNA;size=440x410")
if("fingerprints")
var/dat = "<B>Showing Fingerprints.</B><HR>"
dat += "<table cellspacing=5><tr><th>Name</th><th>Fingerprints</th></tr>"
for(var/mob/living/carbon/human/H in mobs)
if(H.ckey)
if(H.bioHolder.Uid)
dat += "<tr><td>[H]</td><td>[md5(H.bioHolder.Uid)]</td></tr>"
else if(!H.bioHolder.Uid)
dat += "<tr><td>[H]</td><td>H.bioHolder.Uid = null</td></tr>"
sleep(-1)
dat += "</table>"
usr << browse(dat, "window=fingerprints;size=440x410")
else
if (usr)
logTheThing("admin", usr, null, "used secret [href_list["secretsadmin"]]")
logTheThing("diary", usr, null, "used secret [href_list["secretsadmin"]]", "admin")
if (ok)
boutput(world, text("<B>A secret has been activated by []!</B>", usr.key))
return
else
alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)
if ("view_logs")
if (src.level >= LEVEL_MOD)
var/gettxt
var/logType = href_list["type"]
var/preSearch
if (href_list["presearch"])
preSearch = href_list["presearch"]
var/dat = "<table>"
if (findtext(logType, "string") && !preSearch)
gettxt = input("What are you searching for?","Log by String") as null|text
if (!gettxt) return
else if (preSearch)
gettxt = preSearch
logType = replacetext(logType, "_string", "")
logType = replacetext(logType, "_log", "")
var/prettyLogName = replacetext(logType, "_", " ")
if (prettyLogName == "alls") prettyLogName = "all"
var/foundCount = 0
if (logType == "alls")
for (var/log in logs)
var/list/logList = logs[log]
prettyLogName = replacetext(log, "_", " ")
var/searchData
var/found
for (var/l in logList)
if (findtext(l, gettxt, 1, null))
searchData += "<tr class='log'>[l]</tr>"
found = 1
foundCount++
if (found) dat += "<tr><td colspan='3' class='header [log]'>[prettyLogName] logs</td></tr>"
dat += searchData
else
var/list/logList = logs[logType]
dat += "<tr><td colspan='3' class='header [logType]'>[prettyLogName] logs</td></tr>"
if (!logList.len)
dat += "<tr><td colspan='3' class='log'>No results in [prettyLogName] logs.</td></tr>"
else
if (gettxt)
for (var/l in logList)
if (findtext(l, gettxt, 1, null))
dat += "<tr class='log'>[l]</tr>"
foundCount++
else
for (var/l in logList)
dat += "<tr class='log'>[l]</tr>"
foundCount++
dat += "</table>"
dat = "<tr><td colspan='3' class='header text-normal [logType]'><b>Logs</b>[gettxt ? " (Searched for '[gettxt]')" : ""]. Found <b>[foundCount]</b> results.</td></tr>" + dat
dat = replacetext(dat, "%admin_ref%", "\ref[src]")
var/adminLogHtml = grabResource("html/admin/admin_log.html")
adminLogHtml = replacetext(adminLogHtml, "<!-- TABLE GOES HERE -->", "[dat]")
usr << browse(adminLogHtml, "window=[logType]_log;size=750x500")
else
alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)
if ("view_logs_pathology_strain")
if (src.level >= LEVEL_MOD)
var/gettxt
if (href_list["presearch"])
gettxt = href_list["presearch"]
else
gettxt = input("Which pathogen tree?", "Pathogen tree") in pathogen_controller.pathogen_trees
var/logType = "pathology"
var/prettyLogName = logType
var/dat = "<table>"
var/foundCount = 0
var/list/logList = logs[logType]
dat += "<tr><td colspan='3' class='header [logType]'>[prettyLogName] logs</td></tr>"
if (!logList.len)
dat += "<tr><td colspan='3' class='log'>No results in [prettyLogName] logs.</td></tr>"
else
for (var/l in logList)
if (findtext(l, gettxt, 1, null))
dat += "<tr class='log'>[l]</tr>"
foundCount++
dat += "</table>"
dat = "<tr><td colspan='3' class='header text-normal [logType]'><b>Logs</b>[gettxt ? " (Searched for '[gettxt]')" : ""]. Found <b>[foundCount]</b> results.</td></tr>" + dat
dat = replacetext(dat, "%admin_ref%", "\ref[src]")
var/adminLogHtml = grabResource("html/admin/admin_log.html")
adminLogHtml = replacetext(adminLogHtml, "<!-- TABLE GOES HERE -->", "[dat]")
usr << browse(adminLogHtml, "window=[logType]_log;size=750x500")
if ("s_rez")
if (src.level >= LEVEL_SHITGUY)
switch(href_list["type"])
if("spawn_syndies")
var/datum/special_respawn/SR = new /datum/special_respawn/
var/amount = input(usr,"Amount to respawn:","Spawn Syndicates",3) as num
if(!amount) return
SR.spawn_syndies(amount)
logTheThing("admin", src, null, "has spawned [amount] syndicate operatives.")
logTheThing("diary", src, null, "has spawned [amount] syndicate operatives.", "admin")
if("spawn_normal")
var/datum/special_respawn/SR = new /datum/special_respawn/
var/amount = input(usr,"Amount to respawn:","Spawn Normal Players",3) as num
if(!amount) return
SR.spawn_normal(amount)
logTheThing("admin", src, null, "has spawned [amount] normal players.")
logTheThing("diary", src, null, "has spawned [amount] normal players.", "admin")
/* if("spawn_commandos")
var/datum/special_respawn/SR = new /datum/special_respawn/
SR.spawn_commandos(3)
if("spawn_turds")
var/datum/special_respawn/SR = new /datum/special_respawn/
var/amount = input(usr,"Amount to respawn:","Spawn TURDS",3) as num
if(!amount) return
SR.spawn_TURDS(amount)
logTheThing("admin", src, null, "has spawned [amount] TURDS.")
logTheThing("diary", src, null, "has spawned [amount] TURDS.", "admin")
if("spawn_smilingman")
var/datum/special_respawn/SR = new /datum/special_respawn/
SR.spawn_smilingman(1)
logTheThing("admin", src, null, "has spawned a Smiling Man.")
logTheThing("diary", src, null, "has spawned a Smiling Man.", "admin")
*/
if("spawn_custom")
var/datum/special_respawn/SR = new /datum/special_respawn
var/blType = input(usr, "Select a mob type", "Spawn Custom") as null|anything in typesof(/mob/living)
if(!blType) return
var/amount = input(usr, "Amount to respawn:", "Spawn Custom",3) as num
if(!amount) return
SR.spawn_custom(blType, amount)
logTheThing("admin", src, null, "has spawned [amount] mobs of type [blType].")
logTheThing("diary", src, null, "has spawned [amount] mobs of type [blType].", "admin")
if("spawn_wizards")
if("spawn_aliens")
else
else
alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)
if ("respawntarget")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
if (!M) return
var/mob/newM = usr.client.respawn_target(M)
href_list["target"] = "\ref[newM]"
else
alert ("You must be at least a Secondary Admin to respawn a target.")
if ("showrules")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.show_rules_to_player(M)
else
alert ("You must be at least a Secondary Admin to show rules to a player.")
if ("warn")
if (src.level >= LEVEL_SA)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.warn(M)
else
alert ("You must be at least a Secondary Admin to warn a player.")
if ("clownify")
if (src.level >= LEVEL_PA)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_clownify(M)
else
alert ("You must be at least a Primary Admin to clownify a player.")
if ("plainmsg")
if (src.level >= LEVEL_MOD)
var/mob/M = locate(href_list["target"])
if (!M) return
usr.client.cmd_admin_plain_message(M)
else
alert ("You must be at least a Moderator to plain message a player.")
if ("humanize")
if (src.level >= LEVEL_PA) // Moved from SG to PA (Convair880).
var/mob/M = locate(href_list["target"])
if (!M) return
var/mob/newM = usr.client.cmd_admin_humanize(M)
href_list["target"] = "\ref[newM]"
else
alert ("You must be at least a Primary Admin to humanize a player.")
//Wires bad hack part 2
sleep(5)
switch (originWindow)
if ("adminplayeropts")
if (href_list["targetckey"])
var/targetCkey = href_list["targetckey"]
for (var/mob/M in mobs) //The ref may have changed with our actions, find it again
if (M.ckey == targetCkey)
href_list["target"] = "\ref[M]"
continue
var/mob/target = locate(href_list["target"])
for (var/mob/M in mobs) //We can't even trust that the admin ref hasnt changed
if (adminCkey == M.ckey)
usr = M
continue
usr.client.holder.playeropt(target)
///////////////////////////////////////////////////////////////////////////////////////////////Panels
/datum/admins/proc/player()
var/dat = "<html><head><title>Player Menu</title></head>"
dat += "<body><table border=1 cellspacing=5><B><tr><th>Name</th><th>Real Name</th><th>Key</th><th>Options</th><th>PM</th><th>Traitor?</th><th>Computer ID</th><th>IP:</th><th>Joined:</th></tr></B>"
var/list/mobs = sortmobs()
for(var/mob/M in mobs)
if(M.ckey)
dat += "<tr><td>[M.name]</td>"
if(isAI(M))
dat += "<td>AI</td>"
else if(isrobot(M))
dat += "<td>Cyborg</td>"
else if(ishivebot(M))
dat += "<td>Robot</td>"
else if(ismainframe(M))
dat += "<td>Mainframe</td>"
else if(ismonkey(M))
dat += "<td>Monkey</td>"
else if(ishuman(M))
dat += "<td>[M.real_name]</td>"
else if(istype(M, /mob/new_player))
dat += "<td>New Player</td>"
else if(isobserver(M))
dat += "<td>Ghost</td>"
// else if(istype(M, /mob/living/carbon/alien))
// dat += "<td>Alien</td>"
else if(istype(M, /mob/living/carbon/wall))
dat += "<td>[M.real_name]</td>"
else
dat += "<td>ERROR</td>"
dat += {"<td>[(M.client ? "[M.client]" : "(NO CLIENT) [M.ckey]")]</td>
<td align=center><A HREF='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>X</A></td>
<td align=center><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>
<td align=center><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>[checktraitor(M) ? "<font color=red>" : "<font>"]Traitor?</font></A></td>
"}
dat += "<td align=center>[M.computer_id ? M.computer_id : "None"]</td>"
dat += "<td>[M.lastKnownIP]</td>"
dat += "<td>[M.client ? M.client.joined_date : "---"]</td></tr>"
sleep(-1)
dat += "</table></body></html>"
usr << browse(dat, "window=players;size=1035x480")
/datum/admins/proc/s_respawn()
var/dat = "<html><head><title>Respawn Panel</title></head>"
dat += {"
<BR>
<A href='?src=\ref[src];action=s_rez;type=spawn_normal'>Spawn normal players</A><BR>
<A href='?src=\ref[src];action=s_rez;type=spawn_syndies'>Spawn a Syndicate attack force</A><BR>
<A href='?src=\ref[src];action=s_rez;type=spawn_custom'>Spawn a custom mob type</A><BR>
"}
usr << browse(dat, "window=SRespawn")
// Someone else removed these but left the (non-functional) buttons. Move back inside the dat section and uncomment to re-add. - IM
// <A href='?src=\ref[src];action=s_rez;type=spawn_commandos'>Spawn a force of commandos</A><BR>
// <A href='?src=\ref[src];action=s_rez;type=spawn_turds'>Spawn a T.U.R.D.S. attack force</A><BR>
// <A href='?src=\ref[src];action=s_rez;type=spawn_smilingman'>Spawn a Smiling Man</A><BR>
/datum/admins/proc/buildjobbanspanel()
set background = 1
if (building_jobbans != 0)
boutput(usr, "Rebuild in progress, please try again later.")
return
if (alert("Fix a corrupted local panel or force a complete rebuild of the server's panel?","Select Rebuild Type","Local Fix","Server Rebuild") == "Local Fix")
var/jobban_dialog_text = replacetext(grabResource("html/admin/jobbans_list.html"), "null /* raw_bans */", "\"[global_jobban_cache]\"");
usr << browse(replacetext(jobban_dialog_text, "null /* ref_src */", "\"\ref[src]\""),"file=jobbans.html;display=0")
current_jobbans_rev = global_jobban_cache_rev
jobbans_last_cached = world.timeofday
boutput(usr, "Refresh complete, your panel now matches the server's. If you need to edit a ban that was created after the build time shown please do a server rebuild.")
else
boutput(usr, "Rebuilding server cache...")
building_jobbans = 1
var/buf = ""
jobban_count = 0
for(var/t in jobban_keylist) if (t)
jobban_count++
buf += text("[t];")
global_jobban_cache = buf
global_jobban_cache_rev++
global_jobban_cache_built = world.timeofday
building_jobbans = 0
boutput(usr, "Rebuild complete, everyone's job ban panel is now up to date with the latest job bans.")
/datum/admins/var/current_jobbans_rev = 0
/datum/admins/var/jobbans_last_cached = 0
/datum/admins/proc/Jobbans()
set background = 1
if (src.level >= LEVEL_CODER)
if (current_jobbans_rev == 0 || current_jobbans_rev < global_jobban_cache_rev) // the cache is newer than our panel
var/jobban_dialog_text = replacetext(grabResource("html/admin/jobbans_list.html"), "null /* raw_bans */", "\"[global_jobban_cache]\"");
usr << browse(replacetext(jobban_dialog_text, "null /* ref_src */", "\"\ref[src]\""),"file=jobbans.html;display=0")
current_jobbans_rev = global_jobban_cache_rev
jobbans_last_cached = world.timeofday
usr << browse("<html><head><title>Ban Management</title><style type=\"text/css\">body{font-size: 8pt; font-family: Verdana, sans-serif;}</style></head><body><iframe src=\"jobbans.html\"width=\"100%\" height=\"90%\"></iframe>[jobban_count] job bans. banlist built at [time2text(global_jobban_cache_built)] and downloaded at [time2text(jobbans_last_cached)]</body>", "window=jobbanp;size=400x800")
/datum/admins/proc/Game()
var/dat
dat += "<center><B>Game Panel</B></center><hr><br>"
if (src.level >= LEVEL_MOD)
dat += "<A href='?src=\ref[src];action=c_mode_panel'>Change Game Mode</A><br>"
dat += "<BR>"
if (src.level >= LEVEL_PA)
dat += "<A href='?src=\ref[src];action=create_object'>Create Object</A><br>"
dat += "<A href='?src=\ref[src];action=create_turf'>Create Turf</A><br>"
dat += "<A href='?src=\ref[src];action=create_mob'>Create Mob</A><br>" // Moved from SG to PA. They can do this through build mode anyway (Convair880).
usr << browse(dat, "window=admin2;size=210x180")
return
/datum/admins/proc/Secrets()
// ADMIN PANEL HTML IS HERE
var/dat = "<html><body><title>Admin Secrets Panel</title>"
var/shuttletext = " "
if(!emergency_shuttle) return // runtime error fix
if (emergency_shuttle.online)
switch(emergency_shuttle.location)
if(0)// centcom
if (emergency_shuttle.direction == 1)
shuttletext = "Coming to Station (ETA: [round(emergency_shuttle.timeleft()/60)])"
if (emergency_shuttle.direction == -1)
shuttletext = "Returning to Centcom (ETA: [round(emergency_shuttle.timeleft()/60)])"
if(1)// ss13
shuttletext = "Arrived at Station (ETD: [round(emergency_shuttle.timeleft()/60)])"
if(2)// evacuated
shuttletext = "Evacuated to Centcom"
else
shuttletext = "Unknown"
else
shuttletext = "Idle"
if (ticker)
if (ticker.current_state >= GAME_STATE_PLAYING)
dat += "<b>Game Info:</b> [ticker.mode.name] Mode, Timer at [round(world.time / 36000)]:[add_zero(world.time / 600 % 60, 2)]:[world.time / 100 % 6][world.time / 100 % 10]<br>"
if (emergency_shuttle.online)
dat += "<a href='?src=\ref[src];action=call_shuttle&type=2'><b>Shuttle Status:</b></a> <a href='?src=\ref[src];action=edit_shuttle_time'>[shuttletext]</a>"
else
dat += "<a href='?src=\ref[src];action=call_shuttle&type=1'><b>Shuttle Status:</b></a> <a href='?src=\ref[src];action=edit_shuttle_time'>[shuttletext]</a>"
else if (ticker.current_state == GAME_STATE_PREGAME)
dat += "<b>Game Info:</b> Game has not started yet.<br>"
dat += "<b>Force players to use random names:</b> <A href='?src=\ref[src];action=secretsfun;type=forcerandomnames'>[force_random_names ? "Yes" : "No"]</a><br>"
dat += "<b>Force players to use random appearances:</b> <A href='?src=\ref[src];action=secretsfun;type=forcerandomlooks'>[force_random_looks ? "Yes" : "No"]</a><br>"
//dat += "<A href='?src=\ref[src];action=secretsfun;type=forcerandomnames'>Politely suggest all players use random names</a>" // lol
dat += {"<br><br>
<u><B>Admin Tools:</B></u><BR>
<A href='?src=\ref[src];action=secretsadmin;type=check_antagonist'>Antagonists</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=jobcaps'>Job Controls</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=randomevents'>Random Event Controls</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=artifacts'>Artifact Controls</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=pathology'>CDC</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=motives'>Motive Control</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=unelectrify_all'>De-electrify all Airlocks</A><BR>
<A href='?src=\ref[src];action=secretsadmin;type=manifest'>Crew Manifest</A> *
<A href='?src=\ref[src];action=secretsadmin;type=DNA'>Blood DNA</A> *
<A href='?src=\ref[src];action=secretsadmin;type=fingerprints'>Fingerprints</A>
"}
if (src.level >= LEVEL_SHITGUY)
dat += {"<br><br>
<u><B>Coder Tools:</B></u><BR>
<B>Debug System:</b><br>
<A href='?src=\ref[src];action=secretsdebug;type=budget'>Wages/Money</A> *
<A href='?src=\ref[src];action=secretsdebug;type=market'>Shipping Market</A> *
<A href='?src=\ref[src];action=secretsdebug;type=genetics'>Genetics Research</A><br>
<A href='?src=\ref[src];action=secretsdebug;type=jobs'>Jobs</A> *
<A href='?src=\ref[src];action=secretsdebug;type=hydro'>Hydroponics</A> *
<A href='?src=\ref[src];action=secretsdebug;type=manuf'>Manufacturing</A> *
<A href='?src=\ref[src];action=secretsdebug;type=radio'>Communications</A> *
<A href='?src=\ref[src];action=secretsdebug;type=randevent'>Random Events</A> *
<A href='?src=\ref[src];action=secretsdebug;type=disease'>Diseases</A> *
<A href='?src=\ref[src];action=secretsdebug;type=mechanic'>Mechanics</A> *
<A href='?src=\ref[src];action=secretsdebug;type=artifact'>Artifacts</A> *
<A href='?src=\ref[src];action=secretsdebug;type=gauntlet'>Gauntlet</A> *
<A href='?src=\ref[src];action=secretsdebug;type=colosseum'>Colosseum</A> *
<A href='?src=\ref[src];action=secretsdebug;type=stock'>Stock Market</A> *
<A href='?src=\ref[src];action=secretsdebug;type=emshuttle'>Emergency Shuttle</A> *
<A href='?src=\ref[src];action=secretsdebug;type=overlays'>Overlays</A> <A href='?src=\ref[src];action=secretsdebug;type=overlaysrem'>(Remove)</A>
"}
dat += {"<br><br>
<u><B>Logs:</B></u><BR>
<A href='?src=\ref[src];action=view_logs;type=all_logs_string'>Search all Logs</A><BR>
<A href='?src=\ref[src];action=view_logs;type=speech_log'>Speech Log </A>
<A href='?src=\ref[src];action=view_logs;type=speech_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=combat_log'>Combat Log </A>
<A href='?src=\ref[src];action=view_logs;type=combat_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=ooc_log'>OOC Log </A>
<A href='?src=\ref[src];action=view_logs;type=ooc_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=station_log'>Station Log </A>
<A href='?src=\ref[src];action=view_logs;type=station_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=pdamsg_log'>PDA Message Log </A>
<A href='?src=\ref[src];action=view_logs;type=pdamsg_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=telepathy_log'>Telepathy Log </A>
<A href='?src=\ref[src];action=view_logs;type=telepathy_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=admin_log'>Admin Log</A>
<A href='?src=\ref[src];action=view_logs;type=admin_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=debug_log'>Debug Log</A>
<A href='?src=\ref[src];action=view_logs;type=debug_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=wire_debug_log'>Wire Debug Log</A><br>
<A href='?src=\ref[src];action=view_logs;type=admin_help_log'>Adminhelp Log</A>
<A href='?src=\ref[src];action=view_logs;type=admin_help_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=mentor_help_log'>Mentorhelp Log</A>
<A href='?src=\ref[src];action=view_logs;type=mentor_help_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=bombing_log'>Bombing Log</A>
<A href='?src=\ref[src];action=view_logs;type=bombing_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=signalers_log'>Signaler Log</A>
<A href='?src=\ref[src];action=view_logs;type=signalers_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=atmos_log'>Atmos Log</A>
<A href='?src=\ref[src];action=view_logs;type=atmos_log_string'><small>(Search)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=pathology_log'>Pathology Log</A>
<A href='?src=\ref[src];action=view_logs;type=pathology_log_string'><small>(Search)</small></A>
<A href='?src=\ref[src];action=view_logs_pathology_strain'><small>(Find pathogen)</small></A><BR>
<A href='?src=\ref[src];action=view_logs;type=vehicle_log'>Vehicle Log</A>
<A href='?src=\ref[src];action=view_logs;type=vehicle_log_string'><small>(Search)</small></A>
<br><br>
"}
// FUN SECRETS PANEL
if (src.level >= LEVEL_PA || (src.level == LEVEL_SA && usr.client.holder.state == 2))
dat += {"<u><B>Fun Secrets:</B></u><BR>
<b>Transformation:</b>
<A href='?src=\ref[src];action=secretsfun;type=transform_one'>One</A> *
<A href='?src=\ref[src];action=secretsfun;type=transform_all'>All</A><BR>
<b>Add Bio-Effect<A href='?src=\ref[src];action=secretsfun;type=bioeffect_help'>*</a>:</b>
<A href='?src=\ref[src];action=secretsfun;type=add_bioeffect_one'>One</A> *
<A href='?src=\ref[src];action=secretsfun;type=add_bioeffect_all'>All</A><BR>
<b>Remove Bio-Effect:</b>
<A href='?src=\ref[src];action=secretsfun;type=remove_bioeffect_one'>One</A> *
<A href='?src=\ref[src];action=secretsfun;type=remove_bioeffect_all'>All</A><BR>
<b>Add Reagent<A href='?src=\ref[src];action=secretsfun;type=reagent_help'>*</a>:</b>
<A href='?src=\ref[src];action=secretsfun;type=add_reagent_one'>One</A> *
<A href='?src=\ref[src];action=secretsfun;type=add_reagent_all'>All</A><BR>
<b>Remove Reagent:</b>
<A href='?src=\ref[src];action=secretsfun;type=remove_reagent_one'>One</A> *
<A href='?src=\ref[src];action=secretsfun;type=remove_reagent_all'>All</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=traitor_all'>Make everyone an Antagonist</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=retardify'>Give everyone severe brain damage</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=flipstation'>Set station direction</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=yeolde'>Replace all airlocks with doors</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=woodstation'>Replace all floors and walls with wood</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=raiseundead'>Raise all human corpses as undead</A><BR>
"}
if (src.level >= LEVEL_SHITGUY)
dat += {"<A href='?src=\ref[src];action=secretsfun;type=sawarms'>Give everyone saws for arms</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=emag_all_things'>Emag everything</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=noir'>Noir</A><BR>
<A href='?src=\ref[src];action=secretsfun;type=the_great_switcharoo'>The Great Switcharoo</A><BR>
"}
usr << browse(dat, "window=secrets")
return
/datum/admins/proc/Voting()
var/dat = "<center><B>Voting</B></center><hr><br>"
if (src.level >= LEVEL_MOD)
dat += {"
<A href='?src=\ref[src];action=votekill'>Abort Vote</A><br>
<A href='?src=\ref[src];action=vmode'>Start Vote</A><br>
<A href='?src=\ref[src];action=voteres'>Toggle Voting</A><br>
"}
usr << browse(dat, "window=admin2;size=210x160")
return
/////////////////////////////////////////////////////////////////////////////////////////////////admins2.dm merge
//i.e. buttons/verbs
//DICKSDONGS
/datum/admins/proc/vmode()
set category = "Special Verbs"
set name = "Start Vote"
set desc="Starts vote"
var/confirm = alert("What vote would you like to start?", "Vote", "Restart", "Change Game Mode", "Cancel")
if(confirm == "Cancel")
return
if(confirm == "Restart")
vote.mode = 0
// hack to yield 0=restart, 1=changemode
if(confirm == "Change Game Mode")
vote.mode = 1
if(!ticker)
if(going)
boutput(world, "<B>The game start has been delayed.</B>")
going = 0
vote.voting = 1
// now voting
vote.votetime = world.timeofday + config.vote_period*10
// when the vote will end
spawn(config.vote_period*10)
vote.endvote()
boutput(world, "<span style=\"color:red\"><B>*** A vote to [vote.mode?"change game mode":"restart"] has been initiated by Admin [usr.key].</B></span>")
boutput(world, "<span style=\"color:red\">You have [vote.timetext(config.vote_period)] to vote.</span>")
logTheThing("admin", usr, null, "forced a vote to [vote.mode?"change mode":"restart round"]")
logTheThing("diary", usr, null, "forced a vote to [vote.mode?"change mode":"restart round"]", "admin")
for(var/mob/CM in mobs)
if(CM.client)
if(config.vote_no_default || (config.vote_no_dead && CM.stat == 2))
CM.client.vote = "none"
else
CM.client.vote = "default"
/datum/admins/proc/votekill()
set category = "Special Verbs"
set name = "Abort Vote"
set desc="Aborts a vote"
//vote_manager.cancel_vote()
if(vote.voting == 0)
alert("No votes in progress")
return
boutput(world, "<span style=\"color:red\"><b>*** Voting aborted by [admin_key(usr.client, 1)].</b></span>")
logTheThing("admin", usr, null, "aborted vote")
logTheThing("diary", usr, null, "aborted vote", "admin")
vote.voting = 0
vote.nextvotetime = world.timeofday + 10*config.vote_delay
for(var/mob/M in mobs)
// clear vote window from all clients
if(M.client)
M << browse(null, "window=vote")
M.client.showvote = 0
/datum/admins/proc/restart()
set category = "Special Verbs"
set name = "Restart"
set desc= "Restarts the world"
var/confirm = alert("Restart the game world?", "Restart", "Yes", "Cancel")
if(confirm == "Cancel")
return
if(confirm == "Yes")
boutput(world, "<span style=\"color:red\"><b>Restarting world!</b></span> <span style=\"color:blue\">Initiated by [admin_key(usr.client, 1)]!</span>")
logTheThing("admin", usr, null, "initiated a reboot.")
logTheThing("diary", usr, null, "initiated a reboot.", "admin")
var/ircmsg[] = new()
ircmsg["key"] = usr.client.key
ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
ircmsg["msg"] = "manually restarted the server."
ircbot.export("admin", ircmsg)
round_end_data(2) //Wire: Export round end packet (manual restart)
sleep(30)
Reboot_server()
/datum/admins/proc/announce()
set category = "Special Verbs"
set name = "Announce"
set desc="Announce your desires to the world"
var/message = input("Global message to send:", "Admin Announce", null, null) as message
if (message)
if(usr.client.holder.rank != "Coder" && usr.client.holder.rank != "Host")
message = adminscrub(message,500)
boutput(world, "<span style=\"color:blue\"><b>[admin_key(usr.client, 1)] Announces:</b><br>&emsp; [message]</span>")
logTheThing("admin", usr, null, ": [message]")
logTheThing("diary", usr, null, ": [message]", "admin")
/datum/admins/proc/startnow()
set category = "Special Verbs"
set desc="Start the round RIGHT NOW"
set name="Start Now"
if(!ticker)
alert("Unable to start the game as it is not set up.")
return
if(ticker.current_state == GAME_STATE_PREGAME)
ticker.current_state = GAME_STATE_SETTING_UP
logTheThing("admin", usr, null, "has started the game.")
logTheThing("diary", usr, null, "has started the game.", "admin")
message_admins("<font color='blue'>[usr.key] has started the game.</font>")
return 1
else
alert("Game has already started you fucking jerk, stop spamming up the chat :ARGH:")
return 0
/datum/admins/proc/delay_start()
set category = "Special Verbs"
set desc="Delay the game start"
set name="Delay Round Start"
if (ticker.current_state != GAME_STATE_PREGAME)
return alert("Too late... The game has already started!", null, null, null, null, null)
game_start_delayed = !(game_start_delayed)
if (game_start_delayed)
boutput(world, "<b>The game start has been delayed.</b>")
logTheThing("admin", usr, null, "delayed the game start.")
logTheThing("diary", usr, null, "delayed the game start.", "admin")
message_admins("<font color='blue'>[usr.key] has delayed the game start.</font>")
else
boutput(world, "<b>The game will start soon.</b>")
logTheThing("admin", usr, null, "removed the game start delay.")
logTheThing("diary", usr, null, "removed the game start delay.", "admin")
message_admins("<font color='blue'>[usr.key] has removed the game start delay.</font>")
/datum/admins/proc/delay_end()
set category = "Special Verbs"
set desc="Delay the server restart"
set name="Delay Round End"
if (game_end_delayed == 2)
logTheThing("admin", usr, null, "removed the restart delay and triggered an immediate restart.")
logTheThing("diary", usr, null, "removed the restart delay and triggered an immediate restart.", "admin")
message_admins("<font color='blue'>[usr.key] removed the restart delay and triggered an immediate restart.</font>")
Reboot_server()
else if (game_end_delayed == 0)
game_end_delayed = 1
game_end_delayer = usr.key
logTheThing("admin", usr, null, "delayed the server restart.")
logTheThing("diary", usr, null, "delayed the server restart.", "admin")
message_admins("<font color='blue'>[usr.key] delayed the server restart.</font>")
var/ircmsg[] = new()
ircmsg["key"] = (usr && usr.client) ? usr.client.key : "NULL"
ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
ircmsg["msg"] = "has delayed the server restart."
ircbot.export("admin", ircmsg)
else if (game_end_delayed == 1)
game_end_delayed = 0
game_end_delayer = null
logTheThing("admin", usr, null, "removed the restart delay.")
logTheThing("diary", usr, null, "removed the restart delay.", "admin")
message_admins("<font color='blue'>[usr.key] removed the restart delay.</font>")
var/ircmsg[] = new()
ircmsg["key"] = (usr && usr.client) ? usr.client.key : "NULL"
ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
ircmsg["msg"] = "has removed the server restart delay."
ircbot.export("admin", ircmsg)
/mob/proc/revive()
if(ishuman(src))
var/mob/living/carbon/human/H = src
H.full_heal()
H.remove_ailments() // don't spawn with heart failure
return
////////////////////////////////////////////////////////////////////////////////////////////////ADMIN HELPER PROCS
/proc/checktraitor(mob/M as mob)
set popup_menu = 0
if(!M || !M.mind || !ticker || !ticker.mode)
return 0
if (M.mind && M.mind.special_role == "traitor")
return 1
if (istype(ticker.mode, /datum/game_mode/revolution))
if(M.mind in (ticker.mode:head_revolutionaries + ticker.mode:revolutionaries))
return 1
else if (istype(ticker.mode, /datum/game_mode/nuclear))
if(M.mind in ticker.mode:syndicates)
return 1
else if (istype(ticker.mode, /datum/game_mode/spy))
if(M.mind in (ticker.mode:leaders + ticker.mode:spies))
return 1
else if (istype(ticker.mode, /datum/game_mode/gang))
if(M.mind in (ticker.mode:leaders))
return 1
for(var/datum/gang/G in ticker.mode:gangs)
if(M in G.members)
return 1
if(M.mind in ticker.mode:traitors)
return 1
if(M.mind in ticker.mode:Agimmicks)
return 1
return 0
/datum/admins/proc/evilize(mob/M as mob, var/traitor_type, var/special = null, var/mass_traitor_obj = null, var/mass_traitor_esc = null)
if (!M || !traitor_type)
boutput(usr, "<span style=\"color:red\">No mob or traitor type specified.</span>")
return
if (!src.level >= LEVEL_SA)
boutput(usr, "<span style=\"color:red\">You need to be a Secondary Administrator or above to use this command.</span>")
return
if(M.stat == 2 || istype(M,/mob/dead/))
boutput(usr, "<span style=\"color:red\">You cannot make someone who is dead an antagonist.</span>")
return
if (istype(M,/mob/new_player/))
boutput(usr, "<span style=\"color:red\">You cannot make someone who has not entered the game an antagonist.</span>")
return
if (!M.client)
boutput(usr, "<span style=\"color:red\">You cannot make someone who is logged out an antagonist.</span>")
return
if(checktraitor(M))
boutput(usr, "<span style=\"color:red\">That person is already an antagonist.</span>")
return
if(!(ticker && ticker.mode && istype(ticker.mode, /datum/game_mode/gang)) && traitor_type == "gang leader")
boutput(usr, "<span style=\"color:red\">Gang Leaders are currently restricted to gang mode only.</span>")
return
traitor_type = lowertext(traitor_type)
special = lowertext(special)
if(mass_traitor_obj)
var/datum/objective/custom_objective = new /datum/objective(mass_traitor_obj)
custom_objective.owner = M.mind
M.mind.objectives += custom_objective
if(mass_traitor_esc)
var/datum/objective/escape/escape_objective = new mass_traitor_esc
escape_objective.owner = M.mind
M.mind.objectives += escape_objective
else
var/list/eligible_objectives = list()
if (ishuman(M) || iscritter(M))
eligible_objectives = typesof(/datum/objective/regular/) + typesof(/datum/objective/escape/)
else if (issilicon(M))
eligible_objectives = list(/datum/objective/regular,/datum/objective/regular/assassinate,
/datum/objective/regular/force_evac_time,/datum/objective/regular/gimmick,/datum/objective/escape,/datum/objective/escape/hijack,
/datum/objective/escape/survive,/datum/objective/escape/kamikaze)
if (istype(M,/mob/living/silicon/robot/))
eligible_objectives += /datum/objective/regular/borgdeath
traitor_type = "traitor"
switch(traitor_type)
if ("changeling")
eligible_objectives += /datum/objective/specialist/absorb
if ("werewolf")
eligible_objectives += /datum/objective/specialist/werewolf/feed
if ("vampire")
eligible_objectives += /datum/objective/specialist/drinkblood
if ("predator")
eligible_objectives += /datum/objective/specialist/predator/trophy
if ("grinch")
eligible_objectives += /datum/objective/specialist/ruin_xmas
if ("gang leader")
var/datum/objective/gangObjective = new /datum/objective/specialist/gang( )
gangObjective.owner = M.mind
M.mind.objectives += gangObjective
var/done = 0
var/select_objective = null
var/datum/objective/new_objective = null
var/custom_text = "Go hog wild!"
while (done != 1)
select_objective = input(usr, "Add a new objective. Hit cancel when finished adding.", "Traitor Objectives") as null|anything in eligible_objectives
if (!select_objective)
done = 1
break
if (select_objective == /datum/objective/regular)
custom_text = input(usr,"Enter custom objective text.","Traitor Objectives","Go hog wild!") as null|text
if (custom_text)
new_objective = new select_objective(custom_text)
new_objective.owner = M.mind
new_objective.set_up()
M.mind.objectives += new_objective
else
boutput(usr, "<span style=\"color:red\">No text was entered. Objective not given.</span>")
else
new_objective = new select_objective
new_objective.owner = M.mind
new_objective.set_up()
M.mind.objectives += new_objective
if (M.mind.objectives.len < 1)
boutput(usr, "<span style=\"color:red\">Not enough objectives specified.</span>")
return
if (isAI(M))
var/mob/living/silicon/ai/A = M
A.syndicate = 1
A.syndicate_possible = 1
A.handle_robot_antagonist_status("admin", 0, usr)
else if (isrobot(M))
var/mob/living/silicon/robot/R = M
if (R.dependent)
boutput(usr, "<span style=\"color:red\">You can't evilize AI-controlled shells.</span>")
return
R.syndicate = 1
R.syndicate_possible = 1
R.handle_robot_antagonist_status("admin", 0, usr)
else if (ishuman(M) || iscritter(M))
switch(traitor_type)
if("traitor")
M.show_text("<h2><font color=red><B>You have defected and become a traitor!</B></font></h2>", "red")
if(special != "hardmode")
M.mind.special_role = "traitor"
M.verbs += /client/proc/gearspawn_traitor
M << browse(grabResource("html/traitorTips/traitorradiouplinkTips.html"),"window=antagTips;titlebar=1;size=600x400;can_minimize=0;can_resize=0")
else
M.mind.special_role = "hard-mode traitor"
M << browse(grabResource("html/traitorTips/traitorhardTips.html"),"window=antagTips;titlebar=1;size=600x400;can_minimize=0;can_resize=0")
if("changeling")
M.mind.special_role = "changeling"
M.show_text("<h2><font color=red><B>You have mutated into a changeling!</B></font></h2>", "red")
M.make_changeling()
if("wizard")
M.mind.special_role = "wizard"
M.show_text("<h2><font color=red><B>You have been seduced by magic and become a wizard!</B></font></h2>", "red")
M << browse(grabResource("html/traitorTips/wizardcustomTips.html"),"window=antagTips;titlebar=1;size=600x400;can_minimize=0;can_resize=0")
M.verbs += /client/proc/gearspawn_wizard
if("vampire")
M.mind.special_role = "vampire"
M.show_text("<h2><font color=red><B>You have joined the ranks of the undead and are now a vampire!</B></font></h2>", "red")
M.make_vampire()
if("predator")
M.mind.special_role = "predator"
M.mind.assigned_role = "Predator"
M.show_text("<h2><font color=red><B>You have become a predator!</B></font></h2>", "red")
M.make_predator()
if("wrestler")
M.mind.special_role = "wrestler"
M.show_text("<h2><font color=red><B>You feel an urgent need to wrestle!</B></font></h2>", "red")
M.make_wrestler(1)
if("werewolf")
M.mind.special_role = "werewolf"
M.show_text("<h2><font color=red><B>You have become a werewolf!</B></font></h2>", "red")
M.make_werewolf()
if("grinch")
M.mind.special_role = "grinch"
M.make_grinch()
M.show_text("<h2><font color=red><B>You have become a grinch!</B></font></h2>", "red")
if("gang leader")
boutput(M, "<h1><font color=red>You are the leader of the [M.mind.gang.gang_name] gang!</font></h1>")
boutput(M, "<span style=\"color:red\">You must recruit people to your cause and fight other gangs!</span>")
boutput(M, "<span style=\"color:red\">Don't kill civilians unless you have to. Convince them to join you instead!</span>")
boutput(M, "<span style=\"color:red\">You can use the Set Gang Base command once which will make your current area into your gang's base and spawn a locker full of equipment.</span>")
boutput(M, "<span style=\"color:red\">People can join your gang by right clicking your locker and selecting Join Gang.</span>")
boutput(M, "<span style=\"color:red\">Your objective is simple: <b>Kill the opposing gang leaders</b>.</span>")
M.verbs += /client/proc/gearspawn_gang
alert(M, "Use the Set Gang Base verb to claim a home turf and start recruiting people!", "You are a gang leader!")
if("omnitraitor")
M.mind.special_role = "omnitraitor"
M.verbs += /client/proc/gearspawn_traitor
M.verbs += /client/proc/gearspawn_wizard
M.make_changeling()
M.make_vampire()
M.make_werewolf()
M.make_wrestler(1)
M.make_grinch()
M.show_text("<h2><font color=red><B>You have become an omnitraitor!</B></font></h2>", "red")
M << browse(grabResource("html/traitorTips/omniTips.html"),"window=antagTips;titlebar=1;size=600x400;can_minimize=0;can_resize=0")
else
M.show_text("<h2><font color=red><B>You have become evil and are now an antagonist!</B></font></h2>", "red")
if (!(M.mind in ticker.mode.Agimmicks))
ticker.mode.Agimmicks += M.mind
if (M.mind.current)
M.mind.current.antagonist_overlay_refresh(1, 0)
var/obj_count = 1
for(var/datum/objective/OBJ in M.mind.objectives)
boutput(M, "<B>Objective #[obj_count]</B>: [OBJ.explanation_text]")
obj_count++
//to stop spamming during traitor all secret
if(!mass_traitor_obj)
logTheThing("admin", usr, M, "made %target% a[special ? " [special]" : ""] [traitor_type].")
logTheThing("diary", usr, M, "made %target% a[special ? " [special]" : ""] [traitor_type].", "admin")
message_admins("<span style=\"color:blue\">[key_name(usr)] has made [key_name(M)] a[special ? " [special]" : ""] [traitor_type].</span>")
return
/datum/admins/proc/get_item_desc(var/target)
switch (target)
if (1)
return "a fully loaded laser gun"
if (2)
return "a hand teleporter"
if (3)
return "a fully armed and heated plasma bomb"
if (4)
return "a jet pack"
if (5)
return "an ID card with universal access"
if (6)
return "a captain's dark green jumpsuit"
else
return "Error: Invalid theft target: [target]"
/proc/get_matches_string(var/text, var/list/possibles)
var/list/matches = new()
for (var/possible in possibles)
if (findtext(possible, text))
matches += possible
return matches
/proc/get_one_match_string(var/text, var/list/possibles)
var/list/matches = get_matches_string(text, possibles)
if (matches.len == 0)
return null
var/chosen
if (matches.len == 1)
chosen = matches[1]
else
chosen = input("Select a match", "matches for pattern", null) as null|anything in matches
if (!chosen)
return null
return chosen
/proc/get_matches(var/object, var/base = /atom)
var/list/types = typesof(base)
var/list/matches = new()
for(var/path in types)
if(findtext("[path]", object))
matches += path
return matches
/proc/get_one_match(var/object, var/base = /atom)
var/list/matches = get_matches(object, base)
if(matches.len==0)
return null
var/chosen
if(matches.len==1)
chosen = matches[1]
else
var/safe_matches = matches - list(/database, /client, /icon, /sound, /savefile)
chosen = input("Select an atom type", "Matches for pattern", null) as null|anything in safe_matches
if(!chosen)
return null
return chosen
/datum/admins/proc/spawn_atom(var/object as text)
set category = "Special Verbs"
set desc="(atom path) Spawn an atom"
set name="Spawn"
if (usr.client.holder.level >= LEVEL_CODER)
var/chosen = get_one_match(object)
if (chosen)
new chosen(usr.loc)
logTheThing("admin", usr, null, "spawned [chosen] at ([showCoords(usr.x, usr.y, usr.z)])")
logTheThing("diary", usr, null, "spawned [chosen] at ([showCoords(usr.x, usr.y, usr.z, 1)])", "admin")
else
alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)
return
/client/proc/respawn_target(mob/M as mob in world)
set name = "Respawn Target"
set category = null
set desc = "Respawn a mob"
set popup_menu = 0
if (!M) return
if (alert(src, "Respawn [M]?", "Confirmation", "Yes", "No") != "Yes")
return
logTheThing("admin", src, M, "respawned %target%")
logTheThing("diary", src, M, "respawned %target%.", "admin")
message_admins("[key_name(src)] respawned [key_name(M)].")
var/mob/new_player/newM = new()
newM.adminspawned = 1
newM.key = M.key
if (M.mind)
M.mind.transfer_to(newM)
newM.Login()
newM.sight = SEE_TURFS //otherwise the HUD remains in the login screen
qdel(M)
boutput(newM, "<b>You have been respawned.</b>")
return newM
/client/proc/respawn_self()
set name = "Respawn Self"
set category = "Special Verbs"
set desc = "Respawn yourself"
if(!isobserver(usr))
boutput(usr, "You can't respawn unless you're dead!")
return
logTheThing("admin", src, null, "respawned themselves.")
logTheThing("diary", src, null, "respawned themselves.", "admin")
message_admins("[key_name(src)] respawned themselves.")
var/mob/new_player/M = new()
M.key = usr.client.key
M.Login()
/client/proc/smnoclip()
set name = "Planar Shift"
set category = "Smiling Man Powers"
set desc = "Shift planes to toggle moving through walls and objects."
if(!istype(usr, /mob/living))
return
usr.client.flying = !usr.client.flying
boutput(usr, "You are [usr.client.flying ? "now" : "no longer"] flying through matter.")
/client/Move(NewLoc, direct)
if(usr.client.flying)
if(!isturf(usr.loc))
usr.set_loc(get_turf(usr))
if(NewLoc)
usr.set_loc(NewLoc)
src.mob.dir = direct
return
if((direct & NORTH) && usr.y < world.maxy)
usr.y++
if((direct & SOUTH) && usr.y > 1)
usr.y--
if((direct & EAST) && usr.x < world.maxx)
usr.x++
if((direct & WEST) && usr.x > 1)
usr.x--
src.mob.dir = direct
else
..()
/*
/mob/living/carbon/proc/cloak()
//Buggy as heck because of the way updating clothing works (it clears all invisibility variables and sets them based on if you have a cloaking device on or not)
//It also clears overlays so the overlay will dissapear and bluh, I don't want to add another variable sooo this is what you get I guess.
//If the overlay dissapears you lose the cloaking too, so just retype cloak-self and it should work again
//If you don't lay down or force yourself to update clothing via fire or whatever it should be good enough to use for the purpose of spying on shitlords I guess.
set name = "Cloak self"
set category = "Special Verbs"
set desc = "Make yourself invisible!"
if (!iscarbon(usr))
boutput(usr, "Sorry, you have to be alive!")
return
if(!(usr.invisibility == 100))
boutput(usr, "You are now cloaked")
usr.set_clothing_icon_dirty()
usr.overlays += image("icon" = 'icons/mob/mob.dmi', "icon_state" = "shield")
usr.invisibility = 100
else
boutput(usr, "You are no longer cloaked")
usr.set_clothing_icon_dirty()
usr.invisibility = 0
*/
//
//
//ALL DONE
//*********************************************************************************************************
//
//
Reference in New Issue View Git Blame Copy Permalink