egghelp/eggheads community

botpack help

2010-09-22T04:16:12-04:00

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.

Statistics: Posted by hm2k — Wed Sep 22, 2010 4:16 am

botpack help

2008-01-22T14:48:45-04:00

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!

Statistics: Posted by hm2k — Tue Jan 22, 2008 2:48 pm

botpack help

2008-01-22T10:17:40-04:00

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:

Tcl error [lame_botproc]: illegal channel option: 114

Code:

[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:

[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.

Statistics: Posted by hm2k — Tue Jan 22, 2008 10:17 am

botpack help

2007-02-04T19:41:50-04:00

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.

Statistics: Posted by Alchera — Sun Feb 04, 2007 7:41 pm

botpack help

2026-02-24T18:56:34-04:00

...

Statistics: Posted by flexboy — Sun Feb 04, 2007 10:38 am

botpack help

2007-02-04T10:22:51-04:00

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

Statistics: Posted by metroid — Sun Feb 04, 2007 10:22 am

botpack help

2026-02-24T18:54:35-04:00

...

Statistics: Posted by flexboy — Sun Feb 04, 2007 5:21 am