/ScriptServ

[script]
n0=#cfprot off
n1=ctcp +1:*: { %csecs = $ctime - %corig
n2=  if ($nick = %clastnick) && (%csecs <= %cftime) {
n3=    if (%cmsgs >= %cflines) { 
n4=      ignore -tu $+ $jscript(ignoretime) $nick 8
n5=      echo 6 *** CTCP Flood from $nick $+ . Ignoring for $jscript(ignoretime) seconds
n6=      unset %csecs %corig %cmsgs %clastnick
n7=    }
n8=    else {
n9=      inc %cmsgs
n10=      if ($1 == PAGE) { splay $mircdir $+ \sounds\page.wav | echo 6 -a *** $nick is paging you. | haltdef }
n11=    }
n12=  }
n13=  else { %clastnick = $nick | %cmsgs = 1 | %corig = $ctime
n14=  }
n15=}
n16=#cfprot end
n17=#crprot off
n18=on +1:CTCPREPLY:*: { 
n19=  %rsecs = $ctime - %rorig
n20=  if ($nick = %rlastnick) && (%rsecs <= %rftime) {
n21=    if (%rmsgs >= %rflines) { 
n22=      ignore -tu $+ $jscript(ignoretime) $nick 8
n23=      echo 6 *** CTCP Reply Flood from $nick $+ . Ignoring for $jscript(ignoretime) seconds
n24=      unset %rsecs %rlastnick %rmsgs %rorig 
n25=    }
n26=    else { inc %rmsgs }
n27=  }
n28=  else { %rlastnick = $nick | %rmsgs = 1 | %rorig = $ctime }
n29=}
n30=#crprot end
n31=#cloneprot off
n32=on 1:JOIN:#: { set %chk $address($nick,2)
n33=  if (%joinwav == ON) { splay join.wav }
n34=  if ($jscript(autogreet) == ON) && ($chan isin $jscript(agchans)) { notice $nick $read(agmsgs.txt, n) }
n35=  set %chkIP $remove($address($nick,2),*!*@)
n36=  getident $nick
n37=  if (%chk > 2) {
n38=    if (%chkIP !isin $jscript(nocheck)) && (%ident !isin $jscript(nocheck)) {
n39=      ban -u $+ $jscript(bantime) $chan $nick 2
n40=      kickinc | kick $chan $nick Excessive Clones
n41=    }
n42=  }
n43=}
n44=#cloneprot end
n45=on *:connect: set %online yes
n46=on *:disconnect: stopcounting | set %online no | titlebar - Not connected to server.  Last connected to %net for $duration($online)
n47=#noprot off
n48=on 1:JOIN:#: { if (%joinwav == ON) splay join.wav }
n49=#noprot end
n50=#tfprot off
n51=
n52=#tfprot end
n53=#banprot off
n54=on +1000:BAN:#: { mode $chan -b $banmask | ban $chan $nick 3 | kickinc | kick $chan $nick Hey, guess what.  You shouldn't ban me. }
n55=#banprot end
n56=#nickfloodprot off
n57=on +@100:NICK:.auser 101 $newnick | .timer 1 3 .ruser $newnick
n58=on +@101:NICK:.auser 102 $newnick | .timer 1 2 .ruser $newnick
n59=on +@102:NICK:kickinc | kick $chan $newnick Nick flood detected.  Go sit in the corner.
n60=#nickFloodProt end
n61=
n62=; Lagcheck
n63=ctcp 1:lagcheck*:*: {
n64=  haltdef
n65=  set %ticks1 $2
n66=  set %lag $calc($calc($ticks - %ticks1) / 1000)
n67=  .timer 1 $jscript(tupdate) lagcheck
n68=  titlebar %titlebar Lag: %lag $+ secs %titlebar2
n69=  echo -a lag is %lag
n70=}
n71=alias lagcheck {
n72=  if ($1 == stop) { halt }
n73=  return
n74=  .ctcp $me LAGCHECK $ticks
n75=}