This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Keepout Script Error

Support & discussion of released scripts, and announcements of new releases.
Post Reply
E
Esben
Voice
Posts: 8
Joined: Sat Oct 15, 2005 7:56 pm

Keepout Script Error

Post by Esben »

i get this error when i try to use keepout script
Tcl error [::keepout::joinchan]: can't read "arguments": no such variable

Code: Select all

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
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

Wrong forum! Moved!
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
User avatar
De Kus
Revered One
Posts: 1361
Joined: Sun Dec 15, 2002 11:41 am
Location: Germany

Post by De Kus »

error is there :P

Code: Select all

113		proc 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.
De Kus
StarZ|De_Kus, De_Kus or DeKus on IRC
Copyright © 2005-2009 by De Kus - published under The MIT License
Love hurts, love strengthens...
Post Reply