Reverse Code Engineering RCE CD +sandman 2000/ReverseCodeEngineeringRceCdsandman2000.iso/RCE/L2C/adenozin/SimpleScript.exe/Main/alias4.ini

INI File | 2000-05-25 | 21.8 KB | 601 lines

[aliases]
n0=/statsfs {
n1=  $$1 $2 2DCC 3Send 4Status5:
n2=  $$1 $2 5Total Number Of 2Gets 4Currently:3 $send(0)
n3=  $$1 $2 5Maximum Number  of 2Gets 4Total:3 %maxglobal
n4=  $$1 $2 5Total Number of Files 2Gotten 4From2 %fstrig $+ 5:3 %totalgets
n5=  /if ($send(0) > 0) {
n6=    $$1 $2 5Individual 2DCC 3Send 4Status5:
n7=    /set %abcabc 1
n8=    :abcabcl
n9=    /if (%abcabc <= $send(0) ) {
n10=      set %temp0 $send(%abcabc).size
n11=      set %temp1 $send(%abcabc).pc
n12=      set %temp5 $send(%abcabc).cps
n13=      %temp2 = 100 - %temp1
n14=      %temp2 = %temp2 / 100
n15=      %temp3 = %temp0 * %temp2
n16=      %temp4 = %temp3 / %temp5
n17=      $$1 $2 3  $send(%abcabc) 5has been sent2 $bkm($send(%abcabc).sent) 5of4 $send(%abcabc).file and is3 $send(%abcabc).pc $+ % $+ 5 done 5- 2Cps:3 $send(%abcabc).cps 2Left:3 $duration(%temp4)
n18=      /inc %abcabc
n19=      goto abcabcl
n20=    }
n21=    /unset %abcabc
n22=    /unset %temp0
n23=    /unset %temp1
n24=    /unset %temp2
n25=    /unset %temp3
n26=    /unset %temp4
n27=    /unset %temp5
n28=  }
n29=  /halt
n30=}
n31=/fsunban {
n32=  /set %temp1 $$?="User to unban:"
n33=  /set %temp2 $$?="Tell fserv channels (1=yes, 0=no)"
n34=  /if (%temp2 != 1) /set %temp2 0
n35=  /.ruser 100 %temp1 9
n36=  /notice %temp1 5You are now 3 unbanned 5 from %fstrig and all my extra triggers and my XDCC.
n37=  /if (%temp2 == 1) {
n38=    /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n39=    /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n40=    /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n41=    /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n42=    /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n43=  }
n44=  /unset %temp1
n45=  /unset %temp2
n46=}
n47=/fsunban2 {
n48=  /set %temp1 $$1
n49=  /set %temp2 $$2
n50=  /if (%temp2 != 1) /set %temp2 0
n51=  /.ruser 100 %temp1 9
n52=  /notice %temp1 5You are now 3 unbanned 5 from %fstrig and all my extra triggers and my XDCC.
n53=  /if (%temp2 == 1) {
n54=    /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n55=    /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n56=    /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n57=    /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n58=    /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n59=  }
n60=  /unset %temp1
n61=  /unset %temp2
n62=}
n63=/fsunban3 {
n64=  /set %temp1 $$1
n65=  /set %temp2 $$?="Tell fserv channels (1=yes, 0=no)"
n66=  /if (%temp2 != 1) /set %temp2 0
n67=  /.ruser 100 %temp1 9
n68=  /notice %temp1 5You are now 3 unbanned 5 from %fstrig and all my extra triggers and my XDCC.
n69=  /if (%temp2 == 1) {
n70=    /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n71=    /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n72=    /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n73=    /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n74=    /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2unbanned5 from my fserv, extra triggers, and XDCC.
n75=  }
n76=  /unset %temp1
n77=  /unset %temp2
n78=}
n79=/fsban {
n80=  /set %temp1 $$?="User to ban:"
n81=  /set %temp2 $$?="Reason to ban:"
n82=  /set %temp4 $$?="Seconds to ban (or 0 for a perm ban):"
n83=  /set %temp3 $$?="Tell fserv channels (1=yes, 0=no)"
n84=  /if (%temp3 != 1) /set %temp3 0
n85=  /.guser -a 100 %temp1 9
n86=  /close -f %temp1
n87=  /if (%temp4 == 0) {
n88=    /notice %temp1 5You are now 3 banned 5 from %fstrig and all my extra triggers and my XDCC 2forever5 because3 %temp2 $+ .
n89=  }
n90=  else {
n91=    /notice %temp1 5You are now 3 banned 5 from %fstrig and all my extra triggers and my XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n92=    /timer 1 %temp4 /fsunban2 %temp1 %temp3
n93=  }
n94=  /if (%temp4 == 0) {
n95=    /if (%temp3 == 1) {
n96=      /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n97=      /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n98=      /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n99=      /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n100=      /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n101=    }
n102=  }
n103=  else {
n104=    /if (%temp3 == 1) {
n105=      /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n106=      /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n107=      /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n108=      /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n109=      /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n110=    }
n111=  }
n112=  /unset %temp1
n113=  /unset %temp2
n114=  /unset %temp3
n115=  /unset %temp4
n116=}
n117=/fsban2 {
n118=  /set %temp1 $$1
n119=  /set %temp2 $$?="Reason to ban:"
n120=  /set %temp4 $$?="Seconds to ban (or 0 for a perm ban):"
n121=  /set %temp3 $$?="Tell fserv channels (1=yes, 0=no)"
n122=  /if (%temp3 != 1) /set %temp3 0
n123=  /.guser -a 100 %temp1 9
n124=  /close -f %temp1
n125=  /if (%temp4 == 0) {
n126=    /notice %temp1 5You are now 3 banned 5 from %fstrig and all my extra triggers and my XDCC 2forever5 because3 %temp2 $+ .
n127=  }
n128=  else {
n129=    /notice %temp1 5You are now 3 banned 5 from %fstrig and all my extra triggers and my XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n130=    /timer 1 %temp4 /fsunban2 %temp1 %temp3
n131=  }
n132=  /if (%temp4 == 0) {
n133=    /if (%temp3 == 1) {
n134=      /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n135=      /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n136=      /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n137=      /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n138=      /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2forever5 because3 %temp2 $+ .
n139=    }
n140=  }
n141=  else {
n142=    /if (%temp3 == 1) {
n143=      /if (%mchan1o == 1) /msg %mchan1 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n144=      /if (%mchan2o == 1) /msg %mchan2 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n145=      /if (%mchan3o == 1) /msg %mchan3 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n146=      /if (%mchan4o == 1) /msg %mchan4 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n147=      /if (%mchan5o == 1) /msg %mchan5 2 %temp1 5has been 2banned5 from my fserv, extra triggers, and XDCC 2for $duration(%temp4) 5because3 %temp2 $+ .
n148=    }
n149=  }
n150=  /unset %temp1
n151=  /unset %temp2
n152=  /unset %temp3
n153=  /unset %temp4
n154=}
n155=makelist {
n156=  if ($1 == -c) {
n157=    if ($2 == $null) {
n158=      echo -s 4Usage:2 /makelist [-c] <file> <root directory>
n159=      halt
n160=    }
n161=    elseif ($3 == $null) {
n162=      echo -s 4Usage:2 /makelist [-c] <file> <root directory>
n163=      halt
n164=    }
n165=    else {
n166=      set %temp1 $2
n167=      set %temp2 $3-
n168=      set %cswitch yes
n169=    }
n170=  }
n171=  else {
n172=    if ($1 == $null) {
n173=      echo -s 4Usage:2 /makelist [-c] <file> <root directory>
n174=      halt
n175=    }
n176=    elseif ($2 == $null) {
n177=      echo -s 4Usage:2 /makelist [-c] <file> <root directory>
n178=      halt
n179=    }
n180=    else {
n181=      set %temp1 $1
n182=      set %temp2 $2-
n183=      set %cswitch no
n184=    }
n185=  }
n186=  set %temp9 0
n187=  if (%cswitch == yes) {
n188=    write -c %temp1 Listing of %temp2
n189=  }
n190=  else {
n191=    write %temp1 Listing of %temp2
n192=  }
n193=  inc %temp9
n194=  write %temp1 Last Updated: $fulldate
n195=  inc %temp9
n196=  set %temp3 0
n197=  set %temp4 $findfile(%temp2,*.*,0)
n198=  set %curpath1 $nofile($findfile(%temp2,*.*,1))
n199=  write %temp1 $chr(160)
n200=  write %temp1 [[ $+ %curpath1 $+ ]]
n201=  inc %temp9 2
n202=  set %temp6 0
n203=  set %temp7 %temp9
n204=  set %temp8 0
n205=  set %frar 0
n206=  :mloop
n207=  inc %temp3
n208=  if (%temp3 <= %temp4) {
n209=    set %temp5 $findfile(%temp2,*.*,%temp3)
n210=    set %curpath2 $nofile(%temp5)
n211=    if (%curpath1 != %curpath2) {
n212=      set %temp50 0
n213=      set %temp51 %frar
n214=      :mloop2
n215=      inc %temp50
n216=      if (%temp50 <= %temp51) {
n217=        set %temp11 %rar. [ $+ [ %rar [ $+ [ %temp50 ] ] ] ]
n218=        write %temp1 $chr(160) %rar [ $+ [ %temp50 ] ] [ $+ [ .rar ] ] ( $+ $bkm(%temp11) $+ )
n219=        inc %temp6 %temp11
n220=        inc %temp8 %temp11
n221=        inc %temp9
n222=        goto mloop2
n223=      }
n224=      unset %temp50
n225=      unset %temp51
n226=      set %curpath1 %curpath2
n227=      write %temp1 $chr(160)
n228=      write %temp1 [[ $+ %curpath1 $+ ]]
n229=      write -al [ $+ [ %temp7 ] ] %temp1 $chr(160) $+ Total: $strip($bkm(%temp8,ALT))
n230=      inc %temp9 2
n231=      set %temp7 %temp9
n232=      unset %temp8
n233=      unset %rar*
n234=      set %frar 0
n235=    }
n236=    if ($nopath(%temp5) != dirinfo.srv) {
n237=      set %temp10 $calc($len(%temp5) - 3)
n238=      if ($mid(%temp5,%temp10,1) == $chr(46) && $mid(%temp5,$calc(%temp10 + 1),1) == r) {
n239=        if ($mid(%temp5,$calc(%temp10 + 2),1) == a && $mid(%temp5,$calc(%temp10 + 3),1) == r) {
n240=          if (%rar. [ $+ [ $noext($nopath(%temp5)) ] ] != $null) {
n241=            inc %rar. [ $+ [ $noext($nopath(%temp5)) ] ] $lof(%temp5)
n242=          }
n243=          else {
n244=            set %rar. [ $+ [ $noext($nopath(%temp5)) ] ] $lof(%temp5)
n245=            inc %frar
n246=            set %rar [ $+ [ %frar ] ] $noext($nopath(%temp5))
n247=          }
n248=        }
n249=        if ($mid(%temp5,$calc(%temp10 + 2),1) isnum && $mid(%temp5,$calc(%temp10 + 3),1) isnum) {
n250=          if (%rar. [ $+ [ $noext($nopath(%temp5)) ] ] != $null) {
n251=            inc %rar. [ $+ [ $noext($nopath(%temp5)) ] ] $lof(%temp5)
n252=          }
n253=          else {
n254=            set %rar. [ $+ [ $noext($nopath(%temp5)) ] ] $lof(%temp5)
n255=            inc %frar
n256=            set %rar [ $+ [ %frar ] ] $noext($nopath(%temp5))
n257=          }
n258=        }
n259=      }
n260=      else {
n261=        write %temp1 $chr(160) $nopath(%temp5) ( $+ $bkm($lof(%temp5)) $+ )
n262=        inc %temp6 $lof(%temp5)
n263=        inc %temp8 $lof(%temp5)
n264=        inc %temp9
n265=      }
n266=    }
n267=    goto mloop
n268=  }
n269=  set %temp50 0
n270=  set %temp51 %frar
n271=  :mloop4
n272=  inc %temp50
n273=  if (%temp50 <= %temp51) {
n274=    set %temp11 %rar. [ $+ [ %rar [ $+ [ %temp50 ] ] ] ]
n275=    write %temp1 $chr(160) %rar [ $+ [ %temp50 ] ] [ $+ [ .rar ] ] ( $+ $bkm(%temp11) $+ )
n276=    inc %temp6 %temp11
n277=    inc %temp8 %temp11
n278=    inc %temp9
n279=    goto mloop4
n280=  }
n281=  unset %temp50
n282=  unset %temp51
n283=  write -l3 %temp1 Total: $strip($bkm(%temp6,ALT))
n284=  write -al [ $+ [ %temp7 ] ] %temp1 $chr(160) $+ Total: $strip($bkm(%temp8,ALT))
n285=  unset %temp0
n286=  unset %temp1
n287=  unset %temp2
n288=  unset %temp3
n289=  unset %temp4
n290=  unset %temp5
n291=  unset %temp6
n292=  unset %temp7
n293=  unset %temp8
n294=  unset %temp9
n295=  unset %temp10
n296=  unset %temp11
n297=  unset %temp50
n298=  unset %temp51
n299=  unset %temp100
n300=  unset %temp101
n301=  unset %curpath1
n302=  unset %curpath2
n303=  unset %cswitch
n304=  unset %rar*
n305=  unset %frar
n306=}
n307=noext {
n308=  set %temp100 $1-
n309=  set %temp101 $calc($len(%temp100) - 4)
n310=  return $left(%temp100,%temp101)
n311=}
n312=nc {
n313=  set %temp1000 0
n314=  set %temp1001 $nick(#,0)
n315=  :nickcloop
n316=  inc %temp1000
n317=  if (%temp1000 <= %temp1001) {
n318=    set %temp1002 $nick(#,%temp1000)
n319=    set %temp1003 $len($1)
n320=    set %temp1004 $left(%temp1002,%temp1003)
n321=    if (%temp1004 == $1) {
n322=      msg # 23454╗2╗3 %temp1002  2½4½23452:4 $2-
n323=    }
n324=    else {
n325=      goto nickcloop
n326=    }
n327=  }
n328=  unset %temp1000
n329=  unset %temp1001
n330=  unset %temp1002
n331=  unset %temp1003
n332=  unset %temp1004
n333=}
n334=/cw2 {
n335=  set %temp150 $1-
n336=  set %temp151 0
n337=  set %temp152 $len(%temp150)
n338=  unset %temp153
n339=  :cw2lo
n340=  inc %temp151
n341=  if (%temp151 <= %temp152) {
n342=    if ($asc($mid(%temp150,%temp151,1)) == 32) {
n343=      inc %temp151
n344=      set %temp153 %temp153  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n345=    }
n346=    else {
n347=      set %temp153 %temp153 $+  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n348=    }
n349=    goto cw2lo
n350=  }
n351=  unset %temp150
n352=  unset %temp151
n353=  unset %temp152
n354=  say %temp153
n355=  unset %temp153
n356=}
n357=/cw3 {
n358=  set %temp150 $1-
n359=  set %temp151 0
n360=  set %temp152 $len(%temp150)
n361=  set %temp153 
n362=  :cw3lo
n363=  inc %temp151
n364=  if (%temp151 <= %temp152) {
n365=    if ($asc($mid(%temp150,%temp151,1)) == 32) {
n366=      inc %temp151
n367=      set %temp153 %temp153  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n368=    }
n369=    else {
n370=      set %temp153 %temp153 $+  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n371=    }
n372=    goto cw3lo
n373=  }
n374=  unset %temp150
n375=  unset %temp151
n376=  unset %temp152
n377=  say %temp153
n378=  unset %temp153
n379=}
n380=/cw4 {
n381=  set %temp150 $1-
n382=  set %temp151 0
n383=  set %temp152 $len(%temp150)
n384=  unset %temp153
n385=  :cw3lo
n386=  inc %temp151
n387=  if (%temp151 <= %temp152) {
n388=    if ($asc($mid(%temp150,%temp151,1)) == 32) {
n389=      inc %temp151
n390=      set %temp153 %temp153  $+ $rand(1,15) $+ , $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n391=    }
n392=    else {
n393=      set %temp153 %temp153 $+  $+ $rand(1,15) $+ , $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n394=    }
n395=    goto cw3lo
n396=  }
n397=  unset %temp150
n398=  unset %temp151
n399=  unset %temp152
n400=  say %temp153
n401=  unset %temp153
n402=}
n403=/cw5 {
n404=  set %temp150 $1-
n405=  set %temp151 0
n406=  set %temp152 $len(%temp150)
n407=  set %temp153 
n408=  :cw3lo
n409=  inc %temp151
n410=  if (%temp151 <= %temp152) {
n411=    if ($asc($mid(%temp150,%temp151,1)) == 32) {
n412=      inc %temp151
n413=      set %temp153 %temp153  $+ $rand(1,15) $+ , $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n414=    }
n415=    else {
n416=      set %temp153 %temp153 $+  $+ $rand(1,15) $+ , $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n417=    }
n418=    goto cw3lo
n419=  }
n420=  unset %temp150
n421=  unset %temp151
n422=  unset %temp152
n423=  say %temp153
n424=  unset %temp153
n425=}
n426=/cw6 {
n427=  set %temp150 $1-
n428=  set %temp151 0
n429=  set %temp152 $len(%temp150)
n430=  set %temp153 1 $+ , $+ $rand(1,15)
n431=  :cw3lo
n432=  inc %temp151
n433=  if (%temp151 <= %temp152) {
n434=    if ($asc($mid(%temp150,%temp151,1)) == 32) {
n435=      inc %temp151
n436=      set %temp153 %temp153  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n437=    }
n438=    else {
n439=      set %temp153 %temp153 $+  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n440=    }
n441=    goto cw3lo
n442=  }
n443=  unset %temp150
n444=  unset %temp151
n445=  unset %temp152
n446=  say %temp153
n447=  unset %temp153
n448=}
n449=/cw7 {
n450=  set %temp150 $1-
n451=  set %temp151 0
n452=  set %temp152 $len(%temp150)
n453=  set %temp153 1 $+ , $+ $rand(1,15)
n454=  :cw3lo
n455=  inc %temp151
n456=  if (%temp151 <= %temp152) {
n457=    if ($asc($mid(%temp150,%temp151,1)) == 32) {
n458=      inc %temp151
n459=      set %temp153 %temp153  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n460=    }
n461=    else {
n462=      set %temp153 %temp153 $+  $+ $rand(1,15) $+ $mid(%temp150,%temp151,1)
n463=    }
n464=    goto cw3lo
n465=  }
n466=  unset %temp150
n467=  unset %temp151
n468=  unset %temp152
n469=  say %temp153
n470=  unset %temp153
n471=}
n472=/mo1 {
n473=  if (%mchan1o == 1) return ON
n474=  else return OFF
n475=}
n476=/mo2 {
n477=  if (%mchan2o == 1) return ON
n478=  else return OFF
n479=}
n480=/mo3 {
n481=  if (%mchan3o == 1) return ON
n482=  else return OFF
n483=}
n484=/mo4 {
n485=  if (%mchan4o == 1) return ON
n486=  else return OFF
n487=}
n488=/mo5 {
n489=  if (%mchan5o == 1) return ON
n490=  else return OFF
n491=}
n492=/lschan {
n493=  set %temp1 0
n494=  set %temp2 $lines(data\lookfor.chn)
n495=  echo -s -=Beginning list of Look For channels=-
n496=  :lscl
n497=  inc %temp1
n498=  if (%temp1 <= %temp2) {
n499=    echo Channel $chr(35) $+ %temp1 $+ : $read -l [ $+ [ %temp1 ] ] data\lookfor.chn
n500=    goto lscl
n501=  }
n502=  echo -s -=End of list of Look For channels=-
n503=  unset %temp1
n504=  unset %temp2
n505=}
n506=/lslist {
n507=  set %temp1 0
n508=  set %temp2 $lines(data\lookfor.dat)
n509=  echo -s -=Beginning list of Look For things=-
n510=  :lscl2
n511=  inc %temp1
n512=  if (%temp1 <= %temp2) {
n513=    echo Look For $chr(35) $+ %temp1 $+ : $read -l [ $+ [ %temp1 ] ] data\lookfor.dat
n514=    goto lscl2
n515=  }
n516=  echo -s -=End of list of Look For Look For things=-
n517=  unset %temp1
n518=  unset %temp2
n519=}
n520=/lookfor {
n521=  set %temp1 3is looking for: 2
n522=  set %temp2 0
n523=  set %temp3 $lines(data\lookfor.dat)
n524=  :lscl3
n525=  inc %temp2
n526=  if (%temp2 <= %temp3) {
n527=    if (%temp2 == %temp3) {
n528=      if (%temp3 == 1) {
n529=        set %temp1 %temp1 $+ $read -l [ $+ [ %temp2 ] ] data\lookfor.dat $+ .
n530=      }
n531=      else {
n532=        set %temp1 %temp1 $+ and $read -l [ $+ [ %temp2 ] ] data\lookfor.dat $+ .
n533=      }
n534=    }
n535=    else {
n536=      if (%temp3 == 2) {
n537=        set %temp1 %temp1 $+ $read -l [ $+ [ %temp2 ] ] data\lookfor.dat 2
n538=      }
n539=      else {
n540=        set %temp1 %temp1 $+ $read -l [ $+ [ %temp2 ] ] data\lookfor.dat $+ , 2
n541=      }
n542=    }
n543=    goto lscl3
n544=  }
n545=  set %temp1 %temp1 4If you have any of those or know where to get any of those please /msg
n546=  if (%lfstyle == SAY) {
n547=    set %temp1 %temp1 me.
n548=  }
n549=  else {
n550=    set %temp1 %temp1 him.
n551=  }
n552=  set %temp2 0
n553=  set %temp3 $lines(data\lookfor.chn)
n554=  :lscl4
n555=  inc %temp2
n556=  if (%temp2 <= %temp3) {
n557=    if (%lfstyle == SAY) {
n558=      msg $read -l [ $+ [ %temp2 ] ] data\lookfor.chn 3 $+ $me %temp1
n559=    }
n560=    else {
n561=      describe $read -l [ $+ [ %temp2 ] ] data\lookfor.chn %temp1
n562=    }
n563=    goto lscl4
n564=  }
n565=  unset %temp1
n566=  unset %temp2
n567=  unset %temp3
n568=}
n569=/dellf {
n570=  set %temp1 0
n571=  set %temp2 $lines(data\lookfor.dat)
n572=  set %temp3 $$?="Thing your looking for to delete from list:"
n573=  :lscl6
n574=  inc %temp1
n575=  if (%temp1 <= %temp2) {
n576=    if ($read -nl [ $+ [ %temp1 ] ] data\lookfor.dat == %temp3) {
n577=      write -dl [ $+ [ %temp1 ] ] data\lookfor.dat
n578=    }
n579=    goto lscl6
n580=  }
n581=  unset %temp1
n582=  unset %temp2
n583=}
n584=/edlf {
n585=  set %temp1 0
n586=  set %temp2 $lines(data\lookfor.dat)
n587=  set %temp3 $$?="Thing your looking for to edit:"
n588=  :lscl6
n589=  inc %temp1
n590=  if (%temp1 <= %temp2) {
n591=    if ($read -nl [ $+ [ %temp1 ] ] data\lookfor.dat == %temp3) {
n592=      write -l [ $+ [ %temp1 ] ] data\lookfor.dat $$?="What you want to change it to:"
n593=    }
n594=    goto lscl6
n595=  }
n596=  unset %temp1
n597=  unset %temp2
n598=}