/kara #kanal ( Klon taraması + işlev )

Kodenin amacı;
Kanaldaki kloneleri tespit ederek, işlev yapmanızı sağlar(isterseniz).
Kullanımı: /ktara #kanalismi
Sonucları görmek için; /sonuclar
İşlev yapmak için; /at numara mesajınız.
Not: Sanırım, 1 gün uğraştım 🙂
Kod Sahibi : L4roXyL

Görünüm şekli:

[02:15]- Bilgi: S: ( 1 ) Klon: ( 2 ) Adres: ( F514C632.22A8D14D.IP ) Nickler: ( ayhan1972,beyfendiyim35 )

Buradaki S: ( numara )
İşlev yapabileceğiniz sıra numarasıdır.
Bir alias oluşturdum kullanmak isteyenlere;
/at numara mesajınız yaptığınızda;
Belirlediğiniz sırada bulunan nick’leri sunucudan uzaklaştıracaktır.

Korumalar.txt dosyasının içine eklediğiniz IP’ler klon taramasında çıkmayacaktır.
Ekleme şekli; /ekle helper.yes.net
Şeklindedir.

Buyrun kod; (Değişiklik yapılmaması tavsiye edilir, aksi taktirde bozabilirsiniz)

on *:join:#: { if $nick == $me && $chan(#).ial == $false { .ial on | .who # } }
alias ktara {
  if $active != # { .echo -a $+($timestamp,$chr(45),$chr(32),Kanal penceresinde değilsiniz.) | halt }
  if !$1 { echo $1 $+($timestamp,$chr(45),$chr(32),Kanal ismi girmediniz.) | halt }
  if $me !ison $1 { .echo -a $+($timestamp,$chr(45),$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalında bulunmuyorsunuz.) | halt }
  else { echo $1 $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalı için tarama başlatıldı lütfen bekleyiniz.)
    write -c nickler.txt | write -c nickler2.txt | write -c sonuc.txt | var %- = 1, %x = $ialchan(*,$1,0),%/ = $1
    while (%- <= %x) { if $read(nickler.txt,w,$gettok($ialchan(*,$1,%-),2,64)) && !$read(korumalar.txt,w,$gettok($ialchan(*,$1,%-),2,64)) { var %1 = $ialchan($+(*,$v1,*),$1,0)  | write nickler2.txt $gettok($ialchan(*,$1,%-),1,33) | inc %-  }
  else { write nickler.txt $gettok($ialchan(*,$1,%-),2,64) | inc %- } } }
  var %-- = 1,%½ = $lines(nickler2.txt) |  while %-- <= %½ { bak $read(nickler2.txt,%--) %/ | inc %-- }
  echo $1 $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalı için tarama tamamlandı. Sonuçları görmek için:,$chr(32),$chr(2),/sonuclar,$chr(2),$chr(32),yazınız.)
}
alias bak {
  var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$2,0) | while %% <= %&& {
  var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),44) | inc %% } | if !$read(sonuc.txt,w,$+($gettok(%%-,1,44),*)) { write sonuc.txt %%- %% %& }
}
alias sonuclar {
  var %- = 1, %-- = $lines(sonuc.txt) | while %- <= %-- {
    echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),S:,$chr(32),$chr(40),$chr(32),$chr(2),%-,$chr(2),$chr(32),$chr(41),$chr(32),Klon:,$chr(32),$chr(40),$chr(32),$chr(2),$calc($gettok($read(sonuc.txt,%-),2,32) -1),$chr(2),$chr(32),$chr(41),$chr(32),Adres:,$chr(32),,$chr(40),$chr(2),$chr(32),$gettok($read(sonuc.txt,%-),3,32),$chr(2),$chr(32),$chr(41),$chr(32),Nickler:,$chr(32),$chr(40),$chr(32),$chr(2),$gettok($read(sonuc.txt,%-),1,32),$chr(32),$chr(2),$chr(41))
    inc %-
  }
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Sonuclar sıralandı.)
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$lines(sonuc.txt),$chr(2),$chr(32),adet veri bulundu)
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Verilen sıra numaralarındaki kullanıcıları sunucudan uzaklaştırmak için;,$chr(32),$chr(2),/at sıranumarası mesajınız,$chr(32),$chr(2),işlevini yapabilisiniz.)
}
alias at { if $1 { gline $gettok($read(sonuc.txt,$1),1,44) $2- } }
alias ekle {
  if !$1 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Herhangir bir IP/host girmediniz.) | halt }
  if $read(korumalar.txt,w,$1) { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),adresini zaten daha önce girmişsiniz.) | halt }
  write korumalar.txt $1 | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),adresini korumalar listesine başarıyla eklediniz.)
}

Alinti.