hedgewars: comparison hedgewars/uScript.pas

equal deleted inserted replaced

-:6383323fdd2c
+:0deabf747b8f
 end;
 function LuaToGearTypeOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TGearType))) or (i > ord(High(TGearType))) then
 begin
 LuaCallError('Invalid gearType!', call, paramsyntax);
 LuaToGearTypeOrd:= -1;
 end
 end;
 function LuaToVisualGearTypeOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TVisualGearType))) or (i > ord(High(TVisualGearType))) then
 begin
 LuaCallError('Invalid visualGearType!', call, paramsyntax);
 LuaToVisualGearTypeOrd:= -1;
 end
 end;
 function LuaToAmmoTypeOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TAmmoType))) or (i > ord(High(TAmmoType))) then
 begin
 LuaCallError('Invalid ammoType!', call, paramsyntax);
 LuaToAmmoTypeOrd:= -1;
 end
 end;
 function LuaToStatInfoTypeOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TStatInfoType))) or (i > ord(High(TStatInfoType))) then
 begin
 LuaCallError('Invalid statInfoType!', call, paramsyntax);
 LuaToStatInfoTypeOrd:= -1;
 end
 end;
 function LuaToSoundOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TSound))) or (i > ord(High(TSound))) then
 begin
 LuaCallError('Invalid soundId!', call, paramsyntax);
 LuaToSoundOrd:= -1;
 end
 end;
 function LuaToHogEffectOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(THogEffect))) or (i > ord(High(THogEffect))) then
 begin
 LuaCallError('Invalid effect type!', call, paramsyntax);
 LuaToHogEffectOrd:= -1;
 end
 end;
 function LuaToCapGroupOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TCapGroup))) or (i > ord(High(TCapGroup))) then
 begin
 LuaCallError('Invalid capgroup type!', call, paramsyntax);
 LuaToCapGroupOrd:= -1;
 end
 end;
 function LuaToSpriteOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TSprite))) or (i > ord(High(TSprite))) then
 begin
 LuaCallError('Invalid sprite id!', call, paramsyntax);
 LuaToSpriteOrd:= -1;
 end
 end;
 function LuaToMapGenOrd(L : Plua_State; i: LongInt; call, paramsyntax: shortstring): LongInt; inline;
 begin
 if lua_isnoneornil(L, i) then i:= -1
-else i:= lua_tointeger(L, i);
+else i:= Trunc(lua_tonumber(L, i));
 if (i < ord(Low(TMapGen))) or (i > ord(High(TMapGen))) then
 begin
 LuaCallError('Invalid mapgen id!', call, paramsyntax);
 LuaToMapGenOrd:= -1;
 end
 // use as return value the number of variables pushed back to the lua script
 function lc_band(L: PLua_State): LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 2, 'band', 'value1, value2') then
-lua_pushinteger(L, lua_tointeger(L, 2) and lua_tointeger(L, 1))
+lua_pushnumber(L, Trunc(lua_tonumber(L, 2)) and Trunc(lua_tonumber(L, 1)))
 else
 lua_pushnil(L);
 lc_band := 1;
 end;
 function lc_bor(L: PLua_State): LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 2, 'bor', 'value1, value2') then
-lua_pushinteger(L, lua_tointeger(L, 2) or lua_tointeger(L, 1))
+lua_pushnumber(L, Trunc(lua_tonumber(L, 2)) or Trunc(lua_tonumber(L, 1)))
 else
 lua_pushnil(L);
 lc_bor := 1;
 end;
 function lc_bnot(L: PLua_State): LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 1, 'bnot', 'value') then
-lua_pushinteger(L, (not lua_tointeger(L, 1)))
+lua_pushnumber(L, (not Trunc(lua_tonumber(L, 1))))
 else
 lua_pushnil(L);
 lc_bnot := 1;
 end;
 function lc_div(L: PLua_State): LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 2, 'div', 'dividend, divisor') then
-lua_pushinteger(L, lua_tointeger(L, 1) div lua_tointeger(L, 2))
+lua_pushnumber(L, Trunc(lua_tonumber(L, 1)) div Trunc(lua_tonumber(L, 2)))
 else
 lua_pushnil(L);
 lc_div := 1;
 end;
 function lc_getinputmask(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 0, 'GetInputMask', '') then
-lua_pushinteger(L, InputMask);
+lua_pushnumber(L, InputMask);
 lc_getinputmask:= 1
 end;
 function lc_setinputmask(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 1, 'SetInputMask', 'mask') then
-InputMask:= lua_tointeger(L, 1);
+InputMask:= Trunc(lua_tonumber(L, 1));
 lc_setinputmask:= 0
 end;
 function lc_writelntoconsole(L : Plua_State) : LongInt; Cdecl;
 begin
 begin
 // no args? reset
 cBuildMaxDist:= cDefaultBuildMaxDist;
 end
 else
-CBuildMaxDist:= lua_tointeger(L, 1);
+CBuildMaxDist:= Trunc(lua_tonumber(L, 1));
 end;
 lc_setmaxbuilddistance:= 0;
 end;
 // sets weapon to whatever weapons is next (wraps around, amSkip is skipped)
 end;
 function lc_showmission(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 5, 'ShowMission', 'caption, subcaption, text, icon, time') then
-ShowMission(lua_tostringA(L, 1), lua_tostringA(L, 2), lua_tostringA(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
+ShowMission(lua_tostringA(L, 1), lua_tostringA(L, 2), lua_tostringA(L, 3), Trunc(lua_tonumber(L, 4)), Trunc(lua_tonumber(L, 5)));
 lc_showmission:= 0;
 end;
 function lc_hidemission(L : Plua_State) : LongInt; Cdecl;
 begin
 begin
 // can have 1 or more arguments
 if CheckAndFetchLuaParamMinCount(L, 1, 'EnableGameFlags', 'gameFlag, ... ', n) then
 begin
 for i:= 1 to n do
-GameFlags := GameFlags or LongWord(lua_tointeger(L, i));
+GameFlags := GameFlags or LongWord(Trunc(lua_tonumber(L, i)));
 ScriptSetInteger('GameFlags', GameFlags);
 end;
 lc_enablegameflags:= 0;
 end;
 begin
 // can have 1 or more arguments
 if CheckAndFetchLuaParamMinCount(L, 1, 'DisableGameFlags', 'gameFlag, ... ', n) then
 begin
 for i:= 1 to n do
-GameFlags := GameFlags and (not LongWord(lua_tointeger(L, i)));
+GameFlags := GameFlags and (not LongWord(Trunc(lua_tonumber(L, i))));
 ScriptSetInteger('GameFlags', GameFlags);
 end;
 lc_disablegameflags:= 0;
 end;
 end;
 function lc_getgameflag(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 1, 'GetGameFlag', 'gameflag') then
-lua_pushboolean(L, (GameFlags and LongWord(lua_tointeger(L, 1)) <> 0))
+lua_pushboolean(L, (GameFlags and LongWord(Trunc(lua_tonumber(L, 1))) <> 0))
 else
 lua_pushnil(L);
 lc_getgameflag:= 1;
 end;
 AddCaption(lua_tostringA(L, 1), cWhiteColor, capgrpMessage)
 else
 begin
 cg:= LuaToCapGroupOrd(L, 3, call, params);
 if cg >= 0 then
-AddCaption(lua_tostringA(L, 1), lua_tointeger(L, 2) shr 8, TCapGroup(cg));
+AddCaption(lua_tostringA(L, 1), Trunc(lua_tonumber(L, 2)) shr 8, TCapGroup(cg));
 end
 end;
 lc_addcaption:= 0;
 end;
 function lc_spawnfakehealthcrate(L: Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 4,'SpawnFakeHealthCrate', 'x, y, explode, poison') then
 begin
-gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
+gear := SpawnFakeCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)),
 HealthCrate, lua_toboolean(L, 3), lua_toboolean(L, 4));
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else lua_pushnil(L)
 end
 else
 lua_pushnil(L);
 lc_spawnfakehealthcrate := 1;
 function lc_spawnfakeammocrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 4,'SpawnFakeAmmoCrate', 'x, y, explode, poison') then
 begin
-gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
+gear := SpawnFakeCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)),
 AmmoCrate, lua_toboolean(L, 3), lua_toboolean(L, 4));
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else lua_pushnil(L)
 end
 else
 lua_pushnil(L);
 lc_spawnfakeammocrate := 1;
 function lc_spawnfakeutilitycrate(L: PLua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 4,'SpawnFakeUtilityCrate', 'x, y, explode, poison') then
 begin
-gear := SpawnFakeCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2),
+gear := SpawnFakeCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)),
 UtilityCrate, lua_toboolean(L, 3), lua_toboolean(L, 4));
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else lua_pushnil(L)
 end
 else
 lua_pushnil(L);
 lc_spawnfakeutilitycrate := 1;
 var health, n: LongInt;
 begin
 if CheckAndFetchParamCount(L, 2, 3, 'SpawnHealthCrate', 'x, y [, health]', n) then
 begin
 if n = 3 then
-health:= lua_tointeger(L, 3)
+health:= Trunc(lua_tonumber(L, 3))
 else
 health:= cHealthCaseAmount;
-gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), HealthCrate, health, 0);
+gear := SpawnCustomCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)), HealthCrate, health, 0);
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else lua_pushnil(L);
 end
 else
 lua_pushnil(L);
 lc_spawnhealthcrate := 1;
 n   : LongInt;
 begin
 if CheckAndFetchParamCount(L, 3, 4, 'SpawnAmmoCrate', 'x, y, content [, amount]', n) then
 begin
 if n = 3 then
-gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3), 0)
+gear := SpawnCustomCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)), AmmoCrate, Trunc(lua_tonumber(L, 3)), 0)
-else gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), AmmoCrate, lua_tointeger(L, 3), lua_tointeger(L, 4));
+else gear := SpawnCustomCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)), AmmoCrate, Trunc(lua_tonumber(L, 3)), Trunc(lua_tonumber(L, 4)));
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else lua_pushnil(L);
 end
 else
 lua_pushnil(L);
 lc_spawnammocrate := 1;
 n   : LongInt;
 begin
 if CheckAndFetchParamCount(L, 3, 4, 'SpawnUtilityCrate', 'x, y, content [, amount]', n) then
 begin
 if n = 3 then
-gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), UtilityCrate, lua_tointeger(L, 3), 0)
+gear := SpawnCustomCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)), UtilityCrate, Trunc(lua_tonumber(L, 3)), 0)
-else gear := SpawnCustomCrateAt(lua_tointeger(L, 1), lua_tointeger(L, 2), UtilityCrate, lua_tointeger(L, 3), lua_tointeger(L, 4));
+else gear := SpawnCustomCrateAt(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)), UtilityCrate, Trunc(lua_tonumber(L, 3)), Trunc(lua_tonumber(L, 4)));
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else lua_pushnil(L);
 end
 else
 lua_pushnil(L);
 lc_spawnutilitycrate := 1;
 begin
 t:= LuaToGearTypeOrd(L, 3, call, params);
 if t >= 0 then
 begin
 gt:= TGearType(t);
-x:= lua_tointeger(L, 1);
+x:= Trunc(lua_tonumber(L, 1));
-y:= lua_tointeger(L, 2);
+y:= Trunc(lua_tonumber(L, 2));
-s:= lua_tointeger(L, 4);
+s:= Trunc(lua_tonumber(L, 4));
-dx:= int2hwFloat(lua_tointeger(L, 5)) / 1000000;
+dx:= int2hwFloat(Trunc(lua_tonumber(L, 5))) / 1000000;
-dy:= int2hwFloat(lua_tointeger(L, 6)) / 1000000;
+dy:= int2hwFloat(Trunc(lua_tonumber(L, 6))) / 1000000;
-t:= lua_tointeger(L, 7);
+t:= Trunc(lua_tonumber(L, 7));
 gear:= AddGear(x, y, gt, s, dx, dy, t);
 lastGearByUID:= gear;
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 end
 else
 lua_pushnil(L);
 end
 else
 function lc_deletegear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'DeleteGear', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 gear^.Message:= gear^.Message or gmDelete;
 end;
 lc_deletegear:= 0
 end;
 begin
 s:= LuaToVisualGearTypeOrd(L, 3, call, params);
 if s >= 0 then
 begin
 vgt:= TVisualGearType(s);
-x:= lua_tointeger(L, 1);
+x:= Trunc(lua_tonumber(L, 1));
-y:= lua_tointeger(L, 2);
+y:= Trunc(lua_tonumber(L, 2));
-s:= lua_tointeger(L, 4);
+s:= Trunc(lua_tonumber(L, 4));
 c:= lua_toboolean(L, 5);
 if n = 6 then
 begin
-layer:= lua_tointeger(L, 6);
+layer:= Trunc(lua_tonumber(L, 6));
 vg:= AddVisualGear(x, y, vgt, s, c, layer);
 end
 else
 vg:= AddVisualGear(x, y, vgt, s, c);
 if vg <> nil then
 begin
 lastVisualGearByUID:= vg;
 uid:= vg^.uid;
-lua_pushinteger(L, uid);
+lua_pushnumber(L, uid);
 end;
 end
 else
 lua_pushnil(L);
 end
 var vg : PVisualGear;
 begin
 vg:= nil;
 if CheckLuaParamCount(L, 1, 'DeleteVisualGear', 'vgUid') then
 begin
-vg:= VisualGearByUID(lua_tointeger(L, 1));
+vg:= VisualGearByUID(Trunc(lua_tonumber(L, 1)));
 if vg <> nil then
 DeleteVisualGear(vg);
 end;
 // allow caller to know whether there was something to delete
 lua_pushboolean(L, vg <> nil);
 function lc_getvisualgeartype(L : Plua_State) : LongInt; Cdecl;
 var vg : PVisualGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetVisualGearType', 'vgUid') then
 begin
-vg := VisualGearByUID(lua_tointeger(L, 1));
+vg := VisualGearByUID(Trunc(lua_tonumber(L, 1)));
 if vg <> nil then
-lua_pushinteger(L, ord(vg^.Kind))
+lua_pushnumber(L, ord(vg^.Kind))
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_getvisualgearvalues(L : Plua_State) : LongInt; Cdecl;
 var vg: PVisualGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetVisualGearValues', 'vgUid') then
 begin
-vg:= VisualGearByUID(lua_tointeger(L, 1));
+vg:= VisualGearByUID(Trunc(lua_tonumber(L, 1)));
 if vg <> nil then
 begin
-lua_pushinteger(L, round(vg^.X));
+lua_pushnumber(L, round(vg^.X));
-lua_pushinteger(L, round(vg^.Y));
+lua_pushnumber(L, round(vg^.Y));
 lua_pushnumber(L, vg^.dX);
 lua_pushnumber(L, vg^.dY);
 lua_pushnumber(L, vg^.Angle);
-lua_pushinteger(L, vg^.Frame);
+lua_pushnumber(L, vg^.Frame);
-lua_pushinteger(L, vg^.FrameTicks);
+lua_pushnumber(L, vg^.FrameTicks);
-lua_pushinteger(L, vg^.State);
+lua_pushnumber(L, vg^.State);
-lua_pushinteger(L, vg^.Timer);
+lua_pushnumber(L, vg^.Timer);
-lua_pushinteger(L, vg^.Tint);
+lua_pushnumber(L, vg^.Tint);
 end
 else
 begin
 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L);
 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L);
 var vg : PVisualGear;
 begin
 // Param count can be 1-11 at present
 //    if CheckLuaParamCount(L, 11, 'SetVisualGearValues', 'vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint') then
 //        begin
-vg:= VisualGearByUID(lua_tointeger(L, 1));
+vg:= VisualGearByUID(Trunc(lua_tonumber(L, 1)));
 if vg <> nil then
 begin
 if not lua_isnoneornil(L, 2) then
-vg^.X:= lua_tointeger(L, 2);
+vg^.X:= Trunc(lua_tonumber(L, 2));
 if not lua_isnoneornil(L, 3) then
-vg^.Y:= lua_tointeger(L, 3);
+vg^.Y:= Trunc(lua_tonumber(L, 3));
 if not lua_isnoneornil(L, 4) then
 vg^.dX:= lua_tonumber(L, 4);
 if not lua_isnoneornil(L, 5) then
 vg^.dY:= lua_tonumber(L, 5);
 if not lua_isnoneornil(L, 6) then
 vg^.Angle:= lua_tonumber(L, 6);
 if not lua_isnoneornil(L, 7) then
-vg^.Frame:= lua_tointeger(L, 7);
+vg^.Frame:= Trunc(lua_tonumber(L, 7));
 if not lua_isnoneornil(L, 8) then
-vg^.FrameTicks:= lua_tointeger(L, 8);
+vg^.FrameTicks:= Trunc(lua_tonumber(L, 8));
 if not lua_isnoneornil(L, 9) then
-vg^.State:= lua_tointeger(L, 9);
+vg^.State:= Trunc(lua_tonumber(L, 9));
 if not lua_isnoneornil(L, 10) then
-vg^.Timer:= lua_tointeger(L, 10);
+vg^.Timer:= Trunc(lua_tonumber(L, 10));
 if not lua_isnoneornil(L, 11) then
-vg^.Tint:= lua_tointeger(L, 11)
+vg^.Tint:= Trunc(lua_tonumber(L, 11))
 end;
 //        end
 //    else
 //        lua_pushnil(L); // return value on stack (nil)
 lc_setvisualgearvalues:= 0
 function lc_getgearvalues(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearValues', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-lua_pushinteger(L, gear^.Angle);
+lua_pushnumber(L, gear^.Angle);
-lua_pushinteger(L, gear^.Power);
+lua_pushnumber(L, gear^.Power);
-lua_pushinteger(L, gear^.WDTimer);
+lua_pushnumber(L, gear^.WDTimer);
-lua_pushinteger(L, gear^.Radius);
+lua_pushnumber(L, gear^.Radius);
-lua_pushinteger(L, hwRound(gear^.Density * _10000));
+lua_pushnumber(L, hwRound(gear^.Density * _10000));
-lua_pushinteger(L, gear^.Karma);
+lua_pushnumber(L, gear^.Karma);
 lua_pushnumber(L,  gear^.DirAngle);
-lua_pushinteger(L, gear^.AdvBounce);
+lua_pushnumber(L, gear^.AdvBounce);
-lua_pushinteger(L, Integer(gear^.ImpactSound));
+lua_pushnumber(L, Integer(gear^.ImpactSound));
-lua_pushinteger(L, gear^.nImpactSounds);
+lua_pushnumber(L, gear^.nImpactSounds);
-lua_pushinteger(L, gear^.Tint);
+lua_pushnumber(L, gear^.Tint);
-lua_pushinteger(L, gear^.Damage);
+lua_pushnumber(L, gear^.Damage);
-lua_pushinteger(L, gear^.Boom)
+lua_pushnumber(L, gear^.Boom)
 end
 else
 begin
 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L);
 lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L); lua_pushnil(L);
 var gear : PGear;
 begin
 // Currently allows 1-14 params
 //    if CheckLuaParamCount(L, 14, 'SetGearValues', 'gearUid, Angle, Power, WDTimer, Radius, Density, Karma, DirAngle, AdvBounce, ImpactSound, # ImpactSounds, Tint, Damage, Boom') then
 //        begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
 if not lua_isnoneornil(L, 2) then
-gear^.Angle := lua_tointeger(L, 2);
+gear^.Angle := Trunc(lua_tonumber(L, 2));
 if not lua_isnoneornil(L, 3) then
-gear^.Power := lua_tointeger(L, 3);
+gear^.Power := Trunc(lua_tonumber(L, 3));
 if not lua_isnoneornil(L, 4) then
-gear^.WDTimer := lua_tointeger(L, 4);
+gear^.WDTimer := Trunc(lua_tonumber(L, 4));
 if not lua_isnoneornil(L, 5) then
-gear^.Radius := lua_tointeger(L, 5);
+gear^.Radius := Trunc(lua_tonumber(L, 5));
 if not lua_isnoneornil(L, 6) then
-gear^.Density:= int2hwFloat(lua_tointeger(L, 6)) / 10000;
+gear^.Density:= int2hwFloat(Trunc(lua_tonumber(L, 6))) / 10000;
 if not lua_isnoneornil(L, 7) then
-gear^.Karma := lua_tointeger(L, 7);
+gear^.Karma := Trunc(lua_tonumber(L, 7));
 if not lua_isnoneornil(L, 8) then
 gear^.DirAngle:= lua_tonumber(L, 8);
 if not lua_isnoneornil(L, 9) then
-gear^.AdvBounce := lua_tointeger(L, 9);
+gear^.AdvBounce := Trunc(lua_tonumber(L, 9));
 if not lua_isnoneornil(L, 10) then
-gear^.ImpactSound := TSound(lua_tointeger(L, 10));
+gear^.ImpactSound := TSound(Trunc(lua_tonumber(L, 10)));
 if not lua_isnoneornil(L, 11) then
-gear^.nImpactSounds := lua_tointeger(L, 11);
+gear^.nImpactSounds := Trunc(lua_tonumber(L, 11));
 if not lua_isnoneornil(L, 12) then
-gear^.Tint := lua_tointeger(L, 12);
+gear^.Tint := Trunc(lua_tonumber(L, 12));
 if not lua_isnoneornil(L, 13) then
-gear^.Damage := lua_tointeger(L, 13);
+gear^.Damage := Trunc(lua_tonumber(L, 13));
 if not lua_isnoneornil(L, 14) then
-gear^.Boom := lua_tointeger(L, 14);
+gear^.Boom := Trunc(lua_tonumber(L, 14));
 end;
 //        end
 //    else
 //        lua_pushnil(L); // return value on stack (nil)
 lc_setgearvalues:= 0
 if CheckLuaParamCount(L, 0, 'GetFollowGear', '') then
 begin
 if FollowGear = nil then
 lua_pushnil(L)
 else
-lua_pushinteger(L, FollowGear^.uid);
+lua_pushnumber(L, FollowGear^.uid);
 end
 else
 lua_pushnil(L);
 lc_getfollowgear:= 1; // 1 return value
 end;
 function lc_getgeartype(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearType', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, ord(gear^.Kind))
+lua_pushnumber(L, ord(gear^.Kind))
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_getgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearMessage', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.message)
+lua_pushnumber(L, gear^.message)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_getgearelasticity(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearElasticity', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, hwRound(gear^.elasticity * _10000))
+lua_pushnumber(L, hwRound(gear^.elasticity * _10000))
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_setgearelasticity(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetGearElasticity', 'gearUid, Elasticity') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-gear^.Elasticity:= int2hwFloat(lua_tointeger(L, 2)) / 10000
+gear^.Elasticity:= int2hwFloat(Trunc(lua_tonumber(L, 2))) / 10000
 end;
 lc_setgearelasticity:= 0
 end;
 function lc_getgearfriction(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearFriction', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, hwRound(gear^.friction * _10000))
+lua_pushnumber(L, hwRound(gear^.friction * _10000))
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_setgearfriction(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetGearFriction', 'gearUid, Friction') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-gear^.Friction:= int2hwFloat(lua_tointeger(L, 2)) / 10000
+gear^.Friction:= int2hwFloat(Trunc(lua_tonumber(L, 2))) / 10000
 end;
 lc_setgearfriction:= 0
 end;
 function lc_setgearmessage(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetGearMessage', 'gearUid, message') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-gear^.message:= lua_tointeger(L, 2);
+gear^.message:= Trunc(lua_tonumber(L, 2));
 end;
 lc_setgearmessage:= 0
 end;
 function lc_getgearpos(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearPos', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.Pos)
+lua_pushnumber(L, gear^.Pos)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_setgearpos(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetGearPos', 'gearUid, value') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-gear^.Pos:= lua_tointeger(L, 2);
+gear^.Pos:= Trunc(lua_tonumber(L, 2));
 end;
 lc_setgearpos:= 0
 end;
 function lc_getgearcollisionmask(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearCollisionMask', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.CollisionMask)
+lua_pushnumber(L, gear^.CollisionMask)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_setgearcollisionmask(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetGearCollisionMask', 'gearUid, mask') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-gear^.CollisionMask:= lua_tointeger(L, 2);
+gear^.CollisionMask:= Trunc(lua_tonumber(L, 2));
 end;
 lc_setgearcollisionmask:= 0
 end;
 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogLevel', 'gearUid') then
 begin
-gear := GearByUID(lua_tointeger(L, 1));
+gear := GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
-lua_pushinteger(L, gear^.Hedgehog^.BotLevel)
+lua_pushnumber(L, gear^.Hedgehog^.BotLevel)
 else
 lua_pushnil(L);
 end;
 lc_gethoglevel := 1;
 end;
 function lc_sethoglevel(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetHogLevel', 'gearUid, level') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
-gear^.Hedgehog^.BotLevel:= lua_tointeger(L, 2);
+gear^.Hedgehog^.BotLevel:= Trunc(lua_tonumber(L, 2));
 end;
 lc_sethoglevel:= 0
 end;
 function lc_gethogclan(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogClan', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 begin
-lua_pushinteger(L, gear^.Hedgehog^.Team^.Clan^.ClanIndex)
+lua_pushnumber(L, gear^.Hedgehog^.Team^.Clan^.ClanIndex)
 end
 else
 lua_pushnil(L);
 end
 else
 function lc_getclancolor(L : Plua_State) : LongInt; Cdecl;
 var idx: integer;
 begin
 if CheckLuaParamCount(L, 1, 'GetClanColor', 'clanIdx') then
 begin
-idx:= lua_tointeger(L, 1);
+idx:= Trunc(lua_tonumber(L, 1));
 if (not lua_isnumber(L, 1)) then
 begin
 LuaError('Argument ''clanIdx'' must be a number!');
 lua_pushnil(L);
 end
 begin
 LuaError('Argument ''clanIdx'' out of range! (There are currently ' + IntToStr(ClansCount) + ' clans, so valid range is: 0-' + IntToStr(ClansCount-1) + ')');
 lua_pushnil(L);
 end
 else
-lua_pushinteger(L, ClansArray[idx]^.Color shl 8 or $FF);
+lua_pushnumber(L, ClansArray[idx]^.Color shl 8 or $FF);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 lc_getclancolor:= 1
 end;
 hh   : THedgehog;
 i, j : LongInt;
 begin
 if CheckLuaParamCount(L, 2, 'SetClanColor', 'clan, color') then
 begin
-i:= lua_tointeger(L,1);
+i:= Trunc(lua_tonumber(L,1));
 if i >= ClansCount then exit(0);
 clan := ClansArray[i];
-clan^.Color:= lua_tointeger(L, 2) shr 8;
+clan^.Color:= Trunc(lua_tonumber(L, 2)) shr 8;
 for i:= 0 to Pred(clan^.TeamsNumber) do
 begin
 team:= clan^.Teams[i];
 for j:= 0 to 7 do
 function lc_gethogvoicepack(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogVoicepack', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.Voicepack^.name))
 else
 lua_pushnil(L);
 end
 function lc_gethoggrave(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogGrave', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.GraveName))
 else
 lua_pushnil(L);
 end
 function lc_gethogflag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogFlag', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 // TODO error messages
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.Flag))
 else
 lua_pushnil(L);
 function lc_gethogfort(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogFort', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 // TODO error messages
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.FortName))
 else
 lua_pushnil(L);
 function lc_ishoglocal(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'IsHogLocal', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 // TODO error messages
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 lua_pushboolean(L, IsHogLocal(gear^.Hedgehog))
 else
 lua_pushnil(L);
 function lc_gethogteamname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogTeamName', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 // TODO error messages
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Team^.TeamName))
 else
 lua_pushnil(L);
 function lc_sethogteamname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetHogTeamName', 'gearUid, name') then
 begin
-gear := GearByUID(lua_tointeger(L, 1));
+gear := GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 begin
 gear^.Hedgehog^.Team^.TeamName := lua_tostring(L, 2);
 FreeAndNilTexture(gear^.Hedgehog^.Team^.NameTagTex);
 function lc_gethogname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogName', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 begin
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Name))
 end
 else
 function lc_sethogname(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetHogName', 'gearUid, name') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 begin
 gear^.Hedgehog^.Name:= lua_tostring(L, 2);
 FreeAndNilTexture(gear^.Hedgehog^.NameTagTex);
 function lc_gettimer(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetTimer', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.Timer)
+lua_pushnumber(L, gear^.Timer)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_getflighttime(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetFlightTime', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.FlightTime)
+lua_pushnumber(L, gear^.FlightTime)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_gethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHealth', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.Health)
+lua_pushnumber(L, gear^.Health)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_getx(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetX', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, hwRound(gear^.X))
+lua_pushnumber(L, hwRound(gear^.X))
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_gety(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetY', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, hwRound(gear^.Y))
+lua_pushnumber(L, hwRound(gear^.Y))
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_copypv(L : Plua_State) : LongInt; Cdecl;
 var gears, geard : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'CopyPV', 'fromGearUid, toGearUid') then
 begin
-gears:= GearByUID(lua_tointeger(L, 1));
+gears:= GearByUID(Trunc(lua_tonumber(L, 1)));
-geard:= GearByUID(lua_tointeger(L, 2));
+geard:= GearByUID(Trunc(lua_tonumber(L, 2)));
 if (gears <> nil) and (geard <> nil) then
 begin
 geard^.X:= gears^.X;
 geard^.Y:= gears^.Y;
 geard^.dX:= gears^.dX;
 function lc_followgear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'FollowGear', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then FollowGear:= gear
 end;
 lc_followgear:= 0
 end;
 s : LongWord;
 n : LongInt;
 begin
 if CheckAndFetchParamCount(L, 3, 4, 'HogSay', 'gearUid, text, manner [, vgState]', n) then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
 // state defaults to 0 if state param is given
 if n = 4 then
-s:= lua_tointeger(L, 4)
+s:= Trunc(lua_tonumber(L, 4))
 else
 s:= 0;
 vgear:= AddVisualGear(0, 0, vgtSpeechBubble, s, true);
 if vgear <> nil then
 begin
 AddChatString(#9+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
 vgear^.Hedgehog:= gear^.Hedgehog
 end
 else vgear^.Frame:= gear^.uid;
-vgear^.FrameTicks:= lua_tointeger(L, 3);
+vgear^.FrameTicks:= Trunc(lua_tonumber(L, 3));
 if (vgear^.FrameTicks < 1) or (vgear^.FrameTicks > 3) then
 vgear^.FrameTicks:= 1;
-lua_pushinteger(L, vgear^.Uid);
+lua_pushnumber(L, vgear^.Uid);
 end
 end
 else
 lua_pushnil(L)
 end
 function lc_switchhog(L : Plua_State) : LongInt; Cdecl;
 var gear, prevgear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'SwitchHog', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 // should we allow this when there is no current hedgehog? might do some odd(er) things to turn sequence.
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) and (CurrentHedgehog <> nil) then
 begin
 prevgear := CurrentHedgehog^.Gear;
 if prevgear <> nil then
 if CheckAndFetchParamCount(L, 2, 3, call, params, n) then
 begin
 at:= LuaToAmmoTypeOrd(L, 2, call, params);
 if at >= 0 then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 if n = 2 then
 AddAmmo(gear^.Hedgehog^, TAmmoType(at))
 else
-SetAmmo(gear^.Hedgehog^, TAmmoType(at), lua_tointeger(L, 3))
+SetAmmo(gear^.Hedgehog^, TAmmoType(at), Trunc(lua_tonumber(L, 3)))
 end;
 end;
 lc_addammo:= 0
 end;
 call = 'GetAmmoCount';
 params = 'gearUid, ammoType';
 begin
 if CheckLuaParamCount(L, 2, call, params) then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
 begin
 at:= LuaToAmmoTypeOrd(L, 2, call, params);
 if at >= 0 then
 begin
 ammo:= GetAmmoEntry(gear^.Hedgehog^, TAmmoType(at));
 if ammo^.AmmoType = amNothing then
-lua_pushinteger(L, 0)
+lua_pushnumber(L, 0)
 else
-lua_pushinteger(L, ammo^.Count);
+lua_pushnumber(L, ammo^.Count);
 end;
 end
-else lua_pushinteger(L, 0);
+else lua_pushnumber(L, 0);
 end
 else
 lua_pushnil(L);
 lc_getammocount:= 1
 end;
 function lc_sethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetHealth', 'gearUid, health') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-gear^.Health:= lua_tointeger(L, 2);
+gear^.Health:= Trunc(lua_tonumber(L, 2));
 if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 begin
 RenderHealth(gear^.Hedgehog^);
 RecountTeamHealth(gear^.Hedgehog^.Team)
 function lc_settimer(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetTimer', 'gearUid, timer') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
-if gear <> nil then gear^.Timer:= lua_tointeger(L, 2)
+if gear <> nil then gear^.Timer:= Trunc(lua_tonumber(L, 2))
 end;
 lc_settimer:= 0
 end;
 function lc_setflighttime(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetFlightTime', 'gearUid, flighttime') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
-if gear <> nil then gear^.FlightTime:= lua_tointeger(L, 2)
+if gear <> nil then gear^.FlightTime:= Trunc(lua_tonumber(L, 2))
 end;
 lc_setflighttime:= 0
 end;
 function lc_seteffect(L : Plua_State) : LongInt; Cdecl;
 if CheckLuaParamCount(L, 3, call, params) then
 begin
 t:= LuaToHogEffectOrd(L, 2, call, params);
 if t >= 0 then
 begin
-gear := GearByUID(lua_tointeger(L, 1));
+gear := GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
-gear^.Hedgehog^.Effects[THogEffect(t)]:= lua_tointeger(L, 3);
+gear^.Hedgehog^.Effects[THogEffect(t)]:= Trunc(lua_tonumber(L, 3));
 end;
 end;
 lc_seteffect := 0;
 end;
 if CheckLuaParamCount(L, 2, call, params) then
 begin
 t:= LuaToHogEffectOrd(L, 2, call, params);
 if t >= 0 then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Hedgehog <> nil) then
-lua_pushinteger(L, gear^.Hedgehog^.Effects[THogEffect(t)])
+lua_pushnumber(L, gear^.Hedgehog^.Effects[THogEffect(t)])
 else
-lua_pushinteger(L, 0)
+lua_pushnumber(L, 0)
 end;
 end
 else
-lua_pushinteger(L, 0);
+lua_pushnumber(L, 0);
 lc_geteffect:= 1
 end;
 function lc_setstate(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetState', 'gearUid, state') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-gear^.State:= lua_tointeger(L, 2);
+gear^.State:= Trunc(lua_tonumber(L, 2));
 SetAllToActive;
 end
 end;
 lc_setstate:= 0
 end;
 function lc_getstate(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetState', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.State)
+lua_pushnumber(L, gear^.State)
 else
 lua_pushnil(L)
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_gettag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetTag', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.Tag)
+lua_pushnumber(L, gear^.Tag)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_settag(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetTag', 'gearUid, tag') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-gear^.Tag:= lua_tointeger(L, 2);
+gear^.Tag:= Trunc(lua_tonumber(L, 2));
 SetAllToActive;
 end
 end;
 lc_settag:= 0
 end;
 tryhard: boolean;
 left, right, n: LongInt;
 begin
 if CheckAndFetchParamCount(L, 4, 5, 'FindPlace', 'gearUid, fall, left, right [, tryHarder]', n) then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 fall:= lua_toboolean(L, 2);
-left:= lua_tointeger(L, 3);
+left:= Trunc(lua_tonumber(L, 3));
-right:= lua_tointeger(L, 4);
+right:= Trunc(lua_tonumber(L, 4));
 if n = 5 then
 tryhard:= lua_toboolean(L, 5)
 else
 tryhard:= false;
 if gear <> nil then
 FindPlace(gear, fall, left, right, tryhard);
 if gear <> nil then
-lua_pushinteger(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 // no gear specified
 if n = 1 then
 PlaySound(TSound(s))
 else
 begin
-gear:= GearByUID(lua_tointeger(L, 2));
+gear:= GearByUID(Trunc(lua_tonumber(L, 2)));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 AddVoice(TSound(s),gear^.Hedgehog^.Team^.Voicepack)
 end;
 end;
 end;
 ParseCommand('fort ' + lua_tostring(L, 4), true, true);
 ParseCommand('voicepack ' + lua_tostring(L, 5), true, true);
 if (np = 6) then ParseCommand('flag ' + lua_tostring(L, 6), true, true);
 CurrentTeam^.Binds:= DefaultBinds
 // fails on x64
-//lua_pushinteger(L, LongInt(CurrentTeam));
+//lua_pushnumber(L, LongInt(CurrentTeam));
 end;
 //else
 //lua_pushnil(L)
 lc_addteam:= 0;//1;
 end;
 if CheckLuaParamCount(L, 4, 'AddHog', 'hogname, botlevel, health, hat') then
 begin
 temp:= lua_tostring(L, 4);
 ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true, true);
 ParseCommand('hat ' + temp, true, true);
-lua_pushinteger(L, CurrentHedgehog^.Gear^.uid);
+lua_pushnumber(L, CurrentHedgehog^.Gear^.uid);
 end
 else
 lua_pushnil(L);
 lc_addhog:= 1;
 end;
 function lc_hogturnleft(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 2, 'HogTurnLeft', 'gearUid, boolean') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 gear^.dX.isNegative:= lua_toboolean(L, 2);
 end;
 lc_hogturnleft:= 0;
 end;
 function lc_getgearposition(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearPosition', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-lua_pushinteger(L, hwRound(gear^.X));
+lua_pushnumber(L, hwRound(gear^.X));
-lua_pushinteger(L, hwRound(gear^.Y))
+lua_pushnumber(L, hwRound(gear^.Y))
 end
 else
 begin
 lua_pushnil(L);
 lua_pushnil(L)
 col: boolean;
 x, y: LongInt;
 begin
 if CheckLuaParamCount(L, 3, 'SetGearPosition', 'gearUid, x, y') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
 col:= gear^.CollisionIndex >= 0;
-x:= lua_tointeger(L, 2);
+x:= Trunc(lua_tonumber(L, 2));
-y:= lua_tointeger(L, 3);
+y:= Trunc(lua_tonumber(L, 3));
 if col then
 DeleteCI(gear);
 gear^.X:= int2hwfloat(x);
 gear^.Y:= int2hwfloat(y);
 if col then
 function lc_getgeartarget(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearTarget', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-lua_pushinteger(L, gear^.Target.X);
+lua_pushnumber(L, gear^.Target.X);
-lua_pushinteger(L, gear^.Target.Y)
+lua_pushnumber(L, gear^.Target.Y)
 end
 else
 begin
 lua_pushnil(L);
 lua_pushnil(L)
 function lc_setgeartarget(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 3, 'SetGearTarget', 'gearUid, x, y') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-gear^.Target.X:= lua_tointeger(L, 2);
+gear^.Target.X:= Trunc(lua_tonumber(L, 2));
-gear^.Target.Y:= lua_tointeger(L, 3)
+gear^.Target.Y:= Trunc(lua_tonumber(L, 3))
 end
 end;
 lc_setgeartarget:= 0
 end;
 var gear: PGear;
 var t: LongInt;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearVelocity', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
 t:= hwRound(gear^.dX * 1000000);
 // gear dX determines hog orientation
 if (gear^.dX.isNegative) and (t = 0) then t:= -1;
-lua_pushinteger(L, t);
+lua_pushnumber(L, t);
-lua_pushinteger(L, hwRound(gear^.dY * 1000000))
+lua_pushnumber(L, hwRound(gear^.dY * 1000000))
 end
 end
 else
 begin
 lua_pushnil(L);
 function lc_setgearvelocity(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 3, 'SetGearVelocity', 'gearUid, dx, dy') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
 begin
-gear^.dX:= int2hwFloat(lua_tointeger(L, 2)) / 1000000;
+gear^.dX:= int2hwFloat(Trunc(lua_tonumber(L, 2))) / 1000000;
-gear^.dY:= int2hwFloat(lua_tointeger(L, 3)) / 1000000;
+gear^.dY:= int2hwFloat(Trunc(lua_tonumber(L, 3))) / 1000000;
 SetAllToActive;
 end
 end;
 lc_setgearvelocity:= 0
 end;
 begin
 at:= LuaToAmmoTypeOrd(L, 1, call, params);
 if at >= 0 then
 begin
 if np = 4 then
-ScriptSetAmmo(TAmmoType(at), lua_tointeger(L, 2), lua_tointeger(L, 3), lua_tointeger(L, 4), 1)
+ScriptSetAmmo(TAmmoType(at), Trunc(lua_tonumber(L, 2)), Trunc(lua_tonumber(L, 3)), Trunc(lua_tonumber(L, 4)), 1)
 else
-ScriptSetAmmo(TAmmoType(at), lua_tointeger(L, 2), lua_tointeger(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
+ScriptSetAmmo(TAmmoType(at), Trunc(lua_tonumber(L, 2)), Trunc(lua_tonumber(L, 3)), Trunc(lua_tonumber(L, 4)), Trunc(lua_tonumber(L, 5)));
 end;
 end;
 lc_setammo:= 0
 end;
 begin
 if CheckLuaParamCount(L, 2, call, params) then
 begin
 at:= LuaToAmmoTypeOrd(L, 1, call, params);
 if at >= 0 then
-ScriptSetAmmoDelay(TAmmoType(at), lua_tointeger(L, 2));
+ScriptSetAmmoDelay(TAmmoType(at), Trunc(lua_tonumber(L, 2)));
 end;
 lc_setammodelay:= 0
 end;
 function lc_getrandom(L : Plua_State) : LongInt; Cdecl;
 var m : LongInt;
 begin
 if CheckLuaParamCount(L, 1, 'GetRandom', 'number') then
 begin
-m:= lua_tointeger(L, 1);
+m:= Trunc(lua_tonumber(L, 1));
 if (m > 0) then
-lua_pushinteger(L, GetRandom(m))
+lua_pushnumber(L, GetRandom(m))
 else
 begin
 LuaError('Lua: Tried to pass 0 to GetRandom!');
 lua_pushnil(L);
 end
 function lc_setwind(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 1, 'SetWind', 'windSpeed') then
 begin
-cWindSpeed:= int2hwfloat(lua_tointeger(L, 1)) / 100 * cMaxWindSpeed;
+cWindSpeed:= int2hwfloat(Trunc(lua_tonumber(L, 1))) / 100 * cMaxWindSpeed;
 cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
 if cWindSpeed.isNegative then
 CWindSpeedf := -cWindSpeedf;
 AddVisualGear(0, 0, vgtSmoothWindBar);
 end;
 function lc_getgearradius(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetGearRadius', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-lua_pushinteger(L, gear^.Radius)
+lua_pushnumber(L, gear^.Radius)
 else
 lua_pushnil(L);
 end
 else
 lua_pushnil(L); // return value on stack (nil)
 function lc_gethoghat(L : Plua_State): LongInt; Cdecl;
 var gear : PGear;
 begin
 if CheckLuaParamCount(L, 1, 'GetHogHat', 'gearUid') then
 begin
-gear := GearByUID(lua_tointeger(L, 1));
+gear := GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then
 lua_pushstring(L, str2pchar(gear^.Hedgehog^.Hat))
 else
 lua_pushnil(L);
 end
 var gear : PGear;
 hat: ShortString;
 begin
 if CheckLuaParamCount(L, 2, 'SetHogHat', 'gearUid, hat') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
 begin
 hat:= lua_tostring(L, 2);
 gear^.Hedgehog^.Hat:= hat;
 AddFileLog('Changed hat to: '+hat);
 begin
 placed:= false;
 if CheckAndFetchLuaParamMinCount(L, 4, call, params, n) then
 begin
 if not lua_isnoneornil(L, 5) then
-tint := lua_tointeger(L, 5)
+tint := Trunc(lua_tonumber(L, 5))
 else tint := $FFFFFFFF;
 if not lua_isnoneornil(L, 6) then
 behind := lua_toboolean(L, 6)
 else behind := false;
 if not lua_isnoneornil(L, 7) then
 else flipVert := false;
 lf:= 0;
 // accept any amount of landflags, loop is never executed if n<9
 for i:= 9 to n do
-lf:= lf or lua_tointeger(L, i);
+lf:= lf or Trunc(lua_tonumber(L, i));
 n:= LuaToSpriteOrd(L, 3, call, params);
 if n >= 0 then
 begin
 spr:= TSprite(n);
 if SpritesData[spr].Surface = nil then
 LuaError(call + ': ' + EnumToStr(spr) + ' cannot be placed! (required information not loaded)' )
 else
 placed:= ForcePlaceOnLand(
-lua_tointeger(L, 1) - SpritesData[spr].Width div 2,
+Trunc(lua_tonumber(L, 1)) - SpritesData[spr].Width div 2,
-lua_tointeger(L, 2) - SpritesData[spr].Height div 2,
+Trunc(lua_tonumber(L, 2)) - SpritesData[spr].Height div 2,
-spr, lua_tointeger(L, 4), lf, tint, behind, flipHoriz, flipVert);
+spr, Trunc(lua_tonumber(L, 4)), lf, tint, behind, flipHoriz, flipVert);
 end;
 end;
 lua_pushboolean(L, placed);
 lc_placesprite:= 1
 else flipVert := false;
 lf:= 0;
 // accept any amount of landflags, loop is never executed if n<9
 for i:= 9 to n do
-lf:= lf or lua_tointeger(L, i);
+lf:= lf or Trunc(lua_tonumber(L, i));
 n:= LuaToSpriteOrd(L, 3, call, params);
 if n >= 0 then
 begin
 spr:= TSprite(n);
 if SpritesData[spr].Surface = nil then
 LuaError(call + ': ' + EnumToStr(spr) + ' cannot be placed! (required information not loaded)' )
 else
 EraseLand(
-lua_tointeger(L, 1) - SpritesData[spr].Width div 2,
+Trunc(lua_tonumber(L, 1)) - SpritesData[spr].Width div 2,
-lua_tointeger(L, 2) - SpritesData[spr].Height div 2,
+Trunc(lua_tonumber(L, 2)) - SpritesData[spr].Height div 2,
-spr, lua_tointeger(L, 4), lf, eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert);
+spr, Trunc(lua_tonumber(L, 4)), lf, eraseOnLFMatch, onlyEraseLF, flipHoriz, flipVert);
 end;
 end;
 lc_erasesprite:= 0
 end;
 var placed: boolean;
 begin
 placed:= false;
 if CheckLuaParamCount(L, 3, 'PlaceGirder', 'x, y, frameIdx') then
 placed:= TryPlaceOnLandSimple(
-lua_tointeger(L, 1) - SpritesData[sprAmGirder].Width div 2,
+Trunc(lua_tonumber(L, 1)) - SpritesData[sprAmGirder].Width div 2,
-lua_tointeger(L, 2) - SpritesData[sprAmGirder].Height div 2,
+Trunc(lua_tonumber(L, 2)) - SpritesData[sprAmGirder].Height div 2,
-sprAmGirder, lua_tointeger(L, 3), true, false);
+sprAmGirder, Trunc(lua_tonumber(L, 3)), true, false);
 lua_pushboolean(L, placed);
 lc_placegirder:= 1
 end;
 var placed: boolean;
 begin
 placed:= false;
 if CheckLuaParamCount(L, 3, 'PlaceRubber', 'x, y, frameIdx') then
 placed:= TryPlaceOnLand(
-lua_tointeger(L, 1) - SpritesData[sprAmRubber].Width div 2,
+Trunc(lua_tonumber(L, 1)) - SpritesData[sprAmRubber].Width div 2,
-lua_tointeger(L, 2) - SpritesData[sprAmRubber].Height div 2,
+Trunc(lua_tonumber(L, 2)) - SpritesData[sprAmRubber].Height div 2,
-sprAmRubber, lua_tointeger(L, 3), true, lfBouncy);
+sprAmRubber, Trunc(lua_tonumber(L, 3)), true, lfBouncy);
 lua_pushboolean(L, placed);
 lc_placerubber:= 1
 end;
 function lc_getcurammotype(L : Plua_State): LongInt; Cdecl;
 begin
 if (CurrentHedgehog <> nil) and (CheckLuaParamCount(L, 0, 'GetCurAmmoType', '')) then
-lua_pushinteger(L, ord(CurrentHedgehog^.CurAmmoType))
+lua_pushnumber(L, ord(CurrentHedgehog^.CurAmmoType))
 else
-lua_pushinteger(L, ord(amNothing));
+lua_pushnumber(L, ord(amNothing));
 lc_getcurammotype := 1;
 end;
 function lc_savecampaignvar(L : Plua_State): LongInt; Cdecl;
 begin
 function lc_hidehog(L: Plua_State): LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 1, 'HideHog', 'gearUid') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 HideHog(gear^.hedgehog)
 end;
 lc_hidehog := 0;
 end;
 var i, h: LongInt;
 uid: LongWord;
 begin
 if CheckLuaParamCount(L, 1, 'RestoreHog', 'gearUid') then
 begin
-uid:= LongWord(lua_tointeger(L, 1));
+uid:= LongWord(Trunc(lua_tonumber(L, 1)));
 if TeamsCount > 0 then
 for i:= 0 to Pred(TeamsCount) do
 for h:= 0 to cMaxHHIndex do
 if (TeamsArray[i]^.Hedgehogs[h].GearHidden <> nil) and (TeamsArray[i]^.Hedgehogs[h].GearHidden^.uid = uid) then
 begin
 var rtn: Boolean;
 begin
 if CheckLuaParamCount(L, 5, 'TestRectForObstacle', 'x1, y1, x2, y2, landOnly') then
 begin
 rtn:= TestRectangleForObstacle(
-lua_tointeger(L, 1),
+Trunc(lua_tonumber(L, 1)),
-lua_tointeger(L, 2),
+Trunc(lua_tonumber(L, 2)),
-lua_tointeger(L, 3),
+Trunc(lua_tonumber(L, 3)),
-lua_tointeger(L, 4),
+Trunc(lua_tonumber(L, 4)),
 lua_toboolean(L, 5)
 );
 lua_pushboolean(L, rtn);
 end
 else
 function lc_getgravity(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 0, 'GetGravity', '') then
-lua_pushinteger(L, hwRound(SignAs(_0_5, cGravity) + (cGravity * 50 / cMaxWindSpeed)));
+lua_pushnumber(L, hwRound(SignAs(_0_5, cGravity) + (cGravity * 50 / cMaxWindSpeed)));
 lc_getgravity:= 1
 end;
 function lc_setgravity(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 1, 'SetGravity', 'percent') then
 begin
-cGravity:= _0_02 * lua_tointeger(L, 1) * cMaxWindSpeed;
+cGravity:= _0_02 * Trunc(lua_tonumber(L, 1)) * cMaxWindSpeed;
-cGravityf:= 0.00025 * lua_tointeger(L, 1) * 0.02
+cGravityf:= 0.00025 * Trunc(lua_tonumber(L, 1)) * 0.02
 end;
 lc_setgravity:= 0
 end;
 function lc_setwaterline(L : Plua_State) : LongInt; Cdecl;
 var iterator: PGear;
 begin
 if CheckLuaParamCount(L, 1, 'SetWaterLine', 'waterline') then
 begin
-cWaterLine:= lua_tointeger(L,1);
+cWaterLine:= Trunc(lua_tonumber(L,1));
 AllInactive:= false;
 iterator:= GearsList;
 while iterator <> nil do
 begin
 if not (iterator^.Kind in [gtPortal, gtAirAttack]) and (iterator^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) then
 function lc_setgearaihints(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
 if CheckLuaParamCount(L, 2, 'SetAIHintOnGear', 'gearUid, aiHints') then
 begin
-gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
 if gear <> nil then
-gear^.aihints:= lua_tointeger(L, 2);
+gear^.aihints:= Trunc(lua_tonumber(L, 2));
 end;
 lc_setgearaihints:= 0
 end;
 function lc_declareachievement(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 4, 'DeclareAchievement', 'achievementId, teamname, location, value') then
-declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4));
+declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), Trunc(lua_tonumber(L, 4)));
 lc_declareachievement:= 0
 end;
 function lc_getammoname(L : Plua_state) : LongInt; Cdecl;
 var np, at: LongInt;
 end;
 function lc_startghostpoints(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 1, 'StartGhostPoints', 'count') then
-startGhostPoints(lua_tointeger(L, 1));
+startGhostPoints(Trunc(lua_tonumber(L, 1)));
 lc_startghostpoints:= 0
 end;
 function lc_dumppoint(L : Plua_State) : LongInt; Cdecl;
 begin
 if CheckLuaParamCount(L, 2, 'DumpPoint', 'x, y') then
-dumpPoint(lua_tointeger(L, 1), lua_tointeger(L, 2));
+dumpPoint(Trunc(lua_tonumber(L, 1)), Trunc(lua_tonumber(L, 2)));
 lc_dumppoint:= 0
 end;
 procedure ScriptFlushPoints();
 var np, param: LongInt;
 begin
 if CheckAndFetchParamCountRange(L, 2, 4, 'AddPoint', 'x, y [, width [, erase] ]', np) then
 begin
 // x
-param:= LongInt(lua_tointeger(L,1));
+param:= LongInt(Trunc(lua_tonumber(L,1)));
 PointsBuffer:= PointsBuffer + char((param shr 8) and $FF);
 PointsBuffer:= PointsBuffer + char((param and $FF));
 // y
-param:= LongInt(lua_tointeger(L,2));
+param:= LongInt(Trunc(lua_tonumber(L,2)));
 PointsBuffer:= PointsBuffer + char((param shr 8) and $FF);
 PointsBuffer:= PointsBuffer + char((param and $FF));
 // width
 if np > 2 then
 begin
-param:= lua_tointeger(L,3);
+param:= Trunc(lua_tonumber(L,3));
 param:= (param or $80);
 // erase
 if (np > 3) and lua_toboolean(L, 4) then
 param:= (param or $40);
 PointsBuffer:= PointsBuffer + char(param);
 params = 'TEST_SUCCESSFUL or TEST_FAILED';
 begin
 if CheckLuaParamCount(L, 1, call, params) then
 begin
-case lua_tointeger(L, 1) of
+case Trunc(lua_tonumber(L, 1)) of
 HaltTestSuccess : rstring:= 'Success';
 HaltTestFailed: rstring:= 'FAILED';
 else
 begin
 LuaCallError('Parameter must be either ' + params, call, params);
 end;
 if cTestLua then
 begin
 WriteLnToConsole('Lua test finished, result: ' + rstring);
-halt(lua_tointeger(L, 1));
+halt(Trunc(lua_tonumber(L, 1)));
 end
 else LuaError('Not in lua test mode, engine will keep running. Reported test result: ' + rstring);
 end;
 lua_setglobal(luaState, Str2PChar(name));
 end;
 procedure ScriptSetInteger(name : shortstring; value : LongInt);
 begin
-lua_pushinteger(luaState, value);
+lua_pushnumber(luaState, value);
 lua_setglobal(luaState, Str2PChar(name));
 end;
 procedure ScriptSetString(name : shortstring; value : shortstring);
 begin
 end;
 function ScriptGetInteger(name : shortstring) : LongInt;
 begin
 lua_getglobal(luaState, Str2PChar(name));
-ScriptGetInteger:= lua_tointeger(luaState, -1);
+ScriptGetInteger:= Trunc(lua_tonumber(luaState, -1));
 lua_pop(luaState, 1);
 end;
 function ScriptGetString(name : shortstring) : shortstring;
 begin
 begin
 if (not ScriptLoaded) or (not ScriptExists(fname)) then
 exit(0);
 SetGlobals;
 lua_getglobal(luaState, Str2PChar(fname));
-lua_pushinteger(luaState, par1);
+lua_pushnumber(luaState, par1);
-lua_pushinteger(luaState, par2);
+lua_pushnumber(luaState, par2);
-lua_pushinteger(luaState, par3);
+lua_pushnumber(luaState, par3);
-lua_pushinteger(luaState, par4);
+lua_pushnumber(luaState, par4);
 ScriptCall:= 0;
 if lua_pcall(luaState, 4, 1, 0) <> 0 then
 begin
 LuaError('Error while calling ' + fname + ': ' + lua_tostring(luaState, -1));
 lua_pop(luaState, 1)
 end
 else
 begin
-ScriptCall:= lua_tointeger(luaState, -1);
+ScriptCall:= Trunc(lua_tonumber(luaState, -1));
 lua_pop(luaState, 1)
 end;
 GetGlobals;
 end;

changeset 12294	0deabf747b8f
parent 12286	b4dde7035fe2
child 12301	46e1e25fec5e