Files
CHOMPStation2/code/modules/admin/verbs/admin_ch.dm
Kashargul e28fa96705 Tg panel patch 2 (#8085)
Co-authored-by: Cadyn Bombaci <cadynspacetechguy@gmail.com>
2024-05-15 13:42:13 +02:00

36 lines
1.2 KiB
Plaintext

/client/proc/admin_teleport()
set name = "Admin teleport"
set category = "Admin.Game"
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