botpack help

[flexboy]

...

[metroid]

Try pasting it, Nobody wants to download a script so we can track down a bug .

[flexboy]

...

[Alchera]

Hi all im using harry botpack from http://tclscript.com i fixed few errors but i keep on getting

You "fixed" a few errors? I am sure strikelight will be pleased.

I suggest you make a post on the TclScript.com Forums regarding this matter after you reload the original script and not the appropriate errors.

[hm2k]

I also run a hack job of harry.tcl, called lame.tcl

I thought i'd add a note to this as part of my research to fix this...

Here's what i'm seeing:

Code: Select all

Tcl error [lame_botproc]: illegal channel option: 114

Code: Select all

[01:58:03 pm] > .tcl set errorInfo
[01:58:03 pm] <(Gonzo\> Tcl: illegal channel option: 114
[01:58:03 pm] <(Gonzo\> Tcl:     while executing
[01:58:03 pm] <(Gonzo\> Tcl: "channel set [xindex $arg 1] $s"
[01:58:03 pm] <(Gonzo\> Tcl:     ("foreach" body line 3)
[01:58:03 pm] <(Gonzo\> Tcl:     invoked from within
[01:58:03 pm] <(Gonzo\> Tcl: "foreach s [lrange $arg 2 end] {
[01:58:03 pm] <(Gonzo\> Tcl:      if {[llength $s] == "1"} {
[01:58:03 pm] <(Gonzo\> Tcl:       channel set [xindex $arg 1] $s
[01:58:03 pm] <(Gonzo\> Tcl:       putlog "channel set [xindex $arg 1] $s"
[01:58:03 pm] <(Gonzo\> Tcl:    ..."
[01:58:03 pm] <(Gonzo\> Tcl:     ("sync" arm line 30)
[01:58:03 pm] <(Gonzo\> Tcl:     invoked from within
[01:58:04 pm] <(Gonzo\> Tcl: "switch -exact $cmd {
[01:58:04 pm] <(Gonzo\> Tcl:   "join" {
[01:58:04 pm] <(Gonzo\> Tcl:    set chan [xindex $arg 0]
[01:58:04 pm] <(Gonzo\> Tcl:    set key [xindex $arg 1]
[01:58:04 pm] <(Gonzo\> Tcl:    addchan $chan $key
[01:58:04 pm] <(Gonzo\> Tcl:    return 1
[01:58:04 pm] <(Gonzo\> Tcl:   }
[01:58:04 pm] <(Gonzo\> Tcl:   "part" {
[01:58:04 pm] <(Gonzo\> Tcl:    set chan [x..."
[01:58:04 pm] <(Gonzo\> Tcl:     (procedure "lame_botproc" line 9)
[01:58:04 pm] <(Gonzo\> Tcl:     invoked from within
[01:58:04 pm] <(Gonzo\> Tcl: "lame_botproc $_bot1 $_bot2 $_bot3"

As you can see, in this version i've added:

putlog "channel set [xindex $arg 1] $s"

Which putlogs the same information as the above line.

The reason being is I managed to replicate the error from console by doing the following:

Code: Select all

[01:59:31 pm] > .tcl channel set #hm2k test
[01:59:31 pm] <(Gonzo\> Tcl error: illegal channel option: test
[01:59:05 pm] > .tcl channel set #hm2k 114
[01:59:05 pm] <(Gonzo\> Tcl error: illegal channel option: 114
[02:01:52 pm] > .tcl channel set #hm2k -nocolors
[02:01:52 pm] <(Gonzo\> Tcl: 

However, oddly, I was unable to "putlog" anything containing "114".

Just with a brief look at it does anyone have any suggestions as to what might be the issue?

I can provide the code, but i figured it might be obvious to someone.

Thanks.

[hm2k]

I figured it out...

After disabling the line:
channel set [xindex $arg 1] $s
and enabling
putlog "channel set [xindex $arg 1] $s"

We find these:
[06:38:05 pm] <(Gonzo\> [18:35] channel set #hm2k 114
[06:38:05 pm] <(Gonzo\> [18:35] channel set #hm2k 60
[06:38:05 pm] <(Gonzo\> [18:35] channel set #hm2k 74

So we try this:
[06:43:21 pm] > .tcl channel info #hm2k
[06:43:21 pm] <(Gonzo\> Tcl: +tn 0 0 0 {} {} {} {} {} 30:10 4:30 4:30 4:10 4:10 5:10 5:30 114 60 74 +enforcebans +dynamicbans +userbans -autoop -autohalfop -bitch -greet -protectops -protecthalfops -protectfriends +dontkickops -inactive -statuslog +revenge -revengebot -secret +shared -autovoice +cycle +seen +dynamicexempts +userexempts +dynamicinvites +userinvites -nodesynch -limit +mean -manualop -cookie -take -lock +clearban -nocolors {repeatflood 0}

Looks like the TCL code is pulling the wrong parts, so let's fix it...

hputbot $b "lamer sync 1 $chan [lrange [channel info $chan] 0 3] [lrange [channel info $chan] 9 15]"

to

hputbot $b "lamer sync 1 $chan [lrange [channel info $chan] 0 3] [lrange [channel info $chan] 9 18]"

hputbot $b "lamer sync 2 $chan [lrange [channel info $chan] 16 28]"

to

hputbot $b "lamer sync 2 $chan [lrange [channel info $chan] 19 28]"

now find

channel set $c aop-delay [lindex $arg 12]

and add some more...

channel set $c ban-time [lindex $arg 13]
channel set $c exempt-time [lindex $arg 14]
channel set $c invite-time [lindex $arg 15]

Save, and restore your line back to:

channel set [xindex $arg 1] $s

Enjoy!

[hm2k]

By the way...

You can now find the lamebotnet (replaced harry) here:

http://code.google.com/p/lamebotnet/

If you want to join the team let me know.

Further more, if you have old versions of harry, please get in touch so I can map the development.

Thanks.