-
Kullanımı: /infochan
Ornek: /infochan #kanal-ismi
-
Ozellikler: Kod ozelliği; resimde gorduklerinizin tamamıdır. Yazım ozelliği; işlemlerin coğunu hash table(RAM) uzerinde 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ı calışır.
-
Ekran goruntusu:
-
Kod:
;a code by l4roxyl ;24/07/2009 ;- ;start code alias -l qt returnex $[$chr(2),$1-,$chr(2)) alias infochan if ($1 !ischan) } else hinc -mu10 $1 _delay 1 | .enable #_chan_info | who $1 } #_chan_info off raw *:*: if ($regex($9,G)) if ($regex(prefix,$9,(@|&|%|+|~))) if ($regex($9,B)) if ($regex($9,H)) hinc -m $[stats_,$4) _here 1 if ($regex($9,r)) hinc -m $[stats_,$4) _reg_nick 1 } if ($2 = 315) if ($hget($[stats_,$4),_away)) if ($hget($[stats_,$4),_here)) if ($hget($[stats_,$4),_prefixes)) if ($hget($[stats_,$4),_bot)) 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)) if ($hfind($[stats_,$4),?,0,r).data) var %1 = 1,%_clonnick while ($hfind($[stats_,$4),?,%1,r).data) echo -c info $4 $str(_,30) $4 info end $str(_,30) hfree $[stats_,$4) | .disable #_chan_info } } #_chan_info end ;end code