| L4roXyL | 24 Ağustos 2007 01:04 |
Kanal Bilgi - Custom
Kodenin amacı,
Bulunduğunuz herhangi kayıtlı bir kanal hakkında ayrıntılı bilgi almaktır.
Uygulanma; /tara #kanal şeklindedir. Tavsiyeler;
Herhangi bir kanal'ı taramadan önce, en az 1/bir dakika o kanalın içinde bulunmanız size daha net sonuçlar sunacaktır. Yaptığı işlevler; 1 - Kanaldaki normal kullanıcı sayısı ve yüzdesi. 2 - Kanaldaki voice sayısı ve yüzdesi(Nickler'le beraber) 3 - Kanaldaki halfop sayısı ve yüzdesi(Nickler'le beraber) 4 - Kanaldaki op sayısı ve yüzdesi(Nickler'le beraber) 5 - Kanaldaki protect sayısı ve yüzdesi(Nickler'le beraber) 6 - Kanaldaki owner sayısı ve yüzdesi(Nickler'le beraber) 7 - Kanaldaki ban sayısı. 8 - Kanal kayıt tarihi. 9 - Kanal sahibi. 10 - Varsa e-mail adresi. 11 - Varsa web(url) adresi. 12 - Varsa mode kilitleri. 13 - Topic'i yazanı gösterme. 14 - Varsa ek korumalar. 15 - Kanalda'ki IRCop sayısı(Nickler'le beraber) Buyrun kod; 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 @Tarama-Sonuç - 2 IRCOP sayısı: 5 %sayı | .aline @Tarama-Sonuç - 2 IRCOP Nickler: 5 %s | .aline @Tarama-Sonuç - | .disable #k | unset %s | haltdef } }
#k end
#y on
raw 324:*: { .aline @Tarama-Sonuç - 2 Online modeler: 5 $str($chr(32),3) $3- | .aline @Tarama-Sonuç - | halt | .disable #y }
#y end
on *:notice:*:?: {
if ($nick == ChanServ) && (*Kanal Sahibi* iswm $1-) { var %sahib = $3 | aline @Tarama-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 @Tarama-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 @Tarama-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 @Tarama-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 @Tarama-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 @Tarama-Sonuç - 2 E-mail adresi: 5 $str($chr(32),3) $iif(!%email,Girilmemiş.,%email) }
if ($nick == ChanServ) && (*Ekler* iswm $1-) { var %ek $2- | aline @Tarama-Sonuç - 2 Ek korumalar: 5 $str($chr(32),3) $iif(!%ek,Eklenmemiş.,%ek) }
if ($nick == ChanServ) && (*Mode Kilidi* iswm $1-) { var %mode = $3- | aline @Tarama-Sonuç - 2 Mode kilitleri: 5 $str($chr(32),3) $iif(!%mode,Eklenmemiş.,%mode) | aline @Tarama-Sonuç - }
if ($nick == ChanServ) && (*Topici yazan* iswm $1-) { var %top = $3- | aline @Tarama-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 @Tarama-Sonuç - 2 Halfop sayısı: 5 $nick($chan,0,%) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Yüzdelik oranı: 5 $+(%,$left($calc($nick($chan,0,%) * 100 / $nick($chan,0)),4)) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Halfop Nick: 5 %y | aline @Tarama-Sonuç - } }
alias fon { var %: = $nick(#,0,~) | var %. | while %: { if $nick(#,%:) != $me { %. = $addtok(%.,$nick(#,%:,~),32) } | dec %: } | if ($nick($chan,0,~) != 0) { aline @Tarama-Sonuç - 2 Owner sayısı: 5 $nick($chan,0,~) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Yüzdelik oranı: 5 $+(%,$left($calc($nick($chan,0,~) * 100 / $nick($chan,0)),4)) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Owner Nick: 5 %. | aline @Tarama-Sonuç - } }
alias op { var %- = $nick(#,0,@) | var %_ | while %- { if $nick(#,%-) != $me { %_ = $addtok(%_,$nick(#,%-,@),32) } | dec %- } | if ($nick($chan,0,@) != 0) { aline @Tarama-Sonuç - 2 Op sayısı: 5 $nick($chan,0,@) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Yüzdelik oranı: 5 $+(%,$left($calc($nick($chan,0,@) * 100 / $nick($chan,0)),4)) | aline @Tarama-Sonuç - 2 Op Nick: 5 %_ | aline @Tarama-Sonuç - } }
alias vop { var %:: = $nick(#,0,+) | var %" | while %:: { if $nick(#,%::) != $me { %" = $addtok(%",$nick(#,%::,+),32) } | dec %:: } | if ($nick($chan,0,+) != 0) { aline @Tarama-Sonuç - 2 Voice sayısı: 5 $nick($chan,0,+) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Yüzdelik oranı: 5 $+(%,$left($calc($nick($chan,0,+) * 100 / $nick($chan,0)),4)) | aline @Tarama-Sonuç - 2 Voice Nick: 5 %" | aline @Tarama-Sonuç - } }
alias sop { var %-_ = $nick(#,0,&) | var %_- | while %-_ { if $nick(#,%-_) != $me { %_- = $addtok(%_-,$nick(#,%-_,&),32) } | dec %-_ } | if ($nick($chan,0,&) != 0) { aline @Tarama-Sonuç - 2 Protect sayısı: 5 $nick($chan,0,&) $str($chr(32),5) | aline @Tarama-Sonuç - 2 Yüzdelik oranı: 5 $+(%,$left($calc($nick($chan,0,&) * 100 / $nick($chan,0)),4)) | aline @Tarama-Sonuç - 2 Protect Nick: 5 %_- | aline @Tarama-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 @Tarama-Sonuç - | aline @Tarama-Sonuç - 2 Toplam Kullanıcı: 5 $str($chr(32),3) %kullanıcı | aline @Tarama-Sonuç - 2 Yüzdelik Oranı: 5 $str($chr(32),3) $+($chr(37),$left($calc(%kullanıcı * 100 / $nick(%oyeah,0)),4)) | aline @Tarama-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 | .enable #y | .mode $1 | .window -aCbldk0 -t20,25 @Tarama-Sonuç -1 -1 800 700 Tahoma 12 | .aline @Tarama-Sonuç - 2 Bağlı olduğunuz ağ: 5 $network | .aline @Tarama-Sonuç - 2 Bağlı olduğunuz sunucu: 5 $server | .aline @Tarama-Sonuç - 2 Taranan kanal: 5 $1 | .aline @Tarama-Sonuç - | .aline @Tarama-Sonuç - 2 Bilgiler sıralanıyor, bekleyiniz. | .aline @Tarama-Sonuç - | .aline @Tarama-Sonuç - 2 Ban sayısı: 5 $ibl($1,0) | .timer 1 6 .ak | .timer 1 8 .aline @Tarama-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 }
Ekran görüntüsü;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sanırım 2 gün uğraştım, Umarım işinize yarar. |
