on *:TEXT:away*:#: {
  if ($nick == if_i_poon) {
    set %gone. [ $+ [ $nick ] ] $2-
    set %length. [ $+ [ $nick ] ] $ctime
    amsg 4(7Away4)14 $2- 4(14From7 $time 4) (14 $+ $date %date $+ 4)
  }
}

on *:TEXT:back*:#: {
  if ($nick == if_i_poon) {
    amsg 4(7Back From4)14 %gone. [ $+ [ $nick ] ] 4(14Gone for7 $duration($calc($ctime - %length.[ $+ [ $nick ] ] $ctime)) $+ 4) 
    unset %gone. [ $+ [ $nick ] ]
    unset %length. [ $+ [ $nick ] ]
  }
}