equal
deleted
inserted
replaced
56 |
56 |
57 for i:= 0 to Pred(Length(Seed)) do |
57 for i:= 0 to Pred(Length(Seed)) do |
58 cirbuf[i]:= byte(Seed[i + 1]); |
58 cirbuf[i]:= byte(Seed[i + 1]); |
59 |
59 |
60 for i:= Length(Seed) to 54 do |
60 for i:= Length(Seed) to 54 do |
61 cirbuf[i]:= $A98765 + (cNetProtoVersion * 2); // odd number |
61 cirbuf[i]:= $A98765 + 68; // odd number |
62 |
62 |
63 for i:= 0 to 1023 do GetNext |
63 for i:= 0 to 1023 do GetNext |
64 end; |
64 end; |
65 |
65 |
66 function GetRandom: hwFloat; |
66 function GetRandom: hwFloat; |