diff -r 007813b81f1b -r 3d14950641a4 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Wed Aug 08 14:10:32 2018 +0200
+++ b/hedgewars/uScript.pas	Wed Aug 08 14:38:54 2018 +0200
@@ -650,7 +650,7 @@
     if CheckAndFetchParamCount(L, 1, 3, call, params, cg) then
         begin
         if cg = 1 then
-            AddCaption(lua_tostringA(L, 1), cWhiteColor, capgrpMessage)
+            AddCaption(lua_tostringA(L, 1), capcolDefault, capgrpMessage)
         else
             begin
             cg:= LuaToCapGroupOrd(L, 3, call, params);
@@ -3961,6 +3961,9 @@
 for we:= Low(TWorldEdge) to High(TWorldEdge) do
     ScriptSetInteger(EnumToStr(we), ord(we));
 
+ScriptSetInteger('capcolDefault'    , capcolDefault);
+ScriptSetInteger('capcolSetting'    , capcolSetting);
+
 ScriptSetInteger('gstDrowning'      , gstDrowning);
 ScriptSetInteger('gstHHDriven'      , gstHHDriven);
 ScriptSetInteger('gstMoving'        , gstMoving);