Away Msg

alias awai {
  if (%awai == 1) {
    awaiback %awaimsg
  }
  if (%awai != 1) {
    set %awai 1
    set %awaimsg $$1-
    awaimsg $$1-
  }
}
alias awaimsg {
  set %time $time
  var %n $chan(0)
  while (%n) {
    if (!$read(dunamsg.txt,w,$chan(%n))) {
      msg $chan(%n) 14[7AWAY14][ $+ $eval($time,2) $+ 14] $$1-
      away $$1-
    }
    dec %n
  }
}
alias awaiback {
  set %time $time
  var %n $chan(0)
  while (%n) {
    if (!$read(dunamsg.txt,w,$chan(%n))) {
      msg $chan(%n) 14[7BACK14][ $+ $eval($time,2) $+ 14] $$1- for $duration($awaytime,2)
      unset %awai*
      unset %awai
    }
    dec %n
  }
  away
}