/ScriptServ

[aliases]
n0=setaway {
n1=  %away.reason = $$?="Reason for being away:"
n2=  if ($$?!="Do you want the Message Logger on?" == $true) %away.msglog = On | else %away.msglog = Off
n3=  if ($$?!="Do you want the Pager on?" == $true) %away.pager = On | else %away.pager = Off
n4=  %away.gone = $ctime | %away.set = $mytime | away %away.reason
n5=  /timeraway 0 1200 //ame $_gone
n6=  //ame $_gone
n7=  if (%away.pager == On) window @Pager 140 200 403 195 pager.txt Verdana 12
n8=  if (%away.msglog == On) window @Message-Log 140 200 403 195 msglog.txt Verdana 12
n9=  set %msg 0
n10=}
n11=setback {
n12=  ame $_back | .timeraway Off | unset %away.* | away
n13=  .timer897 0 15 /checkidle
n14=  echo -a 14(9w14)15elcome back 9[15 $+ $me $+ 9]15 u have4 %msg 15msg(s)
n15=}
n16=antiidle {
n17=  if ($$1 == On) { %ai.chan = $chr(35) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(0,9) | .raw join %ai.chan | mode %ai.chan +silb 1 *!*@* | .timerai 0 120 msg %ai.chan 9,1 $+ %version }
n18=  if ($$1 == Off) { .timerai Off | part %ai.chan | unset %ai.chan }
n19=}
n20=checkidle {
n21=  if ($away == $true) goto end
n22=  if ($idle >= %autosecs) {
n23=    Echo 4 -a  (a)uto (a)way Set after %automins minute(s) Idle time type /autoback to come back
n24=    %away.gone = $ctime | %away.set = $mytime | away %default
n25=    /timeraway 0 600 //ame $_agone
n26=    //ame $_agone
n27=    if (%auto.pager == On) window @Pager 140 200 403 195 pager.txt Verdana 12
n28=    if (%auto.msglog == On) window @Message-Log 140 200 403 195 msglog.txt Verdana 12
n29=    .timer897 Off
n30=    set %msg 0
n31=  }
n32=  :end
n33=}
n34=autoaway {
n35=  if ($1 == $null) {
n36=    echo 4 -a Autoaway is currently : %autoaway
n37=  echo 4 -a Auto away after : %automins minute(s) Idle  }
n38=  elseif ($1 == On) {
n39=    set %autoaway On
n40=    if ($2 == $null) { %autosecs = 600 | %automins = 10 }
n41=    else { %autosecs = $2 * 60 | %automins = $2 }
n42=    echo -a AutoAway is ON, AutoAway after %automins minute(s) Idle
n43=    .timer897 0 15 /checkidle
n44=  }
n45=  elseif ($1 == Off) {
n46=    set %autoaway  Off | set %autosecs 0 | set %automins 0
n47=    echo -a Autoaway is Off
n48=    .timer897 Off
n49=  }
n50=}
n51=autoback {
n52=  ame $_aback | .timeraway Off | unset %away.* | away
n53=  .timer897 0 15 /checkidle
n54=  echo -a 14(9w14)15elcome back 9[15 $+ $me $+ 9]15 u have4 %msg 15msg(s)
n55=}
n56=autoawaymsg {
n57=  %default = $$?="Reason for being away:"
n58=}
n59=autoawaypager {
n60=  if ($$?!="Do you want the Pager On?" == $true) %auto.pager = On | else %auto.pager = Off
n61=}
n62=autoawaymsglog {
n63=  if ($$?!="Do you want the Message Logger On?" == $true) %auto.msglog = On | else %auto.msglog = Off
n64=}
n65=setaway {
n66=  %away.reason = $$?="Reason for being away:"
n67=  %away.gone = $ctime | %away.set = $mytime | away %away.reason
n68=  timeraway 0 1200 //ame is away koz blah blah at $time
n69=  ame $_gone
n70=}
n71=setback {
n72=  ame is back from %away.reason  | .timeraway Off | unset %away.* | away
n73=}