IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - kanal bilgisi.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/306868-kanal-bilgisi.html)

elimdeki bu code uzun zamandir bende mevcut.bundaki @bilgi penceresini kaldirdim.bilgileri istedigim bir kanala yansittim.simdi elimdeki bir script bot'a bunu eklemek istiyorum.!bilgi yazdigimda code bilgileri kanala yansitabilirmi.ben bir seyler yaptim ama bilgileri vermedi,sadece codeyi yansitti kanala.ikinci olarak ise.kanalda kac op halfop vs.. oldugunu sayi olarak veriyor.kanaldaki user'ler haric diger bilgileri nickleri ilede verebilir mi.simdiden tesekkur ederim.

Kod:

raw 366:*:{

  .window -z @bilgi

  .echo @bilgi -------------------------------------------------------------------------------4 $2 Kanal'ı Bilgisi --------------------------------------------------------------------

  var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullanıcı = $nick($2,0), %artakalan $calc(%kullanıcı - ($nick($2,0,&) + %hop + %vop + %founder + %op))

  if (%op != 0) { .echo @bilgi  $2 Kanal'ı : 5[ 2 Kanal Op'u                        +o] (4 $nick($2,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%op * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }

  if (%hop != 0) { .echo @bilgi $2 Kanal'ı :  5[ 2 Yardımcı Op                     +h] (4 $nick($2,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }

  if (%vop != 0) { .echo @bilgi $2 Kanal'ı :  5[ 2 Kanalda Ses Yetkisi Olan  +v] (4 $nick($2,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%vop * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }

  if (%founder != 0) { .echo @bilgi $2 Kanal'ı :  5[ 2 Kanal Sahibi               +q] (4 $nick($2,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }

  if ($nick($2,0,&) != 0) { .echo @bilgi $2 Kanal'ı :  5[ 2 Kanal Süper Op'u  +a] 2(4 $nick($2,0,&) 2) 4,1 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }

  if (%artakalan != 0) { .echo @bilgi $2 Kanal'ı : 5[      2 Normal Kullanıcı User] 2(4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }

  .echo @bilgi --------------------------------------------------------------------------4  $2 Kanal'ı Bilgisi Sonu  -----------------------------------------------------------------

  .echo @bilgi 

  halt
 }

Cevap: kanal bilgisi..

Kod:

on *:text:*:#:{

  if $1 == !bilgi { 

    raw 366:*: {

      var %chan = $chan

      .privmsg %chan ------4 %chan Kanal'ı Bilgisi -----

      var %op = $nick(%chan,0,@)

      %vop = $nick(%chan,0,+)

      %hop = $nick(%chan,0,%)

      %founder = $nick(%chan,0,~)

      %kullanıcı = $nick(%chan,0)

      %artakalan $calc(%kullanıcı - ($nick(%chan,0,&) + %hop + %vop + %founder + %op))

      if (%op != 0) { privmsg %chan %chan Kanal'ı : (Kanal Operatoru +o) 2(4 $nick(%chan,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%op * 100 / %kullanıcı),4)) 2 $+ ) $- }

      if (%hop != 0) { privmsg %chan %chan Kanal'ı : (Yardımcı Operator +h) 2(4 $nick(%chan,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullanıcı),4)) 2 $+ ) $- }

      if (%vop != 0) { privmsg %chan %chan Kanal'ı : (Kanalda Ses Yetkisi Olan  +v) (4 $nick(%chan,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%vop * 100 / %kullanıcı),4)) 2 $+ ) $- }

      if (%founder != 0) { privmsg %chan %chan Kanal'ı : (Kanal Sahibi +q) 2(4 $nick(%chan,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullanıcı)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullanıcı),4)) 2 $+ ) $- }

      if ($nick(%chan,0,&) != 0) { privmsg %chan %chan Kanal'ı : (Kanal Süper Operator +a) 2(4 $nick(%chan,0,&) 2) 4,1 $+ $str(|, $calc($nick(%chan,0,&) * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick(%chan,0,&) * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc($nick(%chan,0,&) * 100 / %kullanıcı),4)) 2 $+ ) $- }

      if (%artakalan != 0) { privmsg %chan %chan Kanal'ı : (Normal Kullanıcı User) 2(4 $calc($nick(%chan,0) - (%op + $nick(%chan,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullanıcı)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullanıcı),4)) 2 $+ ) $- }

      privmsg %chan -----4  %chan Kanal'ı Bilgisi Sonu  -----

      halt

    }

  }

}

İyi Forumlar.

Cevap: kanal bilgisi..

Verdiğin kod çalışmaz sock olarak veriyorsun "privmsg" demişsin vede rawı işleme sokuyorsun ama kanalı $chan ile tanımlıyorsun rawda $chan yoktur..

Cevap: kanal bilgisi..

code icin tesekkur ederim.ama kanala girdiginde bilgiyi vermiyor.!bilgi yazildiginda da statuste hata veriyor.

hata raporu

[12:32] -> Server: 366:*:
-
366:*: Unknown command
-
1 Unknown command

Ciprix kardes raw ile $chan olmaz dedigi icin bende codeyi ayri yazmaya calistim.ilk basta verdigim code'nin altina sunu ekledim calisiyor.yalniz renk karakteri yuzde degeri vermesini engelliyor sanirim ona bir bakabilirseniz sevinirim.ayrica kanal bilgilerini yuzdelik deger ile verirken user bilgisi disinda digerlerinin nicklerinide yazabilirse memnun olurum.

code'yi son sekli ile bu hale getirdim.hatami da belirtebilirseniz ogrenme adina faydali olacagini dusunuyorum.

Kod:

raw 366:*: {

  msg $chan $2 4------------------------------------------------------------------------------- Kanal Bilgisi --------------------------------------------------------------------

  var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullan?c? = $nick($2,0), %artakalan $calc(%kullan?c? - ($nick($2,0,&) + %hop + %vop + %founder + %op))

  if (%op != 0) { msg $chan $2 : 5[ 2 Kanal Op'u                        +o] (4 $nick($2,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%op * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%hop != 0) { msg $chan $2 :  5[ 2 Yard?mc? Op                     +h] (4 $nick($2,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%vop != 0) { msg $chan $2 :  5[ 2 Kanalda Ses Yetkisi Olan  +v] (4 $nick($2,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%vop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%founder != 0) { msg $chan $2 :  5[ 2 Kanal Sahibi               +q] (4 $nick($2,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if ($nick($2,0,&) != 0) { msg $chan $2 :  5[ 2 Kanal Süper Op'u  +a] 2(4 $nick($2,0,&) 2) 4,1 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullan?c?))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%artakalan != 0) { msg $chan $2  : 5[      2 Normal Kullan?c? User] 2(4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  msg $chan $2 4--------------------------------------------------------------------------   Kanal Bilgisi Sonu  -----------------------------------------------------------------

  halt

}  

on *:text:*:#: {  

  if ($nick isop $chan) || ($nick == r) {  

    if $1 == !bilgi { 

      msg $chan $2 4------------------------------------------------------------------------------- Kanal Bilgisi --------------------------------------------------------------------

      var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullan?c? = $nick($2,0), %artakalan $calc(%kullan?c? - ($nick($2,0,&) + %hop + %vop + %founder + %op))

      if (%op != 0) { msg $chan $2 : 5[ 2 Kanal Op'u                        +o] (4 $nick($2,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%op * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

      if (%hop != 0) { msg $chan $2 :  5[ 2 Yard?mc? Op                     +h] (4 $nick($2,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

      if (%vop != 0) { msg $chan $2 :  5[ 2 Kanalda Ses Yetkisi Olan  +v] (4 $nick($2,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%vop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

      if (%founder != 0) { msg $chan $2 :  5[ 2 Kanal Sahibi               +q] (4 $nick($2,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

      if ($nick($2,0,&) != 0) { msg $chan $2 :  5[ 2 Kanal Süper Op'u  +a] 2(4 $nick($2,0,&) 2)4,1 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullan?c?))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

      if (%artakalan != 0) { msg $chan $2  : 5[      2 Normal Kullan?c? User] 2(4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

      msg $chan $2 4--------------------------------------------------------------------------   Kanal Bilgisi Sonu  -----------------------------------------------------------------

      halt

    }

  }

}

Cevap: kanal bilgisi..

Kod:

raw 366:*: {

  msg %kanal $2 4------------------------------------------------------------------------------- Kanal Bilgisi --------------------------------------------------------------------

  var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullan?c? = $nick($2,0), %artakalan $calc(%kullan?c? - ($nick($2,0,&) + %hop + %vop + %founder + %op))

  if (%op != 0) { msg %kanal $2 : 5[ 2 Kanal Op'u                        +o] (4 $nick($2,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%op * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%hop != 0) { msg %kanal $2 :  5[ 2 Yard?mc? Op                     +h] (4 $nick($2,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%vop != 0) { msg %kanal $2 :  5[ 2 Kanalda Ses Yetkisi Olan  +v] (4 $nick($2,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%vop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%founder != 0) { msg %kanal $2 :  5[ 2 Kanal Sahibi               +q] (4 $nick($2,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if ($nick($2,0,&) != 0) { msg %kanal $2 :  5[ 2 Kanal Süper Op'u  +a] 2(4 $nick($2,0,&) 2) 4,1 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullan?c?))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  if (%artakalan != 0) { msg %kanal $2  : 5[      2 Normal Kullan?c? User] 2(4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }

  msg %kanal $2 4--------------------------------------------------------------------------   Kanal Bilgisi Sonu  -----------------------------------------------------------------

  halt

}  

on *:text:!bilgi*:#: {  

  if ($nick isop $chan) || ($nick == r) { 

    .set %kanal $chan 

    part $2

    join $2

  }

}

!bilgi #kanal - Raw kodun çalışıyorsa bu verdiğim çalışır

Cevap: kanal bilgisi..

bilgi komutunu eklemeden code guzel calisiyor.bilgi komutunu ekledigimizde part ve join icin yetersiz veya eksik parametre uyarisi yapiyor.

kardes birde yuzdelik verileri verirken, user'ler haric diger bilgileri nickleri ilede verebilir mi.
tesekkur ederim..

Cevap: kanal bilgisi..

!bilgi #KANAL , komutu ile yapıcaksın kanalı belirtmen gerek

Cevap: kanal bilgisi..

Alıntı:

CipriX Nickli Üyeden Alıntı (Mesaj 886252)

!bilgi #KANAL , komutu ile yapıcaksın kanalı belirtmen gerek

evet kanali belirtiyorum,part yapiyor tekrar ciktigi kanala join olmuyor.hocam part yapmadan raw komutunda aldigi bilgileri komut yazdigimizda okutamazmiyiz kanala..yorduk ama kusura bakmayin lutfen..

Cevap: kanal bilgisi..

Alıntı:

on *:text:!bilgi*:#: {
if ($nick isop $chan) || ($nick == r) {
.set %kanal $chan
hop $2
}
}

bu şekilde değiştirirsen kanaldan /hop #kanal şeklinde çıkacak ve girecektir.

Cevap: kanal bilgisi..

PHP- Kodu:

   raw 366:*: {
  msg %kanal $2 4------------------------------------------------------------------------------- Kanal Bilgisi --------------------------------------------------------------------
  var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullan?c? = $nick($2,0), %artakalan $calc(%kullan?c? - ($nick($2,0,&) + %hop + %vop + %founder + %op))
  if (%op != 0) { msg %kanal $2 : 5[ 2 Kanal Op'u                        +o] (4 $nick($2,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%op * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  if (%hop != 0) { msg %kanal $2 :  5[ 2 Yard?mc? Op                     +h] (4 $nick($2,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  if (%vop != 0) { msg %kanal $2 :  5[ 2 Kanalda Ses Yetkisi Olan  +v] (4 $nick($2,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%vop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  if (%founder != 0) { msg %kanal $2 :  5[ 2 Kanal Sahibi               +q] (4 $nick($2,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  if ($nick($2,0,&) != 0) { msg %kanal $2 :  5[ 2 Kanal Süper Op'u  +a] 2(4 $nick($2,0,&) 2) 4,1 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullan?c?))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  if (%artakalan != 0) { msg %kanal $2  : 5[      2 Normal Kullan?c? User] 2(4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  msg %kanal $2 4--------------------------------------------------------------------------   Kanal Bilgisi Sonu  -----------------------------------------------------------------
  halt
}  
on *:text:!bilgi*:#: {  
   if ($nick isop $chan) || ($nick == r) { 
     .set %kanal $chan 
     names $2
   }
 }

Üstteki kodlar tam olarak istediğini yapıcaktır, ek olarak bilgilendirmek isterim bu kanal yüzde istatistik kodunun ilk yazarı SaW arkadaşımızdır, başkaları fikir kendine ait gibi birazcık daha gelişmişini yazıp piyasaya sürmüştür.