on $*:TEXT:/^(brb|gone|afk)/Si:#:{
  if (!$readini(idle.ini, $nick, time)) {
    set %away $nick
    writeini idle.ini $nick time $ctime
    msg $chan Alright, ill start my stop watch..
  }
  elseif ($readini(idle.ini, $nick, time) >= 1) {
    msg $chan $nick $+ ,you are already marked as brb, Please say "back" when you return!
  }
}

on *:text:back:#:{
  if ($readini(idle.ini, $nick, time) >= 1) {
    unset %away
    msg $chan Welcome back $nick you were gone for $duration($calc($ctime -$readini(idle.ini, $nick, time) )) $+ , what took you so long?
    remini idle.ini $nick
  }
}
on *:TEXT:!ClearAway *:#:{
  if (!$2) { msg $chan Please specify a nick!
  }
  else {
    unset %away
    remini idle.ini $2
    msg $chan $2 $+ 's brb time has been cleared.
  }
}
On *:TEXT:*:#: {
  if (%away isin $1-) {
    msg $chan Sorry $nick but there marked as brb at this time, they will say back when they return.
  }
}