1161 gear:= GearByUID(lua_tointeger(L, 1)); |
1161 gear:= GearByUID(lua_tointeger(L, 1)); |
1162 if gear <> nil then |
1162 if gear <> nil then |
1163 begin |
1163 begin |
1164 gear^.Health:= lua_tointeger(L, 2); |
1164 gear^.Health:= lua_tointeger(L, 2); |
1165 |
1165 |
1166 if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
1166 if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
1167 begin |
1167 begin |
1168 RenderHealth(gear^.Hedgehog^); |
1168 RenderHealth(gear^.Hedgehog^); |
1169 RecountTeamHealth(gear^.Hedgehog^.Team) |
1169 RecountTeamHealth(gear^.Hedgehog^.Team) |
1170 end; |
1170 end; |
1171 |
1171 // Why did this do a "setalltoactive" ? |
1172 SetAllToActive; |
1172 //SetAllToActive; |
|
1173 Gear^.Active:= true; |
|
1174 AllInactive:= false |
1173 end |
1175 end |
1174 end; |
1176 end; |
1175 lc_sethealth:= 0 |
1177 lc_sethealth:= 0 |
1176 end; |
1178 end; |
1177 |
1179 |
1917 cGravityf:= 0.00025 * lua_tointeger(L, 1) * 0.02 |
1919 cGravityf:= 0.00025 * lua_tointeger(L, 1) * 0.02 |
1918 end; |
1920 end; |
1919 lc_setgravity:= 0 |
1921 lc_setgravity:= 0 |
1920 end; |
1922 end; |
1921 |
1923 |
|
1924 function lc_setwaterline(L : Plua_State) : LongInt; Cdecl; |
|
1925 var iterator: PGear; |
|
1926 begin |
|
1927 if lua_gettop(L) <> 1 then |
|
1928 LuaParameterCountError('SetWaterLine', 'waterline', lua_gettop(L)) |
|
1929 else |
|
1930 begin |
|
1931 cWaterLine:= lua_tointeger(L,1); |
|
1932 AllInactive:= false; |
|
1933 iterator:= GearsList; |
|
1934 while iterator <> nil do |
|
1935 begin |
|
1936 if not (iterator^.Kind in [gtPortal, gtAirAttack]) and (iterator^.Message and gmAllStoppable = 0) then |
|
1937 begin |
|
1938 iterator^.Active:= true; |
|
1939 if iterator^.dY.QWordValue = 0 then iterator^.dY.isNegative:= false; |
|
1940 iterator^.State:= iterator^.State or gstMoving; |
|
1941 DeleteCI(iterator) |
|
1942 end; |
|
1943 iterator:= iterator^.NextGear |
|
1944 end |
|
1945 end; |
|
1946 lc_setwaterline:= 0 |
|
1947 end; |
1922 |
1948 |
1923 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl; |
1949 function lc_setaihintsongear(L : Plua_State) : LongInt; Cdecl; |
1924 var gear: PGear; |
1950 var gear: PGear; |
1925 begin |
1951 begin |
1926 if lua_gettop(L) <> 2 then |
1952 if lua_gettop(L) <> 2 then |
2597 lua_register(luaState, _P'PlaceGirder', @lc_placegirder); |
2623 lua_register(luaState, _P'PlaceGirder', @lc_placegirder); |
2598 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2624 lua_register(luaState, _P'GetCurAmmoType', @lc_getcurammotype); |
2599 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2625 lua_register(luaState, _P'TestRectForObstacle', @lc_testrectforobstacle); |
2600 lua_register(luaState, _P'GetGravity', @lc_getgravity); |
2626 lua_register(luaState, _P'GetGravity', @lc_getgravity); |
2601 lua_register(luaState, _P'SetGravity', @lc_setgravity); |
2627 lua_register(luaState, _P'SetGravity', @lc_setgravity); |
|
2628 lua_register(luaState, _P'SetWaterLine', @lc_setwaterline); |
2602 |
2629 |
2603 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2630 lua_register(luaState, _P'SetGearAIHints', @lc_setaihintsongear); |
2604 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
2631 lua_register(luaState, _P'HedgewarsScriptLoad', @lc_hedgewarsscriptload); |
2605 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
2632 lua_register(luaState, _P'DeclareAchievement', @lc_declareachievement); |
2606 |
2633 |