Forums Scripts & Popups Duration Away on /Whois me?

raw 311:*:$idle($2) | halt
alias -l idle { 
  if ($comchan($1,0)) { 
    var %c $comchan($1,0), %x, %n $1 | while (%c) { 
      %x = $addtok(%x,$duration($nick($comchan(%n,%c),%n).idle,3),32)
      dec %c 
    }
    .echo -q $nick $1 is away: duration: %x 
  }
}

raw 301:*:{
  if $3 {
    set $+(%,away,.,$network,.,$2) $3-
  }
}
raw 317:*:{
  if $($+(%,away,.,$network,.,$2),2) {
    echo -a $2 is away for $v1 Duration: $duration($3)
  }
  else {
    echo -a $2 is not marked as away, but has an idle time of $duration($3)
  }
}

menu status,channel,query {
  $iif(($status == connected),&Simple Away $iif($away,[you're away]))
  .$iif(($away && %awaywithtime.msg),Turn Back $+([gone $awaywithtime.duration,]),Go Away) : { 
    $iif(($away && %awaywithtime.msg),awaywithtime.back,awaywithtime.away)
  }
  .$iif(($away && %awaywithtime.msg),Turn Back $+([gone $awaywithtime.duration,]),Go Away) Silently : { 
    $iif(($away && %awaywithtime.msg),awaywithtime.back,awaywithtime.away) silent
  }
  .-
  .$iif(($away && %awaywithtime.msg),Change Away Reason $+([,%awaywithtime.msg,])) : {
    awaywithtime.change
  }
}

raw 305:*: { awaywithtime.unset } 
on *:disconnect: { awaywithtime.unset }

; go away
alias -l awaywithtime.away {
  away $$input(Enter away reason:,qeg,$iif(($1 == silent),Silent) Set Away)
  if ($1 == silent) { echo -agc info * You're now away $+([,$!,]) } 
  else { ame ladies and gentlemen! have to go now... see you soon $+([,$!,]) }
  set -e %awaywithtime.msg $!
  set -e %awaywithtime.time $ctime
  .timer.awaywithtime 0 60 away $(%awaywithtime.msg,0) - duration: $!awaywithtime.duration
}

; go back
alias -l awaywithtime.back {
  if ($1 == silent) { echo -agc info * You're now back form away $+([,$awaymsg,]) }
  else { ame is back from away $+([,$awaymsg,]) }
  away
  awaywithtime.unset
}

; change away reason
alias -l awaywithtime.change {
  set -e %awaywithtime.msg $$input(Enter new away reason:,qeg,Change Away Reason)
  away %awaywithtime.msg - duration: $awaywithtime.duration
}

; return away time (not resetting if reason is changed via script)
alias -l awaywithtime.duration { return $duration($calc($ctime - %awaywithtime.time),2) }

; stop updating and unset stored data (manual back/script back/disconnect)
alias -l awaywithtime.unset { .timer.awaywithtime off | unset %awaywithtime.* }

raw 317:*:{
  if $($+(%,away,.,$network,.,$2),2) {
    echo -a $2 is away for $v1 Duration: $duration($3)
  }
  else {
    echo -a $2 is not marked as away, but has an idle time of $duration($3)
  }
  haltdef
}