egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-06-23T19:30:29-04:00 https://forum.eggheads.org/app.php/feed/topic/7765 2004-06-23T19:30:29-04:00 2004-06-23T19:30:29-04:00 https://forum.eggheads.org/viewtopic.php?p=37778#p37778 <![CDATA[loops in tcl]]>

Code: 

alias op-brag {  var %i = 1, %loosers, %opchans, %1 = $iif($1,$1,$active), %totalnicks = 0  while ($chan(0)  >= %i) {    inc %totalnicks $nick($chan(%i),0)    if ($me isop $chan(%i)) {      inc %opchans      var %loosers = $calc(%loosers + $nick($chan(%i),0,a) - 2)    }    inc %i  }  if (%opchans) {    msg %1 I am op'ed in %opchans channels of $chan(0) that's $round($calc((%opchans / $chan(0)) * 100),0) $+ % $+ , and can fool around with %loosers loosers of %totalnicks that's $round($calc((%loosers / %totalnicks) * 100),0)) $+ %  }  else {    msg %1 Im not op'ed in any channels! :(  }}
Here's my script in mIRC, how do i make it tcl ??

Statistics: Posted by DarkJFMan — Wed Jun 23, 2004 7:30 pm

]]> 2004-06-23T19:17:30-04:00 2004-06-23T19:17:30-04:00 https://forum.eggheads.org/viewtopic.php?p=37777#p37777 <![CDATA[loops in tcl]]>

Statistics: Posted by DarkJFMan — Wed Jun 23, 2004 7:17 pm

]]>