Swear trick

Hi all,

some of bad ppl in my chat group do sum trick so my script will not kick them they swear but they add sympols somewhere between words. like this ; fu^ck or fu#ck or fu``ck or fu~ck or f++uck can u write me code to remove these symbols from words so my script can read the word without symbol ?

Thank you

old man

old is good I dont know if you are in the room when this happens .. but just a suggestion .. spec them

Then they can F & Blind as much as they want

on *:TEXT:*fu*ck*:#: {

kick # $nick

}

haggis, that code will kick someone if they say something like "full of luck"

this is long but it works. maybe someone will make a shorter one

alias ts {
 var %a = $remove($1-,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)
 var %r = $null
 var %n = 1
 while (%n <= $len(%a)) {
   var %r = $remove($1-,$mid(%a,%n,1))
   inc %n
 }
 if ($chr(32) $+ flower $+ $chr(32) isin %r) { kick # $nick swearing }
}

<---- drunk and it does do what he asked lol

sorry

i would like to thank angel for her time. i tried ur code but it did not work i use Hybird script.

on *:text:*:#:{
 var %r, %s = $regsub($1-,/([^a-z])/gi,,%r)
 if (flower isin %r) kick # $nick Bad word: flower
}

Thanx Angel it worked finally

Peter allow me to call u master

"it did not work" "it worked finally" which is it?

first i would like to thank peter and agnelia

second my friend sent me code that removes symbols from words.

my friend code :

var %r, %l 1

%r = $removecs($1-,\,/,`,~,!,@,$chr(35),$,%,^,&,*,-,_,=,+,<,>,?,;,:,',",[,],$chr(40),$chr(41),$chr(123),$chr(124),$chr(125))

%r = $removecs(%r,.,$chr(44),’,طں,طŒ,ط›,أ—,أ·,â€ک,ظ’,ظچ,ظگ,ظŒ,ظڈ,ظ‹,ظژ,ظ‘,ظ€)

return %r

}

Can anyone fix my friend code ?

i think his code remove these symbols from word and if anyone type badword Ex. fl*o&wer script will read it without sybols like this "flower" i prefer my friend code becz it works with another language not only english

thank you

In my code you can replace the ^a-z by the characters you want to have removed. Don't forget some characters have a meaning in regular expressions and need to be preceeded by a \.

on *:text:*:#:{
 var %r, %s = $regsub($1-,/([\(\&\%\#])/gi,,%r)
 if (flower isin %r) kick # $nick Bad word: flower
}

An other way to do it, is to put in the hex values of the characters to be removed. You can even use ranges there.

on *:text:*:#:{
 var %r, %s = $regsub($1-,/([\x21-\x40\x7B-\xBF])/gi,,%r)
 if (flower isin %r) kick # $nick Bad word: flower
}

You can even combine them.

on *:text:*:#:{

var %r, %s = $regsub($1-,/[\x21-\x40\x7B-\xBF])/gi,,%r)

if (flower isin %r) kick # $nick Bad word: flower

}

on *:text:*:#:{

var %r, %s = $regsub($1-,[/(\&\%\#])/gi,,%r)

if (flower isin %r) kick # $nick Bad word: flower

}

I tried ur two codes and non of them worked :S

i get this messege : * Invalid parameters: $regsub (line 2, script1.txt)

There was a bracket missing. I fixed the code in my previous post.

Peter if u dont mind can u tell me what is the hex value of this character: ـ

It's an arabic tatweel. Comes in bot as Ù€.

See here: http://www.fileformat.info/info/unicode/char/0640/index.htm