Changeset 338 for trunk

Timestamp:

Sep 8, 2024, 10:52:50 PM (3 months ago)

Author:

chronos

Message:

• Removed: Unused map cell power replaced by unit power.

File:

• trunk/Map.pas (modified) (4 diffs)

trunk/Map.pas

@@ -28 +28 @@
     FId: Integer;
     FMap: TMap;
-    FPower: Integer;
     FUnit: TUnit;
-    function GetPower: Integer;
     procedure SetArea(AValue: TMapArea);
     procedure SetBuilding(AValue: TBuilding);
     procedure SetId(AValue: Integer);
-    procedure SetPower(AValue: Integer);
     procedure SetUnit(AValue: TUnit);
   public
@@ -69 +66 @@
     property OneUnit: TUnit read FUnit write SetUnit;
     property Building: TBuilding read FBuilding write SetBuilding;
-    //property Power: Integer read GetPower;
   end;
 
@@ -917 +913 @@
 { TCell }
 
-procedure TCell.SetPower(AValue: Integer);
-begin
-  if FPower = AValue then Exit;
-  if AValue < 0 then
-    raise Exception.Create(SNegativeCellPowerNotAllowed);
-  FPower := AValue;
-  //Check;
-end;
-
 procedure TCell.SetUnit(AValue: TUnit);
 var
@@ -990 +977 @@
   FBuilding := AValue;
   if Assigned(FBuilding) then FBuilding.MapCell := Self;
-end;
-
-function TCell.GetPower: Integer;
-begin
-  if Assigned(OneUnit) then Result := OneUnit.Power
-    else Result := 0;
 end;