on $*:text:/^[!@.]set away */Si:#: {
  if ($nick == [FI]Bab) {
    set %awaytime set $gonetime
    set %away on
    amsg 1[4-Bab-1] 12Im now away!
} }
 
on *:Text:Bab*:#:{  
if (%away == on)
  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 } }