事件编辑实例详解（一）

tsmdsyp

通过昨天公布的事件调用函数，懂点LUA语法的就能明白
新函数在调用事件时，会先检测
OEVENTLUA 这个表中的事件编号的对应值是否为空
如果为空，就还是从原来的KDEF文件中调用事件
如果对应值不为空，那么就从 OEVENTLUA 这个表中来调用新定义的事件
所认，无论是要改写原有的事件还是新增事件
只需在 OEVENTLUA 此表中定义即可

关于表的概念，请大家自行在网上查找一些LUA的教程学习一下
这个对编程至关重要，一定要了解表的结构和做到能熟练运用表

下面以一个修改游戏中的原有事件的内容来举例：

这个事件就是原事件编号为1082的事件
也就是在山洞李沅芷加入的剧情事件
先将此事件原定义内容代码列出：

   

1. 
   
2. instruct_1(3998,92,0);   --  1(1):[???]说: 哎呀，你怎么才来呀？
   
3.     instruct_0();   --  0(0)::空语句(清屏)
   
4.     instruct_1(3999,0,1);   --  1(1):[AAA]说: 你是谁呀？
   
5.     instruct_0();   --  0(0)::空语句(清屏)
   
6.     instruct_1(4000,92,0);   --  1(1):[???]说: 我就是李沅芷呀！
   
7.     instruct_0();   --  0(0)::空语句(清屏)
   
8.     instruct_1(4001,0,1);   --  1(1):[AAA]说: 你在这里做什么？
   
9.     instruct_0();   --  0(0)::空语句(清屏)
   
10.     instruct_1(4003,92,0);   --  1(1):[???]说: 当然是等着你来加我啦！*你现在正在进行是苍龙逐日*1.2版，作者小小猪迫于*某些人的压力，才让我出场*的。我的任务就是做你的保*镖，帮你通关！
    
11.     instruct_0();   --  0(0)::空语句(清屏)
    
12.     instruct_1(4004,0,1);   --  1(1):[AAA]说: 你到底在说什么啊？*我完全听不懂……
    
13.     instruct_0();   --  0(0)::空语句(清屏)
    
14.     instruct_1(4005,92,0);   --  1(1):[???]说: 你不用听懂，我就问你一句*话，你要老老实实的回答我*！
    
15.     instruct_0();   --  0(0)::空语句(清屏)
    
16.     instruct_1(4006,0,1);   --  1(1):[AAA]说: 哦，你问吧。
    
17.     instruct_0();   --  0(0)::空语句(清屏)
    
18.     instruct_1(4007,92,0);   --  1(1):[???]说: 你想不想让我加入你的队伍*？
    
19.     instruct_0();   --  0(0)::空语句(清屏)
    
20.     if instruct_9(57,0) ==false then    --  9(9):是否要求加入?是则跳转到:Label0
    
21.         instruct_0();   --  0(0)::空语句(清屏)
    
22.         instruct_1(4008,92,0);   --  1(1):[???]说: 什么？你……你……我再给*你一次机会好了，你想不想*让我加入？
    
23.         instruct_0();   --  0(0)::空语句(清屏)
    
24.         if instruct_9(48,0) ==false then    --  9(9):是否要求加入?是则跳转到:Label1
    
25.             instruct_0();   --  0(0)::空语句(清屏)
    
26.             instruct_1(150,92,0);   --  1(1):[???]说: …………
    
27.             instruct_0();   --  0(0)::空语句(清屏)
    
28.             instruct_1(150,0,1);   --  1(1):[AAA]说: …………
    
29.             instruct_0();   --  0(0)::空语句(清屏)
    
30.             instruct_1(4009,92,0);   --  1(1):[???]说: 伤自尊了……*我走了……再见……*再也不想见到你啦！！！
    
31.             instruct_0();   --  0(0)::空语句(清屏)
    
32.             instruct_14();   --  14(E):场景变黑
    
33.             instruct_3(-2,-2,0,0,0,0,0,0,0,0,-2,-2,-2);   --  3(3):修改事件定义:当前场景:当前场景事件编号
    
34.             instruct_3(104,90,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:场景[钓鱼岛]:场景事件编号 [90]
    
35.             instruct_0();   --  0(0)::空语句(清屏)
    
36.             instruct_13();   --  13(D):重新显示场景
    
37.             do return; end
    
38.         end    --:Label1
    
39.     end    --:Label0
    
40.     instruct_1(4011,92,0);   --  1(1):[???]说: 哦，那就好，你等一下啊。**喂——你们可以出来了！
    
41.     instruct_0();   --  0(0)::空语句(清屏)
    
42.     instruct_1(4012,0,1);   --  1(1):[AAA]说: ？？？？
    
43.     instruct_0();   --  0(0)::空语句(清屏)
    
44.     instruct_14();   --  14(E):场景变黑
    
45.     instruct_3(-2,4,0,0,0,0,0,6776,6776,6776,-2,-2,-2);   --  3(3):修改事件定义:当前场景:场景事件编号 [4]
    
46.     instruct_3(-2,5,0,0,0,0,0,6778,6778,6778,-2,-2,-2);   --  3(3):修改事件定义:当前场景:场景事件编号 [5]
    
47.     instruct_0();   --  0(0)::空语句(清屏)
    
48.     instruct_13();   --  13(D):重新显示场景
    
49.     instruct_1(4013,208,0);   --  1(1):[???]说: 臭丫头，我看你往哪跑！
    
50.     instruct_0();   --  0(0)::空语句(清屏)
    
51.     instruct_1(4014,92,0);   --  1(1):[???]说: 喂，你还愣着干什么？赶快*来英雄救美啊！
    
52.     instruct_0();   --  0(0)::空语句(清屏)
    
53.     instruct_1(4015,0,1);   --  1(1):[AAA]说: 哦……
    
54.     instruct_0();   --  0(0)::空语句(清屏)
    
55.     if instruct_6(226,4,0,0) ==false then    --  6(6):战斗[226]是则跳转到:Label2
    
56.         instruct_15(0);   --  15(F):战斗失败，死亡
    
57.         do return; end
    
58.         instruct_0();   --  0(0)::空语句(清屏)
    
59.     end    --:Label2
    
60.     instruct_3(-2,4,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [4]
    
61.     instruct_3(-2,5,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [5]
    
62.     instruct_0();   --  0(0)::空语句(清屏)
    
63.     instruct_13();   --  13(D):重新显示场景
    
64.     instruct_1(4016,92,0);   --  1(1):[???]说: 小子，还不赖嘛！*我跟定你了！
    
65.     instruct_0();   --  0(0)::空语句(清屏)
    
66.     instruct_1(4017,248,1);   --  1(1):[???]说: 啊……这个……谢谢夸奖啊*……
    
67.     instruct_0();   --  0(0)::空语句(清屏)
    
68.     if instruct_20(20,0) ==false then    --  20(14):队伍是否满？是则跳转到:Label3
    
69.         instruct_14();   --  14(E):场景变黑
    
70.         instruct_3(-2,-2,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:当前场景事件编号
    
71.         instruct_0();   --  0(0)::空语句(清屏)
    
72.         instruct_13();   --  13(D):重新显示场景
    
73.         instruct_10(92);   --  10(A):加入人物[李沅芷]
    
74.         do return; end
    
75.     end    --:Label3
    
76.     instruct_1(12,92,0);   --  1(1):[???]说: 你的队伍已满，我就直接去*小村吧。
    
77.     instruct_0();   --  0(0)::空语句(清屏)
    
78.     instruct_14();   --  14(E):场景变黑
    
79.     instruct_3(-2,-2,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:当前场景事件编号
    
80.     instruct_3(70,1,1,0,199,0,0,7266,7266,7266,-2,-2,-2);   --  3(3):修改事件定义:场景[小村]:场景事件编号 [1]
    
81.     instruct_0();   --  0(0)::空语句(清屏)
    
82.     instruct_13();   --  13(D):重新显示场景
    
83. 
    
84. 
    

复制代码

现在我想做的，就是让这个事件加入的人物随机变成
赵敏，周芷若，陆无双，郭襄这四人中的一人
并且重新设定人物的相关参数
那么就在原事件中去掉一些原来相关的对话和战斗
再加入新的代码
因为此事件编号为1082
那么我们就这样来写新的事件定义

1. OEVENTLUA[1082]=function() --4MM
   
2. local r;
   
3. if JY.Thing[202][WZ7]==1 then
   
4. r=math.random(2)
   
5. else
   
6. r=math.random(4)
   
7. end
   
8. local bdnl={"姓名", "头像代号", "生命最大值", "内力最大值",
   
9. "内力性质", "攻击力", "轻功","防御力",
   
10. "拳掌功夫", "御剑能力", "耍刀技巧", "特殊兵器",
    
11. "资质","武功1" }
    
12. local mm4={};
    
13. mm4[1]={"周芷若",301,350,600,0,60,50,50,30,30,0,0,71,41};
    
14. mm4[2]={"赵敏",302,270,500,1,70,40,50,0,40,0,0,78,37};
    
15. mm4[3]={"郭襄",303,200,500,2,40,40,40,20,20,20,20,73,12};
    
16. mm4[4]={"陆无双",304,400,700,0,70,40,60,0,0,40,0,64,54};
    
17. 
    
18. for i=1,14 do
    
19. JY.Person[92][bdnl[i]]=mm4[r][i]
    
20. end
    
21. 
    
22. JY.Person[92]["等级"]=10
    
23. 
    
24. for i=1,5 do
    
25. JY.Person[92]["出招动画帧数"..i]=0
    
26. JY.Person[92]["出招动画延迟"..i]=0
    
27. JY.Person[92]["武功音效延迟"..i]=0
    
28. end
    
29. 
    
30. local avi={ {14,6,7},{8,3,4},{0,0,0},{7,4,5}, }
    
31. 
    
32. JY.Person[92]["出招动画帧数1"]=avi[r][1]
    
33. JY.Person[92]["出招动画延迟1"]=avi[r][3]
    
34. JY.Person[92]["武功音效延迟1"]=avi[r][2]
    
35. 
    
36. if r==3 then
    
37. local s={ {0,0,0},{9,2,3},{8,3,4},{8,3,4},{9,5,6}, }
    
38. for i=1,5 do
    
39. JY.Person[92]["出招动画帧数"..i]=s[i][1]
    
40. JY.Person[92]["出招动画延迟"..i]=s[i][3]
    
41. JY.Person[92]["武功音效延迟"..i]=s[i][2]
    
42. end
    
43. end
    
44. 
    
45. say(CC.EVB205,JY.Person[92]["头像代号"],0,"???")
    
46. 
    
47. if instruct_9(57,0) ==false then -- 9(9):是否要求加入?是则跳转到:Label0
    
48. instruct_3(-2,-2,0,0,0,0,0,0,0,0,-2,-2,-2);
    
49. say(CC.EVB206,JY.Person[92]["头像代号"],0,"???")
    
50. return;
    
51. end --:Label0
    
52. 
    
53. if instruct_20(20,0) ==false then -- 20(14):队伍是否满？是则跳转到:Label3
    
54. instruct_14(); -- 14(E):场景变黑
    
55. instruct_3(-2,-2,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:当前场景事件编号
    
56. instruct_0(); -- 0(0)::空语句(清屏)
    
57. instruct_13(); -- 13(D):重新显示场景
    
58. instruct_10(92); -- 10(A):加入人物[李沅芷]
    
59. do return; end
    
60. end --:Label3
    
61. 
    
62. instruct_0(); -- 0(0)::空语句(清屏)
    
63. instruct_14(); -- 14(E):场景变黑
    
64. instruct_3(-2,-2,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:当前场景事件编号
    
65. instruct_3(70,1,1,0,199,0,0,7266,7266,7266,-2,-2,-2); -- 3(3):修改事件定义:场景[小村]:场景事件编号 [1]
    
66. instruct_0(); -- 0(0)::空语句(清屏)
    
67. instruct_13(); -- 13(D):重新显示场景
    
68. end

复制代码

好了，这样就完成了
此时 OEVENTLUA[1082] 的值已经是一个函数，不再为空
那么在执行事件调用时会优先执行这个函数的内容
而不再调用原来的事件

大家可以将此函数复制到DIY文件中
按你的想法来添加内容，再去执行这个事件看看效果吧

这次就讲这么多
下次继续以此事件引起的其他一些小问题
如：离队时主角总是说李姑娘，人物入队时的头像显示不对 等
就这些问题的解决方法来继续讨论事件的制作

zt3355

totally can't understand
一直有个问题 S大怎么玩自己做的游戏啊

羊爱上狼

顶Sd，从零开始学习

iamjames

嗯，这样容易了解多了。我晚一点去换一个剧情看看。

csb01421

莫名感动，流眼泪中！！

枫飘零

虽然看不懂 一直在期待

1412

多谢s大！
好像有些看懂了
下回去试一试。。。

xzqcm111

过来支持一下 呵呵

untruth

如果要在随机加入的4个人基础上，设置每个人的特色，比方周芷若跟张无忌一起去武当三会洗太奥，郭襄可以修炼独孤九剑此类的，难不难实现？

tsmdsyp

untruth 发表于 2011-9-11 09:19
如果要在随机加入的4个人基础上，设置每个人的特色，比方周芷若跟张无忌一起去武当三会洗太奥，郭襄可以修炼 ...

非常简单

比如原来的315号事件
就是张无忌见张三丰的那个剧情
本来这个事件中只会得到倚天屠龙功
我对这个事件做了点修改，让小张可以洗太极拳，剑
现在我把这个事件的代码给你，你可以在此基础上试着做做如果带上周芷若的话
就和张无忌同时习得太极拳，剑的情节

1. OEVENTLUA[315]=function() --老小张
   
2.     if instruct_16(9,2,0) ==false then    --  16(10):队伍是否有[张无忌]是则跳转到:Label0
   
3.         do return; end
   
4.         instruct_0();   --  0(0)::空语句(清屏)
   
5.     end    --:Label0
   
6. 
   
7.     instruct_37(1);   --  37(25):增加道德1
   
8.     instruct_1(1111,9,1);   --  1(1):[张无忌]说: 太师父，太师父，*无忌回来看你了。
   
9.     instruct_0();   --  0(0)::空语句(清屏)
   
10.     instruct_1(1112,5,0);   --  1(1):[张三丰]说: 无忌，真的是你。好孩子，*你没有死，翠山可有後了。*是蝶谷医仙将你医好的吗？
    
11.     instruct_0();   --  0(0)::空语句(清屏)
    
12.     instruct_1(1113,9,1);   --  1(1):[张无忌]说: 不是的。我是有了一番奇遇*。。。。如此如此。。。。*这般这般。。。*後来修习了九阳神功，*才将我身上的寒毒化去。
    
13.     instruct_0();   --  0(0)::空语句(清屏)
    
14.     instruct_1(1114,5,0);   --  1(1):[张三丰]说: 很好，很好，真难为你了。*现在你已经做了明教的教主*，记得要约束教众，不可为*非作歹。*记得常存侠义之心，*才是我辈中人。
    
15.     instruct_0();   --  0(0)::空语句(清屏)
    
16.     instruct_1(1115,9,1);   --  1(1):[张无忌]说: 太师父教诲，无忌谨记在心*。。。。
    
17.     instruct_0();   --  0(0)::空语句(清屏)
    
18.     instruct_1(1124,5,0);   --  1(1):[张三丰]说: 这是当年我传授你爹的一套*武功，如今就传给你吧。
    
19.     instruct_0();   --  0(0)::空语句(清屏)
    
20.     instruct_2(169,1);   --  2(2):得到物品[倚天屠龙功][1]
    
21.     instruct_0();   --  0(0)::空语句(清屏)
    
22.         say(CC.EVB91,5)
    
23.         instruct_14()
    
24.         instruct_13()
    
25.     local tjq=0;
    
26.     for a=1,10 do
    
27.          if JY.Person[9]["武功"..a]==16 then
    
28.                     tjq=1
    
29.                         break;
    
30.              end
    
31.     end
    
32.         if tjq==0 then JY.Person[9]["武功2"]=16 end        
    
33.         JY.Person[9]["武功等级2"]=50
    
34.         for a=1,10 do
    
35.              if JY.Person[9]["武功"..a]==0 then
    
36.                     JY.Person[9]["武功"..a]=46
    
37.                         JY.Person[9]["武功等级"..a]=50
    
38.                         break;
    
39.              end
    
40.         end
    
41.     instruct_1(1125,9,0);   --  1(1):[张无忌]说: 多谢太师父
    
42.     instruct_0();   --  0(0)::空语句(清屏)
    
43.     instruct_1(1116,5,0);   --  1(1):[张三丰]说: 呵呵呵，翠山有后了，翠山*有后了……
    
44.     instruct_0();   --  0(0)::空语句(清屏)
    
45.     instruct_3(-2,5,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [5]
    
46.     instruct_3(-2,10,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [10]
    
47.     instruct_3(-2,9,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [9]
    
48.     instruct_3(-2,8,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [8]
    
49.     instruct_3(-2,7,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [7]
    
50.     instruct_3(-2,6,0,0,0,0,0,0,0,0,0,0,0);   --  3(3):修改事件定义:当前场景:场景事件编号 [6]
    
51.     instruct_0();   --  0(0)::空语句(清屏)
    
52. end
    

复制代码

至于郭襄可练九剑，那就更简单了
只需要在判定秘籍是否能修炼的函数中加一句代码即可
此函数以后也会公布的

ksws0323113

授人以鱼不如授人以渔，多谢S大。学习中·········

StarShine

发现事件修改是我弱项
好帖，支持~

wklee3

感謝S大開放了diy, 早兩天在达摩堂溜漣, 發現苍半源码, 如獲至寶

剛找到 function War_Fight_Sub, 想实現一下心中的設想, 可發覺這 function 太大了, 把俢改後的War_Fight_Sub放入diy後, 很多苍炎中才加入的功能便消失了

請問, 現時能否在使用苍半(俢改後)的War_Fight_Sub同時, 又不失去苍炎加入的功能?

例如我已改了己方的左右率, 如何可保留苍炎的左右模式, 而不是苍半的連擊模式

fivecotton

哎，工作中用的都是标准C或汇编写底层功能，没有接触过LUA呀。

S大能推荐本手册类（详细的指令和函数库介绍）的LUA书么？

tsmdsyp

wklee3 发表于 2011-9-11 21:38
感謝S大開放了diy, 早兩天在达摩堂溜漣, 發現苍半源码, 如獲至寶

剛找到 function War_Fight_Sub, 想实現 ...

War_Fight_Sub
这个函数可谓是苍炎的重头戏之一了
连带此函数中调用的其它一些函数
太多东西都是在这里面定义的了
整体规模比原来扩大了数倍
你直接用原苍半的函数在DIY中来覆盖
那么新定义的内容自然就没有了

tsmdsyp

fivecotton 发表于 2011-9-11 23:16
哎，工作中用的都是标准C或汇编写底层功能，没有接触过LUA呀。

S大能推荐本手册类（详细的指令和函数库介 ...

百度一下就行了
网上有很多LUA方面的教材
随便找一本来看看就行了
我当初也就是随意找了个网站去看的
现在都忘了那网站叫什么了
做游戏也不需要用到太多的相关知识

十二无敌

看了贴后，顿时七窍通了六窍，还是一窍不通，但还是顶一下。

羊爱上狼

首先谢谢sd，就像你说的1082事件

【好了，这样就完成了
此时 OEVENTLUA[1082] 的值已经是一个函数，不再为空
那么在执行事件调用时会优先执行这个函数的内容
而不再调用原来的事件】

比如胡斐的事件，怎么才能不调用原来的事件。怎么我才能用diy自己修改胡斐剧情。

tsmdsyp

回复 羊爱上狼 的帖子

哦，原来你是这个意思啊

你只需要找到你想改变事件的编号
然后照着例子重新定义就行了

关于原苍龙事件的编号
陈建北和夏天曾经发过一篇帖子整理过的

羊爱上狼

谢谢···················