Changeset 1081


Ignore:
Timestamp:
07/17/10 19:20:00 (19 months ago)
Author:
james
Message:

fix random number generation
fix %NUMBER

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/modules/system.tcl

    r1073 r1081  
    875875        } 
    876876 
    877         incr limit 1 
    878877        set result [rand $limit] 
    879         incr limit 
    880         return $limit 
     878        incr result 
     879        return $result 
    881880} 
    882881 

  • trunk/plugins/en/output_NUMBER.tcl

    r1052 r1081  
    2121        set padding 0 
    2222        if {[regexp "%NUMBER\{(\[0-9\]+)\}(\{(\[0-9\]+)\})?" $line matches numberString paddingOpt padding]} { 
    23                 set var [bMotion_get_number [bMotion_rand_nonzero $numberString]] 
     23                set var [bMotion_rand_nonzero $numberString] 
    2424                if {$padding > 0} { 
    2525                        set fmt "%0$padding" 
Note: See TracChangeset for help on using the changeset viewer.