单挑难6的20大不是梦-新人DIY修改兵器值+增加秘籍

hongmo321 · 发表于 2017-11-5 22:29

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

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

x

首先感谢WYJK886，在他的帖子里，新人学到不少东西。
自己DIY如下:
1、将DIY.LUA文件复制到黑山群侠传/SCRIPT/下，替换原有DIY.LUA。
2、进入游戏，系统-我的代码-确定-保存。
3、增加猪脚兵器拳、指、剑、刀、奇到150；武常100；品德100；神照、九阴、九阳、易筋经、86、降龙、黯然、六脉、越女、独孤、太极套、左右、斗转、天罗、凌波、打狗、一阳、玄铁等秘籍各一本；金钱30000；天王丹99；屠龙刀一把。
4、请适度修改，仅供娱乐.

hongmo321 · 发表于 2017-11-5 22:30

详细的修改见附件

明月青云 · 发表于 2017-11-5 23:02

新人学习一下是。

westcoast · 发表于 2017-11-6 14:01

啊，这个改的好强

entelecheia · 发表于 2017-11-6 14:07

...代码有点儿小问题。不要直接用JY.Base["物品xx"]=xx来添加物品，应该用instruct_2指令添加。否则，

JY.Base["物品4"]=71

复制代码

假如人物持有物品超过4个，第四个物品就会被覆盖掉。稍微修改了一下

local itemlist = {71,83,84,85,86,87,96,97,98,113,114,115,116,117,118,167,169,235,265,278,295,72,43,8,79,271,282,252,}
for _, thingid in ipairs(itemlist) do
if not instruct_18(thingid) then
instruct_2(thingid,1)
end
end
--加钱
instruct_2(174,30000)

复制代码

hongmo321 · 发表于 2017-11-6 16:12

entelecheia 发表于 2017-11-6 14:07
...代码有点儿小问题。不要直接用JY.Base["物品xx"]=xx来添加物品，应该用instruct_2指令添加。否则，假如 ...

哈哈谢谢大神指导我是新手刚学DIY 是有问题只能开始使用我的DIY，再次使用就会覆盖原有物品和属性。你的是直接增加，这个比我的要好，学习中

kay · 发表于 2017-11-6 23:20

本帖最后由 kay 于 2017-11-7 00:33 编辑

local r = JYMsgBox("请选择", "你选择你想要执行的代码          ", {"得秘笈","洗武功","学左右","改资质","待定 3"}, 5, 0)
      if r == 1 then
         instruct_32(174, 10000) ----钱
         instruct_32(8, 500) ----天王保命丹
         instruct_32(35, 500) ---黑血神针
         instruct_32(17, 500) ----天山雪莲
         。。。。（此处省略N个FOR循环）
         Cls()  --清屏
      elseif r == 2 then                               。。。。
         Cls()  --清屏
      elseif r == 3 then
         JY.Person[0]["左右互搏"] = 1
         Cls()  --清屏
      elseif r == 4 then
         JY.Person[0]["资质"] = InputNum("输入资质",1,100)
         Cls()  --清屏
      elseif r == 5 then
         Cls()  --清屏
end

不破坏了删掉代码了

kay · 发表于 2017-11-6 23:21

kay 发表于 2017-11-6 23:20
local r = JYMsgBox("请选择", "你选择你想要执行的代码 ", {"得秘笈","洗武功","学左右","待定 ...

原来玩蓝大龙人的时候写了好多DIY 可惜都没保存了

wyjk886 · 发表于 2017-11-7 00:19

kay 发表于 2017-11-6 23:20
local r = JYMsgBox("请选择", "你选择你想要执行的代码 ", {"得秘笈","洗武功","学左右","待定 ...

这串代码不觉明历

wyjk886 · 发表于 2017-11-7 00:19

改的很强。。。

kay · 发表于 2017-11-7 00:26

wyjk886 发表于 2017-11-7 00:19
这串代码不觉明历

第一个是得到所有秘笈和装备
第二个是洗掉猪脚身上的武功（属性还在）
local c = InputNum("输入武功",1,12)
JY.Person[0]["武功" .. c] = 0
JY.Person[0]["武功等级" .. c] = 0
Cls() --清屏

稍微精简了点
第三个是猪脚直接学会左右
。。。。。

wyjk886 · 发表于 2017-11-7 00:33

kay 发表于 2017-11-7 00:26
第一个是得到所有秘笈和装备
第二个是洗掉猪脚身上的武功（属性还在）
local c = InputNum("输入武 ...

要是能把秘籍和武器细分出来就好。

wyjk886 · 发表于 2017-11-7 00:35

本帖最后由 wyjk886 于 2017-11-7 00:48 编辑

kay 发表于 2017-11-7 00:26
第一个是得到所有秘笈和装备
第二个是洗掉猪脚身上的武功（属性还在）
local c = InputNum("输入武 ...

同事有个疑问，for i=264,264 do instruct_32(i, 1)
end这段函数是统一修改的方式吗，修改序号是264-264

wyjk886 · 发表于 2017-11-7 00:50

entelecheia 发表于 2017-11-6 14:07
...代码有点儿小问题。不要直接用JY.Base["物品xx"]=xx来添加物品，应该用instruct_2指令添加。否则，假如 ...

多谢大大指出问题，有时间我再把我的帖子修一修

kay · 发表于 2017-11-7 10:13

wyjk886 发表于 2017-11-7 00:35
同事有个疑问，for i=264,264 do instruct_32(i, 1)
end这段函数是统一修改的方式吗 ...

你说的这个是添加物品方式用for循环一下添加多个 264,264 就是添加A到B中间的所有物品

秘籍和兵器分开比较麻烦主要是物品编码不是按照循序来的

如果你有兴趣可以自己一个一个看

貌似所有物品也就300个不到

你写个测试代码自己记录下

for i=1,300 do
say(i,0,0)
instruct_2(i, 1)
end

wyjk886 · 发表于 2017-11-8 00:26

kay 发表于 2017-11-7 10:13
你说的这个是添加物品方式用for循环一下添加多个 264,264 就是添加A到B中间的所有物品

秘籍和 ...

好的，多谢。。

tommy2108 · 发表于 2017-11-10 09:56

看看，学习一下

abc11ab1 · 发表于 2017-11-19 14:14

kay 发表于 2017-11-6 23:20
local r = JYMsgBox("请选择", "你选择你想要执行的代码 ", {"得秘笈","洗武功","学左右","改资 ...

感谢分享

未元永劫 · 发表于 2017-11-21 14:39

学习一下，每次修改都闪退

S122920936 · 发表于 2020-7-9 20:43

多謝大大無私分享

8002XZG · 发表于 2023-5-5 23:43

66666`````````````~~~~~~~~~~

cj28754307 · 发表于 2023-7-28 21:28

谢谢分享谢谢分享谢谢分享

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

[分享] 单挑难6的20大不是梦-新人DIY修改兵器值+增加秘籍

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

本帖子中包含更多资源

评分

评分