【小教程】周芷若武当洗武功事件。两种洗法供新人参考（源码注释版）

StarShine · 发表于 2011-9-12 17:32

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

本帖最后由 StarShine 于 2011-10-14 17:48 编辑

添加周芷若洗武功事件，条件和张无忌相同。

直接放出源码，给想学习MOD又不知如何下手的新人参考。

没空学的当然也可直接使用。先清空DIY，再复制代码执行即可。

QZXS("带无忌到武当传功事件，触发条件不变")
QZXS("增加周芷若洗武功的条件：需空2格武功")
QZXS("补丁制作by Star，祝游戏愉快")
OEVENTLUA[315]=function() --老小张
if instruct_16(9,2,0) ==false then -- 16(10):队伍是否有[张无忌]是则跳转到:Label0
do return; end
instruct_0(); -- 0(0)::空语句(清屏)
end --:Label0
instruct_37(1); -- 37(25):增加道德1
instruct_1(1111,9,1); -- 1(1):[张无忌]说: 太师父，太师父，*无忌回来看你了。
instruct_0(); -- 0(0)::空语句(清屏)
instruct_1(1112,5,0); -- 1(1):[张三丰]说: 无忌，真的是你。好孩子，*你没有死，翠山可有後了。*是蝶谷医仙将你医好的吗？
instruct_0(); -- 0(0)::空语句(清屏)
instruct_1(1113,9,1); -- 1(1):[张无忌]说: 不是的。我是有了一番奇遇*。。。。如此如此。。。。*这般这般。。。*後来修习了九阳神功，*才将我身上的寒毒化去。
instruct_0(); -- 0(0)::空语句(清屏)
instruct_1(1114,5,0); -- 1(1):[张三丰]说: 很好，很好，真难为你了。*现在你已经做了明教的教主*，记得要约束教众，不可为*非作歹。*记得常存侠义之心，*才是我辈中人。
instruct_0(); -- 0(0)::空语句(清屏)
instruct_1(1115,9,1); -- 1(1):[张无忌]说: 太师父教诲，无忌谨记在心*。。。。
instruct_0(); -- 0(0)::空语句(清屏)
instruct_1(1124,5,0); -- 1(1):[张三丰]说: 这是当年我传授你爹的一套*武功，如今就传给你吧。
instruct_0(); -- 0(0)::空语句(清屏)
instruct_2(169,1); -- 2(2):得到物品[倚天屠龙功][1]
instruct_0(); -- 0(0)::空语句(清屏)
say(CC.EVB91,5)
instruct_14()
instruct_13()
local tjq=0;
for a=1,10 do
if JY.Person[9]["武功"..a]==16 then
tjq=1
break;
end
end
if tjq==0 then JY.Person[9]["武功2"]=16 end
JY.Person[9]["武功等级2"]=50
for a=1,10 do
if JY.Person[9]["武功"..a]==0 then
JY.Person[9]["武功"..a]=46
JY.Person[9]["武功等级"..a]=50
break;
end
end
instruct_1(1125,9,0); -- 1(1):[张无忌]说: 多谢太师父
instruct_0(); -- 0(0)::空语句(清屏)
instruct_1(1116,5,0); -- 1(1):[张三丰]说: 呵呵呵，翠山有后了，翠山*有后了……
instruct_0(); -- 0(0)::空语句(清屏)
if instruct_16(92) and JY.Person[92]["姓名"] == "周芷若" then -- 判断开始，周芷若在队
for a = 1, 9 do -- 注意这个范围
if JY.Person[92]["武功"..a] == 0 then
JY.Person[92]["武功"..a] = 16 -- 洗太极拳
JY.Person[92]["武功等级"..a] = 50
JY.Person[92]["武功"..a+1] = 46 -- 洗太极剑
JY.Person[92]["武功等级"..a+1] = 50
break;
end
end
end
-- 这里我们采用了苍炎一贯的习惯，就是不是“洗武功”而是“加武功”
-- 如果你想洗武功，就更简单，for 循环都不用了。还不清楚的新人朋友可以看十楼
instruct_3(-2,5,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:场景事件编号 [5]
instruct_3(-2,10,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:场景事件编号 [10]
instruct_3(-2,9,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:场景事件编号 [9]
instruct_3(-2,8,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:场景事件编号 [8]
instruct_3(-2,7,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:场景事件编号 [7]
instruct_3(-2,6,0,0,0,0,0,0,0,0,0,0,0); -- 3(3):修改事件定义:当前场景:场景事件编号 [6]
instruct_0(); -- 0(0)::空语句(清屏)
end

复制代码

十二无敌 · 发表于 2011-9-12 17:50

把这个写进去周就可以洗太拳剑了？

十二无敌 · 发表于 2011-9-12 17:51

那张无忌是不是就不能洗了？

StarShine · 发表于 2011-9-12 17:56

放心，当然是都可以洗。不会冲突~

少朋 · 发表于 2011-9-12 20:00

本帖最后由少朋于 2011-9-12 20:01 编辑

好像是洗張無忌時如果有女主角在隊裡並且名字叫周芷若時一起跟張無忌洗嗎?

把郭襄名字改成周芷若試試看

xzqcm111 · 发表于 2011-9-12 20:31

少朋你猜对了呵呵
来支持一下，带注释的版本很适合学习

asdl33199887 · 发表于 2011-9-12 20:34

支持楼主，希望能出更多有意思的补丁啊

longzaishen9 · 发表于 2011-9-12 20:39

有劳楼主了，直接复制了拿起走

77113891 · 发表于 2011-10-14 11:34

如果要改成第一第二格洗太极拳太极剑应该怎么写？

StarShine · 发表于 2011-10-14 12:22

回复 77113891 的帖子

这个更简单了，找到第49行那段，改成下面

if instruct_16(92) and JY.Person[92]["姓名"] == "周芷若" then
JY.Person[92]["武功"..1] = 16
JY.Person[92]["武功等级"..1 = 50
JY.Person[92]["武功"..2] = 46
JY.Person[92]["武功等级"..2] = 50
end

复制代码

77113891 · 发表于 2011-10-14 12:37

回复 StarShine 的帖子

太感谢了之前尝试

JY.Person[92]["武功1"] = 16
JY.Person[92]["武功等级1"] = 50
JY.Person[92]["武功2"] = 46
JY.Person[92]["武功等级2"] = 50
end

死活跳错最后测试下来是没把下面多余的END删除的关系

deideilee · 发表于 2011-10-14 17:40

回复 77113891 的帖子

用个编辑器吧如 NOTEPAD++ 也是之前大大介绍的能自动排除一些错误特别是符号和 end之类的

查理猫 · 发表于 2011-12-9 23:48

太感动了原来最后还需要加入事情取消吖。。。我说我写个事件怎么限触发呢
终于有一话可以看懂80%了流泪吖

铁血垃圾 · 发表于 2011-12-10 00:18

本帖最后由铁血垃圾于 2011-12-10 00:18 编辑

好贴必须顶，不过我现在没空看，正在享受自己做的补丁，哈哈

楼主能否教教我怎么把斗转星移改成手动反击啊？

账号		自动登录	找回密码
密码			我要成为铁血侠客

【小教程】 周芷若武当洗武功事件。两种洗法供新人参考（源码注释版）

马上注册，结交更多侠友！

点评

【小教程】周芷若武当洗武功事件。两种洗法供新人参考（源码注释版）