egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-10-22T07:55:47-04:00 https://forum.eggheads.org/app.php/feed/topic/10677 2005-10-22T07:55:47-04:00 2005-10-22T07:55:47-04:00 https://forum.eggheads.org/viewtopic.php?p=56750#p56750 <![CDATA[Keepout Script Error]]>

Code: 

113proc keepout::ban {host} {114 if {![string match *users.quakenet* $host]} {115  return "[string map "~ *" *!$host]"116 } else {117  return "*!*@[lindex [split $arguments] 0]"118 }119}
thats why you should use the '.set errorInfo' for debugging.

Statistics: Posted by De Kus — Sat Oct 22, 2005 7:55 am

]]> 2005-10-20T19:41:53-04:00 2005-10-20T19:41:53-04:00 https://forum.eggheads.org/viewtopic.php?p=56729#p56729 <![CDATA[Keepout Script Error]]> Statistics: Posted by Alchera — Thu Oct 20, 2005 7:41 pm

]]> 2005-10-20T05:38:00-04:00 2005-10-20T05:38:00-04:00 https://forum.eggheads.org/viewtopic.php?p=56723#p56723 <![CDATA[Keepout Script Error]]>
Tcl error [::keepout::joinchan]: can't read "arguments": no such variable

Code: 

proc keepout::joinchan {nickname hostname handle channel} { if {[channel get $channel keepout] && ![matchattr $handle $keepout::flags $channel] && [botisop $channel]} {  putquick "MODE $channel +b [ban $hostname]"  set kickmsg [lindex $keepout::kickmsg [rand [llength $keepout::kickmsg]]]  putquick "KICK $channel $nickname :[string map "%nick $nickname %host $hostname %chan $channel" $kickmsg]" }}
rest of the script
http://www.nomorepasting.com/paste.php?pasteID=50838

Statistics: Posted by Esben — Thu Oct 20, 2005 5:38 am

]]>