1142 else |
1142 else |
1143 lua_pushnil(L); // return value on stack (nil) |
1143 lua_pushnil(L); // return value on stack (nil) |
1144 lc_gettimer:= 1 |
1144 lc_gettimer:= 1 |
1145 end; |
1145 end; |
1146 |
1146 |
|
1147 function lc_getflighttime(L : Plua_State) : LongInt; Cdecl; |
|
1148 var gear : PGear; |
|
1149 begin |
|
1150 if CheckLuaParamCount(L, 1, 'GetFlightTime', 'gearUid') then |
|
1151 begin |
|
1152 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1153 if gear <> nil then |
|
1154 lua_pushinteger(L, gear^.FlightTime) |
|
1155 else |
|
1156 lua_pushnil(L); |
|
1157 end |
|
1158 else |
|
1159 lua_pushnil(L); // return value on stack (nil) |
|
1160 lc_getflighttime:= 1 |
|
1161 end; |
|
1162 |
1147 function lc_gethealth(L : Plua_State) : LongInt; Cdecl; |
1163 function lc_gethealth(L : Plua_State) : LongInt; Cdecl; |
1148 var gear : PGear; |
1164 var gear : PGear; |
1149 begin |
1165 begin |
1150 if CheckLuaParamCount(L, 1, 'GetHealth', 'gearUid') then |
1166 if CheckLuaParamCount(L, 1, 'GetHealth', 'gearUid') then |
1151 begin |
1167 begin |
1376 begin |
1392 begin |
1377 gear:= GearByUID(lua_tointeger(L, 1)); |
1393 gear:= GearByUID(lua_tointeger(L, 1)); |
1378 if gear <> nil then gear^.Timer:= lua_tointeger(L, 2) |
1394 if gear <> nil then gear^.Timer:= lua_tointeger(L, 2) |
1379 end; |
1395 end; |
1380 lc_settimer:= 0 |
1396 lc_settimer:= 0 |
|
1397 end; |
|
1398 |
|
1399 function lc_setflighttime(L : Plua_State) : LongInt; Cdecl; |
|
1400 var gear : PGear; |
|
1401 begin |
|
1402 if CheckLuaParamCount(L, 2, 'SetFlightTime', 'gearUid, flighttime') then |
|
1403 begin |
|
1404 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1405 if gear <> nil then gear^.FlightTime:= lua_tointeger(L, 2) |
|
1406 end; |
|
1407 lc_setflighttime:= 0 |
1381 end; |
1408 end; |
1382 |
1409 |
1383 function lc_seteffect(L : Plua_State) : LongInt; Cdecl; |
1410 function lc_seteffect(L : Plua_State) : LongInt; Cdecl; |
1384 var gear: PGear; |
1411 var gear: PGear; |
1385 t : LongInt; |
1412 t : LongInt; |
2875 lua_register(luaState, _P'GetState', @lc_getstate); |
2902 lua_register(luaState, _P'GetState', @lc_getstate); |
2876 lua_register(luaState, _P'GetTag', @lc_gettag); |
2903 lua_register(luaState, _P'GetTag', @lc_gettag); |
2877 lua_register(luaState, _P'SetTag', @lc_settag); |
2904 lua_register(luaState, _P'SetTag', @lc_settag); |
2878 lua_register(luaState, _P'SetTimer', @lc_settimer); |
2905 lua_register(luaState, _P'SetTimer', @lc_settimer); |
2879 lua_register(luaState, _P'GetTimer', @lc_gettimer); |
2906 lua_register(luaState, _P'GetTimer', @lc_gettimer); |
|
2907 lua_register(luaState, _P'SetFlightTime', @lc_setflighttime); |
|
2908 lua_register(luaState, _P'GetFlightTime', @lc_getflighttime); |
2880 lua_register(luaState, _P'SetZoom', @lc_setzoom); |
2909 lua_register(luaState, _P'SetZoom', @lc_setzoom); |
2881 lua_register(luaState, _P'GetZoom', @lc_getzoom); |
2910 lua_register(luaState, _P'GetZoom', @lc_getzoom); |
2882 lua_register(luaState, _P'HogSay', @lc_hogsay); |
2911 lua_register(luaState, _P'HogSay', @lc_hogsay); |
2883 lua_register(luaState, _P'SwitchHog', @lc_switchhog); |
2912 lua_register(luaState, _P'SwitchHog', @lc_switchhog); |
2884 lua_register(luaState, _P'HogTurnLeft', @lc_hogturnleft); |
2913 lua_register(luaState, _P'HogTurnLeft', @lc_hogturnleft); |