Away Manager

menu channel {
  .$iif($group(#away).status iswm on, Away Manager, Away Manager )
  ..Leaving:{
    scon -a away I am not active at the moment:[ $$?="Your away Reason" ]:I will return shortly.
    echo $color(notice) -at You just have set /away.
    set %away.time $ctime
    .enable #away
  }
  ...Returning:{
    echo $color(notice) -at You just have unset /away. You were gone for: $duration($calc($ctime - %away.time))
    .disable #away
    scon -a away
    unset %away.time *
  }
}

#away off
on *:OPEN:?:*:{
  inc -u10 %floodpro.open
  if (%floodpro.open >= 3) { ignore -u30 *!*@* | halt }
  if ($group(#away).status == on) {
    if (!@AwayMsg) { window -ae3 @AwayMsg }
    notice $nick $awaymsg
    notice $nick Email: <SebLemery@Gmail.com>
    aline @AwayMsg $+(14[8,$fulldate,14]3) $+(14,$chr(40),3,$nick,14,$chr(41)) 10 $+ $1-
    close -m $nick
  }
}
on *:TEXT:*:#:{
  inc -u10 %floodpro. [ $+ [ $nick ] ]
  if (%floodpro. [ $+ $nick ] ] >= 2) { ignore -u30 $nick | halt }
  if (($istok($1-,$me,32)) && ($group(#away).status == on)) {
    notice $nick $awaymsg : It has been4 $duration($calc($ctime - %away.time))
  }
}
on *:ACTION:*:#:{
  inc -u10 %floodpro. [ $+ [ $nick ] ]
  if (%floodpro. [ $+ $nick ] ] >= 2) { ignore -u30 $nick | halt }
  if (($istok($1-,$me,32)) && ($group(#away).status == on)) {
    notice $nick $awaymsg : It has been4 $duration($calc($ctime - %away.time))
  }
}
#away end