[02:38] Tcl error [onlesais3]: list element in quotes follow

[Sir_Fz]

Code: Select all

[02:38] Tcl error [onlesais3]: list element in quotes followed by ":" instead of space
[02:38] Tcl error [onlesais2]: list element in quotes followed by ":" instead of space
[02:38] Tcl error [onlesais1]: list element in quotes followed by ":" instead of space
[02:38] Tcl error [onlesais]: list element in quotes followed by ":" instead of space

I keep getting these error in my eggdrop, can anyone tell me how to fix it please ?

[ppslim]

This is caused by a script incorrectly handling strings, by using list commands on them.


Lists are a special way for formatting strings, so information can be stored and retrieved accuratly from them with minimal fuss. However, if it is a incorectly formatted string, then list commands don't allways work and cause errors like this.

The only way to fix this, is to identify which script is the offender. This can be done by searching for "proc onlesais" in your loaded scripts, or using

grep "proc onlesais" ./*

Inside the bgots script directory (presuming you are on *nix, use the windows search feature if using windrop).

We will be in more of a possition to help if we know which script it is, and how to fix it.

[Sir_Fz]

From an Anti-Repeat tcl script

Code: Select all

bind pubm - "*" onlesais
proc onlesais {nick host hand chan arg} {
if {![botisop $chan]} {return 0}
set avant [getuser sequiadit xtra $nick]
set apres [lrange $arg 0 end]
set kbmsg [getuser repinfo xtra kickbanmsg]
set kmsg [getuser repinfo xtra kickmsg]
set avermsg [getuser repinfo xtra avermsg]
set avernot [getuser repinfo xtra avernot]
set repeatfois [getuser repinfo xtra fois]
set bantime [getuser repinfo xtra bantime]
set level [getuser repinfo xtra level]
set onoff [getuser repinfo xtra onoff]
if {$onoff != "on"} {return 0}
if {$level != "1"} {return 0}
if {$apres != $avant} {
setuser repeat xtra $nick 0
}

can you find the problem and fix it please, its realy buggy getting these errors :p

[arcane]

try a

Code: Select all

set arg [split $arg]

before the set apres

edit: you could use

Code: Select all

set apres $arg 

instead. just saw that you have lrange from 0 to end

[ppslim]

Find the line

Code: Select all

set apres [lrange $arg 0 end]

You can do one of two things

1:

Code: Select all

set apres $arg

Or
2:

Code: Select all

set apres [lrange [split $arg] 0 end]

They both do exactly the same thing. 1 is better, but that would depend if there is any more code to the script, and what is done later.

[Sir_Fz]

ok i replaced all "set apres [lrange $arg 0 end]" in the script with "set apres $arg" so far its working fine with no errors

I'll tell you if there's any new errors in it

Thank You