on *:connect: {
  .timer 0 1800 /awayscan
}

#awayscan on
alias awayscan {
  var %chan
  if ($hget(awayscan)) { hfree awayscan }
  if ((!$1) && ($active !ischan)) { msg $chan(#AzuLa) - | msg $chan(#AzuLa) * /awayscan: you are not on a channel | msg $chan(#AzuLa) - | 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 $chan(#AzuLa) 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 $chan(#AzuLa) Totally found $+(,$hget(awayscan,away),) away users
    if ($hget(awayscan,away) > 0) {
      %away = $hget(awayscan,names)
      msg $chan(#AzuLa) Away Users: %away
    }
    hfree awayscan
    msg $chan(#AzuLa) End of awayscan
    haltdef
  }
}
#awayscan end