This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

botpack help

Support & discussion of released scripts, and announcements of new releases.
Post Reply
f
flexboy
Voice
Posts: 8
Joined: Sun Feb 04, 2007 5:11 am

botpack help

Post by flexboy »

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

when i type: tcl error i get

Code: Select all

<shot> [09:18] can't unset "gettinop": no such variable
<shot> [09:18]     while executing
<shot> [09:18] "unset gettinop($chan)"
<shot> Tcl:
then it dose this every 30 mins or so..

Code: Select all

<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 136
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 90
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 97
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 98
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 98
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 135
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 0
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 120
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 120
<shot> [13:34] Tcl error [harry_botproc]: illegal channel option: 140
Can some one help me pls, you can get it here http://www.uploading.com/en/files/CY3B9 ... 2.tcl.html
m
metroid
Owner
Posts: 771
Joined: Wed Jun 16, 2004 2:46 am

Post by metroid »

Try pasting it, Nobody wants to download a script so we can track down a bug .
f
flexboy
Voice
Posts: 8
Joined: Sun Feb 04, 2007 5:11 am

Post by flexboy »

Hmm, when i paste it, it wont fit
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

flexboy wrote: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.
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
User avatar
hm2k
Halfop
Posts: 57
Joined: Mon Sep 11, 2006 7:27 am
Location: UK

Post by 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.
User avatar
hm2k
Halfop
Posts: 57
Joined: Mon Sep 11, 2006 7:27 am
Location: UK

Post by 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!
User avatar
hm2k
Halfop
Posts: 57
Joined: Mon Sep 11, 2006 7:27 am
Location: UK

Post by 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.
Post Reply