egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-04-21T04:07:45-04:00 https://forum.eggheads.org/app.php/feed/topic/11712 2006-04-21T04:07:45-04:00 2006-04-21T04:07:45-04:00 https://forum.eggheads.org/viewtopic.php?p=62163#p62163 <![CDATA[how many instances of $word in $line]]> this

Statistics: Posted by demond — Fri Apr 21, 2006 4:07 am

]]> 2006-04-21T03:52:43-04:00 2006-04-21T03:52:43-04:00 https://forum.eggheads.org/viewtopic.php?p=62162#p62162 <![CDATA[how many instances of $word in $line]]>

Code: 

<nick> Who is from location location location location location location location
But it's pretty complicated. Is there an easier way to catch annoying repeatings in one line?

Code: 

bind pubm - "#channel *" dududuproc dududu {nick uhost hand chan sentence} {array set wordcount {}if {([llength $sentence] < 5)||([llength $sentence] > 25)} {return 0}foreach e [split $sentence] {if {[llength [split $e ""]] < 4} {return 0};#ignore 'ha ha ha ha ha' etc   if {![info exists wordcount($e)]} {        set wordcount($e) 1      } elseif {[info exists wordcount($e)]} {        incr wordcount($e)}}set output ""  foreach {x y} [array get wordcount] {    if {[string is integer -s $y]} {      lappend score [list $x $y]    }  }  set {e} [lsort -decreasing -integer -index 1 $score]    if { [lindex [lindex $e 0] 1] > 5 } {      putlog "[lindex [lindex $e 0] 0] used [lindex [lindex $e 0] 1] times";#kick or ban goes here    }}

Statistics: Posted by Garp — Fri Apr 21, 2006 3:52 am

]]>