hedgewars/uGearsHandlers.pas
changeset 13619 c9642782778b
parent 13612 212036414957
child 14287 6015b74eea55
--- a/hedgewars/uGearsHandlers.pas	Mon Aug 06 19:33:46 2018 +0200
+++ b/hedgewars/uGearsHandlers.pas	Mon Aug 06 21:35:08 2018 +0200
@@ -97,12 +97,12 @@
 
     // Handle world wrap and bounce edge manually
     if (WorldEdge = weWrap) and
-        ((hwRound(Gear^.X) <= LongInt(leftX)) or (hwRound(Gear^.X) >= LongInt(rightX))) then
+        ((hwRound(Gear^.X) < LongInt(leftX)) or (hwRound(Gear^.X) > LongInt(rightX))) then
         begin
         LeftImpactTimer:= 150;
         RightImpactTimer:= 150;
-        Gear^.WDTimer:= 4;
-        Gear^.Karma:= 2;
+        Gear^.WDTimer:= 0;
+        Gear^.Karma:= 1;
         end
     else if (WorldEdge = weBounce) and
         (((hwRound(Gear^.X) - Gear^.Radius) < LongInt(leftX)) or ((hwRound(Gear^.X) + Gear^.Radius) > LongInt(rightX))) then
@@ -111,7 +111,7 @@
             LeftImpactTimer:= 333
         else
             RightImpactTimer:= 333;
-        Gear^.Karma:= 1;
+        Gear^.Karma:= 2;
         Gear^.WDTimer:= 0;
         if (Gear^.Radius > 2) and (Gear^.dX.QWordValue > _0_001.QWordValue) then
             AddBounceEffectForGear(Gear);