Fix PlaceSprite
authorunc0rr
Tue, 12 Aug 2014 17:58:36 +0400
changeset 10378 c2b976d6c4f1
parent 10377 c6d8e7cd6e54
child 10379 caa5b40e405b
Fix PlaceSprite
hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Tue Aug 12 13:21:32 2014 +0400
+++ b/hedgewars/uLandGraphics.pas	Tue Aug 12 17:58:36 2014 +0400
@@ -624,7 +624,7 @@
 
 function ForcePlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; LandFlags: Word): boolean; inline;
 begin
-    ForcePlaceOnLand:= TryPlaceOnLand(cpX, cpY, Obj, Frame, true, true, true, LandFlags)
+    ForcePlaceOnLand:= TryPlaceOnLand(cpX, cpY, Obj, Frame, true, false, true, LandFlags)
 end;
 
 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace, outOfMap, force: boolean; LandFlags: Word): boolean;