1893 lua_toboolean(L, 5) |
1893 lua_toboolean(L, 5) |
1894 ); |
1894 ); |
1895 lua_pushboolean(L, rtn); |
1895 lua_pushboolean(L, rtn); |
1896 end; |
1896 end; |
1897 lc_testrectforobstacle:= 1 |
1897 lc_testrectforobstacle:= 1 |
|
1898 end; |
|
1899 |
|
1900 |
|
1901 function lc_getgravity(L : Plua_State) : LongInt; Cdecl; |
|
1902 begin |
|
1903 if lua_gettop(L) <> 0 then |
|
1904 LuaParameterCountError('GetGravity', '', lua_gettop(L)) |
|
1905 else |
|
1906 lua_pushinteger(L, hwRound(cGravity * 50 / cWindSpeed)); |
|
1907 lc_getgravity:= 1 |
|
1908 end; |
|
1909 |
|
1910 function lc_setgravity(L : Plua_State) : LongInt; Cdecl; |
|
1911 begin |
|
1912 if lua_gettop(L) <> 1 then |
|
1913 LuaParameterCountError('SetGravity', 'gravity', lua_gettop(L)) |
|
1914 else |
|
1915 begin |
|
1916 cGravity:= cMaxWindSpeed * lua_tointeger(L, 1) * _0_02; |
|
1917 cGravityf:= 0.00025 * lua_tointeger(L, 1) * 0.02 |
|
1918 end; |
|
1919 lc_setgravity:= 0 |
1898 end; |
1920 end; |
1899 |
1921 |
1900 |
1922 |
1901 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl; |
1923 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl; |
1902 var gear: PGear; |
1924 var gear: PGear; |
2572 lua_register(luaState, _P'GetHogHat', @lc_gethoghat); |
2594 lua_register(luaState, _P'GetHogHat', @lc_gethoghat); |
2573 lua_register(luaState, _P'SetHogHat', @lc_sethoghat); |
2595 lua_register(luaState, _P'SetHogHat', @lc_sethoghat); |
2574 lua_register(luaState, _P'PlaceGirder', @lc_placegirder); |
2596 lua_register(luaState, _P'PlaceGirder', @lc_placegirder); |
2575 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2597 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2576 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2598 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
|
2599 lua_register(luaState, _P'GetGravity', @lc_getgravity); |
|
2600 lua_register(luaState, _P'SetGravity', @lc_setgravity); |
2577 |
2601 |
2578 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2602 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2579 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
2603 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
2580 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
2604 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
2581 |
2605 |