Changeset 120 for trunk/GameServer.pas

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.

File:

• trunk/GameServer.pas (modified) (5 diffs)

trunk/GameServer.pas

@@ -295 +295 @@
   MapSize := lx * ly;
   LandMass := lm;
-  RandSeed := PreviewRND;
+  DelphiRandSeed := PreviewRND;
   if not PreviewElevation then
   begin
@@ -714 +714 @@
         bix[p1] := -1
       else
-        bix[p1] := bixFirstAI + random(nBrain - bixFirstAI)
+        bix[p1] := bixFirstAI + Delphirandom(nBrain - bixFirstAI)
     else
       bix[p1] := bixView[p1];
@@ -838 +838 @@
           RW[p].DefaultDebugMap := nil;
 
-        { !!!for i:=0 to nShipPart-1 do GShip[p].Parts[i]:=random((3-i)*2);{ }
+        { !!!for i:=0 to nShipPart-1 do GShip[p].Parts[i]:=Delphirandom((3-i)*2);{ }
       end;
 
@@ -1371 +1371 @@
     LandMass := NewLandMass;
   MaxTurn := NewMaxTurn;
-  Randomize;
-  RND := RandSeed;
+  DelphiRandomize;
+  RND := DelphiRandSeed;
   Mode := moPlaying;
   CL := TCmdList.Create;
@@ -1416 +1416 @@
   InitBrain(bixTerm);
 
-  Randomize;
+  DelphiRandomize;
   GAlive := 0;
   GWatching := 1;