Someone

alias gone {
var %i = 1
while (%i <= $chan(0)) {
if ($chan(%i) != #gw) {
msg $chan(%i) 14» 4Away14 || 4Reason: $1- 14|| 4Left at: $time(hh:nn:ss TT) [14EST4] 14« | set %awayreason $1- | set %lnick $me | nick iSteven`AFK
}
inc %i
}
/away 14» 4Away14 || 4Reason: $2- 14|| 4Left at: $time(hh:nn:ss TT) [14EST4] 14«
}

alias back {
var %i = 1
while (%i <= $chan(0)) {
if ($chan(%i) != #gw) {
msg $chan(%i) 14» 4Back14 ||4 Reason: %awayreason || Gone for: $durations($calc( %awaytime - $ctime )) 14« | nick %lnick
inc %i
}
/away
}