@verb #2349:"receive_page" this none this rxdo #2349
@program #2349:"receive_page" this none this
"Copied from Gamlin (#2370):receive_page Apr 20 14:54:58 1999"
if (player in this.gaglist)
  player:tell("Go away")
  return 0
elseif (this:connected())
  this.lp = player
  this.pages = toint(this.pages) + 1
  this:tell("=> ", $su:nn(player), " pages, \"", tostr(args[2]), "\"")
  return 1
else
  this.pages = toint(this.pages) + 1
  player:tell("You message has been recorded.")
  this.recorded = {@this.recorded, {tostr("[", ctime(), "]"), tostr("(", player.name, ")"), tostr(args[2])}}
  return 2
endif
"Last modified by Dax (#789) on Tue May  3 14:09:34 2005 MDT."
.