@verb #8084:"check_mem" this none this rxdo #8084
@program #8084:"check_mem" this none this
caller_perms().wizard || raise(E_PERM)
data = `#8385:memory() ! ANY'
if (data == E_TYPE)
  "Oh well."
else
  if (data > 175000)
    fork (0)
      this:text_msg({"The MOO is currently using " + $su:group_number(data) + "kb of RAM. Please reboot it."})
    endfork
  endif
endif
"Last modified by Lao-Tzu (#8084) on Sat Apr 14 20:21:39 2001 MDT."
.