on *:text:!gone*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Blueflamez13) {     
    set $($+(%,otherreason,.,$nick),2) $2-  
    set $($+(%,othertime,.,$nick),2) $ctime 
  .msg $chan $c1 $nick is now away $c2 Reason: $c1([[) $c2 $2- $c1(]]) 
  } 
}

on *:text:!back:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Blueflamez13) { 
    unset $($+(%,otherreason,.,$nick),2) 
    .msg $chan $c1 $nick has returned: $c2([[) $c1 Away Since $c2(]]) $c1 $duration($calc($ctime - $($+(%,othertime,.,$nick),2)) 
    unset $($+(%,othertime,.,$nick),2) 
  } 
}

on *:text:*:#:{ 
  if ($($+(%,otherreason,.,$1),2)) { 
    .notice $nick The nick $1 is away Reason:[[ $($+(%,otherreason,.,$nick),2) ]] 
  } 
}