[פרסום]בוט הגנות

[orelnati120]

בוט הגנות

on !*:join:#:{
  if ($levcheck(#,$me) < 1) { return }
  set %clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ] $addtok(%clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ],$nick,32)
  .timer 1 2 set -s $+(%,clones.,$cid,.,#) $!remtok( $+(%,clones.,$cid,.,#) , $nick ,32)
  if ($numtok(%clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ],32) >= 3) {
    mode # $iif($network === QuakeNet,+Mr,+MR)
    .timer 1 60 mode # $iif($network === QuakeNet,-Mr,-MR)
    var %i = 1
    while ($gettok(%clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ],%i,32)) {
      var %addlist = $addtok(%addlist,$address($v1,2),32))
      inc %i
    }
    mode # + $+ $str(+b,$numtok(%clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ],32)) %addlist
    tokenize 32 %clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ]
    unset %clones. [ $+ [ $cid ] $+ ] . [ $+ [ # ] ]
    while ($ [ $+ [ %i ] ]) {
      .timer 1 $calc(%i * 2) kick # $v1 Join Flood Detected.
      inc %i
    }
  }
}
on *:text:*:#:{
  if ($levcheck(#,$me) <= 1) || ($levcheck(#,$nick) >= $levcheck(#,$me)) { halt }
  if ($len($strip($1-)) >= 200) { ban -ku300 # $nick 2 Byte Flood Detected! $v1 Bytes (Max is $v2 $+ ). 5 minute ban. }
  if (%repeat. [ $+ [ $nick ] $+ ] . [ $+ [ # ] ] == $strip($1-)) { inc -u10 %repeatd. [ $+ [ $nick ] ] }
  if (%repeat. [ $+ [ $nick ] $+ ] . [ $+ [ # ] ] == $strip($1-)) && (%repeatd. [ $+ [ $nick ] ]) {
    var %r = $v1
    if (%r == 1) { .notice $nick Repeat detected. First warning. please stop repeating. }
    elseif (%r == 2) { kick # $nick Repeat detected. Second warning. please stop repeating. }
    elseif (%r == 3) { ban -ku60 # $nick 2 Repeat detected. Third and final warning. Please stop repeating. 60 second ban. }
    elseif (%r >= 4) { ban -k # $nick 2 Repeat detected. You have been warned. Permanent ban. }
  }
  set -u600 %repeat. [ $+ [ $nick ] $+ ] . [ $+ [ # ] ] $strip($1-)
}
alias strrev {
  var %i = $len($1)
  while (%i) {
    var %str = %str $+ $mid($1,%i,1)
    dec %i
  }
  return %str
}
alias levcheck {
  var %p = $strrev($prefix)
  var %lev = $remove($nick($$1,$$2).pnick,$2)
  var %fin = 0
  var %i = 1
  while ($mid(%lev,%i,1)) {
    inc %fin $calc(2 ^ ( $pos(%p,$v1) -1))
    inc %i
  }
  return %fin
}
on *:action:*:#:{
  if ($levcheck(#,$me) <= 1) || ($levcheck(#,$nick) >= $levcheck(#,$me)) { halt }
  if ($len($strip($1-)) >= 200) { ban -ku300 # $nick 2 Byte Flood Detected! $v1 Bytes (Max is $v2 $+ ) }
  if (%repeat. [ $+ [ $nick ] $+ ] . [ $+ [ # ] ] == $strip($1-)) { inc -u10 %repeatd. [ $+ [ $nick ] ] }
  if (%repeat. [ $+ [ $nick ] $+ ] . [ $+ [ # ] ] == $strip($1-)) && (%repeatd. [ $+ [ $nick ] ]) {
    var %r = $v1
    if (%r == 1) { .notice $nick Repeat detected. First warning. please stop repeating. }
    elseif (%r == 2) { kick # $nick Repeat detected. Second warning. please stop repeating. }
    elseif (%r == 3) { ban -ku60 # $nick 2 Repeat detected. Third and final warning. Please stop repeating. 5 second ban. }
    elseif (%r >= 4) { ban -k # $nick 2 Repeat detected. You have been warned. Permanent ban. }
  }
  set -u600 %repeat. [ $+ [ $nick ] $+ ] . [ $+ [ # ] ] $strip($1-)
}

בוט הגנות מומלץ
קרדיט לפורום אחר
תהנו

[rikufu]

תודה

[Yuval]

תודה נתנאל

[Human]

תודה יתימני