hedgewars/uGearsUtils.pas
changeset 14027 105793e575d6
parent 14026 31bdb759d98b
child 14028 cfbea054754c
--- a/hedgewars/uGearsUtils.pas	Sat Oct 27 05:17:46 2018 +0300
+++ b/hedgewars/uGearsUtils.pas	Sat Oct 27 07:20:07 2018 +0300
@@ -49,6 +49,7 @@
 procedure CheckCollisionWithLand(Gear: PGear); inline;
 
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);
+procedure AmmoShoveCache(Ammo: PGear; Damage, Power: LongInt);
 procedure AmmoShoveLine(Ammo: PGear; Damage, Power: LongInt; oX, oY, tX, tY: hwFloat);
 function  GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS;
 procedure SpawnBoxOfSmth;
@@ -1451,6 +1452,11 @@
         CheckGearsCollision(Ammo));
 end;
 
+procedure AmmoShoveCache(Ammo: PGear; Damage, Power: LongInt);
+begin
+    AmmoShoveImpl(Ammo, Damage, Power,
+        CheckCacheCollision(Ammo));
+end;
 
 function CountGears(Kind: TGearType): Longword;
 var t: PGear;