31c
@verb #1492:"next prev*ious" any on top of/on/onto/upon this rxd #60
@program #1492:"next prev*ious" any on top of/on/onto/upon this
if (this:busy("reading"))
  "can't 'next' if it is busy"
  return
endif
this:busy(0)
n = toint(dobjstr) || 1
if (verb != "next")
  n = -n
  verb = "previous"
endif
offset = this:offset()
new = offset + n * this.length
if (new < 1)
  if (offset == 1)
    return player:tell("You're already at the beginning.")
  else
    new = 1
  endif
elseif (new > length(this.desclines))
  return player:tell("You're already at the end.")
endif
this:announce_op("%N %<looks> at the ", verb, " ", this:_textp() ? "page" | "results", " on the %t.")
this:offset(new)
this:show_results()
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.

0