etil alkol rp satın al
chat eczaonline.com

/infochan <#channel>

L4roXyL

Profesyonel
Katılım
16 Eki 2011
Mesajlar
124
Beğeniler
2
#1
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
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur. iyinet.com sayfalarında yer alan yazı, görsel ve linklerle ilgili hukuki şikayetleriniz için Buradan iletişime geçmeniz durumunda, ilgili kanunlar ve yönetmelikler çerçevesinde en geç 7 gün içerisinde iyinet yönetimince tarafınıza dönüş sağlanacaktır. Betcup porno Artemisbet Forum canlı bahis sohbet - - chat
Üst