aWAI

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

}