1892 end |
1892 end |
1893 else |
1893 else |
1894 ScriptLoad(lua_tostring(L, 1)); |
1894 ScriptLoad(lua_tostring(L, 1)); |
1895 lc_hedgewarsscriptload:= 0; |
1895 lc_hedgewarsscriptload:= 0; |
1896 end; |
1896 end; |
|
1897 |
|
1898 |
|
1899 function lc_declareachievement(L : Plua_State) : LongInt; Cdecl; |
|
1900 var gear: PGear; |
|
1901 begin |
|
1902 if lua_gettop(L) <> 4 then |
|
1903 LuaError('Lua: Wrong number of parameters passed to DeclareAchievement!') |
|
1904 else |
|
1905 declareAchievement(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4)); |
|
1906 lc_declareachievement:= 0 |
|
1907 end; |
1897 /////////////////// |
1908 /////////////////// |
1898 |
1909 |
1899 procedure ScriptPrintStack; |
1910 procedure ScriptPrintStack; |
1900 var n, i : LongInt; |
1911 var n, i : LongInt; |
1901 begin |
1912 begin |
2342 ScriptSetInteger('gfResetWeps', gfResetWeps); |
2353 ScriptSetInteger('gfResetWeps', gfResetWeps); |
2343 ScriptSetInteger('gfPerHogAmmo', gfPerHogAmmo); |
2354 ScriptSetInteger('gfPerHogAmmo', gfPerHogAmmo); |
2344 ScriptSetInteger('gfDisableWind', gfDisableWind); |
2355 ScriptSetInteger('gfDisableWind', gfDisableWind); |
2345 ScriptSetInteger('gfMoreWind', gfMoreWind); |
2356 ScriptSetInteger('gfMoreWind', gfMoreWind); |
2346 ScriptSetInteger('gfTagTeam', gfTagTeam); |
2357 ScriptSetInteger('gfTagTeam', gfTagTeam); |
|
2358 ScriptSetInteger('gfShoppaBorder', gfShoppaBorder); |
2347 |
2359 |
2348 ScriptSetInteger('gmLeft', gmLeft); |
2360 ScriptSetInteger('gmLeft', gmLeft); |
2349 ScriptSetInteger('gmRight', gmRight); |
2361 ScriptSetInteger('gmRight', gmRight); |
2350 ScriptSetInteger('gmUp', gmUp); |
2362 ScriptSetInteger('gmUp', gmUp); |
2351 ScriptSetInteger('gmDown', gmDown); |
2363 ScriptSetInteger('gmDown', gmDown); |
2514 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2526 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2515 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2527 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2516 |
2528 |
2517 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2529 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2518 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
2530 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
|
2531 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
2519 |
2532 |
2520 |
2533 |
2521 ScriptClearStack; // just to be sure stack is empty |
2534 ScriptClearStack; // just to be sure stack is empty |
2522 ScriptLoaded:= false; |
2535 ScriptLoaded:= false; |
2523 end; |
2536 end; |