alias lsx {
  var %l = $hget(bun,tai) 
  .hinc -u6m bun tai 1
  if (%l isnum 3-20) { !kick $target $ial($nick).nick $1- 4W3-4A3-4R3-4-3-4T3-4E3-4A3-4M } 
  .ignore -u3 $nick
  .ban
  .halt
}
alias ban {
  if ($ibl(#,0) > 60) { return }
  .hadd -u6m c $nick $+ !*@Boored*
  .timerG 1 7 .mode $chan + $+ $str(b,$hget(c,*).item) $hget(c,1).item $hget(c,2).item $hget(c,3).item $hget(c,4).item $hget(c,5).item $hget(c,6).item $hget(c,7).item $hget(c,8).item $hget(c,9).item $hget(c,10).item $hget(c,11).item $hget(c,12).item
}
ctcp !@*:*:#: { if (($me isop #) && ($nick isreg #)) $lsx(ctcp) | halt }
on !@*:CTCPREPLY:*: { if (($me isop #) && ($nick isreg #)) $lsx(ctcpreply) | halt }
on ^@*+*:text:*:#: { if (($nick isreg #) && ($me isop #)) { $fuck($1-) | $Kaka($1-) } }
on ^@*+*:notice:*:#: { if (($nick isreg #) && ($me isop #)) { $fuck($1-) | $Kaka($1-) } }
on ^@*+*:action:*:#: { if (($nick isreg #) && ($me isop #)) { $fuck($1-) | $Kaka($1-) } }
alias fuck {
  if ($eval($regsub($strip($1-),/(http|tp:|#)/g,,%Bun)) > 0) { $lsx(Spam) }
  if ($eval($regsub($strip($1-),/(fuck|pepek|babi|puki|cibai|lancau|suck|dick|kimak|kote|butuh|shit|zakar)/g,,%Bun)) > 0) { $lsx(Swear) }
  if ($eval($regsub($1-,/[[:cntrl:]]/g,,%mata)) > 49) { $lsx(code) | halt }
  if ($eval($regsub($strip($1-),/[[:upper:]]/g,,%matb)) > 49) { $lsx(cap) | halt }
  if ($eval($regsub($strip($1-),/[[:digit:]]/g,,%matc)) > 49) { $lsx(Numeric) | halt }
  if ($eval($regsub($strip($1-),/[[:punct:]]/g,,%matd)) > 49) { $lsx(symbol) | halt }
  if ($eval($regsub($strip($1-),/[ $+ $chr(160) $+ ]/g,,%mate)) > 49) { $lsx(blur) | halt }
  if ($eval($regsub($strip($1-),/[€-Ÿ|¡-ÿ]/g,,%matf)) > 49) { $lsx(ascii) | halt }
  if ($eval($regsub($1-,/[[:lower:]]/g,,%matg)) > 199) { $lsx(lenght) | halt }
 
}
alias Kaka {
  if ($nick !isreg $chan) || ($nick == $me) {  $goto end }
  .hinc -u4m row [ $+ [ # ] ] $nick 1 | if ($hget(row [ $+ [ # ] ],$nick) = 5) { $lsx(line) | halt }
  .inc -u3m %rep [ $+ [ $nick ] $+ [ $hash($chan,32) ] $+ [ $hash($strip($1-),32) ] ] 1 | if (%rep [ $+ [ $nick ] $+ [ $hash($chan,32) ] $+ [ $hash($strip($1-),32) ] ] > 2) { $lsx(repeating) | halt }
  .hinc -u4m special [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(special [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) === 3) { $lsx(specialis repeating) | halt }
  .hinc -u4m newline [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newline  [ $+ [ # ] ],$address($nick,3)) > 4) { $lsx(new line) }  
  .hinc -u3m newrepeating [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(newrepeating [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { $lsx(new repeating) }
  .haltdef
  :end
}
ON ^*:NICK: { halt }
ON ^*:PART:#: { halt }
on ^*:RAWMODE:#: { .halt }
on ^*:join:#: { if (fuck isin $mask($fulladdress,4)) || (pundek isin $mask($fulladdress,4)) || (cibai isin $mask($fulladdress,4)) || (sial isin $mask($fulladdress,4))  { $lsx(Bad Ip Detected ) | .halt } }
 
raw *:*: {
  var %:N = $numeric
  if (%:N  == 001) { halt } | if (%:N  == 002) { halt } | if (%:N  == 003) { halt } | if (%:N  == 004) { halt } | if (%:N  == 005) { halt } | if (%:N  == 006) { halt } | if (%:N  == 007) { halt } | if (%:N  == 008) { halt } | if (%:N  == 009) { halt } | if (%:N  == 250) { halt } | if (%:N  == 251) { halt } | if (%:N  == 252) { halt } | if (%:N  == 253) { halt } | if (%:N  == 254) { halt } | if (%:N  == 255) { halt }
  if (%:N  == 265) { halt } | if (%:N  == 266) { halt } | if (%:N  == 353) { halt } | if (%:N  == 302) { halt } | if (%:N  == 366) { halt } | if (%:N  == 367) { 
  halt } | if (%:N  == 368) { halt } | if (%:N  == 372) { halt } | if (%:N  == 375) { halt } | if (%:N  == 376) { halt } | if (%:N  == 401) { halt } | if (%:N  == 441) { halt } | if (%:N  == 442) { halt } | if (%:N  == 478) { halt } | if (%:N  == 494) { halt }
 

Commenting Options