Changeset 591 for trunk/Database.pas

Timestamp:

Jul 24, 2024, 11:02:31 PM (4 months ago)

Author:

chronos

Message:

• Modified: Draw graphical preview for maps which doesn't have associated image.

File:

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

trunk/Database.pas

@@ -598 +598 @@
 }
 var
-  primitive: Integer;
+  Primitive: Integer;
   StartLoc, StartLoc2: array [0 .. nPl - 1] of Integer; { starting coordinates }
   Elevation: array [0 .. lxmax * lymax - 1] of Byte; { map elevation }
@@ -607 +607 @@
   I, J: Integer;
 begin
-  primitive := 1;
+  Primitive := 1;
   I := 2;
   while I * I <= MapSize + 1 do // test whether prime
   begin
     if (MapSize + 1) mod I = 0 then
-      primitive := 0;
+      Primitive := 0;
     Inc(I);
   end;
 
-  if primitive > 0 then
+  if Primitive > 0 then
     repeat
-      Inc(primitive);
+      Inc(Primitive);
       I := 1;
       J := 0;
       repeat
         Inc(J);
-        I := I * primitive mod (MapSize + 1);
+        I := I * Primitive mod (MapSize + 1);
       until (I = 1) or (J = MapSize + 1);
     until J = MapSize;
@@ -630 +630 @@
 function MapGeneratorAvailable: Boolean;
 begin
-  Result := (primitive > 0) and (lx >= 20) and (ly >= 40);
+  Result := (Primitive > 0) and (lx >= 20) and (ly >= 40);
 end;
 
@@ -1155 +1155 @@
         (Loc0 < MapSize - lx) then
         RunRiver(Loc0);
-      Loc0 := (Loc0 + 1) * primitive mod (MapSize + 1) - 1;
+      Loc0 := (Loc0 + 1) * Primitive mod (MapSize + 1) - 1;
     end;
   end;
@@ -1413 +1413 @@
         end;
       end;
-      Loc := (Loc + 1) * primitive mod (MapSize + 1) - 1;
+      Loc := (Loc + 1) * Primitive mod (MapSize + 1) - 1;
     end;