Just a simple small away snippet brb with flood protection.

on *:input:*:{ 
  if (brb - ?* iswm $1-) scid -at1 away $3- 
} 
on $*:text:$($+(/(?<=^| ),$me,(?= |$)/x)):*:{ 
  if ($away) && (!%flood) { 
    inc -u5 %flood 
    msg $nick I am currently away: $awaymsg $+ , I have been gone for $duration($awaytime) 
  } 
}