Someone

alias gone {
  set %away.reason $iif($1 == -n,$3-,$1-)
  set %away.ctime $ctime
  away %away.reason
  var %x = $chan(0)
  while (%x) {
    if ($chan(%x) != #IRChelp && $chan(%x) != #support && $chan(%x) != #mirc && $chan(%x) != #IdleRPG && $chan(%x) != #swiftirc && $chan(%x) != #msl) { msg $chan(%x) 7I 4am 7now 4away 7reason 4¤7][4¤4 %away.reason 4¤7][4¤ 4Left 7at 4¤7][4¤7 $time(HH:nn:ss) 4¤7][4¤  } 
    dec %x
  }
}


}
alias back {
var %x = $chan(0)
while (%x) {
  if ($chan(%x) != #IRChelp && $chan(%x) != #support && $chan(%x) != #mirc && $chan(%x) != #IdleRPG && $chan(%x) != #swiftirc && $chan(%x) != #msl) { msg $chan(%x) amsg 7I 4am 7now 4back 7from 4¤7][4¤4 %away.reason 4¤7][4¤4¤7][4¤ } 
  dec %x
  unset %away.*
  away
}