/ScriptServ

[script]
n0=alias setaway {
n1=  if ( %away.beenidle == YES ) { goto end }
n2=  if ( $Away == $true ) { goto resetawaymsg }
n3=  set %orignick $me
n4=  nick $me[a]
n5=  :resetawaymsg
n6=  set %away.secs 0
n7=  set %away.mins 0
n8=  set %away.hrs 0
n9=  .timerasec 0 1 inc %away.secs 1
n10=  .timerarstsec 0 60 set %away.secs 0
n11=  .timeramins 0 60 inc %away.mins 1
n12=  .timerarstmins 0 3600 set %away.mins 0
n13=  .timerahrs 0 3600 inc %away.hrs 1
n14=  if ( %away.reason == $null ) { set %away.reason $$?="reason" }
n15=  .timeratellaway 0 1800 /awayAd 
n16=  ame is [Away] - $chr(91) $+ Reason: %away.reason $+  $+ $chr(93) - $chr(91) $+ Pager: %away.pager $+  $+ $chr(93) $irc
n17=  away %away.reason  - $chr(91) $+ Pager: %away.pager $+  $+ $chr(93) - $chr(91) $+ Left at: $remove($atime, $chr(91), $chr(93)) $+  $+ $chr(93) $irc
n18=  if ( %away.pager == ON) { .enable #awaypager | .timer -m 1 500 echo $moontxt2(Initializing pager...) } 
n19=  :end
n20=}
n21=alias awayAd {
n22=  ame is [Away] - $chr(91) $+ Reason: %away.reason $+  $+ $chr(93) - $chr(91) $+ Pager: %away.pager $+  $+ $chr(93) - $chr(91) $+ Gone: %away.hrs $+ hrs, %away.mins $+ mins, %away.secs $+ secs $+ $chr(93) $irc
n23=}
n24=alias setback {
n25=  if ( $away == $false ) && ( away !isin $nick ) { echo -a $moontxt2(Error: You Cannot Come Back If You Are Not Away) | goto end }
n26=  .timer 1 300  unset %away.beenidle 
n27=  .nick %orignick
n28=  .timer 1 1 ame is [Back] - $chr(91) $+ From: %away.reason $+  $+ $chr(93) - $chr(91) $+ Gone: %away.hrs $+ hrs, %away.mins $+ mins, %away.secs $+ secs $+ $chr(93) $irc
n29=  .unset %away.reason | .unset %away.secs | .unset %away.mins | .unset %away.hrs
n30=  .away
n31=  .disable #awaypager
n32=  .timerasec off
n33=  .timerarstsec off
n34=  .timeramins off
n35=  .timerarstmins off
n36=  .timerahrs off
n37=  .timeratellaway off
n38=  if ( %away.pager == ON) {
n39=    if ( $lines($mircdirsystem\pager.txt) > 0 ) { 
n40=      echo -a $moontxt2(You Have) $moontxt2($lines($mircdirsystem\pager.txt)) $moontxt2(Message) $+ (s) $moontxt2(On Your Pager)
n41=      showpager  
n42=    }
n43=    else { 
n44=      echo -a $moontxt2(You Have No New Pager Messages) 
n45=    }
n46=  }
n47=  :end
n48=  set %away.pager OFF
n49=  .timerrefreshpage off
n50=}
n51=alias showpager {
n52=  window -ak @MoonScriptIRC_Pager fixedsys
n53=  aline @MoonScriptIRC_Pager $moontxt2(******** Moon) $+ $moontxt2(Script IRC Pager ********)
n54=  aline @MoonscriptIRC_Pager -  
n55=  set %pager.pages $lines($mircdirsystem\pager.txt)
n56=  if ( %pager.pages == 0 ) { goto nopages }
n57=  set %i 1
n58=  :loopin
n59=  if ( %i > %pager.pages ) { goto loopout }
n60=  aline -p @MoonScriptIRC_Pager %i $+ $chr(41) $read -l $+ %i $mircdirsystem/pager.txt
n61=  aline @MoonScriptIRC_Pager -
n62=  inc %i 1
n63=  goto loopin
n64=  :nopages
n65=  aline @MoonScriptIRC_Pager $moontxt2(No Pages)
n66=  :loopout
n67=}
n68=
n69=alias pageleft { 
n70=  set %pager.numpages $lines($mircdirsystem\pager.txt)
n71=}
n72=menu @MoonScriptIRC_Pager {
n73=  Clear Pages: { write -c $mircdirsystem\pager.txt | echo $moontxt2(All Pages Have Been Cleared) }
n74=  -
n75=  Close: { window -c @MoonScriptIRC_Pager }
n76=}
n77=
n78=
n79=#awaypager off
n80=on *:TEXT:*:#: {
n81=  if ( $me isin $strip($1-) ) { 
n82=    .notice $nick 8,1I am currently [Away] - $chr(91) $+ %away.reason $+ $chr(93) - $chr(91) $+ Pager: $+ %away.pager $+  $+ $chr(93) - $chr(91) $+ Gone: %away.hrs hrs, %away.mins mins $+ $chr(93) *** To leave me a message type /msg $me !page <Your Message> *** - $irc 
n83=  } 
n84=}
n85=on *:ACTION:*:#: { 
n86=  if ( $me isin $strip($1-) ) {
n87=    .notice $nick 8,1I am currently [Away] - $chr(91) $+ %away.reason $+ $chr(93) - $chr(91) $+ Pager: $+ %away.pager $+  $+ $chr(93) - $chr(91) $+ Gone: %away.hrs hrs, %away.mins mins $+ $chr(93) *** To leave me a message type /msg $me !page <Your Message> *** - $irc 
n88=  } 
n89=}
n90=on *:text:*:?: { 
n91=  if ( page !isin $strip($1) ) {
n92=    .msg $nick 8,1I am currently [Away] - $chr(91) $+ %away.reason $+ $chr(93) - $chr(91) $+ Pager: $+ %away.pager $+  $+ $chr(93) - $chr(91) $+ Gone: %away.hrs hrs, %away.mins mins $+ $chr(93) *** To leave me a message type /msg $me !page <Your Message> If you do not page me, I will NOT see your message! *** - $irc
n93=    echo -a $moontxt2(AWAY:) $moontxt2($nick) $moontxt2(Is Trying To /msg You:) ( $+ $moontxt2($strip($1-)) $+ )
n94=    .ignore -u3 $nick | close -m $nick
n95=    goto end 
n96=  }
n97=  elseif ( page isin $strip($1) ) { 
n98=    .msg $nick $moontxt2(Thank You For Paging Me) - $moontxt2(I Will Read Your Message As Soon As I Can) $+ $moontxt2(!!!) - $irc
n99=    write $mircdirSystem\pager.txt $moontxt2([Date]:) $moontxt2($date(m/dd/yy)) $moontxt2([Time]:) $moontxt2($atime) $moontxt2([Nick]:) $moontxt2($nick) $moontxt2([Message]:) $moontxt2($strip($2-))
n100=    echo -a $moontxt2($nick) $moontxt2(Has Just Paged You:) ( $+ $moontxt2($strip($2-)) $+ ) 
n101=    .ignore -u3 $nick | close -m $nick
n102=    pageleft 
n103=  }
n104=  :end
n105=} 
n106=on *:action:*:?: { 
n107=  if ( page !isin $strip($1) ) {
n108=    .msg $nick 8,1I am currently [Away] - $chr(91) $+ %away.reason $+ $chr(93) - $chr(91) $+ Pager: $+ %away.pager $+  $+ $chr(93) - $chr(91) $+ Gone: %away.hrs hrs, %away.mins mins $+ $chr(93) *** To leave me a message type /msg $me !page <Your Message> If you do not page me, I will NOT see your message! *** - $irc
n109=    echo -a $moontxt2(AWAY:) $moontxt2($nick) $moontxt2(Is Trying To /msg You:) ( $+ $moontxt2($strip($1-)) $+ )
n110=    .ignore -u3 $nick | close -m $nick
n111=  } 
n112=  elseif ( page isin $strip($1) ) { 
n113=    .msg $nick $moontxt2(Thank You For Paging Me) - $moontxt2(I Will Read Your Message As Soon As I Can) $+ $moontxt2(!!!) - $irc
n114=    write $mircdirSystem\pager.txt $moontxt2([Date]:) $moontxt2($date(m/dd/yy)) $moontxt2([Time]:) $moontxt2($atime) $moontxt2([Nick]:) $moontxt2($nick) $moontxt2([Message]:) $moontxt2($strip($2-))
n115=    echo -a $moontxt2($nick) $moontxt2(Has Just Paged You:) ( $+ $moontxt2($strip($2-)) $+ ) 
n116=    .ignore -u3 $nick | close -m $nick
n117=    pageleft 
n118=  }
n119=  :end
n120=}
n121=#awaypager end