@verb #7446:"@pages" any none none rdo #7446
@program #7446:"@pages" any none none
"Verb made by Daryl, Thanks for the help!"
if (player != this)
  return player:tell(E_PERM)
endif
if (!args)
  {count, data} = {1, {}}
  for i in (this.recorded)
    data = {@data, {tostr(count), $su:nn(i[1]), ctime(i[2]), i[3]}}
    count = count + 1
  endfor
  player:tellcolumns({1, 1, 1, 1}, {"ID", "Who", "When", "What"}, @data)
else
  try
    id = toint(args[1])
    player:tell({tostr($su:right("ID: ", 8), id), tostr($su:right("Who: ", 8), $su:nn(this.recorded[id][1])), tostr($su:right("When: ", 8), ctime(this.recorded[id][2])), tostr($su:right("What: ", 8), this.recorded[id][3])})
  except (ANY)
    player:tell("No such page.")
  endtry
endif
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.