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)

Cevap: kanal bilgisi..

Alıntı:

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

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.

code icin tesekkur ederim hocam.code'nin yapimcisini bilemiyorum.uzun zaman once arsivime almistim.lazim oldu hatalarini gorunce konu actim.code gayet guzel calisiyor.yuzdelik verileri verirken nickleride yazacak sekilde duzenleyebilirsek istedigim gibi neticelenecek.sunucudaki userlerin nicklerine gerek yok.ama diger verilerin yaninda nicklerini de gosterecek sekilde yapmamiz sizin icin zor olmayacaksa rica ediyorum.yok daha neler diyorsaniz bu hali ilede kullanabilirim..

Cevap: kanal bilgisi..

PHP- Kodu:

   raw 366:*: {
  .set %chan $2
  echo -a $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) { echo -a $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] 4Nickler: $opnicki(%chan) }
  if (%hop != 0) { echo -a $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] 4Nickler: $hopnicki(%chan) }
  if (%vop != 0) { echo -a $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] 4Nickler: $vopnicki(%chan) }
  if (%founder != 0) { echo -a $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] 4Nickler: $fopnicki(%chan) }
  if ($nick($2,0,&) != 0) { echo -a $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] 4Nickler: $sopnicki(%chan) }
  if (%artakalan != 0) { echo -a $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] }
  echo -a $2 4--------------------------------------------------------------------------   Kanal Bilgisi Sonu  -----------------------------------------------------------------
  halt
}  
alias opnicki { unset %opnick | var %i 1 | while %i <= $nick($1,0,@) { set %opnick %opnick $nick($1,%i,@) | inc %i } | .return %opnick }
alias hopnicki { unset %hopnick | var %i 1 | while %i <= $nick($1,0,%) { set %hopnick %hopnick $nick($1,%i,%) | inc %i } | .return %hopnick }
alias vopnicki { unset %vopnick | var %i 1 | while %i <= $nick($1,0,+) { set %vopnick %vopnick $nick($1,%i,+) | inc %i } | .return %vopnick }
alias fopnicki { unset %fopnick | var %i 1 | while %i <= $nick($1,0,~) { set %fopnick %fopnick $nick($1,%i,~) | inc %i } | .return %fopnick }
alias sopnicki { unset %sopnick | var %i 1 | while %i <= $nick($1,0,&) { set %sopnick %sopnick $nick($1,%i,&) | inc %i } | .return %sopnick }

Alias mantığı ile çalışıyor kendinde bakabilirsin //echo -a $sopnicki(#kanal) şeklinde yani $islem(#kanal) koyduğun yerde nickler çıkar.