2d9
@verb #1492:"pop back" any any any rxd #60
@program #1492:"pop back" any any any
"back this [by <n>]"
"  move back up the gopher stack to the previous menu"
"  or previous N menus."
n = 1
if (iobjstr && !(iobjstr == tostr(n = toint(iobjstr))))
  return player:tell("Sorry, '", iobjstr, "' doesn't look like a number.")
endif
if (length(this.stack) < n)
  player:tell("Sorry, there aren't ", n, " levels to go back.")
  return
endif
if (this:busy("going back"))
  return
endif
this:announce_op("%N %<goes> back up ", n == 1 ? "a level" | tostr(n, " levels"), " on the %t.")
this:set_pointer(@this.stack[n + 1..length(this.stack)])
this:busy(0)
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.

0