/ScriptServ

menu channel {
  KLøWn× Away
  .Set Away:/awaycc
  .Set Back:/backcc
  .Away System Options
  ..Set Away Message Timer:/mtimer
  ..Set Normal Away Nick:/awnick | set %pager 3,15(4On3) Type (4/ctcp  $?="Enter Away nick again" PAGE3) to get a hold of me. 3(02K07L13ø12W05ñ07×3)  | halt
  ..Set Pager Sound:/setspage
  .Pager
  ..On:/pageron
  ..Off:/pageroff
}

alias awaycc {
  /unset %awaya
  /unset %onick
  /unset %timecc
  /unset awaytime
  /unset %awayr
  /set %awaya on
  /set %onick $me
  /nick %awnick
  /set %timecc $time on $date $+. 
  /set %awaytime %awaytmr
  /set  %awayr $?="Why are you away?" { if %awayr == $null { /set %awayr Reason Not Entered } }
  /away $me is Away Reason: ( $+ %awayr $+ )
  /echo 3 $me $+ , you are now set as Away.  Reason: ( $+ %awayr $+ )
  /ame 3,15has been Away since4 %timecc $+ 3.  Reason: (4 $+ %awayr $+ 3) 13Pager: %pager
  /timer200 0 %awaytime /ame 3,15has been Away since4 %timecc $+ 3.  Reason: (4 $+ %awayr $+ 3) 13Pager: %pager
  /set %pager 3,15(4On3) Type (4/ctcp $me PAGE3) to get a hold of me.    3(02K07L13ø12W05ñ07×3)
  /unset %awnick2
}


alias backcc {
  /away 
  /nick %onick
  /echo 3 Welcome back %onick $+ . All messages are deactivated.  (02K07L13ø12W05ñ07×1)
  /timer 1 3 /ame 3,15is now back from being away.4  %onick 3left at4 %timecc $+ 3.   3(02K07L13ø12W05ñ07×3)
  /timer200 off
  /timer 2 4 /unset %timecc
  /unset %awayr
  /unset %awaytime
  /timer 3 4 /unset %onick
  /unset %awaya
}

alias mtimer {
  /unset %awaytmr
  /set %awaytmr $?="How much of a delay between messages when away? (Secs 1-9999)" 
  { { if %awaytmr == $null { /echo 4 Message timer not set.  Reenter it please. | /awaytmrnu } }
    { if %awaytmr == 0 { /echo 4 Incorrect entery.  Reenter Please | /awaytmrnu } }
    { if %awaytmr >= 1 {  /echo 4 Message timer set at %awaytmr $+ . } }
    { if %awaytmr >= 10000 { /echo 4 Incorrect entery.  Reenter Please | /awaytmrnu } }
  }
}

alias awaytmrnu {
  /mtimer
}

alias F3 {
  /awaycc
}

alias F4 {
  /backcc
}


alias pageron {
  /unset %pager
  /unset %pagers
  /set %pagers on
  /set %pager 3,15(4On3) Type (4/ctcp $me PAGE3) to get a hold of me.    3(02K07L13ø12W05ñ07×3)
  /echo 4 Pager is now On.
}

alias pageroff {
  /unset %pager
  /unset %pagers
  /set %pager 3(4Off3)  3(02K07L13ø12W05ñ07×3)
  /echo 4 Pager is now Off
}

alias setspage {
  /unset %pagesound
  /set %pagesound $?="What sound file will you use for your page sound?"
  if %pagesound == $null { /echo 4 You did not set your sound correctly.  Please set it again. | /setspagenu }
  else { /echo 4 Your sound is now set. | /setspageri }
}

alias setspageri {
  /splay %pagesound
}


alias setspagenu {
  /setspage
}

alias awnick {
  /unset %awnick
  /set %awnick $?="What is your normal away nick?" {
    if %awnick == $null { /echo 4 Normal away nick not set.  Please reenter it. | /awnicknu }
    else { /echo 4 Normal away nick set as %awnick $+ . 
    }
  }
}

alias awnicknu {
  if %awnick == $null {  /awnick }
}

ctcp 1:page:*:if (%pagers == on ) { /splay %pagesound }

on 1:text:*:?:if %awaya == on { /msg $nick 4,15 $me is currently away.  Please try back later. }

on 1:load:/setspage | /awnick | /mtimer | /echo 4 You much turn on the pager before you first use this Away system.