TCL Help

Jag · Post by **Jag** » Sat Oct 04, 2003 3:28 am

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) && (%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

Jag · Post by **Jag** » Sat Oct 04, 2003 5:25 pm

please?

strikelight · Post by **strikelight** » Sat Oct 04, 2003 5:35 pm

http://www.suninet.nl/tclguide

You have some reading to do.

Jag · Post by **Jag** » Sun Oct 05, 2003 3:40 am

how do i write:

Code: Select all

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

in TCL ?

Post by **caesar** » Sun Oct 05, 2003 3:45 am

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

Jag · Post by **Jag** » Sun Oct 05, 2003 3:57 am

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

Code: Select all

.!top2

.!top3

.!top4

.!top5

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

GodOfSuicide · Post by **GodOfSuicide** » Sun Oct 05, 2003 3:59 am

Code: Select all

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

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

Code: Select all

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....

Post by **caesar** » Sun Oct 05, 2003 4:48 am

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.

Jag · Post by **Jag** » Sun Oct 05, 2003 5:06 am

oh, 10x

How do i Read/Write in a file ?

Jag · Post by **Jag** » Sun Oct 05, 2003 5:12 am

and where can i download the 'stats'script?

Post by **Sir_Fz** » Sun Oct 05, 2003 5:55 am

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

Jag · Post by **Jag** » Sun Oct 05, 2003 6:46 am

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

please?

Post by **caesar** » Sun Oct 05, 2003 6:59 am

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

Jag · Post by **Jag** » Sun Oct 05, 2003 7:25 am

thanks a lot for all of you