home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / fldprot.mrc < prev    next >
Encoding:
Text File  |  2000-03-04  |  6.9 KB  |  234 lines
  1. on 1:CONNECT { cclr }
  2. on 1:DISCONNECT { cclr }
  3. on @1:SERVEROP:# {
  4.   if (%serverprot != on) return
  5.   if ($isvalidchan(%svchans,$chan) != $true) return
  6.   if ($chkflag($usr($opnick),$chan,o) == $false) mode $chan -o $opnick
  7. }
  8. on @1:TEXT:*:# {
  9.   if ($nick !ison $chan) return
  10.   var %z
  11.   set %z $level($fulladdress) $nick $site $chan $c.file($chan) $strip($1-)
  12.   if (%rptfld == on) c.rscan %z
  13.   if (%asciifld == on) c.ascan %z
  14.   if (%capsfld == on) c.cscan %z
  15.   if (%txtfld == on) c.tscan %z
  16. }
  17. on @1:ACTION:*:# {
  18.   if ($nick !ison $chan) return
  19.   var %z
  20.   set %z $level($fulladdress) $nick $site $chan $c.file($chan) $strip($1-)
  21.   if (%rptfld == on) c.rscan %z
  22.   if (%asciifld == on) c.ascan %z
  23.   if (%capsfld == on) c.cscan %z
  24.   if (%txtfld == on) c.tscan %z
  25. }
  26. on @1:NOTICE:*:# {
  27.   if ($nick !ison $chan) return
  28.   var %z
  29.   set %z $level($fulladdress) $nick $site $chan $c.file($chan) $strip($1-)
  30.   if (%rptfld == on) c.rscan %z
  31.   if (%asciifld == on) c.ascan %z
  32.   if (%capsfld == on) c.cscan %z
  33.   if (%txtfld == on) c.tscan %z
  34. }
  35. on @1:JOIN:# {
  36.   if ($nick == $me) write -c $c.file($chan)
  37.   elseif (%joinfld == on) c.jscan $level($fulladdress) $nick $site $chan $c.file($chan)
  38. }
  39. on 1:PART:# {
  40.   if ($nick == $me) write -c $c.file($chan)
  41. }
  42. on @1:DEOP:# {
  43.   if (%mdopfld == on) c.dscan $level($fulladdress) $nick $site $chan $c.file($chan)
  44. }
  45. on @1:KICK:# {
  46.   if (%kickfld == on) c.kscan $level($fulladdress) $nick $site $chan $c.file($chan)
  47. }
  48. on 1:NICK {
  49.   if (%nickfld != on) return
  50.   var %a, %z
  51.   set %a 0
  52.   :start
  53.   inc %a
  54.   if ($comchan($newnick,%a)) {
  55.     set %z $ifmatch
  56.     if ($me isop %z) c.nscan $level($fulladdress) $newnick $site %z $c.file(%z)
  57.     goto start
  58.   }
  59. }
  60. alias -l c.cscan {
  61.   if ((%ckops != on) && ($2 isop $4)) return
  62.   if ((%cck != on) && ($1 == 40)) return
  63.   if ($isvalidchan(%cpchans,$4) != $true) return
  64.   if ($caps($6-) < %maxcaps) return
  65.   var %a, %b
  66.   set %a $readini -n $5 $3 cn
  67.   set %b $ticks
  68.   dec %b $readini -n $5 $3 ct
  69.   if ((%a == $null) || (%b > %cps)) {
  70.     writeini -n $5 $3 cn 1
  71.     writeini -n $5 $3 ct $ticks
  72.     return
  73.   }
  74.   inc %a
  75.   writeini -n $5 $3 cn %a
  76.   if (%a <= %maxclines) return
  77.   remini $5 $3
  78.   if (%cpban == on) ban -u1800 $4 $2 2
  79.   if (%kckmsg.cap) kick $4 $2 %kckmsg.cap
  80.   else kick $4 $2 Caps Flood ( $+ %a lines at $round($calc(%a / %b * 1000),3) lines/s $+ )
  81. }
  82. alias -l c.ascan {
  83.   if ((%akops != on) && ($2 isop $4)) return
  84.   if ((%ack != on) && ($1 == 40)) return
  85.   if ($isvalidchan(%aschans,$4) != $true) return
  86.   if ($ascode(123,255,$remove($6-,$chr(32))) <= %maxascii) return
  87.   var %a, %b
  88.   set %a $readini -n $5 $3 an
  89.   set %b $ticks
  90.   dec %b $readini -n $5 $3 at
  91.   if ((%a == $null) || (%b > %aps)) {
  92.     writeini -n $5 $3 an 1
  93.     writeini -n $5 $3 at $ticks
  94.     return
  95.   }
  96.   inc %a
  97.   writeini -n $5 $3 an %a
  98.   if (%a <= %maxalines) return
  99.   remini $5 $3
  100.   if (%asban == on) ban -u1800 $4 $2 2
  101.   if (%kckmsg.asc) kick $4 $2 %kckmsg.asc
  102.   else kick $4 $2 ASCII Code Flood ( $+ %a lines at $round($calc(%a / %b * 1000),3) lines/s $+ )
  103. }
  104. alias -l c.rscan {
  105.   if ((%krops != on) && ($2 isop $4)) return
  106.   if ((%rck != on) && ($1 == 40)) return
  107.   if ($isvalidchan(%rpchans,$4) != $true) return
  108.   var %a, %b, %c
  109.   set %a $readini -n $5 $3 rn
  110.   set %b $ticks
  111.   dec %b $readini -n $5 $3 rt
  112.   set %c $readini -n $5 $3 rx
  113.   if ((%a == $null) || (%c != $6-) || (%b > %lps) || ($len($6-) < %minrpt)) {
  114.     if ($6 != $null) writeini -n $5 $3 rx $6-
  115.     else writeini -n $5 $3 rx ■
  116.     writeini -n $5 $3 rn 1
  117.     writeini -n $5 $3 rt $ticks
  118.     return
  119.   }
  120.   inc %a
  121.   writeini -n $5 $3 rn %a
  122.   if (%a <= %maxrpt) return
  123.   remini $5 $3
  124.   if (%rban == on) ban -u1800 $4 $2 2
  125.   if (%kckmsg.rpt) kick $4 $2 %kckmsg.rpt
  126.   else kick $4 $2 Repeat Flood ( $+ %a repeats at $round($calc(%a / %b * 1000),3) lines/s $+ )
  127. }
  128. alias -l c.tscan {
  129.   if ((%ktops != on) && ($2 isop $4)) return
  130.   if ((%tck != on) && ($1 == 40)) return
  131.   if ($isvalidchan(%tfchans,$4) != $true) return
  132.   var %a, %b
  133.   set %a $readini -n $5 $3 tn
  134.   set %b $ticks
  135.   dec %b $readini -n $5 $3 tt
  136.   if ((%a == $null) || (%b > %lps)) {
  137.     writeini -n $5 $3 tn 1
  138.     writeini -n $5 $3 tt $ticks
  139.     return
  140.   }
  141.   inc %a
  142.   writeini -n $5 $3 tn %a
  143.   if (%a <= %maxlines) return
  144.   remini $5 $3
  145.   if (%txban == on) ban -u1800 $4 $2 2
  146.   if (%kckmsg.txt) kick $4 $2 %kckmsg.txt
  147.   else kick $4 $2 Text Flood ( $+ %a lines at $round($calc(%a / %b * 1000),3) lines/s $+ )
  148. }
  149. alias -l c.jscan {
  150.   if ((%jck != on) && ($1 == 40)) return
  151.   if ($isvalidchan(%jfchans,$4) != $true) return
  152.   var %a, %b
  153.   set %a $readini -n $5 $3 jn
  154.   set %b $ticks
  155.   dec %b $readini -n $5 $3 jt
  156.   if ((%a == $null) || (%b > %jps)) {
  157.     writeini -n $5 $3 jn 1
  158.     writeini -n $5 $3 jt $ticks
  159.     return
  160.   }
  161.   inc %a
  162.   writeini -n $5 $3 jn %a
  163.   if (%a <= %maxjoins) return
  164.   remini $5 $3
  165.   if (%jban == on) ban -u1800 $4 $2 2
  166.   if (%kckmsg.join) kick $4 $2 %kckmsg.join
  167.   else kick $4 $2 Join Flood ( $+ %a joins at $round($calc(%a / %b * 1000),3) joins/s $+ )
  168. }
  169. alias -l c.nscan {
  170.   if ($2 == $me) return
  171.   if ((%nck != on) && ($1 == 40)) return
  172.   if ((%knpops != on) && ($2 isop $4)) return
  173.   if ($isvalidchan(%nfchans,$4) != $true) return
  174.   var %a, %b
  175.   set %a $readini -n $5 $3 nn
  176.   set %b $ticks
  177.   dec %b $readini -n $5 $3 nt
  178.   if ((%a == $null) || (%b > %nps)) {
  179.     writeini -n $5 $3 nn 1
  180.     writeini -n $5 $3 nt $ticks
  181.     return
  182.   }
  183.   inc %a
  184.   writeini -n $5 $3 nn %a
  185.   if (%a <= %maxnicks) return
  186.   remini $5 $3
  187.   if (%nban == on) ban -u1800 $4 $2 2
  188.   if (%kckmsg.nick) kick $4 $2 %kckmsg.nick
  189.   else kick $4 $2 Nick Flood ( $+ %a nick changes at $round($calc(%a / %b * 1000),3) nicks/s $+ )
  190. }
  191. alias -l c.dscan {
  192.   if ($2 == $me) return
  193.   if ((%dck != on) && ($1 == 40)) return
  194.   if ($isvalidchan(%dfchans,$4) != $true) return
  195.   var %a, %b
  196.   set %a $readini -n $5 $3 dn
  197.   set %b $ticks
  198.   dec %b $readini -n $5 $3 dt
  199.   if ((%a == $null) || (%b > %dps)) {
  200.     writeini -n $5 $3 dn 1
  201.     writeini -n $5 $3 dt $ticks
  202.     return
  203.   }
  204.   inc %a
  205.   writeini -n $5 $3 dn %a
  206.   if (%a <= %maxdeops) return
  207.   remini $5 $3
  208.   if (%dban == on) ban -u1800 $4 $2 2
  209.   if (%kckmsg.deop) kick $4 $2 %kckmsg.deop
  210.   else kick $4 $2 Mass Deop ( $+ %a deops at $round($calc(%a / %b * 1000),3) deops/s $+ )
  211. }
  212. alias -l c.kscan {
  213.   if ($2 == $me) return
  214.   if ((%dck != on) && ($1 == 40)) return
  215.   if ($isvalidchan(%kfchans,$4) != $true) return
  216.   var %a, %b
  217.   set %a $readini -n $5 $3 kn
  218.   set %b $ticks
  219.   dec %b $readini -n $5 $3 kt
  220.   if ((%a == $null) || (%b > %kps)) {
  221.     writeini -n $5 $3 kn 1
  222.     writeini -n $5 $3 kt $ticks
  223.     return
  224.   }
  225.   inc %a
  226.   writeini -n $5 $3 kn %a
  227.   if (%a <= %maxkicks) return
  228.   remini $5 $3
  229.   if (%kban == on) ban -u1800 $4 $2 2
  230.   if (%kckmsg.kick) kick $4 $2 %kckmsg.kick
  231.   else kick $4 $2 Mass Kick ( $+ %a kicks at $round($calc(%a / %b * 1000),3) kicks/s $+ )
  232. }
  233. alias -l c.file return %dir $+ \temp\ $+ $mkfn($1) $+ .fld
  234.