Changeset 21 for trunk/Database.pas

Timestamp:

Jan 8, 2017, 3:12:18 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Run as 64-bit application. Can't load 32-bit StdAI library in 64-bit mode.
• Fixed: Various Warnings and Hints.

File:

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

trunk/Database.pas

@@ -891 +891 @@
       Dist[i, j] := Distance(RareLoc[i], RareLoc[j]);
 
+  ibest := 0;
+  jbest := 0;
   MinDist := Distance(0, MapSize - lx shr 1) shr 1;
   for RareType := 1 to 3 do
@@ -1290 +1292 @@
 
 var
-  p1, p2, nAlive, c, Loc, Loc1, CntGood, CntGoodGrass, MinDist, Tries, i, j, n,
-    nsc, TestLoc, V21, V8, BestDist, TestDist, MinGood, nIrrLoc, xLoc, yLoc, qx,
-    qy, FineDistSQR, nRest: integer;
+  p1, p2, nAlive, c, Loc, Loc1, CntGood, CntGoodGrass, MinDist, i, j, n,
+    nsc, V21, V8, BestDist, TestDist, MinGood, nIrrLoc,
+    FineDistSQR, nRest: integer;
   ccount: array [0 .. lxmax * lymax - 1] of word;
   sc, StartLoc0, sccount: array [1 .. nPl] of integer;