CON: Add screenpal command.

screenpal <r> <g> <b> <a>

Similar to palfrom, but works on screen events. Values range from 0 to 255.

Patch from Fox.

git-svn-id: https://svn.eduke32.com/eduke32@6509 1a8010ca-5511-0410-912e-c29ae57300e0

source/duke3d/src/gamedef.cpp

@@ -411,6 +411,7 @@ static tokenmap_t const vm_keywords[] =
     { "savemapstate",           CON_SAVEMAPSTATE },
     { "savenn",                 CON_SAVENN },
     { "scalevar",               CON_SCALEVAR },
+    { "screenpal",              CON_SCREENPAL },
     { "screensound",            CON_SCREENSOUND },
     { "screentext",             CON_SCREENTEXT },
     { "scriptsize",             CON_SCRIPTSIZE },
@@ -3656,6 +3657,10 @@ DO_DEFSTATE:
             }
             continue;
 
+        case CON_SCREENPAL:
+            C_GetManyVars(4);
+            continue;
+
         case CON_HITRADIUSVAR:
         case CON_DRAWLINE256:
             C_GetManyVars(5);

source/duke3d/src/gamedef.h

@@ -1147,6 +1147,7 @@ enum ScriptKeywords_t
     CON_STOPALLMUSIC,       // 407
     CON_ACTORSOUND,         // 408
     CON_STARTSCREEN,        // 409
+    CON_SCREENPAL,          // 410
     CON_END
 };
 // KEEPINSYNC with the keyword list in lunatic/con_lang.lua

source/duke3d/src/gameexec.cpp

@@ -3756,6 +3756,15 @@ nullquote:
             }
             continue;
 
+        case CON_SCREENPAL:
+            insptr++;
+            {
+                int32_t params[4];
+                Gv_FillWithVars(params);
+                setpalettefade(params[0], params[1], params[2], params[3]);
+            }
+            continue;
+
         case CON_SECTOROFWALL:
             insptr++;
             tw = *insptr++;