# HG changeset patch
# User sheepluva
# Date 1441952117 -7200
# Node ID efea685933ae5c9acf3cbf561788331b77167822
# Parent  a10143c3d87d6d9c324b6e7ef1d8bb59056e4b00
fix pas2c build, it was broken in the long long ago ( 97f9a25024e6 )

diff -r a10143c3d87d -r efea685933ae hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Fri Sep 11 07:39:01 2015 +0200
+++ b/hedgewars/uWorld.pas	Fri Sep 11 08:15:17 2015 +0200
@@ -1737,7 +1737,7 @@
                     CursorPoint.X:= (prevPoint.X * 7 + dstX) div 8;
                 end;
 
-        if isPhone() or (cScreenHeight < 600) or ((FollowGear^.dY * z).Round < 10) then
+        if isPhone() or (cScreenHeight < 600) or (hwFloat(FollowGear^.dY * z).Round < 10) then
             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8
         else
             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8;