| View previous topic :: View next topic |
| Author |
Message |
Esben Voice
Joined: 15 Oct 2005 Posts: 8
|
Posted: Thu Oct 20, 2005 5:38 am Post subject: Keepout Script Error |
|
|
i get this error when i try to use keepout script
| Quote: | | 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 |
|
| Back to top |
|
 |
Alchera Revered One

Joined: 11 Aug 2003 Posts: 3344 Location: Ballarat Victoria, Australia
|
Posted: Thu Oct 20, 2005 7:41 pm Post subject: |
|
|
Wrong forum! Moved! _________________ Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
 |
De Kus Revered One

Joined: 15 Dec 2002 Posts: 1361 Location: Germany
|
Posted: Sat Oct 22, 2005 7:55 am Post subject: |
|
|
error is there
| Code: | 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... |
|
| Back to top |
|
 |
|