on *:TEXT:brb *:#:{
  if (!%away. [ $+ [ $address($nick,2) ] ]) {
    if ($len($2-) <= 100) {
      set %awaytime. [ $+ [ $address($nick,2) ] ] $ctime
      set %away. [ $+ [ $address($nick,2) ] ] $iif($2,$2-,No reason)
      msg $chan $nick Will be right back, Reason: $+([,$iif($2,$2-,No reason),])
    }
  }
}
on *:TEXT:back:#:{
  if (%away. [ $+ [ $address($nick,2) ] ]) {
    msg $chan $nick is back from [ %away. [ $+ [ $address($nick,2) ] ] ] and was gone for  $+($chr(91),$chr(3),07,$duration($calc($ctime - %awaytime. [ $+ [ $address($nick,2) ] ] )),$chr(3),$chr(93))
    unset %awaytime. [ $+ [ $address($nick,2) ] ]
    unset %away. [ $+ [ $address($nick,2) ] ] $iif($2,$2-,No reason)
  }
  else .notice $nick Youre not away
}