BlackTools TCL (Version 2.3)

[BLaCkShaDoW]

This topic is for the support of the script BlackTools , now reaching version
1.4 , it will apear soon on egghelp.I added more commands, but still the
script is in romanian, but if i have time i will translate it. If you have problems with the script, or find any bugs just post here the problem , or you can put your opinion about this script and if you have ideas for more commands just post here

[BLaCkShaDoW]

I announce that in the next version of BlacKTools i will add protections with commands for activation , a command to add normal users without being logged to a chanserv and it will work on all networks : .addnick <level> nick , the bot will get the nick`s host and add him in his database, it will be the same with .add. And for this "aniversary" edition 1.5 will try to input other commands that are usefull and of course i will translate it into English.Please feel free to put your opinion about this changes

[BLaCkShaDoW]

I finished BlackTools 1.6 you can download it from the upper link.Thanks

[Behemoth]

hi there..
i wanted to know if by any chance u have the script coded in eng or french plz ?

plz reply asap

thnkx
Atem xxxx

[BLaCkShaDoW]

Hi, sure i will translate it into english soon , the version 1.7 will apear in romanian for now on egghelp but , next week i will upload it into english:P

[BLaCkShaDoW]

BlackTools 1.7 it`s ready for download in romanian for now but soon will be in english

[BLaCkShaDoW]

BlackTools 1.7 English version is Ready

[DaRkOoO]

Did you put it in Download ?I see only Romanian version in tcl archive..

[BLaCkShaDoW]

On egghelp will be Up soon but you can check here

You can download the BlacKTools 1.7 (English Version) from here


BlackTools Download

Just Click Blacktools DOWNLOAD

[DaRkOoO]

mhm,I can't click it,you didnt put the link right ^^

[BLaCkShaDoW]

Now you can download`it from egghelp

[BLaCkShaDoW]

BlackTools 1.8 is released, for now only romanian version , new stuff
count , new protections , new commands , greet , leave , anunt.

[DaRkOoO]

Great,just translate it to English when you can

[BLaCkShaDoW]

Yes, it will be in english soon:P

[speechles]

Code: Select all

proc pub:add {nick host hand chan arg} {
global botnick user
set level [lindex $arg 0]
set args [lrange $arg 1 end]

You realize your failing to split the string 'arg' before applying the list index command on it. What will happen with nicknames that contain braces?

Code: Select all

<speechles> .tcl set test "{joe}"
<bot> Tcl: {joe}
<speechles> .tcl set c [lindex $test 0]
<bot> Tcl: joe

<speechles> .tcl set test "{joe"
<bot> Tcl: {joe
<speechles> .tcl set c [lindex $test 0]
<bot> Tcl error: unmatched open brace in list

<speechles> .tcl set test "{joe}away"
<bot> Tcl: {joe}away
<speechles> .tcl set c [lindex $test 0]
<bot> Tcl error: list element in braces followed by "away" instead of space

The first example above shows that the nickname will not be correct, the braces are omitted. The second example shows that the script will bail (crash out). The third example also bails with a different error. This is caused by not using the command [split] when dealing with string input derived from binds.

Code: Select all

set level [lindex [split $arg] 0]
set args [lrange [split $arg] 1 end]

This would be the proper and correct way to avoid these types of problems. You should look into properly coding your scripts so others using it can actually have it function correctly when nicknames contain braces. You will surely have people complain that nicknames containing any braces break your scripts...