hedgewars/uRandom.pas
changeset 13358 a79c1206bacd
parent 11822 4600dcb9db4f
child 15929 128ace913837
equal deleted inserted replaced
13357:030b085b182f 13358:a79c1206bacd
    77     end;
    77     end;
    78 
    78 
    79 for i:= t to 54 do
    79 for i:= t to 54 do
    80     cirbuf[i]:= $A98765 + 68; // odd number
    80     cirbuf[i]:= $A98765 + 68; // odd number
    81 
    81 
    82 for i:= 0 to 1023 do
    82 for i:= 0 to 2047 do
    83    GetNext;
    83    GetNext;
    84 end;
    84 end;
    85 
    85 
    86 function GetRandomf: hwFloat;
    86 function GetRandomf: hwFloat;
    87 begin
    87 begin