hedgewars/uGears.pas
changeset 11483 8c95d5a4366c
parent 11482 e425a6eb9da3
child 11508 09be932506a9
--- a/hedgewars/uGears.pas	Thu Dec 31 12:47:33 2015 -0500
+++ b/hedgewars/uGears.pas	Thu Dec 31 15:11:44 2015 -0500
@@ -808,6 +808,15 @@
                 if (Gear <> nil) and (Gear^.State and gsttmpFlag <> 0) then
                     begin
                     DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50);
+                    AddFileLog('Carved a hole for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')')
+                    end;
+// place flowers after in case holes overlap (we shrink search distance if we are failing to place)
+for p:= 0 to Pred(TeamsCount) do
+    with TeamsArray[p]^ do
+        for i:= 0 to cMaxHHIndex do
+            with Hedgehogs[i] do
+                if (Gear <> nil) and (Gear^.State and gsttmpFlag <> 0) then
+                    begin
                     ForcePlaceOnLand(hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2, 
                                      hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2, 
                                      sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false);