mIRC Home    About    Download    Register    News    Help

Print Thread
#207989 09/01/09 03:26 AM
Joined: Jan 2007
Posts: 18
K
Pikka bird
OP Offline
Pikka bird
K
Joined: Jan 2007
Posts: 18

is it possible to convert that to .mrc for drone check?

Code:
  
 if {[regexp {^[a-z]{4,}![a-z]{4,}$} $nick!$id]} {
    if {(![string match {*[aeiou]*} $nick]) || ([regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} $nick message] && ![regexp {a{3}|e{3}|i{3}|o{3}|u{3}} $nick])} {
	 if {![info exists message]} { set message "Possible drone" }
     kick # $nick  *$message*

}
    
if {![string match *$id* $nick] && [regexp {q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm} $nick message]} {
kick # $nick *$message*
}



thanks a lot.

kitsaras #207992 09/01/09 05:25 AM
Joined: Oct 2003
Posts: 3,918
A
Hoopy frood
Offline
Hoopy frood
A
Joined: Oct 2003
Posts: 3,918
Yes.


- argv[0] on EFnet #mIRC
- "Life is a pointer to an integer without a cast"
kitsaras #207995 09/01/09 10:52 AM
Joined: Jan 2007
Posts: 18
K
Pikka bird
OP Offline
Pikka bird
K
Joined: Jan 2007
Posts: 18
So Can U help me pls?

kitsaras #208009 09/01/09 06:59 PM
Joined: Jul 2007
Posts: 1,129
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Jul 2007
Posts: 1,129
This may work:

Code:
on @*:JOIN:#: {
  if ($regex($nick,/^([a-z]{4,})/S)) {
    kick # $nick possible drone.
  }
  elseif ($regex($nick,/^(q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm)/Si)) {
    kick # $regml(1) possible drone.
  }
}

Tomao #208019 10/01/09 02:11 AM
Joined: Jan 2007
Posts: 18
K
Pikka bird
OP Offline
Pikka bird
K
Joined: Jan 2007
Posts: 18
thanks a lot!

kitsaras #208076 11/01/09 09:40 PM
Joined: Jan 2007
Posts: 18
K
Pikka bird
OP Offline
Pikka bird
K
Joined: Jan 2007
Posts: 18

but dont works frown

• Joins: MhKvIyYk(~MhKvIyYk@147.52.43.124)

no action frown

kitsaras #208078 11/01/09 11:00 PM
Joined: Jul 2007
Posts: 1,129
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Jul 2007
Posts: 1,129
Ok, I have edited it:

Code:
on @*:JOIN:#: {
  if ($calc($regex($nick,/[a-zA-Z0-9]/gS)) >= 4) {
    kick $chan $nick possible drone.
  }
  elseif ($regex($nick,/^(q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm)/gSi)) {
    kick # $regml(1) possible drone.
  }
}

Tomao #208616 24/01/09 11:51 PM
Joined: Jan 2007
Posts: 18
K
Pikka bird
OP Offline
Pikka bird
K
Joined: Jan 2007
Posts: 18

Sorry for the delay on the reply i was out of town
i test it and i'll inform u thanks a lot smile


Link Copied to Clipboard