求教调色板颜色在系统中真实颜色

KA

玩过DOS版本的玩家都知道，大地图上“崆峒派”，河岸边等地皆有类似于“闪光”的动态效果。
有人能详细介绍这个“闪光”效果的原理么？不胜感谢。。。

蓝烟清

调色版都丢这么久了，一下子还真没想起来。还是翻了一下代码

1. Integer[] temp = new Integer[3];
   
2. temp[0] = (buf[i] & 0xFF) << 2;
   
3. temp[1] = (buf[i+1] & 0xFF) << 2;
   
4. temp[2] = (buf[i+2] & 0xFF) << 2;
   
5. 
   
6. int tmp = 0;
   
7. tmp += temp[0] << 16;
   
8. tmp += temp[1] << 8;
   
9. tmp += temp[2];

复制代码

连续取三个字节， 每个字节左移两位（据说DOS下最高是240，没有255）。
然后一左移16，二左移8，再加上三，就得到真实的值了

蓝烟清

传说中的“闪烁”效果应该是换贴图，而且应该是在建筑那一层换的

weyl

反汇编原游戏主程序得知，闪烁的原理是实时更换调色板。具体如下：
调色板中的以下两组颜色（E0~E7，F4~FC），会不断从前往后顺序更替，最后一个替换最前面。

龙吟

我觉得没这么复杂，原理我说不好，请LZ参阅DOS版苍龙逐日里的田归农。。。

蓝烟清

回复 weyl 的帖子

原来如此， 这么说调色板换了， 某些人物的也会跟着闪了

weyl

任何地方加入新过程 ChangeCol

1. procedure ChangeCol;
   
2. var
   
3.   i, a, b: integer;
   
4.   temp: array[0..2] of byte;
   
5. begin
   
6. 
   
7.   a := $e7 * 3;
   
8.   temp[0] := ACol[a];
   
9.   temp[1] := ACol[a + 1];
   
10.   temp[2] := ACol[a + 2];
    
11. 
    
12.   for i := $e7 downto $e1 do
    
13.   begin
    
14.     b := i * 3;
    
15.     a := (i - 1) * 3;
    
16.     ACol[b] := ACol[a];
    
17.     ACol[b + 1] := ACol[a + 1];
    
18.     ACol[b + 2] := ACol[a + 2];
    
19.   end;
    
20. 
    
21.   b := $e0 * 3;
    
22.   ACol[b] := temp[0];
    
23.   ACol[b + 1] := temp[1];
    
24.   ACol[b + 2] := temp[2];
    
25. 
    
26.   a := $fc * 3;
    
27.   temp[0] := ACol[a];
    
28.   temp[1] := ACol[a + 1];
    
29.   temp[2] := ACol[a + 2];
    
30. 
    
31.   for i := $fc downto $f5 do
    
32.   begin
    
33.     b := i * 3;
    
34.     a := (i - 1) * 3;
    
35.     ACol[b] := ACol[a];
    
36.     ACol[b + 1] := ACol[a + 1];
    
37.     ACol[b + 2] := ACol[a + 2];
    
38.   end;
    
39. 
    
40.   b := $f4 * 3;
    
41.   ACol[b] := temp[0];
    
42.   ACol[b + 1] := temp[1];
    
43.   ACol[b + 2] := temp[2];   
    
44. 
    
45. end;

复制代码

Walk子程中加入

1.     if (integer(now - next_time2) > 0)  then
   
2.     begin
   
3.       ChangeCol;
   
4.       next_time2 := now + 200; //200为毫秒数
   
5.       DrawMMap;
   
6.       SDL_UpdateRect(screen, 0, 0, screen.w, screen.h);
   
7.     end;

复制代码

其余语言的均可用类似方法处理。

凶神恶煞

好久没来这里，看到这个帖子还以为自己穿越了……
闪烁的就是调色板最后几个颜色，想当初用FISHEDIT转贴图转近似色，经常不小心被转到闪烁色去，要么自己手动拿其他颜色点回来，要么就直接在Z编辑里屏蔽闪烁，当然，几年之后某某楼主的高版本SFE可以直接换颜色……