| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Kanal Bilgi (/infochan <#channel>)
| | 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 ______________________________
|