This is my next remote for protection channel..
new event update..
bad ip
new line
new repeating
credit to all who help me finish this snippet!
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 }