alias -l clonescan {
  if ($active ischan) {
    .did -r chanscan 9 | var %chan = $active | var %a = $nick(%chan,0) | var %b = 0
    :next | inc %b
    if ($ialchan($address($nick(%chan,%b),2),%chan,0) > 1) { set %clones $addtok(%clones,$address($nick(%chan,%b),2),32) }
    if (%a > %b) { goto next } | else { clonechk }
  }
}
alias -l clonescan1 { if ($active ischan) { did -r chanscan 9 |  set %actifchannel $active | .who %actifchannel  } }
alias -l clonechk {
  if (%clones) {
    var %i = $calc($count(%clones,$chr(32)) + 1)
    while (%i > 0) { did -a chanscan 9 ( $+ $ialchan($gettok(%clones,%i,32),$active,0) $+ ) Clone: $+ $gettok(%clones,%i,32) | dec %i }
    unset %clones | .disable #rawchk | did -b chanscan 2 | .timer 1 1 did -e chanscan 2 | did -u chanscan 6
  }
  else { unset %clones | did -a chanscan 9 $active $+ 'da clone bulunamadı. | did -b chanscan 2 | .timer 1 1 did -e chanscan 2 | did -u chanscan 6  | .disable #rawchk }
}
alias -l awayscan { if ($active ischan) { did -r chanscan 9 |  .set %actifchannel $active | .who %actifchannel   } }
alias -l awayscanchk {
  if (%awaynicks) {
    var %i = $calc($count(%awaynicks,$chr(44)) + 1)
    while (%i > 0) { did -a chanscan 9 $gettok(%awaynicks,%i,44) | dec %i }
    unset %awaynicks
    .disable #rawchk
  }
  else { did -r chanscan 9 | did -a chanscan 9 %actifchannel 'da away bulunamadı. | unset %awaynicks | .disable #rawchk }
}
alias -l ircopscan { if ($active ischan) { did -r chanscan 9 | .set %actifchannel $active | .who %actifchannel   } }
alias -l ircopscanchk {
  if (%ircopnicks) { var %i = $calc($count(%ircopnicks,$chr(44)) + 1) | while (%i > 0) { did -a chanscan 9 $gettok(%ircopnicks,%i,44) | dec %i }
    unset %ircopnicks | .disable #rawchk
  }
  else { did -r chanscan 9 | did -a chanscan 9 %actifchannel 'da IRCop bulunamadı. | unset %ircopnicks | .disable #rawchk }
}
alias -l statscan {
  if ($active ischan) {
    .timer -m 1 1 did -ra chanscan 9 $active Kanalı bilgileri $+ :
    var %ops = ( $+ $opnick($active,0) $+ ) 
    var %helps = ( $+ $hnick($active,0) $+ ) 
    var %voices = ( $+ $vnick($active,0) $+ ) 
    var %totals = ( $+ $nick($active,0) $+ ) 
    .timerblah2 -m 1 100 did -a chanscan 9 Op : %ops
    .timerblah3 -m 1 100 did -a chanscan 9 Yardım : %helps
    .timerblah4 -m 1 100 did -a chanscan 9 Voice : %voices
    .timerblah5 -m 1 100 did -a chanscan 9 Toplam  : %totals
    .timer 1 1 did -e chanscan 2
    .timer 1 3 unset %ops %helps %voices %totals
  }
}
alias chanscan { dialog -m chanscan chanscan }
dialog chanscan {
  title "Super Tarama"
  size -1 -1 100 150
  option dbu
  button "Kapat",1, 55 137 30 10, ok,flat
  button "Tara",2, 17 137 30 10, disable,flat
  box "Tarama  Seciniz",3, 2 2 97 60
  box "Sonuç:",4, 2 63 97 71
  radio "Away Tarama",5, 10 13 60 10, group,flat
  radio "Clone Tarama",6, 10 24 60 10,flat
  radio "IRCop Tarama",7, 10 35 60 10,flat
  radio "Kanal Tarama",8, 10 46 60 10,flat
  list 9, 5 70 91 70 ,flat, 
}
on *:dialog:chanscan:sclick:*:{
  if ($did == 2) {
    if (%scan.type == clones) { clonescan1 | did -ra chanscan 9 Clone Taranıyor... Bekleyiniz... | did -u chanscan 6 | did -b chanscan 2 }
    if (%scan.type == away) { awayscan | did -ra chanscan 9 Away Taranıyor... Bekleyiniz... | did -u chanscan 5 | did -b chanscan 2 }
    if (%scan.type == ircop) { ircopscan | did -ra chanscan 9 IRCop Taranıyor... Bekleyiniz... | did -u chanscan 7 | did -b chanscan 2 }
    if (%scan.type == mode) { statscan | did -ra chanscan 9 Kanal Taranıyor... Bekleyiniz... | did -u chanscan 8 | did -b chanscan 2 }
  }
  if ($did == 5) { did -e $dname 2 | set %scan.type away | .enable #rawchk }
  if ($did == 6) { did -e $dname 2 | set %scan.type clones | .enable #rawchk }
  if ($did == 7) { did -e $dname 2 | set %scan.type ircop | .enable #rawchk }
  if ($did == 8) { did -e $dname 2 | set %scan.type mode }
}

#rawchk off
raw 352:*:{
  if (%scan.type == away) && (G isin $7) { set %awaynicks $addtok(%awaynicks,$6,44) }
  if (%scan.type == ircop) && (* isin $7) { set %ircopnicks $addtok(%ircopnicks,$6,44) }
}
raw 315:*:{
  if (%scan.type == away) { did -ra chanscan 9 %actifchannel 'da awaylar: | awayscanchk | .timer 1 1 did -e chanscan 2 }
  if (%scan.type == ircop) { did -ra chanscan 9 %actifchannel 'da IRCoplar: | ircopscanchk | .timer 1 1 did -e chanscan 2 }
  if (%scan.type == clones) { clonescan | .timer 1 1 did -e chanscan 2 }
}
#rawchk end

menu channel,status,menubar {
  Tarayıcılar:.chanscan
}