also looking for a lineflood.tcl

[Papillon]

oops ... my fault

did it work?

[Mackenzie]

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

[Mackenzie]

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

[Mackenzie]

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

[11:46] <D12BiTcH> 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

[Papillon]

Code: Select all

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

[Mackenzie]

nope

it don't check every word....


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

Mack

[Papillon]

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

[Mackenzie]

euh...what do you mean?

[Papillon]

Code: Select all

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

[Mackenzie]

ellew papillon,

this part works nice

Code: Select all

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

[Papillon]

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...

[Mackenzie]

yup...my faulth....

was forgotten to save the last code....

sowwie


many tnx for your help this works nice tnx

[Papillon]

hehe np