egghelp/eggheads community

Caesar's tsunami.tcl shows an error in partyline.

2003-06-11T12:08:54-04:00

ok thanx
No usch errors are appearing anymore

Statistics: Posted by Sir_Fz — Wed Jun 11, 2003 12:08 pm

Caesar's tsunami.tcl shows an error in partyline.

2003-06-11T11:45:06-04:00

Yes, it should be there.

Statistics: Posted by caesar — Wed Jun 11, 2003 11:45 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-11T11:29:52-04:00

ok I added the "if {![info exists bla([strlwr $chan])]} { set bla([strlwr $chan]) 0 }" right before the "set linelength...", so now its:

Code:

if {![info exists bla([strlwr $chan])]} { set bla([strlwr $chan]) 0 }  set linelength [lindex [split $::ltl ":"] 3]

and I replaced those 2 codes u told me to
--but should I keep this code ?:

Code:

# array fix #foreach chan [channels] {  set bla([strlwr $chan]) 0}

or should I remove it ?

Statistics: Posted by Sir_Fz — Wed Jun 11, 2003 11:29 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-11T05:33:50-04:00

Replace from:

Code:

if {[string match [strlwr [strlwr $chan]] $arr_part]} {

to:

Code:

if {[string match [strlwr $chan] $arr_part]} {

there is no need to make it lower case twice, duno how I've missed that.

Statistics: Posted by caesar — Wed Jun 11, 2003 5:33 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-11T03:04:18-04:00

Also, replace from:

Code:

if {[string length [join [split $text] ""]] > "$linelength"} {

to:

Code:

if {[llength [split $text ""]] > "$linelength"} {

and there goes another fixed "bug"

Ps: the "if {![info exists bla([strlwr $chan])]} { set bla([strlwr $chan]) 0 } " should be added before the "set linelength [lindex [split $::ltl ":"] 3]" somewhere..

Statistics: Posted by caesar — Wed Jun 11, 2003 3:04 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-11T00:52:49-04:00

Yes, in this one I have forgot to add this, but in the njf.tcl it exists:

# fix after an .chanset on a channel
if {![info exists val([strlwr $chan])]} { set val([strlwr $chan]) 0 }

For the tsunami.tcl this should be somehting like this:

Code:

if {![info exists bla([strlwr $chan])]} { set bla([strlwr $chan]) 0 }

Anyway, as I have wrote in it is a beta thing so yah, it's buggy.

Statistics: Posted by caesar — Wed Jun 11, 2003 12:52 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T12:00:34-04:00

It looks like you initialize the array at the beginning of the script. So if somebody does a .+chan after it's loaded, that entry won't exist. Maybe instead you should use if {![info exists bla(chan)]} {set bla(chan) 0} at the top of each proc where you access the array? Or better, put it in a proc called init_chan $chan, which does that line.

Statistics: Posted by stdragon — Tue Jun 10, 2003 12:00 pm

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T11:56:43-04:00

I haven't got any "no such element in array" errors in the tsunami.tcl and/or even not in the njf.tcl (version 0.3) wich should be working fine.

Statistics: Posted by caesar — Tue Jun 10, 2003 11:56 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T11:34:45-04:00

I'm sorry for bugging u
but Tsunami.tcl is still giving this error

[08:33] Tcl error [tsunami:pub]: can't read "bla(#channel)": no such element in array

as I said before "#channel" is the name of a channel where the bot is oped.

Statistics: Posted by Sir_Fz — Tue Jun 10, 2003 11:34 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T11:31:30-04:00

ok thanx man now it shows no errors.

But your njf.tcl gives similar errors as tsunami.tcl, can u fix it please

also the longline.tcl gives an error like "text after closed quote" If I remember.

Statistics: Posted by Sir_Fz — Tue Jun 10, 2003 11:31 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T10:35:59-04:00

Under the "incr bla([strlwr $chan])" in the "tsunami:pub" proc are the two utimers that I was talking about that should be changed with the new ones I've gave you.

Statistics: Posted by caesar — Tue Jun 10, 2003 10:35 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T10:25:39-04:00

proc tsunami:pub {nick uhost hand chan text} {
global bla blist
if {[strlwr $nick] == [strlwr $::botnick] || ![botisop [strlwr $chan]]} {
# || ![channel get [strlwr $chan] tsunami]
return
}

this is the tsunami:pub proc, there are no utimers to replace :s
but here :

Code:

set linelength [lindex [split $::ltl ":"] 3]   if {[string length [join [split $text] ""]] > "$linelength"} {    lappend blist [strlwr $nick]    set lines [lindex [split $::ltl ":"] 0]    set insec [lindex [split $::ltl ":"] 1]    set unlock [lindex [split $::ltl ":"] 2]    incr bla([strlwr $chan])    utimer $insec "reset [strlwr $chan]"    utimer $insec "remove [strlwr $nick]"

should i replace these timers by yours ?

Statistics: Posted by Sir_Fz — Tue Jun 10, 2003 10:25 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T10:16:52-04:00

Seesh.. replace from:

Code:

    utimer $insec "reset [strlwr $chan]"     utimer $insec "remove [strlwr $nick]"

to:

Code:

utimer $insec [list reset [strlwr $chan]] utimer $insec [list remove [strlwr $nick]]

This two are in the tsunami:pub proc.. the remove is separated. Just replace the old one with the new one. Is this hard?

Statistics: Posted by caesar — Tue Jun 10, 2003 10:16 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T10:02:02-04:00

[07:00] Tcl error in file 'eggdrop.conf':
[07:00] can't read "insec": no such variable
while executing
"utimer $insec [list reset [strlwr $chan]] "
(file "scripts/Tsunami.tcl" line 76)
invoked from within
"source scripts/Tsunami.tcl"
(file "eggdrop.conf" line 1359)
[07:00] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

the bot dies.

Statistics: Posted by Sir_Fz — Tue Jun 10, 2003 10:02 am

Caesar's tsunami.tcl shows an error in partyline.

2003-06-10T09:34:10-04:00

Replace the folowing stuff:

Code:

utimer $insec [list reset [strlwr $chan]]utimer $insec [list remove [strlwr $nick]]

and:

Code:

# remove #proc remove {nick} {   global blist  set index [lsearch -exact $blist [strlwr $nick]]   set blist [lreplace $blist $index $index]  return}

and should be working fine.

Statistics: Posted by caesar — Tue Jun 10, 2003 9:34 am