on $*:text:/^[!@.]set away */Si:#: {
  if ($nick == [FI]Bab) {
    set %awaytime $gonetime
    set %away $3-
    amsg 1[4-Bab-1] 12Im now away!
} }

on *:Text:Bab*:#:{  
  inc %pcwcount
notice $nick 1- 12Bab is away, reason:4 %away 1- 12Set:4 $duration($calc(%gonetime - %awaytime)) 12ago }

on *:Text:Back*:#:{ 
  if ($nick == [FI]Bab) { 
    amsg 1[4-Bab-1] 12Im now back 
set %away off } }