- Timestamp:
- Jan 10, 2017, 12:11:21 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Database.pas
r44 r45 1081 1081 1082 1082 begin 1083 FillChar(RealMap, MapSize * 4, 0);1083 FillChar(RealMap, MapSize * SizeOf(Cardinal), 0); 1084 1084 plus := 0; 1085 1085 bMountains := 256; … … 2798 2798 // player's territory, -1 for full border recalculation 2799 2799 var 2800 i, r, Loc, Loc1, dx, dy, p1, p2, cix, NewDist, dxMax, dyMax, OldOwner, V8 ,2801 NewOwner: integer;2800 i, r, Loc, Loc1, dx, dy, p1, p2, cix, NewDist, dxMax, dyMax, OldOwner, V8: Integer; 2801 NewOwner: Cardinal; 2802 2802 Adjacent: TVicinity8Loc; 2803 2803 AtPeace: array [0 .. nPl, 0 .. nPl] of boolean; … … 2907 2907 else 2908 2908 ChangeTerritory(Loc, NewOwner); 2909 inc(BorderChanges[i div 8], NewOwner shl (i mod 8 * 4)); 2909 BorderChanges[i shr 3] := BorderChanges[i shr 3] or 2910 ((NewOwner shl ((i and 7) * 4)) and $ffffffff); 2910 2911 end; 2911 2912 inc(i); 2912 end 2913 end 2913 end; 2914 end; 2914 2915 end 2915 2916 else
Note:
See TracChangeset
for help on using the changeset viewer.