# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1560800585 -7200
# Node ID a22013a817e4cce3bb64e611cfe03a852d7285b2
# Parent  f6115638aa92e50fdcecf7891e26815f4fb3da09
Lua: Fix incorrect values for capcolDefault, capcolSetting

diff -r f6115638aa92 -r a22013a817e4 hedgewars/uConsts.pas
--- a/hedgewars/uConsts.pas	Wed Jun 19 02:40:00 2019 +0300
+++ b/hedgewars/uConsts.pas	Mon Jun 17 21:43:05 2019 +0200
@@ -78,6 +78,8 @@
 
     capcolDefault         : Longword = $FFFFFFFF; // default caption color
     capcolSetting         : Longword = $FFCCCCCC; // caption color for changing client setting like volume or auto camera
+    capcolDefaultLua      : Longword = $FFFFFFFF; // capcolDefault for Lua
+    capcolSettingLua      : Longword = $CCCCCCFF; // capcolSetting for Lua
 
     cCentralMessageColor  : Longword = $FFFFFF00; // color of message in center of screen like quit or pause
 
diff -r f6115638aa92 -r a22013a817e4 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Wed Jun 19 02:40:00 2019 +0300
+++ b/hedgewars/uScript.pas	Mon Jun 17 21:43:05 2019 +0200
@@ -3660,6 +3660,12 @@
     lua_setglobal(luaState, Str2PChar(name));
 end;
 
+procedure ScriptSetLongWord(name : shortstring; value : LongWord);
+begin
+    lua_pushnumber(luaState, value);
+    lua_setglobal(luaState, Str2PChar(name));
+end;
+
 procedure ScriptSetString(name : shortstring; value : shortstring);
 begin
     lua_pushstring(luaState, Str2PChar(value));
@@ -4369,8 +4375,8 @@
 for we:= Low(TWorldEdge) to High(TWorldEdge) do
     ScriptSetInteger(EnumToStr(we), ord(we));
 
-ScriptSetInteger('capcolDefault'    , capcolDefault);
-ScriptSetInteger('capcolSetting'    , capcolSetting);
+ScriptSetLongWord('capcolDefault'   , capcolDefaultLua);
+ScriptSetLongWord('capcolSetting'   , capcolSettingLua);
 
 ScriptSetInteger('gstDrowning'      , gstDrowning);
 ScriptSetInteger('gstHHDriven'      , gstHHDriven);