Unnamed

on *:TEXT:*:#: {
  if ($1- == !away *) {
    if ($address($nick,2) == *!*@Swift-D534C743.twcny.res.rr.com) {
      if (%Away.MODE == Here) {  
        set %Away.MODE Away
        set %Away.TIME $ctime
        set %Away.REASON $2-
        amsg I am away: $2-
      }
    }
  }
  if ($1- == !back) {
    if ($address($nick,2) == *!*@Swift-D534C743.twcny.res.rr.com) {
      if (%Away.MODE == Away) {
        set %Away.MODE Here
        set %Away.TIME 0
        amsg I am back: $2- ($duration($calc($ctime - %time),2))
      }
    }
  }
}