mircmekan.tr.gg,mircmekan,trresim,resim,tr resim,telehaber.tr.gg,haber,sapancam.net,sapancam,telehaber.tr.gg,telehaber

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)

###############################
# 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 }

=============================================================



mIRC Topic Menüsü ( POPUPS ) ( Xpopups.dLL)