egghelp/eggheads community

tell me how to do thing like

if { ([string match -nocase "* $helpwanted *" $input] ===== 1

i want to it replay 0 when there is full zeros like
in $helpwanted is

bla
he
hi

andf return 0 if no one word match with $input ..

; set arg "lol http:// http://lol www.lol www ftp:// lol ftp://:P" #101 (56 clicks) Tcl: lol http:// http://lol www.lol www ftp:// lol ftp://:P ; set arg [lsearch -regexp -all -inline $arg {(http://|www.|ftp://)}] #103 (121 clicks) Tcl: http:// http://lol www.lol ftp:// ftp://:P i dont un...

bind pubm - "* *" badword:pubm:check proc badword:pubm:check {nick uhost handle chan arg} { global triggerchar ## if { [isop $nick $chan] || [ishalfop $nick $chan] || [isvoice $nick $chan] } { ## putlog "used isop/hop/vop" ## return 0 ## } if {[string match "*@..." $uh...

i said you i did - if not sorry then

but it also dont working with foreach .. just maybe with first badword "http://" it dont see "www." and others when foreach

$bw dont want work as list in "if string match - nocase" always returnining 0 -.-

There is no any errors,

i said http:// wchich is added to $bw and it didnt do anything,

it should say at least putquick "PRIVMSG $chan : Wypierdalam cie bo podałeś badword."

Only this part does not work which i paste you higher . And as i think, script dont even read this part. If i use bwb $bw and then when i change $bw on $bwb in a place "if string match -nocase" this $bwb works. Problem with this comunicate - ubm:check]: can not find channel named "fil...

while {$count < [llength $bwfound]} { if { [string match -nocase "$bw" [lindex $bwfound $count]] == 1 } { putquick "PRIVMSG $chan : Wypierdalam cie bo podałeś badword." #putquick "PRIVMSG $chan : $Excepts(list)" if { [string match -nocase "$Excepts(list)" [li...

could u "repair" my part of script ? set readbw [open [string trimleft $chan #]_badwords.txt r] while { ![eof $readbw] } { putlog "i do something" gets $readbw line set helpwanted [string range $line 0 [expr [string first # $line]-1]] set message [string range $line [expr [string...

How to do lsearch for two or more words? like: [lsearch -all -inline {1 11 111 22 2 222} 2* 1*] i want to if find me words with 2* 1* .. so 1 11 111 2 22 222 [lsearch -all -inline {147 158 169 175 121 540} *0 *9] return => 540 169 ------ how to do list? like i got set $word "word1 2 3" i w...

ok thanks and other set triggerchar "!" ### Thanks to ppslim for this filter ### proc swear:filter {str} { # regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str regsub -all -nocase {[^a-z,0-9@:/\s\|]} $str "" str return $str } proc sw...

[19:15] Tcl error in file 'eggdrop.conf': [19:15] wrong # args: should be "proc name args body" while executing "proc BadWordKick { nick uhost chan arg helpwanted message typeof input } { global BadwordWarn set whost *!*@[lindex [split $uhost "@"] end] ..." (file "...

hey. I need help. I've got something wrong in this script.. it says me "wrong args should be.. blablabla" here is script: set triggerchar "!" ### Thanks to ppslim for this filter ### proc swear:filter {str} { # regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006...

i have other idea to take only letters fllod now it work..


but i want: "ththththththt" , " shshshshshshs" and other will kicking too!

so how can i disable it?

argh..