on *:TEXT:*:*: {
    if $chan {
      if $1 == !chaninfo { set %ci $chan | who }
    }
}
raw *:*: {
    if %ci {
      if $event == 352 {
        if $chr(42) isin $7 { inc %p }
      }
      elseif $event == 315 {
        var %i = 1, %c, %u = 0, %h = 0, %o = 0, %v = 0, %r = 0
        while %i <= $chan(0) { set %c %c %i $+ . $chan(%i) ( $+ $nick($chan(%i),0) $+ ) | inc %u $nick($chan(%i),0) | inc %o $nick($chan(%i),0,o) | inc %h $nick($chan(%i),0,h) | inc %v $nick($chan(%i),0,v) | inc %r $nick($chan(%i),0,r) | inc %i }
        msg %ci Я сижу на $chan(0) каналах ( $+ %c $+ ), вижу %u пользователей: %o опов, %h хелперов, %v войсов, %r простых, %p ирк опов $iif(%p > 0,$chr(90) $+ не люблю ирк опов! фпесду ирк опов! и неебет! $+ $chr(91))
      }
    }
}