Unnamed

on *:TEXT:!check:#: {
  /msg $chan Checking $hget(worlds,0).item member $+ $iif($hget(worlds,0).item > 1,s) for idle time
  var %p 1
  while (%p <= $hget(worlds,0).item) {
    if ($hget(worlds,$hget(worlds,%p).item) != %ownpclast) {
      hdel worlds $hget(worlds,%p).item
      msg $chan $hget(worlds,0).item
    }
    inc %p
  }
  /msg $chan There is now a total of $hget(worlds,0).item users defined
}