Ban type problems! + Probs with tcl

[user]

[20:58] can't read "hand": no such variable
while executing
"matchattr $hand m|m $chan"
(file "scripts/chancmd.tcl" line 1)

Does that look like line 1 of any script you got from this thread?

[guest]

doesn't it?
i just called it like that

if {([matchattr $hand m|m $chan]) || ([matchattr $hand o|o $chan])} {

[awyeah]

There is nothing wrong with the script works fine with my bot. The hand variable is defined locally within the script. I think its calling it global somewhere if I am not mistaken. It says line 1 in the script, whats in line 1 of this script?

What eggdrop version are you using? Is the script possibly clashing with others? Try: Moving it to the top of the script list in the .conf file so it is the first tcl to be loaded into the bot.

[awyeah]

Ok....grrr yes now I know it was calling $hand globally, as I had closed the procedure mistakenly with the rest of it being global. Damn I did a fumble with the curly brackets again, am so careless with syntax errors. Ok give this a go.

*me* keeps his fingers crossed!

Code: Select all

bind pub B|B ban pub:kick:ban 

proc pub:kick:ban {nick uhost hand chan text} { 
 set person [lindex $text 0]; set reason [lrange $text 1 end] 
 set host [getchanhost $person]; set handle [nick2hand $person $chan] 
 if {($text == "")} { putserv "NOTICE $nick :Vartojimas: cya <nikas> (priezhastis)"; return 0 } 
  if {($host == "")} { putserv "NOTICE $nick :Ko norejai?"; return 0 } 
   if {([matchattr $handle mn|mn $chan]) || ([matchattr $handle b|b $chan])} { 
    putquick "NOTICE $nick :suka zhiurek ka darai!" -next; return 0 } 
     if {([matchattr $hand m|m $chan]) || ([matchattr $hand o|o $chan])} { 
      putquick "MODE $nick -o+b $person *!*[string trimleft [lindex [split $host "@"] 0] "~"]@[lindex [split [maskhost $host] "@"] 1]" -next 
      putquick "KICK $chan $person :$reason" -next; return 0 
      } 
}

[guest]

now the syntax is all right but script does nothing...

while in telnet i see this error

Tcl˙error˙[pub:kick:ban]:˙wrong˙#˙args:˙no˙script˙following˙"{([matchattr˙$hand˙m"˙argument

[YooHoo]

Tcl has a command 'info body <proc>' that will list the contents of a proc. 'info args <proc>' shows what you have defined as the parameters for the proc.

Since your error is 'args' related, try to use this command in dcc to figure out what went wrong. Example:

Code: Select all

.tcl info args pub:kick:ban

[guest]

when i write in chan like ban <nick>

i get this error in my telnet

[21:03]˙Tcl˙error˙[pub:kick:ban]:˙wrong˙#˙args:˙no˙script˙following˙"{([matchattr˙$hand˙m"˙argument

when i write

Code: Select all

 .tcl info args pub:kick:ban 

in telnet i get this answer

Tcl:˙nick˙uhost˙hand˙chan˙text

so what does it mean ....

[guest]

no suggestions?

[awyeah]

Try:

Code: Select all

.tcl set errorInfo

In DCC with the bot, then show us the result.
The the code you are trying to work on is fairly simple and really looks allright to me.

[guest]

after " .tcl set errorInfo " i get

Tcl:wrong # args: no script following "{([matchattr $hand m" argument
Tcl: while compiling
Tcl: "if {([matchattr $hand m|m $chan]) || matchattr $hand o|o $chan])}"
Tcl: (compiling body of proc "pub:kick:ban", line
Tcl: invoked from within
Tcl: "pub:kick:ban $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[awyeah]

What eggdrop version are you using?? and what tcl version is your machine on?!

[user]

What eggdrop version are you using?? and what tcl version is your machine on?!

What's that got to do with the misplaced brace? (notice: no "{" at the end of that if-line)

[guest]

i'm using :
OS:˙Linux˙2.4.26-gentoo-r9
running˙eggdrop˙v1.6.16+Gentoo
Tcl˙library:˙/usr/lib/tcl8.3
Tcl˙version:˙8.3.4˙(header˙version˙8.3.4)

ok i put { at the end and now it seems to work but not right

it just kicks a user not bans