equal
deleted
inserted
replaced
1792 gear^.aihints:= lua_tointeger(L, 2); |
1792 gear^.aihints:= lua_tointeger(L, 2); |
1793 end; |
1793 end; |
1794 lc_setaihintsongear:= 0 |
1794 lc_setaihintsongear:= 0 |
1795 end; |
1795 end; |
1796 |
1796 |
|
1797 |
|
1798 function lc_hedgewarsscriptload(L : Plua_State) : LongInt; Cdecl; |
|
1799 begin |
|
1800 if lua_gettop(L) <> 1 then |
|
1801 begin |
|
1802 LuaError('Lua: Wrong number of parameters passed to HedgewarsScriptLoad!'); |
|
1803 lua_pushnil(L) |
|
1804 end |
|
1805 else |
|
1806 ScriptLoad(lua_tostring(L, 1)); |
|
1807 lc_hedgewarsscriptload:= 0; |
|
1808 end; |
1797 /////////////////// |
1809 /////////////////// |
1798 |
1810 |
1799 procedure ScriptPrintStack; |
1811 procedure ScriptPrintStack; |
1800 var n, i : LongInt; |
1812 var n, i : LongInt; |
1801 begin |
1813 begin |
2405 lua_register(luaState, _P'PlaceGirder', @lc_placegirder); |
2417 lua_register(luaState, _P'PlaceGirder', @lc_placegirder); |
2406 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2418 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2407 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2419 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2408 |
2420 |
2409 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2421 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
|
2422 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
2410 |
2423 |
2411 |
2424 |
2412 ScriptClearStack; // just to be sure stack is empty |
2425 ScriptClearStack; // just to be sure stack is empty |
2413 ScriptLoaded:= false; |
2426 ScriptLoaded:= false; |
2414 end; |
2427 end; |