48a
@verb #1112:"@add-unit" none at/to this rdo #7788
@program #1112:"@add-unit" none at/to this
player != this.owner && raise(E_PERM)
z = {}
for x in (this.units)
  z = {@z, x[1]}
endfor
player:tell($su:columnize(z, 3))
type = $cmd_utils:Read("type")
if (!type in z)
  return player:tell("Invalid Type.")
endif
name = $cmd_utils:read("unplural name of unit")
to = $cmd_utils:read("formula for conversion to (Metres, Square metres, cubic metres, Centigrade, days, feet / second, or joules)")
from = $cmd_utils:Read("Opposite above")
if (!$cmd_utils:yes_or_no("Proceed?"))
  return
endif
this.units[type in z][2] = setadd(this.units[type in z][2], name)
q = type in z
if (q == 1)
  c = "metres"
elseif (q == 2)
  c = "metres2"
elseif (q == 3)
  c = "metres3"
elseif (q == 4)
  c = "grams"
elseif (q == 5)
  c = "centi"
elseif (q == 6)
  c = "days"
elseif (q == 7)
  c = "fps"
elseif (q == 8)
  c = "joule"
else
  raise(E_INVARG)
endif
this.("to_" + c) = setadd(this.("to_" + c), to)
this.("from_" + c) = setadd(this.("from_" + c), from)
player:TEll("Done.")
"Last modified by Dax (#789) on Tue May 12 00:24:21 1998 EDT."
.

0