1383     lc_setgeartarget:= 0

  1383     lc_setgeartarget:= 0

  1384 end;

  1384 end;

  1385 

  1385 

  1386 function lc_getgearvelocity(L : Plua_State) : LongInt; Cdecl;

  1386 function lc_getgearvelocity(L : Plua_State) : LongInt; Cdecl;

  1387 var gear: PGear;

  1387 var gear: PGear;

  1388 begin

  1389 begin

  1389     if lua_gettop(L) <> 1 then

  1390     if lua_gettop(L) <> 1 then

  1390         begin

  1391         begin

  1391         LuaError('Lua: Wrong number of parameters passed to GetGearVelocity!');

  1392         LuaError('Lua: Wrong number of parameters passed to GetGearVelocity!');

  1392         lua_pushnil(L);

  1393         lua_pushnil(L);

  1395     else

  1396     else

  1396         begin

  1397         begin

  1397         gear:= GearByUID(lua_tointeger(L, 1));

  1398         gear:= GearByUID(lua_tointeger(L, 1));

  1398         if gear <> nil then

  1399         if gear <> nil then

  1399             begin

  1400             begin

  1400             // gear dX determines hog orientation

  1402             // gear dX determines hog orientation

  1403             lua_pushinteger(L, hwRound(gear^.dY * 1000000))

  1405             lua_pushinteger(L, hwRound(gear^.dY * 1000000))

  1404             end

  1406             end

  1405         end;

  1407         end;

  1406     lc_getgearvelocity:= 2;

  1408     lc_getgearvelocity:= 2;

  1407 end;

  1409 end;