复刻版的脚本指令

weyl

需要修改源码的部分：

kys_event.pas：实现部分的uses添加kys_script；增添50 60指令的解释。

1. 
   
2.      60: //Call scripts.
   
3.       begin
   
4.         e2 := e_getvalue(0, e1, e2);
   
5.         e3 := e_getvalue(1, e1, e3);
   
6.         execscript(pchar(inttostr(e2) + '.lua'), pchar('f' + inttostr(e3)));
   
7.       end;
   

复制代码

kys_main.pas：接口部分的uses删除原来的脚本系统，增添lua，在run增加脚本初始化和释放，在quit增加脚本释放。
在CommonScrollMenu最前添加：

1. 
   
2.   if max + 1 < maxshow then
   
3.     maxshow := max + 1;
   

复制代码

举例：
读取所有物品并制成菜单：

1. 
   
2. function f2()
   
3.   s = {};
   
4.   n = 0;
   
5.   for i=0,199 do
   
6.     x, y = getitemlist(i);        
   
7.         if y <= 0 then
   
8.           break;
   
9.         end;
   
10.         --showstring(100,100,"sdfdss");
    
11.         n = n + 1;
    
12.         s[i+1] = string.format("%s%5d", getnameasstring(1, x), y);
    
13.   end;
    
14.   a = menu(n, 100, 100, 170, s);
    
15. end
    

复制代码

1.   talk(16, 1, "下面你可以在5秒鐘之內移動鼠標，將會即時顯示鼠標的位置。*如果想中間退出的話，按任意的鍵即可。");
   
2.   t = gettime();
   
3.   clearbutton();
   
4.   while gettime() - t <= 5 do
   
5.    x, y = getmouseposition();
   
6.    clear();   
   
7.    showstring(100, 70, x..", "..y);
   
8.     if checkbutton() > 0 then
   
9.       pause();
   
10.       break;
    
11.     end;  
    
12.   end;
    
13.   clearbutton();
    
14.   talk(17, 5, "演示完畢，給錢。");

复制代码

常相伴

怎么用啊？下了看不懂，只是个表格！

阿僧祇

想看看，但又没钱了

syydbc

没有钱了，下载不了~~~~~~