Changeset 120 for trunk/LocalPlayer/Term.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/Term.pas (modified) (2 diffs)

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;