;                        _       _  ___  ___ .  . |
;  /\  \    / /\  \ /   |_' \ / |_'  |  |_   |\/| |
; /  \  \/\/ /  \  |    ,_|  |  ,_|  |  |___ |  | |
; ------------------------------------------------- 
on 1:LOAD: {
  Window @Away.System
  aline @away.system -==[ Away - System v1.0 ]==-
  aline @away.system -
  aline @away.system Thank you for using this AWAY SYSTEM. This system
  aline @away.system features an Anti Idle where you join a channel like
  aline @away.system #Anti-Idle482. In the channel, it will keep
  aline @away.system repeating 'Ping Timeout'. The pager will recieve
  aline @away.system you pages and logs and place them into a window
  aline @away.system call @Pager. You Paged and Logged messages shall
  aline @away.system be place in them. There is also a timer. It will
  aline @away.system note how long you have been away in a channel and
  aline @away.system when you return.
  aline @away.system -
  aline @away.system Email: foosh@wwdg.com
}
#pager off
ctcp 1:PAGE: {
  if (%away == Yes) {
    .ctcpreply $nick PAGE Thank You for Paging. I will get back to you, maybe.
    .ignore -tu10 $nick 3
    echo 12 @Pager Paged: < $+ $nick $+ >0 *2
    echo 2 @Pager --------------------
  }
  if (%away == No) {
    .ctcpreply $nick PAGE $me is not away. You are being ignored.
    .ignore -tu15 $nick 3
  }
}
on 1:TEXT:*:?: {
  if (%away == Yes) {
    .msg $nick Message is being logged
    echo 12 @Pager Logged: < $+ $nick $+ >0 *1
    echo 2 @Pager --------------------
    .ignore -pu10 $nick 3
    halt
  }
  if (%away == No) {
  }
}
#pager end

alias away {
  if (%gone.nick == $null) {
    set %gone.nick $?="Nick to be used when your away"
  }
  set %away.time $time
  set %away.reason $1-
  set %back.nick $me
  nick %gone.nick
  amsg Away! 12-= $+ %away.reason $+ 12=- Type /ctcp $me PAGE <Message> To PAGE me
  raw -q away %away.reason Type /ctcp $me PAGE <Message> To PAGE me
  window @Pager 110 900 900 200
  aline @Pager 12-=2Paged/Logged Messages12=-
  aline @Pager 12--------------------------
  set %away yes
  .enable #pager
  timer6969 0 160 /noteaway
  set %Away.Mins 0 | .timer98 0 60 /inc %Away.Mins 1 | set %Away.Hours 0 | .timer97 0 3600 /inc %Away.Hours 1 | .timer96 0 3600 /set %Away.Mins 0
  .away.set
}

alias away.set {
  set %anti.idle $$?="Turn Anti Idle On (yes/no)"
  if (%anti.idle == yes) goto on
  if (%anti.idle == no) goto off
  if (%anti.idle == y) goto on
  if (%anti.idle == n) goto off
  else goto else
  :on
  /anti.idle.on
  :off
  /halt
  :else
  echo -a 9*** Please type yes/no |
  set %anti.idle $$?="Turn Anti Idle On (yes/no)"
}

alias noteaway {
  amsg Away! 12-= $+ %away.reason $+ 12=- for 12-=Time/ $+ %Away.Hours $+ hours %away.mins $+ minutes $+ 12=- at 12-=11 $+ %away.time $+ 12=-
}

alias back {
  savebuf @Pager $mircdir $+ Text/pages.txt
  .disable #Pager
  unset %away.reason
  unset %away
  timer6969 off
  nick %back.nick
  raw -q away
  amsg Back! Gone for %Away.Hours $+ Hours %Away.Mins $+ Mins since %away.time
  unset %back.nick
  unset %away.time
  unset %away.hours
  unset %away.mins
  if (%anti.idle == yes) anti.idle.off | else halt
}

alias anti.idle.on {
  set %anti.idle.chan #anti-idle $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9)
  join %anti.idle.chan
  mode %anti.idle.chan +stpinkl Anti-Idle 1
  topic %anti.idle.chan Private Anti Idle
  .timer99 0 20 msg %anti.idle.chan Ping Timeout
}

alias anti.idle.off {
  .timer99 off
  mode %anti.idle.chan -stpinlk
  topic %anti.idle.chan 
  part %anti.idle.chan
}

alias quit {
  if (%away == yes) back | raw -q /quit
  else raw -q /quit
}

menu channel {
  Away System
  .Set Away:/away $$?="Why are you away?"
  .Set Back:/back
  .-
  .Anti.Idle
  ..On:/anti.idle.on
  ..Off:/anti.idle.off
}