349 procedure ScriptClearStack;

   349 procedure ScriptClearStack;

   350 begin

   350 begin

   351 lua_settop(luaState, 0)

   351 lua_settop(luaState, 0)

   352 end;

   352 end;

   353 

   353 

   354 procedure ScriptSetInteger(name : shortstring; value : LongInt);

   360 procedure ScriptSetInteger(name : shortstring; value : LongInt);

   355 begin

   361 begin

   356 lua_pushinteger(luaState, value);

   362 lua_pushinteger(luaState, value);

   357 lua_setglobal(luaState, Str2PChar(name));

   363 lua_setglobal(luaState, Str2PChar(name));

   358 end;

   364 end;

   441 end;

   447 end;

   442 

   448 

   443 procedure SetGlobals;

   449 procedure SetGlobals;

   444 begin

   450 begin

   445 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);

   451 ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);

   446 end;

   456 end;

   447 

   457 

   448 procedure GetGlobals;

   458 procedure GetGlobals;

   449 begin

   459 begin

   450 TurnTimeLeft:= ScriptGetInteger('TurnTimeLeft');

   460 TurnTimeLeft:= ScriptGetInteger('TurnTimeLeft');