Unnamed

alias aw {
  if (%away == $null) {
    if ($1 == -n) {
      set %away $iif($2-,$2-,No Reason)
      set %awaynick $me
      set %timeaway $ctime
      .nick $me $+ |AWAY
      unset %noted.*
      unset %pm.*
      .timer 1 2 ns id ROFL
      away 10[4 $+ $iif($2-,$2-,No Reason) $+ 10]
    }
    else {
      set %away $iif($1-,$1-,No Reason)
      set %awaynick $me
      set %timeaway $ctime
      unset %noted.*
      unset %pm.*
      .timer 1 3 nick $me $+ |AWAY
      amsg 10[4Away10]4: 10[4 $+ $iif($1-,$1-,No Reason) $+ 10] $chr(124) $+ $chr(124) [4 $+ $c2($time(hh:nn:ss:TT)) $+ 10]
      .timer 1 4 ns id ROFL
      away 10[4 $+ $iif($1-,$1-,No Reason) $+ 10]
    }
    else echo -t 10I'm already away.
  }
}
alias back {
  if (%away != $null) {
    if (-n iswm $1-) {
      .nick %awaynick
      .timer 1 5 unset %away
      .timer 1 5 unset %awaynick
      .timer 1 5 unset %timeaway
      .timer 1 1 ns identify ROFL
      unset %noted.*
      unset %pm.*
      away
    }
    else {
      nick %awaynick
      .timer 1 5 unset %away
      .timer 1 5 unset %awaynick
      .timer 1 5 unset %timeaway
      unset %noted.*
      unset %pm.*
      .timer 1 3 amsg 10[4Back10]4: 10[4 $+ %away $+ 10] $chr(124) $+ $chr(124) [4 $+ $c2($duration($calc($ctime - %timeaway))) $+ 10]
      .timer 1 1 ns identify ROFL
      away
    }
    else echo -t 10I'm not away.
  }
}
menu * {
  -
  Away
  .Away (R):/aw $$?"Reason?"
  .Away -n:/aw -n
  .Away -n (R):/aw -n $$?"Reason?"
  .Back:/back
  .Back -n:/back -n
  .You are $+ $chr(58) $chr(91) $+ $+ $iif(%away,Away,Not Away) $+ $chr(93):/halt
}
on *:text:*:?:{
  if ($nick != -psybnc) {
    if (%away) {
      if (!%pm. [ $+ [ $address($nick,2) ] ]) {
        if (!@window(@conv)) window -n @conv 
        aline -a @conv 10[ $+ $asctime(hh:nn:ss) $+ ] 4 $nick 10Pmed:4 [10 $+ $1- $+ 4]
        msg $nick 10I'm currently away: [4 $+ %away $+ 10] $chr(124) This is a 4 110 time response.
        msg $nick 10I have recorded your message and will get back to you soon.
        set %pm. [ $+ [ $address($nick,2) ] ] yo
        close -m $nick
      }
      else close -m $nick
    }
  }
}