50指令新对话lua版

KA

由于lua版本中50指令对话的效率实在是太低了（- -）,于是本人写了一个lua的新对话指令，用法与50指令对话相同
效果图在此

代码

1. 
   
2. function talk50(id1,id2,id3,id4)
   
3. 
   
4.         local namex,namey,headx,heady,talkx,talky;
   
5.         local talkwidth,talkheight;
   
6.         local txtnum,txtline;
   
7.         local talkaddr,headop,talkcolor;
   
8. 
   
9.         local s=ReadTALK(id2);
   
10.         local startup=1;local endup=string.len(s);       
    
11.         talkcolor=math.modf(id4/100);
    
12.         headop=(id4%100)/10;
    
13.         talkaddr=id4%10;
    
14.         local fontsize=18;
    
15.         local color;
    
16.         local color0=28515;
    
17.         local color1=28421;
    
18.         local color2=28435;
    
19.         local color3=28563;
    
20.         local color4=28466;
    
21.         local color5=28450;
    
22.        
    
23.         if talkcolor==0 then
    
24.                 color=ReadCol(color0%256);
    
25.         elseif talkcolor==1 then
    
26.                 color=ReadCol(color1%256);
    
27.         elseif talkcolor==2 then
    
28.                 color=ReadCol(color2%256);
    
29.         elseif talkcolor==3 then
    
30.                 color=ReadCol(color3%256);
    
31.         elseif talkcolor==4 then
    
32.                 color=ReadCol(color4%256);
    
33.         elseif talkcolor==5 then
    
34.                 color=ReadCol(color5%256);
    
35.         end
    
36. --const x,y with config Type
    
37.         while startup<endup do
    
38.                 Cls();
    
39.                 if CONFIG.Type==0 then
    
40.                         namex=81;namey=139;
    
41.                         talkwidth=224;talkheight=64;
    
42.                         talkx=81;talky=164;
    
43.                         headx=16;heady=166;
    
44.                         txtnum=13;txtline=3;
    
45.                         if talkaddr==1 then
    
46.                                 namex=158;
    
47.                                 talkx=16;headx=248;
    
48.                         end
    
49.                 else
    
50.                         namex=167;namey=340
    
51.                         talkwidth=438;talkheight=96;
    
52.                         talkx=105;talky=372;
    
53.                         headx=105;heady=306;
    
54.                         txtnum=25;txtline=5;               
    
55.                         if talkaddr==1 then
    
56.                                 namex=398;
    
57.                                 headx=483;
    
58.                         end
    
59.                 end
    
60.        
    
61. 
    
62.        
    
63.                 if headop==0 or id3~=0 then
    
64.                         DrawBox(headx,heady,headx+60,heady+62,C_WHITE);
    
65.                         lib.PicLoadCache(1,id1*2,headx+2,heady+59);
    
66.        
    
67.                         local strname;
    
68.                         if id3==-2 then
    
69.                                 strname=JY.Person[id1]['姓名'];
    
70.                         elseif id3==0 then
    
71.                                 strname="";
    
72.                         else
    
73.                                 strname=ReadTALK(id3);
    
74.                         end
    
75.         --local strname=READTALK(id3);
    
76.                         local strlong=string.len(strname);
    
77.                         DrawBox(namex,namey,namex+82,namey+28,C_WHITE);
    
78.                         DrawString(namex+44-(strlong*4.5),namey+5,strname,C_WHITE,fontsize);
    
79.                 end
    
80. 
    
81.                 local sx=0;local sy=0;
    
82.                 local talkstr="";
    
83.                 DrawBox(talkx,talky,talkx+talkwidth,talky+talkheight,C_WHITE);
    
84.        
    
85.                 while sy < txtline do
    
86.                         while sx < txtnum-1 do
    
87.                                 --lib.Debug("sx="..sx..",sy="..sy);
    
88.                                 talkstr=string.sub(s,startup,startup+1);
    
89.                                 if string.byte(talkstr,1) == 42 then
    
90.                                         --lib.Debug(string.byte(talkstr,1) );
    
91.                                         if string.byte(talkstr,2)==42 then --**
    
92.                                                 sy=sy+1;
    
93.                                                 sx=0;
    
94.                                         else
    
95.                                                 startup=startup-1;
    
96.                                         end
    
97.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==48  then --^0
    
98.                                         color=color0;
    
99.                                         color=ReadCol(color%256);
    
100.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==49 then --^1
     
101.                                         color=color1;
     
102.                                         color=ReadCol(color%256);
     
103.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==50  then --^2
     
104.                                         color=color2;
     
105.                                         color=ReadCol(color%256);
     
106.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==51  then
     
107.                                         color=color3;
     
108.                                         color=ReadCol(color%256);
     
109.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==52  then
     
110.                                         color=color4;
     
111.                                         color=ReadCol(color%256);
     
112.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==53  then
     
113.                                         color=color5;
     
114.                                         color=ReadCol(color%256);
     
115.                                 elseif string.byte(talkstr,1)==38 and string.byte(talkstr,2)==38  then --&&
     
116.                                         local tmpname=JY.Person[0]['姓名'];
     
117.                                         DrawString(talkx+5+sx*fontsize,talky+5+sy*fontsize,tmpname,color,fontsize);
     
118.                                         sx=sx+string.len(tmpname)/2;
     
119.                                 elseif string.byte(talkstr,1)==64 and string.byte(talkstr,2)==64  then --@@
     
120.                                         ShowScreen();
     
121.                                         WaitKey();
     
122.                                 elseif string.byte(talkstr,1)==94 and string.byte(talkstr,2)==94  then --^^
     
123.                                                 if talkcolor==0 then
     
124.                                                         color=ReadCol(color0%256);
     
125.                                                 elseif talkcolor==1 then
     
126.                                                         color=ReadCol(color1%256);
     
127.                                                 elseif talkcolor==2 then
     
128.                                                         color=ReadCol(color2%256);
     
129.                                                 elseif talkcolor==3 then
     
130.                                                         color=ReadCol(color3%256);
     
131.                                                 elseif talkcolor==4 then
     
132.                                                         color=ReadCol(color4%256);
     
133.                                                 elseif talkcolor==5 then
     
134.                                                         color=ReadCol(color5%256);
     
135.                                                 end
     
136.                                 else               
     
137.                                         DrawString(talkx+5+sx*fontsize,talky+5+sy*fontsize,talkstr,color,fontsize);
     
138.                                         sx=sx+1;
     
139.                                 end       
     
140.                                 startup=startup+2;
     
141.                         end
     
142.                         sy=sy+1;
     
143.                         sx=0;
     
144.                 end
     
145. 
     
146.                 ShowScreen();
     
147.                 WaitKey();
     
148.         end
     
149. end
     

复制代码

1. 
   
2. --其余用到的函数
   
3. function ReadCol(id)
   
4.         local r,g,b,col;
   
5.         col=Byte.create(4);
   
6.         Byte.loadfile(col,CONFIG.DataPath..'mmap.col',id*3,3);
   
7.         b,g,r=GetRGB(Byte.get32(col,0));
   
8.         return RGB(r*4,g*4,b*4);
   
9. end
   
10. 
    
11. function ReadTALK(id,flag)
    
12.         local tidx=Byte.create(id*4+4)
    
13.         Byte.loadfile(tidx,CC.TDX,0,id*4+4)
    
14.         local idx1,idx2
    
15.         if id<1 then
    
16.                 idx1=0
    
17.         else
    
18.                 idx1=Byte.get32(tidx,(id-1)*4)
    
19.         end
    
20.         idx2=Byte.get32(tidx,id*4)
    
21.         local len=idx2-idx1
    
22.         local talk=Byte.create(len)
    
23.         Byte.loadfile(talk,CC.TRP,idx1,len)
    
24.         local str=''
    
25.         --str=Byte.getstr(talk,0,len)
    
26.        
    
27.         for i=0,len-2 do
    
28.                 local byte=Byte.getu16(talk,i)
    
29.                 byte=255-math.fmod(byte,256)
    
30.                 --Byte.setu16(talk,i,byte)
    
31.                 str=str..string.char(byte)
    
32.         end
    
33.         --str=lib.CharSet(Byte.getstr(talk,0,len),0)
    
34.         --lib.Debug(string.format('id=%d,idx1=%d,idx2=%d,len=%d,str=%s',id,idx1,idx2,len,str))
    
35.         if flag==nil then
    
36.                 str=lib.CharSet(str,0)
    
37.                 str=GenTalkString(str,12);
    
38.         end
    
39.         return str;
    
40. end
    
41. 
    

复制代码

谢谢大家，谢谢

killer_zingy

能不能做到KG新对话指令的全部效果?

KA

能不能做到KG新对话指令的全部效果?
killer_zingy 发表于 2010-5-24 09:03

能

jy02785317

再把readtalk和readcol发上来吧

水镜四奇

笑梦也能LUA了吗