2490 end |
2490 end |
2491 end; |
2491 end; |
2492 lc_setwaterline:= 0 |
2492 lc_setwaterline:= 0 |
2493 end; |
2493 end; |
2494 |
2494 |
2495 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl; |
2495 function lc_setgearaihints(L : Plua_State) : LongInt; Cdecl; |
2496 var gear: PGear; |
2496 var gear: PGear; |
2497 begin |
2497 begin |
2498 if CheckLuaParamCount(L, 2, 'SetAIHintOnGear', 'gearUid, aiHints') then |
2498 if CheckLuaParamCount(L, 2, 'SetAIHintOnGear', 'gearUid, aiHints') then |
2499 begin |
2499 begin |
2500 gear:= GearByUID(lua_tointeger(L, 1)); |
2500 gear:= GearByUID(lua_tointeger(L, 1)); |
2501 if gear <> nil then |
2501 if gear <> nil then |
2502 gear^.aihints:= lua_tointeger(L, 2); |
2502 gear^.aihints:= lua_tointeger(L, 2); |
2503 end; |
2503 end; |
2504 lc_setaihintsongear:= 0 |
2504 lc_setgearaihints:= 0 |
2505 end; |
2505 end; |
2506 |
2506 |
2507 |
2507 |
2508 function lc_hedgewarsscriptload(L : Plua_State) : LongInt; Cdecl; |
2508 function lc_hedgewarsscriptload(L : Plua_State) : LongInt; Cdecl; |
2509 begin |
2509 begin |
3328 lua_register(luaState, _P'SetMaxBuildDistance', @lc_setmaxbuilddistance); |
3328 lua_register(luaState, _P'SetMaxBuildDistance', @lc_setmaxbuilddistance); |
3329 // drawn map functions |
3329 // drawn map functions |
3330 lua_register(luaState, _P'AddPoint', @lc_addPoint); |
3330 lua_register(luaState, _P'AddPoint', @lc_addPoint); |
3331 lua_register(luaState, _P'FlushPoints', @lc_flushPoints); |
3331 lua_register(luaState, _P'FlushPoints', @lc_flushPoints); |
3332 |
3332 |
3333 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
3333 lua_register(luaState, _P'SetGearAIHints', @lc_setgearaihints); |
3334 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
3334 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
3335 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
3335 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
3336 |
3336 |
3337 ScriptSetInteger('TEST_SUCCESSFUL' , HaltTestSuccess); |
3337 ScriptSetInteger('TEST_SUCCESSFUL' , HaltTestSuccess); |
3338 ScriptSetInteger('TEST_FAILED' , HaltTestFailed); |
3338 ScriptSetInteger('TEST_FAILED' , HaltTestFailed); |