# HG changeset patch
# User unc0rr
# Date 1342760957 -14400
# Node ID d5a710b3a2d7bb4a76cf1caf47c3a1584a6da7b4
# Parent  4c3ec3dca0c77c7f3af2262324810d1117578f4b
mod operator is so stupid in pascal

diff -r 4c3ec3dca0c7 -r d5a710b3a2d7 hedgewars/uGearsHandlers.pas
--- a/hedgewars/uGearsHandlers.pas	Thu Jul 19 20:34:21 2012 -0400
+++ b/hedgewars/uGearsHandlers.pas	Fri Jul 20 09:09:17 2012 +0400
@@ -40,7 +40,7 @@
 
 procedure NextAngle(Gear: PGear; dA: LongInt); inline;
 begin
-    Gear^.Angle := (LongInt(Gear^.Angle)     + dA) mod 4
+    Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4
 end;
 
 procedure cakeStep(Gear: PGear);