/ScriptServ

[script]
n0=alias scan {
n1=  set %Scan.Chan $1
n2=  set %Scan.Total 0 
n3=  set %Scan.Clones 0 
n4=  set %Scan.IRCops 0 
n5=  set %Scan.Ops 0
n6=  set %Scan.NonOps 0 
n7=  set %Scan.Voice 0 
n8=  set %Scan.Away 0 
n9=  unset %Scan.Address 
n10=  .enable #Scan.Channel 
n11=  who %Scan.Chan
n12=}
n13=alias scancount {
n14=  %scan.display 2Full Channel Stats for4 %Scan.Chan $+ 
n15=  %scan.display 3Ops:14(12 $+ %Scan.Ops $+ 14)3 - Voice:14(12 $+ %Scan.Voice $+ 14)3 - Non-Ops:14(12 $+ %Scan.Nonops $+ 14)3
n16=  %scan.display 3Away:14(12 $+ %Scan.Away $+ 14)3 - Clones:14(12 $+ %Scan.Clones $+ 14)3 - IRCops:14(12 $+ %Scan.IRCops $+ 14)3 - Total:14(12 $+ %Scan.Total $+ 14)3
n17=}
n18=alias clones {
n19=  set %Clones.Chan $1
n20=  set %Clones.Total 0
n21=  unset %Clones.Nicks
n22=  unset %Clones.Address
n23=  .enable #Scan.Clones
n24=  who %Clones.Chan
n25=}
n26=alias clonescount {
n27=  %Clones.Display 2Looking for Clones In4 %Clones.Chan $+ 
n28=  if ( %Clones.Total > 0 ) { %Clones.Display 3Total Clones Found:14(12 $+ %Clones.Total $+ 14)3 | %Clones.Display 3Cloning Nicks: %Clones.Nicks }
n29=  if ( %Clones.Total == 0 ) { %Clones.Display 3No Clones Were Found }
n30=}
n31=alias awayscan {
n32=  set %AwayScan.Chan $1
n33=  set %AwayScan.Total 0
n34=  unset %AwayScan.Nicks
n35=  .enable #Scan.Away
n36=  who %AwayScan.Chan
n37=}
n38=alias awaycount {
n39=  %AwayScan.Display 2Looking for Away Users In4 %AwayScan.Chan $+ 
n40=  if ( %AwayScan.Total > 0 ) { %AwayScan.Display 3Total Away Users Found:14(12 $+ %AwayScan.Total $+ 14)3 | %AwayScan.Display 3Away Nicks: %AwayScan.Nicks }
n41=  if ( %AwayScan.Total == 0 ) { %AwayScan.Display 3No Away Users Were Found }
n42=}
n43=alias ircopscan {
n44=  set %ircops.Chan $1
n45=  set %ircops.Total 0
n46=  unset %ircops.Nicks
n47=  .enable #Scan.IRCops
n48=  who %ircops.Chan
n49=}
n50=alias ircopcount {
n51=  %ircops.Display 2Looking for IRCops In4 %ircops.Chan $+ 
n52=  if ( %ircops.Total > 0 ) { %ircops.Display 3Total IRCops Found:14(12 $+ %ircops.Total $+ 14)3 | %ircops.Display 3IRCop Nicks: %ircops.Nicks }
n53=  if ( %ircops.Total == 0 ) { %ircops.Display 3No IRCops Were Found }
n54=}
n55=#Scan.Channel off
n56=raw 352:*: {
n57=  if ($4 isin %Scan.Address) { inc %Scan.Clones 1 } | else { %Scan.Address = %Scan.Address $4 }
n58=  if (* isin $7) { inc %Scan.IRCops 1 }
n59=  if (@ isin $7) { inc %Scan.Ops 1 } | else { inc %Scan.NonOps 1 }
n60=  if (+ isin $7) { inc %Scan.Voice 1 }
n61=  if (G isin $7) { inc %Scan.Away 1 }
n62=  inc %Scan.Total 
n63=  halt
n64=}
n65=raw 315:*: {
n66=  scancount 
n67=  .disable #Scan.Channel | unset %scan.* | halt
n68=}
n69=#Scan.Channel end
n70=#Scan.Clones off
n71=raw 352:*: {  
n72=  %Clones.Site = $remove($4,~)
n73=  if ( %Clones.Site isin %Clones.Address) { inc %Clones.Total 1 | %Clones.Mask = *!*@ $+ %Clones.Site | %Clones.Read = -s $+ %Clones.Site | %Clones.Nicks = %Clones.Nicks $6 ( $+ and $read %Clones.Read $mircdirsystem\clones.txt $+ ) | halt }
n74=  else { %Clones.Address = %Clones.Address %Clones.Site | write $mircdirsystem\clones.txt %Clones.Site $6 | halt }
n75=}
n76=raw 315:* {
n77=  clonescount
n78=  .disable #Scan.Clones | unset %Clones.* | .remove $mircdirsystem\clones.txt | halt
n79=}
n80=#Scan.Clones end
n81=#Scan.Away off
n82=raw 352:*: {  
n83=  if (G isin $7) { inc %AwayScan.Total 1 | %AwayScan.Nicks = %AwayScan.Nicks $6 | halt }
n84=  else { halt }
n85=}
n86=raw 315:* {
n87=  awaycount
n88=  .disable #Scan.Away | unset %AwayScan.* | halt
n89=}
n90=#Scan.Away end
n91=#Scan.IRCops off
n92=raw 352:*: {  
n93=  if (* isin $7) { inc %ircops.Total 1 | %ircops.Nicks = %ircops.Nicks $6 | halt }
n94=  else { halt }
n95=}
n96=raw 315:* {
n97=  ircopcount
n98=  .disable #Scan.IRCops | unset %ircops.* | halt
n99=}
n100=#Scan.IRCops end
n101=alias showpeakscan {
n102=  if ( $2 != %peakscanchan ) { echo 12>>>4Error: 3No stats recorded for $2 12<<< | goto end }
n103=  if ( $1 == channel ) {
n104=    say 2Channel Peak Stats for 4 $+ $chan
n105=    say 3 People currently in channel:14(12 $+ $calc($opnick(#,0)+$nopnick(#,0)) $+ 14)
n106=    set %currpeaknum $calc($opnick(#,0)+$nopnick(#,0))
n107=    if %peakval < %currpeaknum {
n108=      set %peakval %currpeaknum
n109=    }
n110=    say 3 Peak users since %peakreset $+ :14(12 $+ %peakval $+ 14)3
n111=  }
n112=  if ( $1 == echo ) {
n113=    echo 12>>> 2Channel Peak Stats for 4 $+ $chan
n114=    echo 12>>>3 People currently in channel:14(12 $+ $calc($opnick(#,0)+$nopnick(#,0)) $+ 14)
n115=    set %currpeaknum $calc($opnick(#,0)+$nopnick(#,0))
n116=    if %peakval < %currpeaknum {
n117=      set %peakval %currpeaknum
n118=    }
n119=    echo 12>>>3 Peak users since %peakreset $+ :14(12 $+ %peakval $+ 14)
n120=  }
n121=  :end
n122=}
n123=alias resetpeak {
n124=  set %peakscanchan $1
n125=  set %peakreset $atime on $adate
n126=  set %peakval 0
n127=  echo -a $moontxt2(Peak Scan Channel Set To:) $moontxt2($1)
n128=}
n129=on 1:JOIN:#: {
n130=  if $chan = %peakscanchan {
n131=    set %currpeaknum $calc($opnick(#,0)+$nopnick(#,0))
n132=    if %peakval < %currpeaknum {
n133=      set %peakval %currpeaknum
n134=    }
n135=  }
n136=}
n137=alias listops {
n138=  echo -a $moontxt2(Listing OPs On:) $moontxt2(#)
n139=  set %listop 1
n140=  :next
n141=  set %nick $opnick(#,%listop)
n142=  if ( %nick == $null ) { goto done }
n143=  else { 
n144=    %nick = $moontxt2(%nick)
n145=    echo -a  $moontxt2(%listop) $+ 11,01 $+ $chr(41) %nick
n146=    inc %listop 
n147=    goto next
n148=  }
n149=  :done
n150=  echo -a $moontxt2(End Of OPs List)
n151=}