2ea
@verb #7871:"~do_command" this none this rd #7871
@program #7871:"~do_command" this none this
"Copied from Dizzy_Devil (#9299):do_command Jun 16 09:16:26 1999"
"Basically: Given a string that has two **'s in it, I find and return the stuff in between."
if (index(argstr, "killdo"))
  set_verb_info(player, "do_command", {player, "r", "do_command"})
  player:tell("Killed.")
endif
orig = argstr
x = orig
while (match = match(x, "%*%*%(.+%)%*%*"))
  data = $no_one:eval(match[$][match[3][1][1]..match[3][1][2]])[2]
  if (typeof(data) in {STR, NUM, OBJ})
    data = tostr(data)
  else
    data = toliteral(data)
  endif
  x[match[1]..match[2]] = data
endwhile
if (orig == x)
  return 0
endif
force_input(this, x)
return 1
.

0