Kanal Bilgi (/infochan <#channel>) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

L4roXyL · 08 Haziran 2011, 08:13

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.

Yazdığımız kodları yabancı sitelerde de paylaşıyoruz. Buyrun [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bakın.

-

Bu kod ne yapar?

Kanaldaki toplam kullanıcı sayısını gösterir.
Kayıtlı nicklerin sayısını gösterir.
Away olan kullanıcıların sayısını ve nicklerini gösterir.
Away olmayan kullanıcıların sayısını gösterir.
Prefix(op,sop,voive vs.) olan kullanıcıların sayısını ve nicklerini gösterir.
Botların sayısını ve nicklerini gösterir.
Bağlı bulunduğunuz sunucuyu ve aynı sunucudan bağlı olan kaç kişi olduğunu gösterir.
Kanalda bulunan ircop-ları ve nicklerini gösterir.
Kaç adet clone/klon olduğunu gösterir.
Bulunan clone/klonları alt alta listeler ve nicklerini verir.
-
VE BUNLARIN HEPSİNİN %(YÜZDE) DEĞERİNİ % 100 DOĞRU SONUÇ İLE GÖSTERİR.

-

Ekran görüntüsü:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

-

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;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

-

İşinize yarar.

FirariSevdam · 29 Eylül 2011, 21:07

Hocam Bu Kodu Ekledim Mirce Hiç Degiştirmedim ama Bir sorun oLuştu

-
/infochan ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ /infochan info start ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
/infochan ••• Total user:
/infochan ••• Connected server: - Users: (%0)
/infochan ______________________________ /infochan info end ______________________________
-
* /hfree: Böyle bir Tablo yok 'stats_/infochan' (Satır 78, İnfochan.txt)
-
RETURNEX Unknown command
-
RETURNEX Unknown command
-
RETURNEX Unknown command
-
RETURNEX Unknown command

Statusde Böyle Yazıyor hocam Nasıl Çözebilirim?

avdet · 18 Ekim 2011, 15:17

tesekkurler

avdet · 18 Ekim 2011, 15:21

paylasim icin

Madox · 08 Kasım 2011, 00:30

Emegine sağlık

Coldman · 08 Kasım 2011, 00:50

Alıntı:

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 on
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),$+($re gml(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),_prefix es_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,45),$chr(41),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$//qt(%_clonnick)
inc %1
}
echo -c info $4 $str(_,30) $4 info end $str(_,30)
;hfree $+(stats_,$4) | .disable #_chan_info
}
}
#_chan_info end

Ayni Hata'yi bende Aldim Satir,74 'e ; ekledim sorun cözüldü sanirim denermisin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sonuc:

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ #mIRCLive info start ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
••• Total user: 19
••• Registered nick: 15 (%78.9)
••• Away user(s): 3 (%15.7) - Leonardo, aLper, KuyucuMuratPasa
••• Here user(s): 16 (%84.2)
••• Prefixes nick: 4 (%21.0)
••• Prefixes nick(s): (&)Adem (~)X (&)aLper (+)Neo
••• Connected server: irc.mIRCLive.Com - Users: 19 (%100)
••• IRC-op(s): 6 (%31.5) - Ocean, Adem, X, away, AnsweR, aLper
••• Total clone(s): 2 (%10.5)
••• Add: NetAdmin.mIRCLive.Com - Nicks(2): Adem - aLper
••• Add: Oper.mIRCLive.Com - Nicks(2): away - KuyucuMuratPasa
______________________________ #mIRCLive info end ______________________________

Paint · 08 Kasım 2011, 10:45

Yabancılar koda hasta olmuşlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
!bilgi,nick,kanal	Voodo	mIRC Scripting Sorunları	3	28 Haziran 2011 20:16
Kanal Kayıt Sistemi \| Channel Registration	uFuK	mIRC Scripting Hazır Kodlar	6	29 Nisan 2011 22:11
Kanal Bilgi - Custom	L4roXyL	mIRC Scripting Hazır Kodlar	18	10 Kasım 2009 21:58

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.