i dont remember who originally did it i found it here but i edited it

on $*:TEXT:/^(brb|gone|afk|bbiab|bbiac|bbiaf|bbl)/Si:#:{
  if (!$readini(away.ini, $nick, time)) && (!$2) {
    set %away $nick
    writeini away.ini $nick time $ctime
    writeini away.ini $nick Reason no reason
    msg $chan $nick is now away
  }
  elseif ($readini(away.ini, $nick, time) >= 1) {
    msg $chan $nick $+ ,your already on brb to return please say back
  }
  else { if (!$readini(away.ini, $nick, time)) && ($2) {
      set %away $nick
      writeini away.ini $nick time $ctime
      writeini away.ini $nick Reason $2-
      msg $chan $nick is now away
    }
    elseif ($readini(away.ini, $nick, time) >= 1) {
      msg $chan $nick $+ ,your already on brb to return please say back
    }
  }
}
on $*:TEXT:/^(back)/Si:#:{
  if ($readini(away.ini, $nick, time) >= 1) {
    unset %away
    msg $chan Welcome back $nick you were gone for $duration($calc($ctime -$readini(away.ini, $nick, time) ))  away reason Reason $readini(away.ini, $nick, Reason)
    remini away.ini $nick
  }
}
on $*:TEXT:/^(!clearaway)/Si:#:{
  if (!$2) { msg $chan you must give a nick for the info to be deleted
  }
  else { 
    unset %away
    remini away.ini $2
    msg $chan $2 $+ 's away info has been deleted
  }
}
On *:TEXT:*:#: {
  if (%away isin $1-) {
    msg $chan hello $nick %away is away right now reason $readini(away.ini, $nick, Reason)
  }
}