Changeset 307
- Timestamp:
- Aug 18, 2021, 11:18:39 AM (3 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Systems/Dune 2.xts
r304 r307 2 2 <XtacticsGameSystem> 3 3 <UnitsSplitMerge>0</UnitsSplitMerge> 4 <EmptyCellsNeutral> 0</EmptyCellsNeutral>4 <EmptyCellsNeutral>-1</EmptyCellsNeutral> 5 5 <UnitsMoveImmediately>-1</UnitsMoveImmediately> 6 6 <PreferedMapType>2</PreferedMapType> -
trunk/UMap.pas
r299 r307 63 63 function GetColor: TColor; 64 64 function ToString: ansistring; override; 65 procedure CheckOwnership; 65 66 constructor Create; 66 67 destructor Destroy; override; … … 1119 1120 end; 1120 1121 1122 procedure TCell.CheckOwnership; 1123 begin 1124 if TGame(Map.Game).GameSystem.EmptyCellsNeutral then 1125 if Assigned(Player) and (Assigned(OneUnit) and (OneUnit.Power = 0)) or 1126 not Assigned(OneUnit) then 1127 Player := nil; 1128 end; 1129 1121 1130 constructor TCell.Create; 1122 1131 begin -
trunk/UPlayer.pas
r303 r307 973 973 end; 974 974 CellFrom.MapCell.OneUnit.Power := CellFrom.MapCell.OneUnit.Power - UnitCount; 975 CellFrom.MapCell.CheckOwnership; 975 976 end; 976 977 … … 1145 1146 for I := 0 to PlayerMap.Cells.Count - 1 do 1146 1147 with TPlayerCell(PlayerMap.Cells[I]) do begin 1147 if Assigned(MapCell.OneUnit) and (MapCell.OneUnit.Power = 0) then 1148 MapCell.Player := nil; 1148 MapCell.CheckOwnership; 1149 1149 end; 1150 1150 end;
Note:
See TracChangeset
for help on using the changeset viewer.