usr this

---

mob
verb
stuff
Edit(obj/O as obj|mob|turf|area in view())
set category = "Admin"
set name = "Edit"
set desc="(target) Edit a target item's variables"

var/variable = input("Which var?","Var") in O.vars
var/default
var/typeof = O.vars[variable]
var/dir

if(isnull(typeof))
usr << "Unable to determine variable type."

else if(isnum(typeof))
usr << "Variable appears to be NUM."
default = "num"
dir = 1

else if(istext(typeof))
usr << "Variable appears to be TEXT."
default = "text"

else if(isloc(typeof))
usr << "Variable appears to be REFERENCE."
default = "reference"

else if(isicon(typeof))
usr << "Variable appears to be ICON."
typeof = "\icon[typeof]"
default = "icon"

else if(istype(typeof,/atom) || istype(typeof,/datum))
usr << "Variable appears to be TYPE."
default = "type"

else if(istype(typeof,/list))
usr << "Variable appears to be LIST."
usr << "*** Warning! Lists are uneditable in s_admin! ***"
default = "cancel"

else if(istype(typeof,/client))
usr << "Variable appears to be CLIENT."
usr << "*** Warning! Clients are uneditable in s_admin! ***"
default = "cancel"

else
usr << "Variable appears to be FILE."
default = "file"

usr << "Variable contains: [typeof]"
if(dir)
switch(typeof)
if(1)
dir = "NORTH"
if(2)
dir = "SOUTH"
if(4)
dir = "EAST"
if(8)
dir = "WEST"
if(5)
dir = "NORTHEAST"
if(6)
dir = "SOUTHEAST"
if(9)
dir = "NORTHWEST"
if(10)
dir = "SOUTHWEST"
else
dir = null
if(dir)
usr << "If a direction, direction is: [dir]"

var/class = input("What kind of variable?","Variable Type",default) in list("text",
"num","type","reference","icon","file","restore to default","cancel")

switch(class)
if("cancel")
return

if("restore to default")
O.vars[variable] = initial(O.vars[variable])

if("text")
O.vars[variable] = input("Enter new text:","Text",\
O.vars[variable]) as text

if("num")
O.vars[variable] = input("Enter new number:","Num",\
O.vars[variable]) as num

if("type")
O.vars[variable] = input("Enter type:","Type",O.vars[variable]) \
in typesof(/obj,/mob,/area,/turf)

if("reference")
O.vars[variable] = input("Select reference:","Reference",\
O.vars[variable]) as mob|obj|turf|area in world

if("file")
O.vars[variable] = input("Pick file:","File",O.vars[variable]) \
as file

if("icon")
O.vars[variable] = input("Pick icon:","Icon",O.vars[variable]) \
as icon

---

then minmize it.
- RaeKwon