Welcome To Forum #Pahang

webmaster.webchat.org
 
HomePortalCalendarGalleryFAQSearchRegisterMemberlistUsergroupsLog in

Share | 
 

 Simple iif using $regex

View previous topic View next topic Go down 
AuthorMessage
kambenk



Number of posts : 20
Age : 29
Localisation : k.trg/losong
Registration date : 2007-08-20

PostSubject: Simple iif using $regex   Mon Aug 20, 2007 11:50 am

on *^:text:*:#: { $($1-) }
on *^:notice:*:#: { $($1-) }
on *^:action:*:#: { $($1-) }
alias {
$iif($nick !isreg #,return)
$iif($regex($strip($1-),/(sex|shit|pantat|sial|konek|suck|fuck)/g) = 1,$tendang(Swearing/Detect))
$iif($regex($strip($1-),/(\#|www\.|\/server|http\:|ftp\Smiley/g) = 1,$tendang(Advertising/Detect))
$iif($regex($1-,/[[:cntrl:]]/g) > 49,$tendang(Codes/50))
$iif($regex($strip($1-),/[[:digit:]]/g) > 49,$tendang(Number/50))
$iif($regex($strip($1-),/[[:upper:]]/g) > 49,$tendang(Caps/50))
$iif($regex($strip($1-),/[[:punct:]]/g) > 49,$tendang(symbols/50))
$iif($regex($strip($1-),/[-|-]/g) > 49,$tendang(Asciis/50))
$iif($regex($strip($1-),/[ ]/g) > 49,$tendang(Blanks/50))
$iif($regex($strip($1-),/[[:lower:]]/g) > 199,$tendang(Lenghts/200))
hinc -u3m row [ $+ [ # ] ] $nick 1 | if ($hget(row [ $+ [ # ] ],$nick) = 5) { .tendang Lines/5 }
hinc -u3m rep [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(rep [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) = 3) { .tendang Repeat/3 }
haltdef
}
ctcp !@*:*:#: { $iif($me isop # && $nick isreg #,.tendang Ctcp,halt) }
on *!@:CTCPREPLY:*: { $iif($me isop # && $nick isreg #,.tendang Ctcp Reply,halt) }

p/s: ini body je..ban ngan kick korang buat la sendiri
Back to top Go down
View user profile http://losongpanglimaperang.ueuo.com
Fadzil



Number of posts : 3
Registration date : 2007-08-24

PostSubject: Re: Simple iif using $regex   Fri Aug 24, 2007 1:11 am

nk bt mcm mane 2
Back to top Go down
View user profile
 
Simple iif using $regex
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» A Simple Paper Dragon (easy to do)
» Cox Simple .020 Twin By Roger J Schroeder on RCG
» Ask a Simple Question - Get a Simple Answer
» A simple tool and airbrush holder
» Ace Simple Series T-6

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