/ara <clone|notify|ircop|helper|yetkili|away>

on *:join:#: { if $nick == $me { .ial on | who # } }
alias ara {
  if $active != # { echo -at Uyarı: Herhangi bir kanal penceresinde   değilsiniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop   & /ara helper & /ara clone & /ara yetkili & /ara away   & /ara arkadas | halt }
  if !$1 { echo -at Uyarı: Aranıcak veriyi girmediniz. | echo -at Uyarı:   Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara   clone & /ara yetkili & /ara away & /ara arkadas | halt }
  else {
    if $1 == ircop { echo -at $active kanalı için IRCOP  taraması   başlatıldı. Bekleyiniz. | .enable #w | who $active | set -e %y $active }
    if $1 == clone { echo -at $active kanalı için CLONE taraması   başlatıldı. Bekleyiniz. | set -e %t $active | .ial $active | klontara   $active }
    if $1 == away { echo -at $active kanalı için AWAY taraması   başlatıldı. Bekleyiniz. | .enable #a | who $active | set -e %a $active }
    if $1 == helper { echo -at $active kanalı için HELPER  taraması   başlatıldı. Bekleyiniz. | .enable #h | who $active | set -e %h $active }
    if $1 == yetkili { echo -at $active kanalı için YETKILI  taraması   başlatıldı. Bekleyiniz. | set -e %y $active | ytara $active }
    if $1 == arkadas { echo -at $active kanalı için NOTIFY taraması   başlatıldı. Bekleyiniz. | set -e %n $active | notifys $active }
  }
}
#w off
raw *:*: {
  if $numeric == 352 { if * isin $7 { set %tik $ticks | hadd -m ircop $+($3,+,$6,+,$4) 1 | hinc -m ircopz okya 1 } | haltdef } 
  if $numeric == 315 { 
    if !$hget(ircop) { echo -at Uyarı: $2 kanalında, IRCOP bulunamadı. | .disable #w | halt }
    window -aCldk1 -t20,35 @IRCOP -1 -1 400 300 Bauhaus 12 
    aline 4 @IRCOP $chr(2) %y kanalı' için IRCOP listesi;
    aline 4 @IRCOP $chr(2) Bulunan IRCOP sayısı: $chr(2) $hget(ircopz,okya)
    aline 4 @IRCOP $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tik) / 1000) M-S
    aline @IRCOP $chr(160)
    aline 2 @IRCOP $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %8 = 1,%88 = $hget(ircop,0).item 
  while %8 <= %88 { aline 2 @IRCOP $chr(2) %8 - $chr(2)   $+($remove($gettok($hget(ircop,%8).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(ircop,%8).item,2,43),$chr(2),!,$chr(2),$gettok($hget(ircop,%8).item,3,43))   | inc %8 } | hfree -w *ircop* | .disable #w | haltdef }
}
#w end
alias klontara { if $1 { who $1 | if $hget(klonlar) { hfree klonlar } |   var %&- = 1,%&-- = $nick($1,0) | while %&- <= %&-- {   bak $nick($1,%&-) $1 | inc %&- } } | okus }
alias bak { 
  if $ialchan($+(*,$gettok($address($1,2),2,64),*),$2,0) < 2 { return }
  else { var %% = 1,%& = $gettok($address($1,2),2,64),%&& =   $ialchan($+(*,%&,*),$2,0) | set %tik $ticks | while %% <=   %&& { var %%- =   $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),43)
  inc %% } | hadd -m klonlar $+(%%-,@,%&,@) $calc(%% -1) }
}
alias okus { 
  if !$window(@CLONE) {
    window -aCldk1 -t20,35 @CLONE -1 -1 800 500 Bauhaus 12 
    aline 4 @CLONE $chr(2) %t Kanalı için CLONE listesi;
    aline 4 @CLONE $+($chr(2),$chr(160),Clone taraması sonuçları. Bulunan veri:,$chr(2)) $hget(klonlar,0).item
    aline 4 @CLONE $+($chr(2),$chr(160),Tarama tamamlanma süresi:,$chr(2)) $calc(($ticks - %tik) / 1000) MS
    aline @CLONE $chr(160) | aline @CLONE $chr(160) 
  aline 2 @CLONE $+($chr(2),-Adres-,$chr(2)) $chr(160) $+($chr(2),(Adet),$chr(2)) $chr(9) $+($chr(2),-Nickler-,$chr(2)) } 
  var %7 = 1,%77 = $hget(klonlar,0).item
  while %7 <= %77 { 
    aline 2 @CLONE $+($chr(2),%7 -,$chr(2))   $gettok($hget(klonlar,%7).item,2,64) $chr(160)   $+($chr(40),$chr(2),$hget(klonlar,%7).data,$chr(2),$chr(41)) $chr(9)   $replace($gettok($hget(klonlar,%7).item,1,64),+,$+($chr(2),$chr(44),$chr(2)))   | inc %7
  } 
  aline @CLONE $chr(160) | aline @CLONE $chr(160)
}
#a off
raw *:*: {
  if $numeric == 352 { if G isin $7 { set %tiks $ticks | hadd -m away $+($3,+,$6,+,$4) 1 | hinc -m aways ok 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(away) { echo -at Uyarı: $2 kanalında, AWAY bulunamadı. | .disable #a | halt }
    window -aCldk1 -t20,35 @AWAY -1 -1 400 300 Bauhaus 12 
    aline 4 @AWAY $chr(2) %a kanalı' için AWAY listesi;
    aline 4 @AWAY $chr(2) Bulunan AWAY NICK sayısı: $chr(2) $hget(aways,ok)
    aline 4 @AWAY $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tiks) / 1000) M-S
    aline @AWAY $chr(160) | aline 2 @AWAY $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %9 = 1,%99 = $hget(away,0).item 
  while %9 <= %99 { aline 2 @AWAY $chr(2) %9 - $chr(2)   $+($remove($gettok($hget(away,%9).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(away,%9).item,2,43),$chr(2),!,$chr(2),$gettok($hget(away,%9).item,3,43))   | inc %9 } | hfree -w *away* | .disable #a | haltdef }
}
#a end
#h off
raw *:*: {
  if $numeric == 352 { if *help* iswm $4 || *yardimci* iswm $4 ||   *görevli* iswm $4 { set %tikss $ticks | hadd -m helper $+($3,+,$6,+,$4)  1  | hinc -m helpers oks 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(helper) { echo -at Uyarı: $2 kanalında, HELPER bulunamadı. | .disable #h | halt }
    window -aCldk1 -t20,35 @HELPER -1 -1 400 300 Bauhaus 12 
    aline 4 @HELPER $chr(2) %h kanalında bulunan HELPER'lar;
    aline 4 @HELPER $chr(2) Bulunan HELPER sayısı: $chr(2) $hget(helpers,oks)
    aline 4 @HELPER $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikss) / 1000) M-S
    aline @HELPER $chr(160) | aline 2 @HELPER $chr(2) $str($chr(160),4)   -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %0 = 1,%00 = $hget(helper,0).item 
  while %0 <= %00 { aline 2 @HELPER $chr(2) %0 - $chr(2)   $+($remove($gettok($hget(helper,%0).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(helper,%0).item,2,43),$chr(2),!,$chr(2),$gettok($hget(helper,%0).item,3,43))   | inc %0 } | hfree -w *helper* | .disable #h | haltdef }
}
#h end
alias ytara { 
  set -e %tikk
  window -aCldk1 -t20,35 @YETKİLİ  -1 -1 500 300 Bauhaus 12 
  aline 4 @YETKİLİ $chr(2) %y kanalında bulunan YETKİLİ'ler; 
  aline 4 @YETKİLİ $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikk) / 1000) M-S
  aline @YETKİLİ $chr(160) | aline 2 @YETKİLİ $chr(2) $str($chr(160),4)   -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres-   $+($chr(9),$str($chr(160),9)) -Yetkisi-
  var %& = 1,%&& = $nick($1,0) 
  while %& <= %&& { 
    if $count($nick($1,%&).pnick,@,.,&,~,%) >= 1 { 
      who $nick($1,%&)
      aline 2 @YETKİLİ $chr(2) %& - $chr(2)   $remove($replace($address($nick($1,%&),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~)   $+($chr(9),$str($chr(160),9))   $replace($nick($1,$nick($1,%&)).pnick,@,$+($chr(2),@,$chr(2)),&,$+($chr(2),&,$chr(2)),%,$+($chr(2),%,$chr(2)),~,$+($chr(2)~,$chr(2)),.,$+($chr(2),.,$chr(2)))
    } 
    inc %& 
  } 
}
alias notifys { 
  set -e %sur
  window -aCldk1 -t20,35 @NOTIFY  -1 -1 400 300 Bauhaus 12 
  aline 4 @NOTIFY  $chr(2) %n kanalında bulunan ARKADAS'larınız;
  aline 4 @NOTIFY  $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %sur) / 1000) M-S
  aline @NOTIFY $chr(160)
  aline 2 @NOTIFY  $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- 
  var %6 = 1,%66 = $nick($1,0) 
  while %6 <= %66 { 
    if $notify($nick($1,%6)) { inc %= 1 | who $nick($1,%6)
      aline 2 @NOTIFY $chr(2) %= - $chr(2)   $remove($replace($address($nick($1,%6),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~)    
    } 
    inc %6  
  } 
  dec %= %= 
}