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)) { var %1 = $ialchan($+(*,$v1,*),$1,0) | if !$read(korumalar.txt,w,$gettok($ialchan(*,$1,%-),2,64)) { 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.)
}