@verb #226:"message" this none this rxdo #789
@program #226:"message" this none this
"Checks the MOO for problems.  If one is found, return a brief string describing it.  Otherwise return 'OK'."
if (this.max_connected && (x = length(connected_players(1))) > this.max_connected)
  return tostr(x, " players are conected!")
elseif (this.max_queued && (x = length(queued_tasks())) > this.max_queued)
  return tostr(x, " tasks sitting on the queue!")
elseif (this.max_clock && (x = length($clock.info)) > this.max_clock)
  return tostr(x, " tasks running on the clock!")
elseif (this.max_scheduler && (x = $lazy_heap_utils:length($scheduler.heap)) > this.max_scheduler)
  return tostr(x, " tasks sitting in the scheduler!")
elseif (this.max_memory && (x = $servermonitor:memory() / 1024) > this.max_memory)
  return tostr("Memory useage at ", x, " megabytes!")
elseif (this.check_wizzen && (x = this:wizzen_check()))
  return x
else
  "Check for other potential problems."
endif
return "OK"
"Last modified by Dax (#789) on Thu Dec 10 11:02:11 1998 MST."
.