@verb #5335:"@rmhook" any at/to this rdo #60
@program #5335:"@rmhook" any at/to this
target = $code_utils:parse_verbref(dobjstr)
target[1] = player:my_match_object(target[1], player.location)
if (verb[2..4] == "add")
  this.hooks = {@this.hooks, target}
  player:tell("Added hook ", tostr(target[1]), ":", target[2], "().")
else
  r = this.hooks
  this.hooks = setremove(this.hooks, target)
  if (r != this.hooks)
    player:tell("Removed hook ", tostr(target[1]), ":", target[2], "().")
  else
    player:tell("Could not find hook ", tostr(target[1]), ":", target[2], "().")
  endif
endif
.