@verb #8084:"do_command" this none this rxdo #8084
@program #8084:"do_command" this none this
if (!$perm_utils:is_called_from($login, "do_command") || !caller_perms():controls(this))
  return 0
endif
if (index(argstr, "%{"))
  regexp = "%(%%{.+}%%%)"
  val = match(argstr, regexp)
  if (val)
    for x in (val[3])
      if (string = argstr[x[1] + 2..x[2] - 2])
        retval = `this:("_say_" + $su:words(string)[1])(@`$su:words(string)[2..$] ! E_RANGE => {}') ! ANY => string'
        argstr[x[1]..x[2]] = retval
        return argstr
        "        force_input(this, argstr);"
        "        return 1;"
      endif
    endfor
  endif
endif
"argstr = $su:lowercase(argstr);"
"argstr = strsub(argstr, \"w\", \"W\", 1);"
"argstr = strsub(argstr, \"q\", \"Q\", 1);"
"argstr = strsub(argstr, \"p\", \"P\", 1);"
return pass(@args)
"Last modified by Dax (#789) on Thu May  5 15:46:03 2005 MDT."
.