@verb #12:"is_expired" this none this rxd #55
@program #12:"is_expired" this none this
"Has the player expired."
"Optional argument allows one to check for future expiry times."
if (this:isa($project))
  "I have no idea what to do with projects. -- Dax"
  return 0
endif
if (this:isa($wiz))
  "Nuking a wizard is usually a bad move."
  return 0
endif
{?now = time()} = args
day = 60 * 60 * 24
if (this.first_connect_time == $maxint && this.last_web_time == 0 && this.last_disconnect_time < now + day)
  "This is a person who registered more than a day ago but has never logged in."
  return 1
endif
return 0
month = 60 * 60 * 24 * 30
"Has the player been away for longer than they've been active with us?"
firstseen = this.first_connect_time
if (firstseen > time() && this.last_web_time)
  firstseen = this.last_web_time
endif
lastseen = max(this.last_web_time, this.last_disconnect_time, this.last_connect_time)
lifespan = lastseen - firstseen
return now > lastseen + lifespan + month
"Last modified by Dax (#789) on Sat May 21 21:49:29 2005 MDT."
.