egghelp/eggheads community

Warn/kick/ban Script!!

2007-09-12T16:38:10-04:00

I don't see anything wrong with the code, I could be wrong. You figure it out.

Statistics: Posted by Sir_Fz — Wed Sep 12, 2007 4:38 pm

Warn/kick/ban Script!!

2007-09-11T04:04:22-04:00

*yaar* matches "yaar" anywhere in the line even if it's part of another word. As for sending warning to the channel, replace "notice $nick" with "privmsg $chan"

Thanks again mate.

I tried all the possible mask, like *yaar*, * yaar *, yaar, "yaar" etc but none of em reacting if the word is said yaar in some line and when I use * yaar * its warning/kicking on anything said in main :/

Statistics: Posted by i.m.offline — Tue Sep 11, 2007 4:04 am

Warn/kick/ban Script!!

2007-09-09T06:37:53-04:00

*yaar* matches "yaar" anywhere in the line even if it's part of another word. As for sending warning to the channel, replace "notice $nick" with "privmsg $chan"

Statistics: Posted by Sir_Fz — Sun Sep 09, 2007 6:37 am

Warn/kick/ban Script!!

2007-09-09T01:49:55-04:00

Yes, you understand right.

Thanks for the response mate.

It seems I m messing up somewhere wid setting up words. I tried to put like "*yaar*", "* yaar *" & "yaar" isolated but it don't warn/kick/ban if the word is said in whole line. its responding only when it is said just the word in a line.

Would be great if the bot warns in channel main like - user - you have said a bad word.... etc.

Thanks a lot for the help in advance

Statistics: Posted by i.m.offline — Sun Sep 09, 2007 1:49 am

Warn/kick/ban Script!!

2007-09-08T03:52:05-04:00

Yes, you understand right.

Statistics: Posted by Sir_Fz — Sat Sep 08, 2007 3:52 am

Warn/kick/ban Script!!

2007-09-06T01:15:42-04:00

This should do it:

Code:

set wkb(words) { *word1* "word2 *" "* words"}set wkb(time) 60 ; # time in secondsset wkb(warn) "you've said a bad word...etc"set wkb(kick) "you've said a bad word...etc"bind pubm - * warnkickbanproc warnkickban {nick uhost hand chan arg} { global wkb set match 0 foreach word $wkb(words) {  if {[string match -nocase $word $arg]} {   set match 1   break  } } if {$match} {  set o [throttled $nick:$uhost $wkb(time)]  if {$o == 1} {   puthelp "notice $nick :$wkb(warn)"  } {   putserv "kick $chan $nick :$wkb(kick)"   if {$o > 2} {    putserv "mode $chan +b *!*@[lindex [split $uhost @] 1]"   }  } }}# user's throttled procedure with slight modificationproc throttled {id time} { global throttled if {[info exists throttled($id)]} {  incr throttled($id) } {  set throttled($id) 1  utimer $time [list unset throttled($id)] } return $throttled($id)}

It feels like it's been years since I last wrote something in Tcl

Thanks a lot bro for the help. I will give it a try.
Just one confusion - it will reset the offence in 60 sec? which means if the user says the bad word after 60 sec, it will again start from 1st level?
Please correct me if am wrong.

And if I understand it right then I will increase the time thanks once again.

Statistics: Posted by i.m.offline — Thu Sep 06, 2007 1:15 am

Warn/kick/ban Script!!

2007-09-05T11:51:06-04:00

This should do it:

Code:

set wkb(words) { *word1* "word2 *" "* words"}set wkb(time) 60 ; # time in secondsset wkb(warn) "you've said a bad word...etc"set wkb(kick) "you've said a bad word...etc"bind pubm - * warnkickbanproc warnkickban {nick uhost hand chan arg} { global wkb set match 0 foreach word $wkb(words) {  if {[string match -nocase $word $arg]} {   set match 1   break  } } if {$match} {  set o [throttled $nick:$uhost $wkb(time)]  if {$o == 1} {   puthelp "notice $nick :$wkb(warn)"  } {   putserv "kick $chan $nick :$wkb(kick)"   if {$o > 2} {    putserv "mode $chan +b *!*@[lindex [split $uhost @] 1]"   }  } }}# user's throttled procedure with slight modificationproc throttled {id time} { global throttled if {[info exists throttled($id)]} {  incr throttled($id) } {  set throttled($id) 1  utimer $time [list unset throttled($id)] } return $throttled($id)}

It feels like it's been years since I last wrote something in Tcl

Statistics: Posted by Sir_Fz — Wed Sep 05, 2007 11:51 am

Warn/kick/ban Script!!

2007-09-05T05:10:12-04:00

Its easy enough:

Once a swear word is detected from a user, add that nick into an array and say set a value of 1 and warn that user. If that user says another swear word, check the array for that user, if found you check the value of the array, if say 1, means you warned him already, so increment the value to 2 and kick him. If he says another swear word, check the array again for the nick if found, check the value again, if it is 2, then you kick and ban that user.
Thanks for the advice and guideline Awyeah. M complete noob on tcl so I requested if any1 came across such code
Sorry, I wouldn't have any time to code something like this for you, since I am quite busy with alot of work currently. You can however, request it in the scripts request section and hope someone helps you with it.

Thanks a lot for sparing sometime and giving good guideline for that really appreciated.

Ya it is already in script request section, seeking help :s wish me luck haha

Statistics: Posted by i.m.offline — Wed Sep 05, 2007 5:10 am

Warn/kick/ban Script!!

2007-09-05T04:55:57-04:00

Its easy enough:

Once a swear word is detected from a user, add that nick into an array and say set a value of 1 and warn that user. If that user says another swear word, check the array for that user, if found you check the value of the array, if say 1, means you warned him already, so increment the value to 2 and kick him. If he says another swear word, check the array again for the nick if found, check the value again, if it is 2, then you kick and ban that user.
Thanks for the advice and guideline Awyeah. M complete noob on tcl so I requested if any1 came across such code

Sorry, I wouldn't have any time to code something like this for you, since I am quite busy with alot of work currently. You can however, request it in the scripts request section and hope someone helps you with it.

Statistics: Posted by awyeah — Wed Sep 05, 2007 4:55 am

Warn/kick/ban Script!!

2007-09-05T04:51:22-04:00

Its easy enough:

Once a swear word is detected from a user, add that nick into an array and say set a value of 1 and warn that user. If that user says another swear word, check the array for that user, if found you check the value of the array, if say 1, means you warned him already, so increment the value to 2 and kick him. If he says another swear word, check the array again for the nick if found, check the value again, if it is 2, then you kick and ban that user.

Thanks for the advice and guideline Awyeah. M complete noob on tcl so I requested if any1 came across such code

Statistics: Posted by i.m.offline — Wed Sep 05, 2007 4:51 am

Warn/kick/ban Script!!

2007-09-05T04:56:40-04:00

Its easy enough:

Once a swear word is detected from a user, add that nick into an array and say set a value of 1 and warn that user. If that user says another swear word, check the array for that user, if found you check the value of the array, if say 1, means you warned him already, so increment the value to 2 and kick him. If he says another swear word, check the array again for the nick if found, check the value again, if it is 2, then you kick and ban that user. After that remove that nick from the array.

Statistics: Posted by awyeah — Wed Sep 05, 2007 4:47 am

Re: Warn/kick/ban Script!!

2007-09-05T01:45:13-04:00

Check out MC_8's badword script, it has exempt words and alot other features. This is probably in the TCL Archive, but heres a direct link to the scripts page on his MC_8's website http://mc.purehype.net/index.tcl?info=Bad+Words. Hope it helps

Thanks for the reply mate, I will try that. Thanks again

Edited:

I tried working with it but dont find any option to make it work like warn/kick/ban. Somehow it seems so huge code for swear! maybe I m wrong.

Statistics: Posted by i.m.offline — Wed Sep 05, 2007 1:45 am

Re: Warn/kick/ban Script!!

2007-09-04T11:20:07-04:00

Check out MC_8's badword script, it has exempt words and alot other features. This is probably in the TCL Archive, but heres a direct link to the scripts page on his MC_8's website http://mc.purehype.net/index.tcl?info=Bad+Words. Hope it helps

Statistics: Posted by TCL_no_TK — Tue Sep 04, 2007 11:20 am

Warn/kick/ban Script!!

2007-09-04T09:14:55-04:00

Thanks again for taking your precious time to reply
I couldn't find any similar post than myself posted earlier here ---> http://forum.egghelp.org/viewtopic.php? ... =warn+kick

I followed the suggestion of mavericku
but now I found out there is some error like, when I add word lets say "Kya"
so it triggers even on LuckyAngel, I tried to change string to "* kya *" but then it trigger on that.

Not sure how to get it work right or if there is something I am messing up with

Statistics: Posted by i.m.offline — Tue Sep 04, 2007 9:14 am

Warn/kick/ban Script!!

2007-09-04T08:59:25-04:00

There were similar requests before in this forum. Try to search for warn/kick examples.

Statistics: Posted by Sir_Fz — Tue Sep 04, 2007 8:59 am