/infochan <#channel>

L4roXyL · 17 Ekim 2011

Yazan: L4roXyL - Hasan AYDENİZ

-

Kullanımı: /infochan <#channel>
Örnek: /infochan #kanal-ismi
-
Özellikler: Kod özelliği; resimde gördüklerinizin tamamıdır. Yazım özelliği; işlemlerin çoğunu hash table(RAM) üzerinde yapar ve $hfind tanımı/identifier-ı sayesinde gereksiz /while vs. kullanmaz. En azından external olarak kullanmaz. .) External ile internal arasındaki hız farkını biliyorsan demek istediğimi anladın sen. Bilmiyorsan, boşver anlama. Neyse /who komutundan gelen veri ne kadar hızlıysa, kodda o kadar hızlı çalışır.
-

Ekran görüntüsü:

-

Kod:

;a code by l4roxyl
;24/07/2009 
;-
;start code
alias -l qt returnex $+($chr(2),$1-,$chr(2))
alias infochan {
  var %_ec = echo -aceq info $str($chr(149),3) /infochan:
  if ($1) { 
    if ($hget($1,_delay)) { %_ec Same channel( $+ $1 $+ ) pls $hget($1,_delay).unset seconds waiting. | returnex }
    if ($1 !ischan) { %_ec $1 no such channel. | returnex }
  }
  else { %_ec insufficient parameters. /infochan <#channel> | returnex }
  hinc -mu10 $1 _delay 1 | .enable #_chan_info | who $1
}
#_chan_info off
raw *:*: {
  haltdef | tokenize 32 $rawmsg 
  if ($2 = 352) {
    hinc -m $+(stats_,$4) _all_user 1 | hinc -m $+(stats_,$4) $+(server_,$7) 1
    if ($7 = $server) hinc -m $+(stats_,$4) _server 1
    hadd -m $+(stats_,$4) $6 $addtok($hget($+(stats_,$4),$6),$8,63)
    if ($regex($9,\*)) { 
      hinc -m $+(stats_,$4) _irc_op 1
      hadd -m $+(stats_,$4) _ircop_nick $addtok($hget($+(stats_,$4),_ircop_nick),$8,44)
    }
    if ($regex($9,G)) { 
      hinc -m $+(stats_,$4) _away 1 
      hadd -m $+(stats_,$4) _away_nick $addtok($hget($+(stats_,$4),_away_nick),$8,44)
    }
    if ($regex(prefix,$9,(@|&|%|\+|~))) { 
      hinc -m $+(stats_,$4) _prefixes 1 
      hadd -m $+(stats_,$4) _prefixes_nick $addtok($hget($+(stats_,$4),_prefixes_nick),$+($regml(prefix,1),$8),44)
    }
    if ($regex($9,B)) { 
      hinc -m $+(stats_,$4) _bot 1 
      hadd -m $+(stats_,$4) _bot_nick $addtok($hget($+(stats_,$4),_bot_nick),$8,44)
    }
    if ($regex($9,H)) hinc -m $+(stats_,$4) _here 1
    if ($regex($9,r)) hinc -m $+(stats_,$4) _reg_nick 1
  }
  if ($2 = 315) {
    echo -c info $4 $str($chr(175),30) $4 info start $str($chr(175),30)
    var %_str = echo -c info $4 $str($chr(149),3) 
    %_str Total user: $//qt($hget($+(stats_,$4),_all_user))
    if ($hget($+(stats_,$4),_reg_nick)) { 
      %_str Registered nick: $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/ $hget($+(stats_,$4),_all_user)),4),$chr(41)))
    }
    if ($hget($+(stats_,$4),_away)) {
      %_str Away user(s): $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/ $hget($+(stats_,$4),_all_user)),4),$chr(41))) - $&
        $regsubex($hget($+(stats_,$4),_away_nick),/( $+ $chr(44) $+ )/g,$+(\1,$chr(32)))
    }
    if ($hget($+(stats_,$4),_here)) {
      %_str Here user(s): $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/ $hget($+(stats_,$4),_all_user)),4),$chr(41)))
    }
    if ($hget($+(stats_,$4),_prefixes)) {
      %_str Prefixes nick: $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/ $hget($+(stats_,$4),_all_user)),4),$chr(41)))
      %_str Prefixes nick(s):   $//qt($regsubex($regsubex($hget($+(stats_,$4),_prefixes_nick),/ $+   $chr(44) $+ /g,$chr(32)),/([@&%+~])/g,$+($chr(40),\1,$chr(41))))
    }
    if ($hget($+(stats_,$4),_bot)) {
      %_str Bots: $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/   $hget($+(stats_,$4),_all_user)),4),$chr(41))) -   $regsubex($hget($+(stats_,$4),_bot_nick),/( $+ $chr(44) $+   )/g,$+(\1,$chr(32)))
    }
    var %_sttl = $calc($hget($+(stats_,$4),_server) *100/ $hget($+(stats_,$4),_all_user))
    %_str Connected server: $//qt($server) - Users: $//qt($hget($+(stats_,$4),_server)) $+($chr(40),%,$left(%_sttl,4),$chr(41)))
    if ($hget($+(stats_,$4),_irc_op)) {
      %_str IRC-op(s): $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/ $hget($+(stats_,$4),_all_user)),4),$chr(41))) - $&
        $regsubex($hget($+(stats_,$4),_ircop_nick),/( $+ $chr(44) $+ )/g,$+(\1,$chr(32)))
    }
    if ($hfind($+(stats_,$4),\?,0,r).data) {
      %_str Total clone(s): $//qt($v1 $+($chr(40),%,$left($calc($v1 *100/ $hget($+(stats_,$4),_all_user)),4),$chr(41)))
    }
    var %1 = 1,%_clonnick
    while ($hfind($+(stats_,$4),\?,%1,r).data) {
      %_clonnick = $regsubex($hget($+(stats_,$4),$v1),/(\?)/g,$chr(32) / $+ $chr(32))
      %_str Add: $//qt($v1) - $+(Nicks,$chr(40),$numtok(%_clonnick,47),$chr(41),:) $//qt(%_clonnick)
      inc %1
    }
    echo -c info $4 $str(_,30) $4 info end $str(_,30)
    hfree $+(stats_,$4) | .disable #_chan_info
  }
}
#_chan_info end
;end code