Changeset 120 for trunk/LocalPlayer

Timestamp:

Feb 3, 2018, 5:03:31 PM (7 years ago)

Author:

chronos

Message:

• Added: Special Delphi random number generator algorithm. It is needed to correctly open stored books. Saved games depends on stored randseed and random generator algorithm which is pretty bad design.

Location:

trunk/LocalPlayer

Files:

• Diagram.pas (modified) (1 diff)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Diagram.pas

@@ -68 +68 @@
 
     // stars
-    RandSeed := Player * 11111;
+    DelphiRandSeed := Player * 11111;
     for i := 1 to Width - 16 do
     begin
-      x := Random((Width - 16) * 200);
-      r := Random(13) + 28;
+      x := DelphiRandom((Width - 16) * 200);
+      r := DelphiRandom(13) + 28;
       Canvas.Pixels[x div 200 + 8, x mod 200 + Top] :=
         (r * r * r * r div 10001) * $10101;

trunk/LocalPlayer/Term.pas

@@ -1322 +1322 @@
       begin
         inc(CountBest);
-        if random(CountBest) = 0 then
+        if DelphiRandom(CountBest) = 0 then
           result := j
       end
@@ -3502 +3502 @@
     AILogo[i] := nil;
   Canvas.Font.Assign(UniFont[ftSmall]);
-  InitButtons();
+  InitButtons;
   EOT.Template := Templates;
 end;