$strip

[bozo]

i was trying to use the var $strip in my tcl , but the eggdrop returns that this variable doesn't is avaiable not configured yet or something like that


how i set this variable in the tcl to my eggdrop reads the lines in the chanel without any codes , color codes , bold , underline etc .....
i want that works like scripting language $strip($i)
$i is already the full line (and already configured) in the channel that my eggdrop reads , i want it striped


thanks

[caesar]

use something like:

Code: Select all

set text [ctrl:filter $text]

and this:

Code: Select all

proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}

Thanks to ppslim for the strip code.

[Sir_Fz]

do a forum search, you will find a procedure provided by Ppslim that strips all control characters from the text.

[bozo]

just added what you said to my tcl , and the eggdrop returned this

Code: Select all

[15:26] Tcl error in file 'eggdrop.conf':
[15:26] can't read "text": no such variable
    while executing
"ctrl:filter $text"
    invoked from within
"set text [ctrl:filter $text] "
    (file "scripts/aprender.tcl" line 130)
    invoked from within
"source scripts/aprender.tcl
"
    (file "eggdrop.conf" line 1363)
[15:26] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

[/code]

[user]

use something like: ...

Filtering "a\003,\0030,\0030,0b" should result in "a,,b", not "ab" (like the proc you pasted)

Try

Code: Select all

proc ctrlfilter {str} {
	regsub -all {\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037} $str "" str
	return $str
}

and btw: \006 & \007 ain't mirc control codes

[bozo]

the problem is here

Code: Select all

set text [ctrl:filter $text] 

the eggdrop says that can't find "text" variable ...

[user]

the eggdrop says that can't find "text" variable ...

if your text is in "i", why are you trying to filter "text"?

[bozo]

thanks everybody
i tryed put the code you guys send to me every place in the tcl
and finally it worked
the bot doesnt acept color codes , bold etc , but , i have problems with case sensitive .....
how i resolve this?

[user]

i have problems with case sensitive .....
how i resolve this?

Some commands have a -nocase option. (check the manual) If the command you're using doesn't have this, convert the strings to lowercase using 'string tolower'

[caesar]

Bugg ppslim with the ctrl:filter proc I'm using it and is working fine at me.. also, doh! I've gave you an example with the set text [ctrl:filter $text] .. don't take it *ad literam*

PS: Here is a lil test to proove that ppslim control filter thing is working fine:

Code: Select all

bind pub - !bla pub:bla

proc pub:bla {nick uhost hand chan text} {
putserv "PRIVMSG $chan :result: [ctrl:filter $text]"
}

proc ctrl:filter {str} { 
regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str 
return $str 
}

Just do a !bla something with bold or whatever you want and then see by yourself what is the result..

[user]

I'm using it and is working fine at me.

Sure..if you don't care about losing stuff that is not part of the color code Try my example and you'll see what I mean.

[caesar]

What you mean by "losing stuff that is not part of the color code" ? I'll have a look on yours tomorow, not I'm off to bed.

[ppslim]

I havn't got chance to check, however, is the bugger version actualy included in no!spam, or have you altered yours on accident?

The loss of such things is trivial, though it is still incorrect.

As for the non-mirc codes. Correct, however, both are two well used codes.

007 is BEL.

006 is used by other client, which I can't remember.

I should also have 011 in as mIRC will render it as a tab with certain fonts.

[caesar]

I'ts the same code as you've *sugested* to me in a post long time ago.. Thanks for pointing that out.

[caesar]

Funny.. I do see that the same proc as I've posted above is still used in the no!spam 1.7.2.. so, wich is wich? I'm a bit confused..