Pasted

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