# HG changeset patch
# User nemo
# Date 1331655776 14400
# Node ID 166ee527591563ddfc020b47984656d5ca76abab
# Parent  ccd8aecaff6dd2711aa4bda179bc92f061c8ba55
tweak take 2

diff -r ccd8aecaff6d -r 166ee5275915 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Tue Mar 13 12:10:48 2012 -0400
+++ b/hedgewars/uScript.pas	Tue Mar 13 12:22:56 2012 -0400
@@ -1385,6 +1385,7 @@
 
 function lc_getgearvelocity(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
+var t: LongInt;
 begin
     if lua_gettop(L) <> 1 then
         begin
@@ -1397,9 +1398,10 @@
         gear:= GearByUID(lua_tointeger(L, 1));
         if gear <> nil then
             begin
+            t:= hwRound(gear^.dX * 1000000);
             // gear dX determines hog orientation
-            if (gear^.dX.isNegative) and (gear^.dX = _0) then lua_pushinteger(L, -1)
-            else lua_pushinteger(L, hwRound(gear^.dX * 1000000));
+            if (gear^.dX.isNegative) and (t = 0) then t:= -1;
+            lua_pushinteger(L, t);
             lua_pushinteger(L, hwRound(gear^.dY * 1000000))
             end
         end;