112 procedure ScriptSetAmmoDelay(ammo : TAmmoType; delay: Byte); forward;

   112 procedure ScriptSetAmmoDelay(ammo : TAmmoType; delay: Byte); forward;

   113 

   113 

   114 var LuaDebugInfo: lua_Debug;

   114 var LuaDebugInfo: lua_Debug;

   115 

   115 

   116 procedure SetGlobals; forward;

   116 procedure SetGlobals; forward;

   117 procedure LuaParseString(s: shortString);

   118 procedure LuaParseString(s: shortString);

   118 begin

   119 begin

   119     SetGlobals;

   120     SetGlobals;

   120     AddFileLog('[Lua] input string: ' + s);

   121     AddFileLog('[Lua] input string: ' + s);

   121     AddChatString(#3 + '[Lua] > ' + s);

   122     AddChatString(#3 + '[Lua] > ' + s);

   122     if luaL_dostring(luaState, Str2PChar(s)) <> 0 then

   123     if luaL_dostring(luaState, Str2PChar(s)) <> 0 then

   123         begin

   124         begin

   124         AddFileLog('[Lua] input string parsing error!');

   125         AddFileLog('[Lua] input string parsing error!');

   125         AddChatString(#5 + '[Lua] Error while parsing!');

   126         AddChatString(#5 + '[Lua] Error while parsing!');

   127 end;

   130 end;

   128 

   131 

   129 function LuaUpdateDebugInfo(): Boolean;

   132 function LuaUpdateDebugInfo(): Boolean;

   130 begin

   133 begin

   131     FillChar(LuaDebugInfo, sizeof(LuaDebugInfo), 0);

   134     FillChar(LuaDebugInfo, sizeof(LuaDebugInfo), 0);