Changeset 205 for trunk/LocalPlayer

Timestamp:

May 8, 2020, 4:54:17 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Removed various code compilation warnings and hints.

Location:

trunk/LocalPlayer

Files:

• Battle.pas (modified) (1 diff)
• CityScreen.pas (modified) (1 diff)
• ClientTools.pas (modified) (1 diff)
• Help.pas (modified) (1 diff)
• Select.pas (modified) (1 diff)
• TechTree.pas (modified) (2 diffs)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Battle.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Protocol, Messg, ButtonBase, ButtonA, Types, LCLIntf, LCLType,
+  ScreenTools, Protocol, ButtonBase, ButtonA, Types, LCLIntf, LCLType,
   SysUtils, Classes, Graphics, Controls, Forms, DrawDlg;
 

trunk/LocalPlayer/CityScreen.pas

@@ -498 +498 @@
 
 var
-  x, y, xGr, i, i1, j, iix, d, dx, dy, PrCost, Cnt, Loc1, FreeSupp, Paintiix,
+  x, y, xGr, i, j, iix, d, dx, dy, PrCost, Cnt, Loc1, FreeSupp, Paintiix,
     HappyGain, OptiType, rx, ry, TrueFood, TrueProd, TruePoll: integer;
   av: integer;

trunk/LocalPlayer/ClientTools.pas

@@ -695 +695 @@
 initialization
 
-assert(nImp < 128);
+Assert(nImp < 128);
 CalculateAdvValues;
 

trunk/LocalPlayer/Help.pas

@@ -6 +6 @@
 uses
   Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType,
-  LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
+  Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
   ButtonB, PVSB, Types, fgl;
 

trunk/LocalPlayer/Select.pas

@@ -7 +7 @@
   Protocol, ClientTools, Term, ScreenTools, IsoEngine, PVSB, BaseWin,
 
-  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   ExtCtrls, ButtonB, ButtonBase, Menus, Types;
 

trunk/LocalPlayer/TechTree.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Messg, LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonBase, ButtonB, DrawDlg;
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics,
+  Controls, Forms, ButtonB, DrawDlg;
 
 type
@@ -34 +34 @@
 
 uses
-  Directories, PixelPointer;
+  Directories;
 
 {$R *.lfm}

trunk/LocalPlayer/Term.pas

@@ -1629 +1629 @@
     (Adv: adSpaceFlight; Icon: woMIR));
 var
-  Domain, p1, i, ad, uix, cix, MoveOptions, MoveResult, Loc1, Dist,
-    NewAgeCenterTo, Bankrupt, ShipMore, Winners, NewGovAvailable, dx,
+  p1, i, ad, uix, cix, MoveOptions, MoveResult, Loc1,
+    NewAgeCenterTo, Winners, NewGovAvailable, dx,
     dy: integer;
   MoveAdviceData: TMoveAdviceData;
@@ -6008 +6008 @@
 var
   ToLoc, xFromLoc, yFromLoc, xToLoc, yToLoc, xFrom, yFrom, xTo, yTo, xMin, yMin,
-    xRange, yRange, xw1, Step, xMoving, yMoving, yl, SliceCount: integer;
+    xRange, yRange, xw1, Step, xMoving, yMoving, SliceCount: integer;
   UnitInfo: TUnitInfo;
   Ticks0, Ticks: TDateTime;