Lua中显示使用黑夜，黄昏等场景,更新代码：可任意调节比重

KA

先把成品发上来，接下来的关于制作方法会显得极其枯燥无味。。
上一张效果图大大


更新代码后的效果图。。（过于变态）
当蓝色权重为200%时的金庸群侠传。。。



主程序放到lua里运行即可，增加三个api函数

1. lib.DarkScene(); --黑夜
   
2. lib.EveningScene();  --黄昏
   
3. lib.NormalScene( *Filename ,RR,GG,BB); --正常

复制代码

其中*Filename可以是任何一款调色板，RR是red占的比重，GG是green占的比重，BB是blue占得比重，取值范围0-255；即比重是0%~255%
比如说，黑夜场景可以这么写：lib.NormalScene(CC.PaletteFile,30,80,100)；蓝色权重占得多看起来就像黑夜了
如果想调用回正常就是

1. lib.NormalScene(CC.PaletteFile,100,100,100);

复制代码

使用方法：

1.     lib.DarkScene();--三句里的任意一句
   
2.     lib.PicLoadFile(CC.SMAPPicFile[1],CC.SMAPPicFile[2],0);

复制代码

后面那句根据情况定，可能在大地图，可能在场景里。。
上面那句应该就是在场景里
或者可以直接写

1. DarkScene();
   
2. EvenScene();
   
3. LoadCol(RR,GG,BB);

复制代码

==================================================
制作方法，其实方法很简单

首先感谢我的好盆友KG大大提供了调色板的50指令（鼓掌）

我用vb写了一个50指令转C语言的程式，附上源码供大家参观。。（我觉得很丑。。不过开源万岁）

转换后可以在程序目录下的"3.txt"中找到代码
用不来上面软件的可以直接用以下的代码

1. //正常
   
2. int NormalScene(char *PalletteFilename,int RR,int GG,int BB)
   
3. {
   
4.        
   
5.     FILE *fp;
   
6.         char color[3];
   
7.         int p[3],C[3];
   
8.         int i,j,tmp;
   
9. 
   
10.         p[0]=RR;p[1]=GG;p[2]=BB;
    
11.         if(strlen(PalletteFilename)==0)   
    
12.                 return 1;
    
13.         if((fp=fopen(PalletteFilename,"rb"))==NULL){
    
14.         JY_Error("Pallette File not open ---%s",PalletteFilename);
    
15.                 return 1;
    
16.         }
    
17.         for(i=0;i<256;i++)
    
18.         {
    
19.         fread(color,1,3,fp);
    
20.                 for(j=0;j<3;j++){
    
21.                         //tmp=
    
22.                         if(color[j] * 4 * p[j]/100 >= 255)
    
23.                                 C[j]='255';
    
24.                         else
    
25.                                 C[j]=color[j]*4 * p[j]/100;
    
26.                 }
    
27.         m_color32[i]=C[0]*65536l+C[1]*256+C[2] ;
    
28.         }
    
29.         fclose(fp);
    
30.         return 0;
    
31. }

复制代码

原来代码可以这么长啊啊啊 啊啊啊啊。。。。

接下来就是封装api了
封装api似乎是一个很痛苦的过程，不难，但是绝对痛苦
（你必须有源码）

1.将以上代码复制进piccache.c
2.在jymain.h中写上

1. //dark scene BY KG
   
2. int DarkScene();
   
3. //Evening Scene BY KG
   
4. int EveningScene();
   
5. //Normal Scene BY XuChangLong
   
6. int NormalScene(char *PalletteFilename);

复制代码

3.在luafun.h中加入

1. //Ds BY KA
   
2. int HAPI_DarkScene(lua_State *pL);
   
3. //Es BY KA
   
4. int HAPI_EveningScene(lua_State *pL);
   
5. 
   
6. int HAPI_NormalScene(lua_State *pL);

复制代码

4.在luafun.c中加入

1. int HAPI_DarkScene(lua_State *pL)
   
2. {
   
3.         DarkScene();
   
4.         return 0;
   
5. }
   
6. //Es BY KA
   
7. int HAPI_EveningScene(lua_State *pL)
   
8. {
   
9.         EveningScene();
   
10.         return 0;
    
11. }
    
12. 
    
13. int HAPI_NormalScene(lua_State *pL)
    
14. {   
    
15.         char *filename;
    
16.         int RP,BP,GP;
    
17.     if(lua_isnoneornil(pL,1)==0 )
    
18.         filename=(char*)lua_tostring(pL,1);            
    
19.     else
    
20.         filename="\0";
    
21.           RP=(int)lua_tonumber(pL,2);
    
22.         GP=(int)lua_tonumber(pL,3);
    
23.         BP=(int)lua_tonumber(pL,4);
    
24.         NormalScene(filename,RP,GP,BP);
    
25.        
    
26.         return 0;
    
27. }

复制代码

5.在jymain.c中加入

1. //封装api
   
2.           {"DarkScene", HAPI_DarkScene},
   
3.           {"EveningScene", HAPI_EveningScene},
   
4.           {"NormalScene", HAPI_NormalScene},

复制代码

大功告成欧也。。。

1. -----------调色板jymodify中加入
   
2. function DarkScene()
   
3.     lib.DarkScene();
   
4.     if JY.Status==GAME_SMAP then
   
5.        lib.PicLoadFile(CC.SMAPPicFile[1],CC.SMAPPicFile[2],0);
   
6.     elseif JY.Status==GAME_MMAP then
   
7.        lib.PicLoadFile(CC.MMAPPicFile[1],CC.MMAPPicFile[2],0);   
   
8.     elseif JY.Status==GAME_WMAP then
   
9.        lib.PicLoadFile(CC.WMAPPicFile[1],CC.WMAPPicFile[2],0);
   
10.     end
    
11. end   
    
12. 
    
13. function EvenScene()
    
14.     lib.EveningScene();
    
15.     if JY.Status==GAME_SMAP then
    
16.        lib.PicLoadFile(CC.SMAPPicFile[1],CC.SMAPPicFile[2],0);
    
17.     elseif JY.Status==GAME_MMAP then
    
18.        lib.PicLoadFile(CC.MMAPPicFile[1],CC.MMAPPicFile[2],0);   
    
19.     elseif JY.Status==GAME_WMAP then
    
20.        lib.PicLoadFile(CC.WMAPPicFile[1],CC.WMAPPicFile[2],0);
    
21.     end
    
22. end  
    
23. 
    
24. function LoadCol(RR,GG,BB)
    
25.     lib.NormalScene(CC.PaletteFile,RR,GG,BB);
    
26.     if JY.Status==GAME_SMAP then
    
27.        lib.PicLoadFile(CC.SMAPPicFile[1],CC.SMAPPicFile[2],0);
    
28.     elseif JY.Status==GAME_MMAP then
    
29.        lib.PicLoadFile(CC.MMAPPicFile[1],CC.MMAPPicFile[2],0);   
    
30.     elseif JY.Status==GAME_WMAP then
    
31.        lib.PicLoadFile(CC.WMAPPicFile[1],CC.WMAPPicFile[2],0);
    
32.     end
    
33. end  

复制代码

[发帖际遇]: 黄顺坤闯入绝情谷，从裘千尺手中夺取“绝情丹”，转手卖于杨过，得到银两11。

[ 本帖最后由 黄顺坤 于 2010-3-16 12:49 编辑 ]

jy02785317

总算发出来了啊
等了好久

[发帖际遇]: jy02785317在海边沙滩上捡到一支圣火令，当废铜卖了，获得银两2。

KG

我要分　　　　　　　　　　

killer_zingy

难道是KG技术帝写的所以给他加分

weyl

你可以考虑一下每个值都加一上一个固定的值，或者按固定的比例。这样代码就短了。
其实我推测原本的指令就是让色值偏蓝或偏黄。

[发帖际遇]: weyl吃烧饼的时候，发现烧饼里藏着一枚“玄铁令”，转手卖掉后，赚到银两3。

小庞

哇好东西！看来今晚要好好研究才行了。这适合苍龙的吧？

[发帖际遇]: 小庞和阿珂携手外出游玩，路上被韦小宝派人暗算，花费银两12治伤。

jy02785317

可以用这句

1. lib.PicInit(str)

复制代码

str是调色板文件名

只是调色板文件是什么结构 我就不懂了
==========
似乎就是黄大发的
从0-255，按三个字节

[发帖际遇]: jy02785317发现石破天准备用银票擦屁股，赶紧送上两卷草纸，换回一张银票，兑换银两25。

[ 本帖最后由 jy02785317 于 2010-3-15 23:15 编辑 ]

winson7891

不错，加个调色板很好的思路，我都是直接按比例改RGB的~

一大堆计算似乎有点没必要了

这个方法不错~

小庞

复制到Lua对话中吗？但总是退出

[发帖际遇]: 小庞在码头遇到武氏兄弟与神龙教众群殴，闪避不及，中“一阳指”，体力迅速流失，花费银两5购买包子补充体力。

jy02785317

跳出请把debug.txt发上来
不然无法判断
（个人猜测是你没有使用新的主程序，由于新加了api，旧exe无法使用）

小庞

E:\data\JY\SCRIPT\OLDEVENT\jysdllua.exe解压包jysdllua.rar解到这个路径对吧？苍龙lua

[发帖际遇]: 小庞私入铁掌峰禁地，盗取各种珠宝，共贩卖得银两39两。

夏海

学习大作，崇拜中

能否搞成数组：
比如：data[257] = { 巴拉巴拉巴拉 }
for i=0:1:256
m_color32 ＝data

[发帖际遇]: 夏海吃烧饼的时候，发现烧饼里藏着一枚“玄铁令”，转手卖掉后，赚到银两12。

KA

bt的想法似乎不错…等以后有空了改进下……

[发帖际遇]: 黄顺坤协助郭靖守护襄阳多年，得郭靖称赞，增加声望5。

weyl

原帖由 夏海 于 2010-3-16 00:03 发表
学习大作，崇拜中

能否搞成数组：
比如：data[257] = { 巴拉巴拉巴拉 }
for i=0:1:256
m_color32 ＝data

[发帖际遇]: 夏海吃烧饼的时候，发现烧饼里藏着一枚“玄铁令”，转手卖掉后，赚到银两12。

从效率考虑循环的开销比直接运行要大。而且前面也要写一堆的赋值指令。
不过在现代的处理器中，循环的开销基本可以忽略。所以通过计算会简单明了一些。

小庞

jysdllua放到lua5.1应用程序文件夹里然后不知道为什么又出现找不到smpeg.dll求解？（补充下，来自苍龙lua版）

[ 本帖最后由 小庞 于 2010-3-16 07:33 编辑 ]

jy02785317

和原exe同一目录

小庞

H:\\jy\data文件是z游戏运行文件（放到这里提示lua5.1.dll未能启动）。H:\jy\script 就是lua5.1应用文件（放到这里提示smpeg.dll未能启动）？

[发帖际遇]: 小庞在万劫谷和段延庆下棋获胜，得到段正明、黄眉僧奖励银两39两。

jy02785317

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

都说了原exe的目录
你原来的exe目录在那两个文件夹吗？？？？？？？

H:\jy\

[发帖际遇]: jy02785317替小昭千里送信给张无忌，赶到光明顶得到奖励银两22。

小庞

H:\jy\这里是没有任何运行文件的。H:\jy\data应该是这个吧
H:\jy\script 就是lua5.1应该是jysdllua.exe放在的位置吧（不过是出了问题，等下去重下苍龙lua今天早上下不了）

[发帖际遇]: 小庞和郭靖比赛砍树，结果电锯敌不过十八掌，输掉赌资银两33。

夏海

原帖由 weyl 于 2010-3-16 01:13 发表

从效率考虑循环的开销比直接运行要大。而且前面也要写一堆的赋值指令。
不过在现代的处理器中，循环的开销基本可以忽略。所以通过计算会简单明了一些。

明白了，是这样啊，谢谢

[发帖际遇]: 金花婆婆和灭绝师太对战时，被倚天剑削飞的一大块珊瑚金杖，正好砸晕了观战的夏海，卖碎金块换得银两12两的膏药钱去治伤。

KA

原帖由 夏海 于 2010-3-16 12:34 发表


明白了，是这样啊，谢谢

[发帖际遇]: 金花婆婆和灭绝师太对战时，被倚天剑削飞的一大块珊瑚金杖，正好砸晕了观战的夏海，卖碎金块换得银两12两的膏药钱去治伤。

lua处理循环似乎不如直接赋值？

[发帖际遇]: 黄顺坤为救乔峰，聚贤庄大战群侠后身负重伤，花费银两20治伤。

小庞

这个蛮有创意，还有新意的有空多写点！呵呵(但还没弄成功lua版会不会不支持50指令或新编)

[发帖际遇]: 小庞跟踪成昆进入明教密道，结果：奋勇救小昭脱险，得到小昭感谢银两22。

夏海

原帖由 黄顺坤 于 2010-3-16 12:50 发表

lua处理循环似乎不如直接赋值？

[发帖际遇]: 黄顺坤为救乔峰，聚贤庄大战群侠后身负重伤，花费银两20治伤。

明白了，直接赋值可以节约计算时间

[发帖际遇]: 夏海救治何太冲五姑，被何太冲恩将仇报，千辛万苦逃出损失银两26两。

airliukai12

顶顶顶顶顶