Changeset 120 for trunk/LocalPlayer/Diagram.pas

Timestamp:

Feb 3, 2018, 5:03:31 PM (6 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.

File:

• trunk/LocalPlayer/Diagram.pas (modified) (1 diff)

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;