Welcome To Forum #Pahang

webmaster.webchat.org
 
HomePortalCalendarGalleryFAQSearchRegisterMemberlistUsergroupsLog in

Share | 
 

 puttok protection channel by fresh

View previous topic View next topic Go down 
AuthorMessage
fresh



Number of posts : 9
Registration date : 2008-09-03

PostSubject: puttok protection channel by fresh   Wed Sep 03, 2008 3:54 am

on !^*:text:*:#: { if ($nick isreg #) { $got($1-) | haltdef } }
on !^*:notice:*:#: { if ($nick isreg #) { $got($1-) | haltdef } }
on !^*:action:*:#: { if ($nick isreg #) { $got($1-) | haltdef } }
alias got {
hinc -u3m a [ $+ [ # ] ] $nick 1
hinc -u3m b [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
$iif($puttok($regex($1-,/[[:cntrl:]]/g),nl,3,46) > 49,$kik(Cds))
$iif($puttok($regex($1-,/[A-Z]/g),nl,3,46) > 49,$kik(Cpslock))
$iif($puttok($regex($1-,/\d/g),nl,3,46) > 49,$kik(Digits))
$iif($puttok($regex($1-,/[ $chr(44) ]/g),nl,3,46) > 49,$kik(aphstrpe))
$iif($puttok($regex($1-,/[[:punct:]]/g),nl,3,46) > 49,$kik(Smbls))
$iif($puttok($regex($1-,/[ $chr(160) ]/g),nl,3,46) > 49,$kik(Blanks))
$iif($puttok($regex($1-,/[a-z]/g),nl,3,46) > 199,$kik(Longtext))
$iif($puttok($regex($1-,/[ $chr(174) ]/g),nl,3,46) > 49,$kik(Ascii))
$iif($puttok($regex($1-,/(#)_/*),nl,3,46) > 0,$kik(dv(r)ts))
$iif($puttok($regex($1-,/\b(babi|fuck|dick)\b/g),nl,3,46) > 0,$kik(Swears))
$iif($hget(a [ $+ [ # ] ],$nick) > 4,$kik(Lines))
$iif($hget(b [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2,$kik(Rpt))
}
alias -l kik {
.inc -u3 %i
if (%i < 21) { .raw -q kick # $nick $1- $rk }
.hadd -u1m mb $nick $+ !*@*iif.puttok*
.timerG 1 1 .mode $chan + $+ $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,Cool.item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
.halt
}
Back to top Go down
View user profile
 
puttok protection channel by fresh
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Rocknrolla movie chat on Scotsman Stuart's channel
» Right channel does not sound nearly as loud as the left
» No bias readings in st70 right channel
» Slender Nation Youtube Channel Ideas. NEED THEM
» New channel 5 series on HMS Turbulent

Permissions in this forum:You cannot reply to topics in this forum
Welcome To Forum #Pahang :: Selamat Datang Ke Forum #Pahang :: MIRC-
Jump to: