kanal bilgisi.. - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Mitolojik · 24 Aralık 2009, 10:06

CipriX Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


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..

CipriX · 24 Aralık 2009, 11:01

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


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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Muaf Kanal/Nick Giriş Çıkış Bilgisi Kanal ve Özelde Komut Yardımı	Goemon	Conference Room (CR)	4	01 Şubat 2016 02:03
Bu kodu kanaL Kick+ban kanal opLarı icin nasıl düzenleriz	Tinba	mIRC Scripting Sorunları	4	12 Mart 2013 07:19
Kanal status ve güvenlik bilgisi	Mudin	mIRC Scripting Hazır Kodlar	0	18 Mart 2011 17:32
kanal a /cs access #kanal list çekinde services gidiyor neden ola bilir :(	EEkreMM	Servisler	3	07 Ocak 2008 17:39
Kanal Bilgisi(Topic)	Nightmare	mIRC Scripting Hazır Kodlar	0	31 Mart 2007 20:50

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.