@verb #8084:"x-dump" any on top of/on/onto/upon any rdo #8084
@program #8084:"x-dump" any on top of/on/onto/upon any
if (player != this || !(iobj in {#235, #2989, #6984}))
  return $msg:mtell("huh")
endif
start = length(iobj.log)
end = 1
if (m = match(dobjstr, "%([0-9]+%)%.%.%([0-9]+%|$%)"))
  start = length(iobj.log) - toint(dobjstr[m[3][1][1]..m[3][1][2]])
  if (dobjstr[m[3][2][1]..m[3][2][2]] == "$")
    end = 1
  else
    end = length(iobj.log) - toint(dobjstr[m[3][2][1]..m[3][2][2]])
  endif
endif
player:tell("From ", start, " to ", end, " of ", iobj, ".log:")
player:tell($su:spacE(50, "-"))
while (start >= end)
  ct = ctime(iobj.log[start][1])
  player:tell("[", ct[9..10], "/", ct[12..16], "|", length(iobj.log) - start, "]: ", iobj.log[start][2])
  start = start - 1
  $cmd_utils:suspend_if_needed(5)
endwhile
player:tell($su:spacE(50, "-"))
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.