Something

on *:TEXT:!Offline*:#: { 
  if (%away == $null) { 
    set %away. [ $+ [ $nick ] ] $2- 
    set %awaytm. [ $+ [ $nick ] ] $ctime 
    set %awaynick. [ $+ [ $nick ] ] $nick 
    msg $chan 7,1 $nick is now offline.5 $2- $+ 13 
  } 
  else notice $nick your away :l 
} 
on *:TEXT:!Online*:#: { 
if (%away.[ $+ [ $nick ] ]  != $null ) || (%awaynick. [ $+ [ $nick ] ] != $null) || (%awaytm. [ $+ [ $nick ] ] != $null) { halt }
  msg $chan 7,1 $nick 7online:7 %away. [ $+ [ $nick ] ] $+ 7. Time away:04 $duration($calc($ctime - $eval($+(%,awaytm.,$nick),2))) $+ 1. 
  unset %away. [ $+ [ $nick ] ] 
  unset %awaynick. [ $+ [ $nick ] ] 
  unset %awaytm. [ $+ [ $nick ] ] 
} 
else notice $nick your not away 
}