@verb #14:"@debug" any at/to any rdo #8084
@program #14:"@debug" any at/to any
set_task_perms(player)
{objstr, debug} = $code_utils:parse_verbref(dobjstr)
if ($command_utils:object_match_failed(object = player:my_match_object(objstr), objstr))
  return
elseif (!player.programmer)
  return this:_prog_disclaimer("@debug")
elseif (!object:has_verb(debug))
  return player:tell("That object does not define that verb.")
elseif (!player:controls_verb(object, debug))
  return player:tell("You don't control that verb.")
elseif (player != this)
  return $msg:mtell("huh")
elseif (!(line = toint(iobjstr)))
  return player:tell("Syntax: @debug <object>:<verb> at <line number>.")
elseif (line > length(verb_code(object, debug)))
  return player:tell("Line out of verb code.")
endif
"Generate the code that needs to be inserted."
code = tostr("($perm_utils:task_perms()):tellcolumns({1, 10}, {\"Variable\", \"Value\"}")
for variable in ({@$code_utils:variable_list(object, debug), "$perm_utils:task_perms()"})
  code = tostr(code, ", {\"", variable, "\", toliteral(`", variable, " ! E_VARNF => \"Variable not defined at this time.\"')}")
endfor
code = tostr(code, ");")
oldcode = verb_code(object, debug)
set_verb_code(object, debug, {@oldcode[1..line - 1], code, @oldcode[line..$]})
player:tell("Variable debug code inserted.")
"Last modified by Dax (#789) on Tue May  3 14:09:29 2005 MDT."
.