[Amsn-commits] msn protocol.tcl,1.695,1.696

[Sander H. <tj...@us...>]

Update of /cvsroot/amsn/msn
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19497

Modified Files:
	protocol.tcl 
Log Message:
minor improvement on myRand proc


Index: protocol.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/protocol.tcl,v
retrieving revision 1.695
retrieving revision 1.696
diff -C2 -d -r1.695 -r1.696
*** protocol.tcl	4 Jul 2005 11:33:54 -0000	1.695
--- protocol.tcl	6 Jul 2005 20:27:04 -0000	1.696
***************
*** 4815,4821 ****
  
  proc myRand { min max } {
! 	set maxFactor [expr {$max + 1 - $min}]
! 	set value [expr {int(rand() * 1000000)}]
! 	return [expr {($value % $maxFactor) + $min}]
  }
  
--- 4815,4819 ----
  
  proc myRand { min max } {
! 	return [expr {int($min + rand() * (1+$max-$min))}]
  }