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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Bir Tarama Yardımı (https://www.ircforumlari.net/mirc-scripting-sorunlari/6945-bir-tarama-yardimi.html)

Bir Tarama Yardımı

Ben Şöyle Bir Clone Taraması İstiyorum. Mesela /clonescan Yazacam Tarayacak
sonra KArşıma Bir Ufak Kutu Gelsin #bilmemNe kanalında 6 Tane Clone TEspit Edildi Kanadan Uzaklaştırmak için f1 Tusuna Basınız. f1 Tusuna Bastıgımda ise

Clone Yasak! [ Clonelerin Ip si]

alias Clonescan {
unset %cs.*
set %cs.chan #
who #
timer 1 4 /scan2
}
alias scan2 {
window -l @Clones
titlebar @Clones in #
set %cs.a $nick(#,0)
:loop
if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {
set %cs.d %cs.d $address($nick(#,%cs.a),2)
set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)
:l
aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
dec %cs.c 1
if (%cs.c == 0) { aline @clones - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
goto l
}
:next
dec %cs.a 1
if (%cs.a != 0) { goto loop }
if (%cs.d == $null) { aline @clones Hiç CLone buLunamadı... }
halt
}

Not : Ben Yazmadım Alıntıdır Sanırım işini Görür..

işimi Görürde Atmak için Ne Yapmak Lazım. Yoksa Adamları Kanaldan Tek Tekmi Ayıklayacaz.

Verilen kod a göre ufak bi ayar yapıldığında sorun çözülüyor.. Umarım istediğin gibi olmuştur. Renk ve Konum ayarlarını istediğin gibi yapabilirsin Ör: echo -s yerine echo -a yada aline @bilmemne gibi...

PHP- Kodu:

   alias Clonescan {

  .unset %cs.*

  .set %cs.chan #

  .who #

  .timer 1 4 /scan2

}

alias scan2 {

  .echo -s # kanalı için clone scan...

  set %cs.a $nick(#,0)

  :loop

  if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {

    set %cs.d %cs.d $address($nick(#,%cs.a),2)

    set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)

    :l

    .echo -s $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 %4$s $address($nick(#,%cs.a),2) %4$s )

    .set %cs.eklenen $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick

    .set %cs.nickler $addtok(%cs.nickler,%cs.eklenen,32)    

    dec %cs.c 1

    if (%cs.c == 0) { echo -s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }

    goto l

  }

  :next

  dec %cs.a 1

  if (%cs.a != 0) { goto loop }

  if (%cs.d == $null) { echo -s Hiç CLone buLunamadı... }

  .echo -s 4 Eğer cL0ne'u olanlara ceza vermek istiyorsanız (Kick+Ban), F5 e basınız!.. cL0ne'Lar:14 %cs.nickler 

  halt

} 

alias F5 { 

  %cs.i = 0

  while ($gettok(%cs.nickler,0,32) > %cs.i) {

    .inc %cs.i 1 

    %cs.atilan = $gettok(%cs.nickler,%cs.i,32)

    mode %cs.chan +b $address(%cs.atilan,2) 

    kick %cs.chan %cs.atilan cL0ne Yasak!..

  }

  halt

}

Kod UOnur Tarafından PHP Tag'ları Arasına Alınmıştır... :p

Çok Saol Pek Makbule Geçti :D

Yanlız Bi Sorun Var. Çalışmadı :D incelebilirmisin bi codeyi falsolu ne var

Alıntı:

LaGoodLife Nickli Üyeden Alıntı

Yanlız Bi Sorun Var. Çalışmadı :D incelebilirmisin bi codeyi falsolu ne var

Kodu al önce bir txt dosyasına kaydet... Satırların başlarındaqi boşlukları sil... Ve oradan remotelara ekle... Code bölümü içerisinden kopyalanan kodlarda sorun çıqıyor direq kopyalarsan... Sanırım senin sorununda bu yüzdendir... Saygılar...

kodlarda bir sorun yok dostum. kendim bizzat denedim. Son Mohikan kardeşimizin dediğine kulak vermeni tavsiye ederim.

Sevgiler... Saygılar...

Code Tag'ları ([code&/code]) Arasında Kodlar Zarar Görüyor... Yani Çalışmayabilir.
Kodları Buraya Normal Olarak Yapıştırırsanız yada PHP tagları içine Alırsanır Daha iyi olur...