on *:TEXT:brb*:#:{
  if ($nick == Swe|Leader) {
    if (%timegone. [ $+ [ $nick ] ] == $null) {
      if ($2 == $null) {
        /set %reasongone. [ $+ [ $nick ] ] 14 -No Reason Given-
      }
      else {
        /set %reasongone. [ $+ [ $nick ] ] $2-
      }
      /set %timegone. [ $+ [ $nick ] ] $ctime
      /msg $chan   6 $nick  10 has just left, he/she will be right back... 6[ Reason = 7 %reasongone. [ $+ [ $nick ] ]  6]!
    }
  }
}

on $*:TEXT:/^(back|bak|bk)/Si:#:{
  if (%timegone. [ $+ [ $nick ] ] != $null) {
    /msg $chan   6 $nick  10 has just returned, Time Gone 7 $duration($calc($ctime - %timegone. [ $+ [ $nick ] ] $ctime))) ...6[ Reason = 7 %reasongone. [ $+ [ $nick ] ]  6]!
    /unset %timegone. [ $+ [ $nick ] ]
    /unset %reasongone. [ $+ [ $nick ] ]
  }
}
on *:Text:*Swe|Leader*:#:{
  if (!%reasongone.Swe|Leader) { halt }
  else {
    msg $chan 6Swe|Leader 10is currently away, he'll be right back. 6[ Reason Gone: 7 %reasongone. [ $+ [ $nick ] ] 6]
  }
}
on *:text:*:#:{
  if ((!%reasongone. [ $+ [ $nick ] ]) || (back isin $1-)) { halt }
  else { 
    notice $nick You're currently set as away. Please type 'Back', so users know you returned.
  }
}