Changeset 120 for trunk/Protocol.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/Protocol.pas (modified) (3 diffs)

trunk/Protocol.pas

@@ -1283 +1283 @@
   end;
 
+  { TCity }
+
   TCity = packed record
     Loc, { location }
@@ -1632 +1634 @@
     { preLeo,preLighthouse, } preLeo);
 
+var
+  DelphiRandSeed: Integer;
+
 procedure MakeUnitInfo(p: integer; const u: TUn; var ui: TUnitInfo);
 procedure MakeModelInfo(p, mix: integer; const m: TModel; var mi: TModelInfo);
 function IsSameModel(const mi1, mi2: TModelInfo): boolean;
 function SpecialTile(Loc, TerrType, lx: integer): integer;
+function DelphiRandom(const pi_Max: Integer): Integer; overload;
+function DelphiRandom: Extended; overload;
+procedure DelphiRandomize;
 
 implementation
@@ -1757 +1765 @@
 end;
 
+function DelphiRandom(const pi_Max: Integer): Integer;
+var
+  Temp: LongInt;
+begin
+  Temp := LongInt(134775813 * DelphiRandSeed + 1);
+  DelphiRandSeed := Temp;
+  Result := (UInt64(Cardinal(pi_Max)) * UInt64(Cardinal(Temp))) shr 32;
+end;
+
+function DelphiRandom: Extended; overload;
+begin
+  Result := DelphiRandom(High(LongInt)) / High(LongInt);
+end;
+
+procedure DelphiRandomize;
+begin
+  Randomize;
+  DelphiRandSeed := RandSeed;
+end;
+
 initialization