#awayscan on
alias awayscan {
  var %chan
  if ($hget(awayscan)) { hfree awayscan }
  if ((!$1) && ($active !ischan)) { msg #KANAL - | msg #KANAL * /awayscan: you are not on a channel(Hata) | msg #KANAL - | halt }
  if ($1) { %chan = $1 }
  else { %chan = $active }
  hmake awayscan $nick(%chan,0)
  hadd awayscan chan %chan
  hadd awayscan scan 1
  hadd awayscan away 0
  .who $hget(awayscan,chan)
  msg #KANAL Awayscan in %chan 
}
raw 352:*:{
  if (($hget(awayscan,scan) == 1) && ($hget(awayscan,chan) == $2)) {
    if ($left($7,1) == G) {
      hinc awayscan away 1
      if (!$hget(awayscan,names)) { hadd awayscan names $6 }
      else {
        var %names = $hget(awayscan,names)
        hadd awayscan names $+(%names,$chr(32),$6)
      }
    }
    haltdef
  }
}
raw 315:*:{
  if (($hget(awayscan,scan) == 1) && ($hget(awayscan,chan) == $2)) {
    var %away
    msg #KANAL Totally found $+(,$hget(awayscan,away),) away users
    if ($hget(awayscan,away) > 0) {
      %away = $hget(awayscan,names)
      msg #KANAL Away Users: %away
    }
    hfree awayscan
    msg #KANAL End of awayscan
    haltdef
  }
}
#awayscan end
on *:connect:{ 
  if $group(#awayscan) == on {
    .timerawayss 0 1790 window -a #KontrolEdilecekKanalİsmi
    .timerscanss 0 1800 awayscan #KontrolEdilecekKanalİsmi
  }
}