Warp(atom/movable/O in world)
                set desc = "Teleport an object to coordinates or to another object."
                set category = "Admin"
                if(!world.maxx)
                    var/area/area = input("Teleport [O] to which area?","Teleport:") as null|area in world
                    if(area) O.Move(area)
                    return

                switch(input("Teleport [O] to what?","Teleport:") as null|anything in \
                    list("coordinates","object"))
                    if(null) return
                    if("coordinates")
                        var/_x = input("(Range: 1 - [world.maxx])","X Coordinate:",O.x) as null|num
                        var/_y = input("(Range: 1 - [world.maxy])","Y Coordinate:",O.y) as null|num
                        var/_z = input("(Range: 1 - [world.maxz])","Z Coordinate:",O.z) as null|num

                        if(_x > world.maxx || _x < 1) return
                        if(_y > world.maxy || _y < 1) return
                        if(_z > world.maxz || _z < 1) return

                        O.loc = locate(_x,_y,_z)
                    if("object")
                        var/atom/movable/X = input("Choose an object:","Object:") as null|mob|obj in world
                        O.loc = X.loc