Kdef转成lua脚本

蓝烟清

刚写了一个程序，把事件全部转成lua脚本其实事件脚本化是大势所趋，因为脚本可以实现很多编辑器无法达到的功能


这是龙的传人所有的脚本，我大致测试了一下，应该没有太大问题。
对于开发者来说可能会有些用，下载之后覆盖到CEvent目录下就可以了、
http://pan.baidu.com/share/link?shareid=357588&uk=3258208085




如果没有问题，我再把转化的代码发出来给大家，也方便以后的扩展

苍天泰坦

总算是等到了，晚上有空时先试试

慕容老恭

这个给力，可以更有效率的编辑事件了~

alungky

这样事件就统一起来了，也方便修改和扩展

hnc

感谢感谢大感谢~~蓝大超威武%>_<%期待程序，希望快点发出来~~

苍天泰坦

同时显示两个动画的instruct_26函数输出有误，擂鼓山剧情果断跳出，事件600

苍天泰坦

另外，程序在转换事件时能否添加一些简单的注释？不求细致到显示xx增加攻击力多少，只要注释个离队，判断攻击力之类的就成，不然看着也太蛋疼了，老是得对照

二宫和也

啊您老人家太帅了，三跪九叩之

蓝烟清

回复 苍天泰坦 的帖子

非常感谢提供。
等有时间，我把代码注释加进去

KA

convertkdef2.lua

1. 
   
2. --转换fishedit 输出的kdefout.txt为lua函数。
   
3. --对里面的所有事件进行解析。每个事件生成一个函数：名字为 oldevent_238();
   
4. --暂时只处理标准指令，指令函数名字为 instruct_23(xxx);
   
5. labellevel=0;
   
6. 
   
7. --指令解析
   
8. function gen_instruct(k)
   
9.     local i,j=string.find(line[k],"说明：")
   
10.     local note=string.sub(line[k],j+1);
    
11.     local instruct=string.sub(line[k],1,i-1);
    
12.     local data={};
    
13.     local num=0;
    
14.     local start=1;
    
15.     while true do
    
16.         local i,j=string.find(instruct,"[+-]?%d+",start);
    
17.         if i~=nil then
    
18.             data[num]=tonumber(string.sub(instruct,i,j));
    
19.             num=num+1;
    
20.             start=j+1;
    
21.         else
    
22.             break;
    
23.         end
    
24.     end
    
25. 
    
26.     if num>0 then
    
27.         if data[0]==-1 then
    
28.             outp:write("--end\n\n");
    
29.         elseif data[0]==7 then
    
30.             outp:write(string.rep("    ",labellevel),"do return; end\n");
    
31.         else
    
32.             local jump=0;
    
33.             local value="";
    
34.             local i,j=string.find(note,"是则跳转到");
    
35.             if i~=nil then
    
36.                 jump=1;
    
37.                 value="false";
    
38.             end
    
39.             local i,j=string.find(note,"否则跳转到");
    
40.             if i~=nil then
    
41.                 jump=2;
    
42.                 value="true"
    
43.             end
    
44. 
    
45.             if jump==0 then
    
46.                 outp:write(string.rep("    ",labellevel));
    
47.                 fun(data,num);
    
48.                 outp:write(";   --",note,"\n");
    
49.             else
    
50.                 outp:write("\n",string.rep("    ",labellevel));
    
51.                 outp:write("if ");
    
52.                 fun(data,num);
    
53.                 outp:write(" ==",value," then ");
    
54.                 labellevel=labellevel+1;
    
55.                 outp:write("   --",note,"\n");
    
56.         end
    
57. 
    
58.         end
    
59. 
    
60.     else
    
61.         labellevel=labellevel-1;
    
62.         outp:write(string.rep("    ",labellevel),"end    --",note,"\n\n");
    
63.     end
    
64. 
    
65. end
    
66. 
    
67. function fun(data,num)
    
68.     outp:write(string.format("instruct_%d(",data[0]));
    
69.     if num>1 then
    
70.         outp:write(string.format("%d",data[1]));
    
71.         for i=2,num-1 do
    
72.             outp:write(string.format(",%d",data[i]));
    
73.         end
    
74.     end
    
75.     outp:write(string.format(")",data[1]));
    
76. end
    
77. 
    
78. 
    
79. 
    
80.     inp=io.open("kdefout.txt","r");
    
81. 
    
82.     print("start");
    
83.     line={};
    
84.     local n=0;
    
85.     while true do
    
86.         local s=inp:read("*l");
    
87.         if s==nil then
    
88.             break;
    
89.         end
    
90.         if #s>0 then
    
91.             line[n]=s;
    
92.             n=n+1;
    
93.         end
    
94.     end
    
95.     inp:close();
    
96. 
    
97.     outp=io.open("kdefnew.lua","w");
    
98.     for k=0,n-1 do
    
99.         local i,j=string.find(line[k],"事件[+-]?%d+");
    
100.         if i==1 then          --第一个位置
     
101.             local i,j=string.find(line[k],"[+-]?%d+");      --匹配数字
     
102.                         outp:close();
     
103.             outp=io.open(string.format("oldevent\\oldevent_%d.lua",tonumber(string.sub(line[k],i,j))),"w");
     
104.             outp:write(string.format("--function oldevent_%d()\n",tonumber(string.sub(line[k],i,j))));
     
105.             labellevel=1;
     
106.         else
     
107.             gen_instruct(k);
     
108.         end
     
109.     end
     
110. 
     
111.     outp:close();
     
112. 
     
113. 
     
114.     inp=io.open("talk.txt","r");
     
115.     outp=io.open("oldtalk.grp","w");
     
116.     local s=inp:read("*l");
     
117.     while true do
     
118.         local s=inp:read("*l");
     
119.         if s==nil then
     
120.             break;
     
121.         end
     
122.         if #s>0 then
     
123.             local i,j=string.find(s,"[+-]?%d+");      --匹配数字
     
124.             local id=tonumber(string.sub(s,i,j))
     
125.             i,j=string.find(s,'"%x+",',j+1);        --匹配带引号的数字
     
126.             i,j=string.find(s,'".*"',j+1);          --匹配最后的字符串
     
127.             local talk=string.sub(s,i+1,j-1)
     
128.                         local newtalk=string.gsub(talk,'""','"');           --把字符串中的""替换成"
     
129.             outp:write(string.format('%s\n',newtalk));
     
130.         end
     
131.     end
     
132.     inp:close();
     
133.     outp:close();
     

复制代码

调用方法

1. 
   
2. luac5.1 -o convertkdef2.lua
   

复制代码

可能需要过一遍sfe，改下应该就能运行

蓝烟清

回复 KA 的帖子

我没有用lua，我纯C语言写的导出。。。。
这样不需要借助其它工具

蓝烟清

回复 苍天泰坦 的帖子

改好了，修复了一些指令的错误。。。
还有加了注释，因为没有读R数据，所以没有具体的物品或者人物名称数据

hnc

求助，请问
luac5.1 -o convertkdef2.lua
是添加在哪个文件里啊

苍天泰坦

回复 蓝烟清 的帖子

蓝大威武，晚上接着测试

zengMF

这个好，赞一个。。

能否转50指令的Kdef文件？如再战江湖这些用很多50指令的kdef文件？？

如果能直接转，当然好，鱼大的LUA代码要先导出txt文本，经常因为文本格式问题出错。而且也不支持50指令的导出。。

蓝烟清

回复 hnc 的帖子

必须先用FE工具，导出对话文件和事件文件，然后才可以用那个lua来执行

蓝烟清

回复 zengMF 的帖子

50指令。。。没得去研究。。
现在都在弄复刻版了

最好还是找KA， 大凯阿

hnc

果然还是使用了笨办法，先把事件文件和对话文件扔到复刻原版上再用SFE导出来...话说有没有办法把 instruct_1 直接替换成蓝大CEVENT文件夹里的talkex形式啊，新用UPEDIT添加的对话用LUA格式在游戏里显示的是乱码的说~~好像是因为oldtalk和现在用的talk文件有差异导致的...

StarShine

啊，发现蓝巨又做了新的东东？有两个小问题
1. 这个和鱼神之前那个转换程序主要有啥不同？
2. 很多MOD（苍龙等）的不是都有全事件的lua文件了吗，这个主要是给其他没转换过的Kdef用的？
资质鲁钝的人诚心请教  

蓝烟清

回复 StarShine 的帖子

之前的转换有几个问题， 必须要先下FE工具，把事件和对话导出，然后才能转换这样就必须借助FE工具，而且FE工具导出来的对话会是乱码

另外FE工具导出来的都是instruct的函数，没有个性化的函数设置。

之前的MOD大部分都是用kdef，小部分是用全局变量实现