Someone

On $*:TEXT:/^[!@](away|brb|bbl) ?/Si:#: {
  set %time $time
  set %time2 $asctime
  set %reason $2-
  if (*$* iswm $3-) {
    notice $nick The character "$" is not allowed to be set in away messages.
  }
  else {
    writeini away.ini $address($nick,2) Away $2-
    /notice $nick $c1([-) $c2(Away) $c1(-]) $c1(Your away message has been set to:) $c2(%reason) $c1(Left at:) $c2(%time)
    /msg $chan $c1([-) $c2(Away) $c1(-]) $c2($nick) $c1(is currently away reason being) $c2(%reason) $c1(Left at:) $c2(%time)
  }
}

On $*:TEXT:/^[!@](back) ?/Si:#: {
  set %reason1 [ $+ [ $nick ] ] $readini(away.ini, n, $address($nick,2), Away)
  remini away.ini $address($nick,2)
  notice $nick $c1 You are now back, welcome back! 
  msg $chan $c1([-) $c2(Back) $c1(-]) $c2($nick) $c1 is finally back from  $c2(%reason1 [ $+ [ $nick ] ]) $c1(I was preoccupied for:) $c2($duration($calc(($ctime - $ctime(%time2)))))
  unset %oldreason [ $+ [ $nick ] ]
}
}