3299 // The real ReadyTimeLeft will be set in SetGlobals |
3299 // The real ReadyTimeLeft will be set in SetGlobals |
3300 PendingReadyTimeLeft:= number; |
3300 PendingReadyTimeLeft:= number; |
3301 isPendingReadyTimeLeft:= true; |
3301 isPendingReadyTimeLeft:= true; |
3302 end; |
3302 end; |
3303 lc_setreadytimeleft:= 0; |
3303 lc_setreadytimeleft:= 0; |
|
3304 end; |
|
3305 |
|
3306 function lc_setturntimepaused(L : Plua_State) : LongInt; Cdecl; |
|
3307 begin |
|
3308 if CheckLuaParamCount(L, 1, 'SetTurnTimePaused', 'isPaused') then |
|
3309 LuaClockPaused:= lua_toboolean(L, 1); |
|
3310 lc_setturntimepaused:= 0; |
|
3311 end; |
|
3312 |
|
3313 function lc_getturntimepaused(L : Plua_State) : LongInt; Cdecl; |
|
3314 begin |
|
3315 if CheckLuaParamCount(L, 0, 'GetTurnTimePaused', '') then |
|
3316 lua_pushboolean(L, LuaClockPaused) |
|
3317 else |
|
3318 lua_pushnil(L); |
|
3319 lc_getturntimepaused:= 1; |
3304 end; |
3320 end; |
3305 |
3321 |
3306 function lc_startghostpoints(L : Plua_State) : LongInt; Cdecl; |
3322 function lc_startghostpoints(L : Plua_State) : LongInt; Cdecl; |
3307 begin |
3323 begin |
3308 if CheckLuaParamCount(L, 1, 'StartGhostPoints', 'count') then |
3324 if CheckLuaParamCount(L, 1, 'StartGhostPoints', 'count') then |
4335 lua_register(luaState, _P'SetLaserSight', @lc_setlasersight); |
4351 lua_register(luaState, _P'SetLaserSight', @lc_setlasersight); |
4336 lua_register(luaState, _P'GetLaserSight', @lc_getlasersight); |
4352 lua_register(luaState, _P'GetLaserSight', @lc_getlasersight); |
4337 lua_register(luaState, _P'Explode', @lc_explode); |
4353 lua_register(luaState, _P'Explode', @lc_explode); |
4338 lua_register(luaState, _P'SetTurnTimeLeft', @lc_setturntimeleft); |
4354 lua_register(luaState, _P'SetTurnTimeLeft', @lc_setturntimeleft); |
4339 lua_register(luaState, _P'SetReadyTimeLeft', @lc_setreadytimeleft); |
4355 lua_register(luaState, _P'SetReadyTimeLeft', @lc_setreadytimeleft); |
|
4356 lua_register(luaState, _P'SetTurnTimePaused', @lc_setturntimepaused); |
|
4357 lua_register(luaState, _P'GetTurnTimePaused', @lc_getturntimepaused); |
4340 // drawn map functions |
4358 // drawn map functions |
4341 lua_register(luaState, _P'AddPoint', @lc_addPoint); |
4359 lua_register(luaState, _P'AddPoint', @lc_addPoint); |
4342 lua_register(luaState, _P'FlushPoints', @lc_flushPoints); |
4360 lua_register(luaState, _P'FlushPoints', @lc_flushPoints); |
4343 |
4361 |
4344 lua_register(luaState, _P'SetGearAIHints', @lc_setgearaihints); |
4362 lua_register(luaState, _P'SetGearAIHints', @lc_setgearaihints); |