UMT
Would you like to react to this message? Create an account in a few clicks or log in to continue.
UMT

Universiti Malaysia Terengganu
 
HomePortalGalleryLatest imagesSearchRegisterLog in

 

 RegSub Protection Channel

Go down 
AuthorMessage
AmeruL
Medium Class
AmeruL


Number of posts : 70
Age : 34
Location : Kuala Terengganu
Registration date : 2008-10-22

RegSub Protection Channel Empty
PostSubject: RegSub Protection Channel   RegSub Protection Channel Icon_minitimeWed Oct 22, 2008 7:01 am

on ^!*:text:*:#:$iif($nick isreg #,.signal -n dk.str # $nick $1-,return) | haltdef
on ^!*:action:*:#:$iif($nick isreg #,.signal -n dk.str # $nick $1-,return) | haltdef
on ^!*:notice:*:#:$iif($nick isreg #,.signal -n dk.str # $nick $1-,return) | haltdef
on *:signal:dk.*: {
var %sig.sig = $signal, %sig.ch = $1, %sig.nk = $2, %sig.str = $3-
if (%sig.sig = dk.str) {
if ($regsub(%sig.str,/[[:cntrl:]]/g,,%var) > 49) .signal -n dk.kik %sig.ch %sig.nk codes
if ($regsub($strip(%sig.str),/[[:upper:]]/g,,%var) > 49) .signal -n dk.kik %sig.ch %sig.nk caps
if ($regsub($strip(%sig.str),/[[:digit:]]/g,,%var) > 49) .signal -n dk.kik %sig.ch %sig.nk digit
if ($regsub($strip(%sig.str),/[[:punct:]]/g,,%var) > 49) .signal -n dk.kik %sig.ch %sig.nk symbols
if ($regsub($strip(%sig.str),/[€-Ÿ|¡-ÿ]/g,,%var) > 49) .signal -n dk.kik %sig.ch %sig.nk ascii
if ($regsub($strip(%sig.str),/\b(cipap|fuck|bastard|pukimak|pantat|burit|shit|bitch|dick|pantek|pepek|butuh|butoh|jubo|zakar|kote|konek|lancap)\b/i,,%var)) { .signal -n dk.kik %sig.ch %sig.nk swear }
if ($regsub($remove($strip(%sig.str),$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(NeutralsSmile\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/i,,%var)) { .signal -n x dk.kik %sig.ch %sig.nk advertise }
if ($regsub($strip(%sig.str),/[ $chr(160) ]/g,,%var) > 49) .signal -n dk.kik %sig.ch %sig.nk blanks
if ($regsub($strip(%sig.str),/[[:alnum:]]/g,,%var) > 199) .signal -n dk.kik %sig.ch %sig.nk characters
.hinc -u2m rep $hash($+(%sig.ch,%sig.nk,$remove($strip(%sig.str),$chr(32),$chr(160))),32) | if ($hget(rep,$hash($+(%sig.ch,%sig.nk,$remove($strip(%sig.str),$chr(32),$chr(160))),32)) = 3) .signal -n dk.kik %sig.ch %sig.nk repeat
.hinc -u2m row $hash($+(%sig.ch,%sig.nk),32) | if ($hget(row,$hash($+(%sig.ch,%sig.nk),32)) = 5) .signal -n dk.kik %sig.ch %sig.nk rows
}
if (%sig.sig = dk.kik) {
if ($me !isop %sig.ch) || (%sig.nk !ison %sig.ch) .halt
.inc -u3 %sig.kik
if (%sig.kik < 21) {
.quote -q kick %sig.ch %sig.nk 11error $+( 12 ,$3, ) 11syntax
.hadd -mu3 c $2 $+ !*@* | if ($ibl($1,0) < 81) { .timerbn 1 1 raw -q mode $1 + $+ $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,Cool.item $hget(c,9).item $hget(c,10).item $hget(c,11).item $hget(c,12).item }
.ignore -u20m $2
.return
}
}
}
Back to top Go down
http://Ordinary.jomz.net
 
RegSub Protection Channel
Back to top 
Page 1 of 1
 Similar topics
-
» Gettok Protection Channel
» :: Basic Protection ::
» Ban Protection.... Absolutely working~~

Permissions in this forum:You cannot reply to topics in this forum
UMT :: Selamat Datang Ke Forum #UMT :: mIRC-
Jump to: