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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   kanal istatistik (https://www.ircforumlari.net/mirc-scripting-sorunlari/527691-kanal-istatistik.html)

MerakLıuSer 04 Nisan 2013 16:16
kanal istatistik
 
arkadaslar kanaLa giriste Topici yazan felan kısmı var onlari detayli nasil yapriz
yani ;
Giris yaptiginiz kanal : #a
Kanaldaki OP sayisi : 12
halfop, voice , sop , gibi bunlarida göstersin yukardaki gibi.
Yetkisiz user sayisi : 134
Banlistesinde 10 adet ban var , listesi icin : /banlist

banlistesi ;
1. maske ali*!*@* bani atan ; veli
2. maske *!*b*@* bani atan ; can
3. maske *'*@*AB* bani atan ; MerakLıuSer
...
banlist sonu.

yukaridaki banlistte banlist içerisinde benim attigim ban veya benim maskem eşleşen maske varsa onun banini rekli göstersin.

By_ATMACA 04 Nisan 2013 23:40
Cevap: kanal istatistik
 
Alıntı:
MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1041294683)
arkadaslar kanaLa giriste Topici yazan felan kısmı var onlari detayli nasil yapriz
yani ;
Giris yaptiginiz kanal : #a
Kanaldaki OP sayisi : 12
halfop, voice , sop , gibi bunlarida göstersin yukardaki gibi.
Yetkisiz user sayisi : 134
Banlistesinde 10 adet ban var , listesi icin : /banlist

banlistesi ;
1. maske ali*!*@* bani atan ; veli
2. maske *!*b*@* bani atan ; can
3. maske *'*@*AB* bani atan ; MerakLıuSer
...
banlist sonu.

yukaridaki banlistte banlist içerisinde benim attigim ban veya benim maskem eşleşen maske varsa onun banini rekli göstersin.
GuzeL Kardeşim Şu oLsun Bu oLsun Tamam oLsunda en azindan ŞöyLe Bir Kod KOysaydin.
Kod:
on *^:Join:#:{ if ($nick == $me) { echo $chan 0,6|0,7|0,1315,12 # 0,6|0,7|0,130,0  | halt } } raw 332:* { echo $2 4•3 Topic               :  $3-halt } raw 333:* {  echo $2 4•3 Topic Tarihi   :5 « 2 $asctime($4) 5»  echo $2 4•3 Topici Yazan : 5« 2 $3 5»  echo $2 halt }
Dipnot Mesajı: Bu Forumda Yüzlerce Var.

Dipnot Mesajı: En azindan Burdaki ArkadaşLara Biraz Yardimci oLaLim

[UYARI]Ve EkLeme Yapacagimiz Kodu PayLaşaLim[/UYARI]

MerakLıuSer 05 Nisan 2013 15:25
Cevap: kanal istatistik
 
öyle ekli bi kodum yok bi scriptte görmüstüm bu olayi adini hatirlamiyorum ki forumda arattim hep !istatistik kodu karsima cikiyor

By_ATMACA 05 Nisan 2013 23:29
Cevap: kanal istatistik
 
Kod:
raw 366:*:{
  .window -z @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -------------------------------------------------------------------------------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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  $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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --------------------------------------------------------------------------4  $2 Kanal'ı Bilgisi Sonu  -----------------------------------------------------------------
  .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  halt
}
Kod
IrCbaStarD a

Ait.
İşine Yarar Die Düşündüm

MerakLıuSer 07 Nisan 2013 16:12
Cevap: kanal istatistik
 
tesekkurler ama biraz daha detayli olursa. :(

Tai_Pan 08 Nisan 2013 09:23
Cevap: kanal istatistik
 
Alıntı:
MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1041295246)
tesekkurler ama biraz daha detayli olursa. :(
Kod:
###############################
# Yazan: L4roXyL              #
# Yazılış tarihi: 22/08/2207  #
# mIRC Scripting bir sanattır.#
###############################
#k off
raw *:*:{ if ($numeric == 352) && ( * isin $7 ) { set %s $addtok(%s,$6,32) | haltdef } | if ($numeric == 315) { var %sayı = $numtok(%s,32) | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 IRCOP sayısı:5 %sayı | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 IRCOP Nickler:5 %s | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - | .disable #k | unset %s | haltdef } }
#k end
#y on
raw 324:*: { .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Online modeler:5 $str($chr(32),3) $3- | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - | halt | .disable #y }
#y end
on *:notice:*:?: {
  if ($nick == ChanServ) && (*Kanal Sahibi* iswm $1-) { var %sahib = $3 | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Kanal Sahibi:5 $str($chr(32),3) $iif(!%sahib,Kanal kayıtlı değil.,%sahib) }
  if ($nick == ChanServ) && (*Founder* iswm $1-) { var %sahib = $3 | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Kanal Sahibi:5 $str($chr(32),3) $iif(!%sahib,Kanal kayıtlı değil.,%sahib) }
  if ($nick == ChanServ) && (*Kayit Zamani* iswm $1-) { var %kayıt = $+($addtok(Ay:,$3,32),$chr(32),$addtok(Gün:,$4,32),$chr(32),$addtok(Saat:,$5,32),$chr(32),$addtok(Yıl:,$6,32)) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Kayıt tarihi:5 $str($chr(32),3) $iif(!%kayıt,Kanal kayıtlı değil.,%kayıt) }
  if ($nick == ChanServ) && (*Kayıt Tarihi* iswm $1-) { var %kayıt = $+($addtok(Ay:,$3,32),$chr(32),$addtok(Gün:,$4,32),$chr(32),$addtok(Saat:,$5,32),$chr(32),$addtok(Yıl:,$6,32)) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Kayıt tarihi:5 $str($chr(32),3) $iif(!%kayıt,Kanal kayıtlı değil.,%kayıt) }
  if ($nick == ChanServ) && (*URL* iswm $1-) { var %URL = $2 | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Web adresi:5 $str($chr(32),3) $iif(!%URL,Girilmemiş.,%URL) }
  if ($nick == ChanServ) && (*E-mail adresi* iswm $1-) { var %email = $3 | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 E-mail adresi:5 $str($chr(32),3) $iif(!%email,Girilmemiş.,%email) }
  if ($nick == ChanServ) && (*Ekler* iswm $1-) { var %ek $2- | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Ek korumalar:5 $str($chr(32),3) $iif(!%ek,Eklenmemiş.,%ek) }
  if ($nick == ChanServ) && (*Mode Kilidi* iswm $1-) { var %mode = $3- | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Mode kilitleri:5 $str($chr(32),3) $iif(!%mode,Eklenmemiş.,%mode) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - }
  if ($nick == ChanServ) && (*Topici yazan* iswm $1-) { var %top = $3- | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Topic'i yazan:5 $str($chr(32),3) $iif(!%top,Yazılmamış.,%top) }
}
alias ak { .artakalan | .vop | .hop | .op | .sop | .fon }
alias hop { var %x = $nick(#,0,%) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x,%),32) } | dec %x } | if ($nick($chan,0,%) != 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç  -2 Halfop sayısı:5 $nick($chan,0,%) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,%) * 100 / $nick($chan,0)),4)) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Halfop Nick:5 %y | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - } }
alias fon { var %: = $nick(#,0,~) | var %. | while %: { if $nick(#,%:) != $me { %. = $addtok(%.,$nick(#,%:,~),32) } | dec %: } | if ($nick($chan,0,~) != 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç  -2 Owner sayısı:5 $nick($chan,0,~) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,~) * 100 / $nick($chan,0)),4)) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Owner Nick:5 %. | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - } }
alias op { var %- = $nick(#,0,@) | var %_ | while %- { if $nick(#,%-) != $me { %_ = $addtok(%_,$nick(#,%-,@),32) } | dec %- } | if ($nick($chan,0,@) != 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç  -2 Op sayısı:5 $nick($chan,0,@) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,@) * 100 / $nick($chan,0)),4)) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Op Nick:5 %_ | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - } }
alias vop { var %:: = $nick(#,0,+) | var %" | while %:: { if $nick(#,%::) != $me { %" = $addtok(%",$nick(#,%::,+),32) } | dec %:: } | if ($nick($chan,0,+) != 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç  -2 Voice sayısı:5 $nick($chan,0,+) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,+) * 100 / $nick($chan,0)),4)) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Voice Nick:5 %" | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - } }
alias sop { var %-_ = $nick(#,0,&) | var %_- | while %-_ { if $nick(#,%-_) != $me { %_- = $addtok(%_-,$nick(#,%-_,&),32) } | dec %-_ } | if ($nick($chan,0,&) != 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç  -2 Protect sayısı:5 $nick($chan,0,&) $str($chr(32),5) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Yüzdelik oranı:5 $+(%,$left($calc($nick($chan,0,&) * 100 / $nick($chan,0)),4)) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Protect Nick:5 %_- | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - } }
alias artakalan { var %oyeah # | if ($nick(#,0) != 0) { set %kullanıcı $calc($nick(%oyeah,0)-$calc($nick(%oyeah,0,+)+$nick(%oyeah,0,%)+$nick(%oyeah,0,@)+$nick(%oyeah,0,&)+$nick(%oyeah,0,~))) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç  - | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Toplam Kullanıcı:5 $str($chr(32),3) %kullanıcı | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Yüzdelik Oranı:5 $str($chr(32),3) $+($chr(37),$left($calc(%kullanıcı * 100 / $nick(%oyeah,0)),4)) | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - | .unset %kullanıcı } }
alias tara { if $left($1,1) != $chr(35) { echo -a $timestamp ==> Bilgi: Lütfen kanal taramak için kanal işaretini geriniz. Örnek: /tara #kanal | halt } | if ($me !ison $1) { echo -a $timestamp ==> Bilgi: Bulunmadığın bir kanalı taramayazsın. | halt } | if !$1 { .echo -a $timestamp ==> Bilgi: Herhangi bir kanal ismi girmediniz. Kullanım şekli /tara #kanal | halt } | else {
.echo -a $timestamp ==> Bilgi: Lütfen bekleyiniz, $1 kanal'ı için tarama başlatıldı. | .var %tik = $ticks | .enable #k | .who $1 | .cs info $1 all | .enable #y | .mode $1 | .window -aCbldk0 -t20,25 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -1 -1 800 700 Tahoma 12 | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Bağlı olduğunuz ağ:5 $network | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Bağlı olduğunuz sunucu:5 $server | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Taranan kanal:5 $1 | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Bilgiler sıralanıyor, bekleyiniz. | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç - | .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Ban sayısı:5 $ibl($1,0) | .timer 1 6 .ak | .timer 1 8 .aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ma-Sonuç -2 Tarama tamamlandı. Tarama süresi:5 $calc(($ticks - %tik) / 1000) 2saniye. }
}
on 1:load: { .echo -a 2==> Bilgi: 5Kanal tarama snippet, başarı ile yüklendi. | echo -a 2==> 2Bilgi:5 Herhangi bir kanalı taramadan önce, kanal içerisinde en geç 1 dakika süre bulunmak zorundasınız. | .echo -a 2==> 2Bilgi:5 Yani tarayacağınız kanal'da, en az 1 dakikadır bulunuyor olmalısınız. | .echo -a 2==> 2Yapımcı:5 L4roXyL | .echo -a 2==> 2Tarih:5 22/08/2007 - Çarşamba | .echo -a 2==> 2Kaldırmak için:5 /unload -rs yuklediğinizdosyaismi.uzantısı 2yazınız. }
on 1:unload: { .echo -a 2==> Bilgi:5 Kanal tarama snippet, başarı ile kaldırıldı. 2Yapımcı :5 L4roXyL }
Kod Sahibi: L4roXyL


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:10.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk