egghelp/eggheads community

also looking for a lineflood.tcl

2002-09-09T10:42:09-04:00

hehe np

Statistics: Posted by Papillon — Mon Sep 09, 2002 10:42 am

also looking for a lineflood.tcl

2002-09-09T10:40:39-04:00

yup...my faulth....

was forgotten to save the last code....

sowwie

many tnx for your help this works nice tnx

Statistics: Posted by Mackenzie — Mon Sep 09, 2002 10:40 am

also looking for a lineflood.tcl

2002-09-09T10:35:28-04:00

that script works. I'v tetested it and it does exactly as u wanted.
*it checks the max length of the line(total chars, excluding whitespace)
*it checks every word in a line and kicks if the word is longer than the max wordlength...

Statistics: Posted by Papillon — Mon Sep 09, 2002 10:35 am

also looking for a lineflood.tcl

2002-09-09T09:59:43-04:00

ellew papillon,

this part works nice

Code:

bind pubm - * longword set wordlength "15" proc longword {nick uhost hand chan text} {   global wordlength linelength   set l [join [split $text] ""]   if {[string length $l] > "$linelength"}  {     putkick $chan $nick "long line: line length [string length $l] chars"     return

but i taught when this part controls every word on a line it can catch the lineflood to

example: "this is superformidable"

word "this" (control characters=4 nothing happend goes to next word)
"is" (control characters=2 nothing happend goes to next word)
superformidable (control characters=15 kick )

or next example the lineflood: xxxxxxxxxxxxxxx (controle characters=15 kick)

i think it works with a sort of "loop" (just guessing )

i try all the codes out, look how they are build...then i can see what's happening...

tnx
Mack

Statistics: Posted by Mackenzie — Mon Sep 09, 2002 9:59 am

also looking for a lineflood.tcl

2002-09-08T07:51:41-04:00

Code:

bind pubm - * longword set wordlength "20"set linelength "100"proc longword {nick uhost hand chan text} {   global wordlength linelength  set l [join [split $text] ""]   if {[string length $l] > "$linelength"}  {     putkick $chan $nick "long line: line length [string length $l] chars"     return   }   if {[llength [split $text]] > 1} {     set al [split $text]     foreach l $al {       regsub { } $l {} n       if {[string length $n] > "$wordlength"}  {         putkick $chan $nick "long line: word length [string length $n] chars"       }     }   } }

this has been tested, and it works

Statistics: Posted by Papillon — Sun Sep 08, 2002 7:51 am

also looking for a lineflood.tcl

2002-09-08T07:29:44-04:00

euh...what do you mean?

Statistics: Posted by Mackenzie — Sun Sep 08, 2002 7:29 am

also looking for a lineflood.tcl

2002-09-08T07:20:48-04:00

it should, change the max linelength and wordlength e.g. line: 100 chars word: 30 chars

Statistics: Posted by Papillon — Sun Sep 08, 2002 7:20 am

also looking for a lineflood.tcl

2002-09-08T06:39:59-04:00

nope

it don't check every word....

[12:39] ttttttttttttttttttttttttttttttttttttttttttttttttttt
[12:39] *** U bent buitengekegeld door Wallace (long line: line length 51 chars)
*** Rejoined #stabroek
[12:39] ttttttttttttttttttttttttttt tttttttttttttttttttttttt
[12:39] *** U bent buitengekegeld door Wallace (long line: line length 51 chars)
*** Rejoined #stabroek

Mack

Statistics: Posted by Mackenzie — Sun Sep 08, 2002 6:39 am

also looking for a lineflood.tcl

2002-09-08T06:28:06-04:00

Code:

bind pubm - * longword proc longword {nick uhost hand chan text} {   set l [join [split $text] ""]   if {[string length $l] > 50}  {     putkick $chan $nick "long line: line length [string length $l] chars"     return   }   if {[llength [split $text]] > 1} {     set al [split $text]     foreach l $al {       regsub { } $l {} n       if {[string length $n] > 50}  {         putkick $chan $nick "long line: word length [string length $text] chars"       }     }   }}

dunno what I was thinking! this should do what u want, just messed up some variables I'd suggest u change the length of the "max length on words" , cause if not the word checking will be pretty useless

Statistics: Posted by Papillon — Sun Sep 08, 2002 6:28 am

also looking for a lineflood.tcl

2002-09-08T06:08:53-04:00

got the solution....when you see the example:

[11:46] flowerkeeeeeeeeeeeeeeuuuuuuuuuuuuuuuhhhhhhhhhhhhh Jeeeeeeeeeeuuuuuuuuuhhhhhh!!!!!!!!!! xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxjeeeeeeuuuuuuuuuuuzzzzzz!!!!!!!!! :pppppp
[11:46] *** D12BiTcH was kicked by @BotNick (lineflood: 63)

the bot kicks on the last part...(63 characters)

the tcl checq every word...counts every word on a line for characters...
when a word reach 50 characters then kick

when it don't reach the 50 characters it checq the next word

is that possibel?

Mack

Statistics: Posted by Mackenzie — Sun Sep 08, 2002 6:08 am

also looking for a lineflood.tcl

2002-09-07T20:03:56-04:00

i think how it must work

when somebody set a line flood like

XXXXXXXXXXXXXXXXXXX (50 characters)
de bot will kick at this moment.

but when somebody type long lines normally tekst the bot will also kick on 50 characters...

i think when it is possibel to have a good lineflood kicker...the tcl must check every word in a line....and when in that line a word is larger then example 20 characters...then a kick.... (cause some people misled the bot with xxxx xxxxxxxxxxxxxxxxxxxxxx)

that part of x x x x x x x x x x x x x x is not possibel to check i guess at this point....or the bot must count the characters on that line (not the spaces) and kick this manner at example on a count of 20 characters....

i know it is difficult to make but is that manner not better? and who can help me with that kind of tcl

greetz
Mack

Statistics: Posted by Mackenzie — Sat Sep 07, 2002 8:03 pm

also looking for a lineflood.tcl

2002-09-07T14:21:40-04:00

don't know yet....

bot starts up but can't join the servers

access denied

think we must reboot the linuxbox

i shall repport when i can connect again

Mack

Statistics: Posted by Mackenzie — Sat Sep 07, 2002 2:21 pm

also looking for a lineflood.tcl

2002-09-07T13:33:15-04:00

oops ... my fault

did it work?

Statistics: Posted by Papillon — Sat Sep 07, 2002 1:33 pm

also looking for a lineflood.tcl

2002-09-07T13:29:21-04:00

found it...i think

Code:

bind pubm - * longword proc longword {nick uhost hand chan text} {   set l [join [split $text] ""]   if {[string length $l] > 50}  {     putkick $chan $nick "long line: line length [string length $l] chars"     return   }   if {[llength [split $text]] > 1} {     set al [split $text]     foreach l $al {       regsub { } $al {} n       if {[string length $al] > 50}  {       putkick $chan $nick "long line: word length [string length $text] chars"     }   } } }put extra closebrace at the end

Statistics: Posted by Mackenzie — Sat Sep 07, 2002 1:29 pm

also looking for a lineflood.tcl

2002-09-07T12:52:17-04:00

[18:50] Tcl error in file 'g-force.conf':
[18:50] missing close-brace
while executing
"proc longword {nick uhost hand chan text}"
(file "scripts/lineflood.tcl" line 3)
invoked from within
"source scripts/lineflood.tcl"

Statistics: Posted by Mackenzie — Sat Sep 07, 2002 12:52 pm