362
@verb #1112:"@convert" any any any rxdo #7788
@program #1112:"@convert" any any any
if (!argstr)
  player:tell("Please use the syntax '@convert <#> <units> to <units>'. Here is a list of useable units:")
  this:list_units()
  return
endif
args[2] = args[2..(prepstr in args) - 1]
args[2] = $su:From_list(args[2], " ")
args[2] = this:Deplural(args[2])
iobjstr = this:deplural(iobjstr)
player:Tell("Converting..")
x = `this:convert(tofloat(args[1]), args[2], iobjstr) ! ANY => "Conversion undoable with specified parameters."'
if (typeof(x) == $STR)
  player:Tell(x)
else
  player:tell(tofloat(args[1]), " ", tofloat(args[1]) != 1.0 ? this:plural(args[2]) | args[2], " ", tofloat(args[1]) != 1.0 ? "are" | "is", " equal to ", x, " ", x != 1.0 ? this:plural(iobjstr) | iobjstr)
endif
"Last modified by Dax (#789) on Tue May  3 13:43:08 2005 MDT."
.

0