also looking for a lineflood.tcl

Mackenzie · Post by **Mackenzie** » Wed Sep 04, 2002 1:11 pm

Hello all,
i'm looking for a lineflood.tcl (no bans on it)

example:

[19:04] <Test> heyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy !!
[19:04] *** sisie was kicked by @FloodBot (lineflood: 87)

tcl kicks people who type to long lines (with counter)

tcl must kick with the minimum of 50 characters but count further

tnx
Mack

z_one · Post by **z_one** » Thu Sep 05, 2002 1:01 am

Code: Select all

bind pubm - * longword

proc longword {nick uhost hand chan text} { 
  if {[string length $text] > 50}  {
    putkick $chan $nick "long line: [string length $text] chars" 
  }
}

Mackenzie · Post by **Mackenzie** » Thu Sep 05, 2002 6:54 am

works nice but it count spaces to

like @@@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@@@@
then the bot kick also for lineflood

is it not possibel to kick when somebody use the lineflood without the spaces?

greetz
Mack

Papillon · Post by **Papillon** » Thu Sep 05, 2002 7:05 am

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: [string length $l] chars" 
  } 
}

Mackenzie · Post by **Mackenzie** » Thu Sep 05, 2002 11:23 pm

hoi papillon...

nope same effect

[05:20] <@Mackenzie> aaaaaaaaaaaaaaaaaaaatestaaaaa aaaaaaaaaaaaaaaaaaaaaa
[05:20] *** kick by Xanti (Line-Flood: 51 chars)

there was one space in the line

greetz
Mack

ppslim · Post by **ppslim** » Fri Sep 06, 2002 4:39 am

I am guessing what you want, is a script that will punish, if some1 lines floods, without spaces.

Code: Select all

bind pubm - * longword 

proc longword {nick uhost hand chan text} { 
  regsub { } $text {} n
  if {([string length $text] > 50) && ([string length $text] == [string length $n])}  { 
    putkick $chan $nick "long line: [string length $text] chars" 
  } 
}

However, they will only need one space in the line to get around this, which is rather simple.

Mackenzie · Post by **Mackenzie** » Fri Sep 06, 2002 11:19 am

jup almost good

just XXXXX xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
don't work....

is that possibel with a split?

greetz
Mack

Mackenzie · Post by **Mackenzie** » Sat Sep 07, 2002 11:26 am

still have troubles

[17:10] <+Test> x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x

[17:11] <+Test> xxxxxxx XXXXXXXXXXXXXXXXXXXXXXXXXXXX xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

bot don't react on this kind of lineflood....

is there no way to solve this problem?
meaning is that this tcl count the chars and strings and then kick

I know it is difficul but i'm a newbee on tcl code

greetz
Mack

Papillon · Post by **Papillon** » Sat Sep 07, 2002 11:47 am

I don't exactly understand what u want to do...
do u want the bot to kick users who write a line longer than 50 chars (exluding spaces)? or just if a word is > 50 chars?

Mackenzie · Post by **Mackenzie** » Sat Sep 07, 2002 12:29 pm

Papillon...

can it be done for both?

Mackenzie · Post by **Mackenzie** » Sat Sep 07, 2002 12:32 pm

at this case....what is the best solution?

Mackenzie · Post by **Mackenzie** » Sat Sep 07, 2002 12:37 pm

a couple examples what they are doing on the channel

[17:39] <+horror> x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x
[17:39] <+horror> x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x

[17:35] <+horror> misc, slukes ze xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

greetz
Mack

Papillon · Post by **Papillon** » Sat Sep 07, 2002 12:37 pm

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 { } $al {} n 
      if {[string length $al] > 50}  { 
      putkick $chan $nick "long line: word length [string length $text] chars" 
    }
  } 
}

*not tested

Mackenzie · Post by **Mackenzie** » Sat Sep 07, 2002 12:52 pm

[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"

Mackenzie · Post by **Mackenzie** » Sat Sep 07, 2002 1:29 pm

found it...i think

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 { } $al {} n 
      if {[string length $al] > 50}  { 
      putkick $chan $nick "long line: word length [string length $text] chars" 
    } 
  } 
} 
}

put extra closebrace at the end