--- a/hedgewars/uAIMisc.pas Tue Jul 10 17:11:31 2018 +0200
+++ b/hedgewars/uAIMisc.pas Tue Jul 10 18:00:04 2018 +0200
@@ -372,10 +372,10 @@
if not CheckBounds(x, y, r) then
exit(false);
- if (Land[y-r, x-r] and lfNotCurrentMask <> 0) or
- (Land[y+r, x-r] and lfNotCurrentMask <> 0) or
- (Land[y+r, x-r] and lfNotCurrentMask <> 0) or
- (Land[y+r, x+r] and lfNotCurrentMask <> 0) then
+ if (Land[y-r, x-r] and lfNotCurHogCrate <> 0) or
+ (Land[y+r, x-r] and lfNotCurHogCrate <> 0) or
+ (Land[y+r, x-r] and lfNotCurHogCrate <> 0) or
+ (Land[y+r, x+r] and lfNotCurHogCrate <> 0) then
exit(true);
TestColl:= false;
@@ -927,7 +927,7 @@
var pX, pY, tY: LongInt;
begin
HHGo:= false;
-Gear^.CollisionMask:= lfNotCurrentMask;
+Gear^.CollisionMask:= lfNotCurHogCrate;
AltGear^:= Gear^;
GoInfo.Ticks:= 0;