egghelp/eggheads community

Jag

how do i write:

while (%t <= $var($1,0)) {

in TCL ?

Jag

please?

Jag

hello, someone can replace this code in mirc-scripting to TCL please? alias svars { var %t = 1 while (%t <= $var($1,0)) { if ($isid) && ($var($remove($1,*) $+ . $+ $2,1).value) var %b = $ifmatch, %c = 1 var %a = 1, %i = %t while (%i) { inc %i if (%i > $var($1,0)) %i = 1 if ($isid) &&...

Jag

oops, sorry.... my eggdrop was in a little lag.
10x a lot!

Jag

10x, but when the bot sending me a chat, it doesn't respond to what i'm writing at the DCC chat.

Jag

anyone?

Jag

Thanks

Jag

OK, 10x a lot!

Jag

so, the command supposed to be:

Code: Select all

set count [regexp -all {[?]} $text]
if {$count == "6"} { ....

?

Jag

how can i make my bot to dcc chat me when i write him:

Code: Select all

!chat

in the query?

Jag

but the eggdrop is not on a shell or something like that, it's on my computer....

Jag

how ?

Jag

Someone knows how can i remove the ~ from my eggdrop's identd ?

Jag

hi,

i want to build a script that if someone write 6 times "?" in a sentence the eggdrop will kick him.

this command is the same as:

Code: Select all

$count

in mirc-scripting

or the if command in mirc-scripting:

Code: Select all

if ($count($1-,?) > 6)

Thanks for the help

Jag

how can i use $gettok in TCL?

egghelp/eggheads community

Search found 90 matches

TCL Help

Chat command

Identd

Help in tcl script

$gettok