Admin teleport verb addition

This commit is contained in:
Cadyn
2020-10-28 02:28:19 -07:00
parent 2fde2bba09
commit dd7f3555d0
3 changed files with 38 additions and 0 deletions

View File

@@ -109,6 +109,7 @@ var/list/admin_verbs_admin = list(
/datum/admins/proc/sendFax,
/client/proc/despawn_player,
/datum/admins/proc/view_feedback,
/client/proc/admin_teleport, //CHOMPEdit
/client/proc/setckey //YW add - readds SetCkey proc
)
@@ -360,6 +361,7 @@ var/list/admin_verbs_mod = list(
/datum/admins/proc/view_txt_log, //shows the server log (diary) for today,
/datum/admins/proc/quick_nif, //CHOMPEdit
/datum/admins/proc/quick_authentic_nif, //CHOMPEdit
/client/proc/admin_teleport, //CHOMPEdit
/datum/admins/proc/view_atk_log //shows the server combat-log, doesn't do anything presently,
)

View File

@@ -0,0 +1,35 @@
/client/proc/admin_teleport()
set name = "Admin teleport"
set category = "Admin"
set desc = "Teleports an atom to a set of coordinates or to the contents of another atom"
var/list/value = vv_get_value(VV_ATOM_REFERENCE)
if(!value["class"] || !value["value"])
return
var/atom/target = value["value"]
var/atom/destination
switch(alert("Would you like to teleport to a set of a coordinates, or to an atom?",,"coordinates","atom"))
if("coordinates")
var/list/inputlist = text2numlist(sanitize(input(usr,"Please input the coordinates, seperated by commas")),",")
var/list/coords = list()
for(var/content in inputlist)
if(content != null)
coords += content
if(coords.len>3)
alert("You entered too many coordinates! Only 3 are required.")
return
if(coords.len<3)
alert("You didn't enter enough coordinates! 3 are required.")
return
destination = locate(coords[1],coords[2],coords[3])
if(!destination)
alert("Invalid coordinates!")
return
if("atom")
value = vv_get_value(VV_ATOM_REFERENCE)
if(!value["class"] || !value["value"])
return
destination = value["value"]
new /datum/teleport/instant/admin(target,destination)
/datum/teleport/instant/admin
local=FALSE

View File

@@ -1702,6 +1702,7 @@
#include "code\modules\admin\secrets\random_events\gravity_vr.dm"
#include "code\modules\admin\secrets\random_events\trigger_cordical_borer_infestation.dm"
#include "code\modules\admin\secrets\random_events\trigger_xenomorph_infestation.dm"
#include "code\modules\admin\verbs\admin_ch.dm"
#include "code\modules\admin\verbs\adminhelp.dm"
#include "code\modules\admin\verbs\adminhelp_vr.dm"
#include "code\modules\admin\verbs\adminjump.dm"