;-------------------------------
;Regex code by Jimmy aka tu7uh
;Copyright tu7uh Network
;http://www.tu7uh.net
;-------------------------------
alias tu7uhlogo return 14tu4(7)14uh Network 4@14 http://www.tu04714uh.net
alias kickkira7 { .inc -u10 %kirakaw7 1 | return %kirakaw7 }
alias -l kick7 {
.inc -u10 %kcount7
if (%kcount7 isnum 65-85) { !kick $1 $2 $+(4,$3-,,$chr(0041)) $tu7uhlogo $+($chr(0040),04,$kickkira7,)
.hadd -u5m mb $+($2,*@www.tu7uh.net)
.timermb 1 4 .mode $1 $+(+,$str(b,$hget(mb,*).item)) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
.ignore -u10 $nick
}
}
alias regex7 { if ($nick isreg $chan) { .haltdef
if ($regex($1-,/[[:cntrl:]]/g) > 49) { kick7 $chan $nick Codes | halt }
if ($regex($strip($1-),/[[:punct:]]/g) > 49) { kick7 $chan $nick Symbol | halt }
if ($regex($removecs($strip($1-),$chr(160)),/[€-ÿ]/g) > 49) { kick7 $chan $nick Ascii | halt }
if ($regex($strip($1-),/[[:digit:]]/g) > 49) { kick7 $chan $nick Numeric | halt }
if ($regex($strip($1-),/[[:upper:]]/g) > 49) { kick7 $chan $nick Caps Lock | halt }
if ($regex($strip($1-),/(http:|www|#|join|ftp:|/j)/g)) { kick7 $chan $nick Advertising | halt }
if ($regex($strip($1-),/(fuck|bitch|suck|kote|shit)/g)) { kick7 $chan $nick Bad Word | halt }
if ($regex($strip($1-),/[[:alpha:]]/g) > 199) { kick7 $chan $nick Long Text | halt }
if ($regex($strip($1-),/[ $chr(160) ]/g) > 49) { kick7 $chan $nick Blank | halt }
.inc -u3 %repeat [ $+ [ $nick ] $+ [ $chan ] $+ [ $hash($remove($strip($1-),$chr(160),$chr(32)),32) ] ]
if (%repeat [ $+ [ $nick ] $+ [ $chan ] $+ [ $hash($remove($strip($1-),$chr(160),$chr(32)),32) ] ] > 2) { kick7 $chan $nick repeat | halt }
.inc -u5 %lines [ $+ [ $nick ] $+ [ $chan ] ]
if (%lines [ $+ [ $nick ] $+ [ $chan ] ] > 4) { kick7 $chan $nick row/line | halt }
}
}
on @^*:text:*:#: regex7 $1-
on @^*:action:*:#: regex7 $1-
on @^*:notice:*:#: regex7 $1-
ctcp ^*:*:#: .haltdef | if ($nick isreg $chan) && ($me isop $chan) { kick7 $chan $nick Ctcp | halt }
on *:ctcpreply:*: .haltdef | if ($nick isreg $chan) && ($me isop $chan) { kick7 $chan $nick Ctcp Reply | halt }
raw 367:*: .halt
raw 368:*: .halt
raw 441:*: .halt
raw 478:*: .timermb off | .halt