egghelp/eggheads community

TCL Help

2003-10-05T07:25:57-04:00

thanks a lot for all of you

Statistics: Posted by Jag — Sun Oct 05, 2003 7:25 am

TCL Help

2003-10-05T06:59:49-04:00

The read and write have been discussed before. Use the forum Search function.

Statistics: Posted by caesar — Sun Oct 05, 2003 6:59 am

TCL Help

2003-10-05T06:46:22-04:00

oh, 10x
How do i Read/Write in a file ?

please?

Statistics: Posted by Jag — Sun Oct 05, 2003 6:46 am

TCL Help

2003-10-05T05:55:17-04:00

at the r0x0ring site, you can find a good stats script.

Statistics: Posted by Sir_Fz — Sun Oct 05, 2003 5:55 am

TCL Help

2003-10-05T05:12:38-04:00

and where can i download the 'stats'script?

Statistics: Posted by Jag — Sun Oct 05, 2003 5:12 am

TCL Help

2003-10-05T05:06:44-04:00

oh, 10x
How do i Read/Write in a file ?

Statistics: Posted by Jag — Sun Oct 05, 2003 5:06 am

TCL Help

2003-10-05T04:48:46-04:00

This sounds like an stats script to me.. anyway, there are two alternatives to do it (store the status of each user):
1. Using arrays upon a public msg (pubm) increase an array with #channel and uhost or nick of the person or whatever you want;
2. Read/Write in a file the same thing as in the case of the array, with #channel nick .. etc.

Statistics: Posted by caesar — Sun Oct 05, 2003 4:48 am

TCL Help

2003-10-05T03:59:58-04:00

Code:

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

i dont know mirc, but i think it's something like that...

Code:

while {[expr $t <= $var($1,0)]} {

means while the number in $t is smaller / equail to the one stored in the array $var($1,0) do....

Statistics: Posted by GodOfSuicide — Sun Oct 05, 2003 3:59 am

TCL Help

2003-10-05T03:57:09-04:00

I want a counting script, that counting lines the people are writing.
and when i write to the bot in the DCC:

Code:

.!top2.!top3.!top4.!top5

It will show me the nicknames of the people were wrote the top 2\3\4\5 lines.

Statistics: Posted by Jag — Sun Oct 05, 2003 3:57 am

TCL Help

2003-10-05T03:45:18-04:00

Why don't you explain what happens there or better, what exactly do you want to do?

Statistics: Posted by caesar — Sun Oct 05, 2003 3:45 am

TCL Help

2003-10-05T03:40:33-04:00

how do i write:

Code:

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

in TCL ?

Statistics: Posted by Jag — Sun Oct 05, 2003 3:40 am

TCL Help

2003-10-04T17:35:58-04:00

http://www.suninet.nl/tclguide

You have some reading to do.

Statistics: Posted by strikelight — Sat Oct 04, 2003 5:35 pm

TCL Help

2003-10-04T17:25:27-04:00

please?

Statistics: Posted by Jag — Sat Oct 04, 2003 5:25 pm

TCL Help

2003-10-04T03:28:43-04:00

hello,
someone can replace this code in mirc-scripting to TCL please?

Code:

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) && (%c) && (%b < $var($1,%i).value) inc %c       if (%i == %t) {         if (%b) return %c         if ($isid) && ($2 == %a) return $gettok($var($1,%t),2,46)         elseif ($2 == write) writeini sidur.ini dirug %a $gettok($var($1,%t),2,46)         elseif ($2 == set) set %place. [ $+ [ $gettok($var($1,%t),2,46) ] ] %a         unset %i         inc %t       }       if ($var($1,%t).value < $var($1,%i).value) inc %a     }   } }

Thanks

Statistics: Posted by Jag — Sat Oct 04, 2003 3:28 am