hedgewars/uGearsUtils.pas
changeset 15709 6b04399c84a7
parent 15708 88037382ae43
child 15710 7383256f8535
--- a/hedgewars/uGearsUtils.pas	Wed Jul 08 22:18:02 2020 +0300
+++ b/hedgewars/uGearsUtils.pas	Wed Jul 08 23:42:42 2020 +0300
@@ -41,6 +41,7 @@
 
 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); inline;
 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt; skipProximity: boolean);
+function CountLand(x, y, r, c: LongInt; mask, antimask: LongWord): LongInt;
 
 function  CheckGearNear(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt): PGear;
 function  CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear;