hregex remote

on !^*:text:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
on !^*:notice:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
on !^*:action:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
alias e {
.hadd -u2m a $regex($1-,/[[:codes:]]/g)
if ($hregex(a,$regex($1-,/[[:codes:]]/g)) > 49) $s(codes)
.hadd -u2m b $regex($1-,/[[:upper:]]/g)
if ($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49) $s(caps)
.hadd -u2m c $regex($1-,/[[:digit:]]/g)
if ($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49) $s(number)
.hadd -u2m d $regex($1-,/[[:punct:]]/g)
if ($hregex(d,$regex($1-,/[[:punct:]]/g)) > 49) $s(symbol)
.hadd -u2m e $regex($1-,/[ $chr(160) ]/g)
if ($hregex(e,$regex($1-,/[ $chr(160) ]/g)) > 49) $s(blur)
.hadd -u2m f $regex($1-,/[ $chr(174) ]/g)
if ($hregex(f,$regex($1-,/[ $chr(174) ]/g)) > 49) $s(ascii)
.hadd -u2m g $regex($1-,/[[:lower:]]/g)
if ($hregex(g,$regex($1-,/[[:lower:]]/g)) > 199) $s(lenght)
.hadd -u2m h $regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))
if ($hregex(h,$regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))) $s(badword)
.hadd -u2m i $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hregex(i,$regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3 })\S*)|#[^\40]\S*)/Si))) $s(advertise)
.hinc -u15m newrow [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newrow [ $+ [ # ] ],$address($nick,3)) > 4) { $s(rowXtion) | halt }
.hinc -u15m newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { $s(specialXtion) | halt }
}
[alias kick boleh ambil dalam blog ini utk percubaan ataupun utk main terus pun tak apa..haha]