107 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward;

   107 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward;

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

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

   109 

   109 

   110 var LuaDebugInfo: lua_Debug;

   110 var LuaDebugInfo: lua_Debug;

   111 

   111 

   112 procedure LuaParseString(s: shortString);

   113 procedure LuaParseString(s: shortString);

   113 begin

   114 begin

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

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

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

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

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

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

   117         begin

   119         begin

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

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