@verb #2570:"@ctrl-write:*" any none none rdo #2570
@program #2570:"@ctrl-write:*" any none none
if (player != this)
  return
endif
sid = toint(verb[13..$])
if (!(i = sid in this.sids))
  return
endif
text = this.buffers[i]
this.buffers[i..i] = {}
this.sids[i..i] = {}
if (!(i = index(dobjstr, ":")))
  errors = {"Invalid verb spec: " + dobjstr}
else
  objstr = dobjstr[1..i - 1]
  verbstr = dobjstr[i + 1..$]
  if (!valid(o = this:my_match_object(objstr)))
    errors = {"Invalid object: " + objstr}
  else
    errors = `set_verb_code(o, verbstr, text) ! ANY'
    if (typeof(errors) != $LIST)
      errors = {dobjstr + ":" + tostr(errors)}
    endif
  endif
endif
prefix = "*** ctrl:" + tostr(sid) + " "
if (errors)
  for e in (errors)
    player:tell(prefix, e)
  endfor
else
  player:tell(prefix, "/* ", value_hash(verb_code(o, verbstr)), " */")
endif
player:tell(prefix, ".")
"Last modified by Dax (#789) on Wed May  4 06:46:02 2005 MDT."
.