egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-10-16T00:23:29-04:00 https://forum.eggheads.org/app.php/feed/topic/2798 2002-10-16T00:23:29-04:00 2002-10-16T00:23:29-04:00 https://forum.eggheads.org/viewtopic.php?p=12009#p12009 <![CDATA[script - help plz]]> Statistics: Posted by EEggy — Wed Oct 16, 2002 12:23 am

]]> 2002-10-15T18:13:30-04:00 2002-10-15T18:13:30-04:00 https://forum.eggheads.org/viewtopic.php?p=12007#p12007 <![CDATA[script - help plz]]>
thanks
regards

Statistics: Posted by EEggy — Tue Oct 15, 2002 6:13 pm

]]> 2002-10-15T05:12:35-04:00 2002-10-15T05:12:35-04:00 https://forum.eggheads.org/viewtopic.php?p=11993#p11993 <![CDATA[script - help plz]]>

Code: 

foreach temp(bind) [binds ctcp] { if {[lindex $temp(bind) 4] == "wordkick:ctcp:badword"} { unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:ctcp:badword } }
Read the first, then the third line. SOmthing doesn't match.

Statistics: Posted by ppslim — Tue Oct 15, 2002 5:12 am

]]> 2002-10-15T00:18:13-04:00 2002-10-15T00:18:13-04:00 https://forum.eggheads.org/viewtopic.php?p=11989#p11989 <![CDATA[script - help plz]]> everytime when i type in partyline .rehash, i get this

<egg_> [05:11] Tcl error in file 'egg.conf':
<egg_> [05:11] no such binding
<egg_> while executing
<egg_> "unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:ctcp:badword"
<egg_> ("foreach" body line 3)
<egg_> invoked from within
<egg_> "foreach temp(bind) [binds ctcp] {
<egg_> if {[lindex $temp(bind) 4] == "wordkick:ctcp:badword"} {
<egg_> unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2..."
<egg_> (file "scripts/wordkick.tcl" line 45)
<egg_> invoked from within
<egg_> "source scripts/wordkick.tcl"
<egg_> (file "egg.conf" line 1319)
<egg_> [05:11] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

codes:
wordkick(badwords) {
*badword1*
*badword2*
badword3
....
}

foreach temp(bind) [binds pubm] {
if {[lindex $temp(bind) 4] == "wordkick:pubm:badword"} {
unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:pubm:badword
}
}

foreach temp(bind) [binds ctcp] {
if {[lindex $temp(bind) 4] == "wordkick:ctcp:badword"} {
unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:ctcp:badword
}
}

foreach temp(word) [split $wordkick(badwords) \n] {
set temp(word) [string trim $temp(word) " \t"]
if {$temp(word) == ""} {continue}
bind pubm - "% $temp(word)" wordkick:pubm:badword
}

bind ctcp - ACTION wordkick:ctcp:badword

proc wordkick:ctcp:badword {nick uhost handle channel key text} {
global wordkick
foreach temp(word) [split $wordkick(badwords) \n] {
set temp(word) [string trim $temp(word) " \t"]
if {$temp(word) == ""} {continue}
if {[string match $temp(word) $text]} {
wordkick:badword $nick $uhost $handle $channel
return 0
}
}
}
proc wordkick:pubm:badword {nick uhost handle channel text} {
wordkick:badword $nick $uhost $handle $channel
return 0
}
proc wordkick:badword {nick uhost handle channel} {
.
.
.
.
}


i'll appreciate for your help
thanks

Statistics: Posted by EEggy — Tue Oct 15, 2002 12:18 am

]]>