hedgewars/uRandom.pas
branchios-develop
changeset 13413 ba39a1d396c0
parent 13358 a79c1206bacd
child 15929 128ace913837
equal deleted inserted replaced
13411:6e8b807bda4b 13413:ba39a1d396c0
    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