绝情谷水潭负重测试

云妮儿(yunny@tj)

绝情谷总出问题，经过分析，感觉应该时checkBags函数运算时间太多导致的。所以我这边干脆把负重触发重新制作，成为独立函数。因为不用checkBags,也是函数写的复杂了，不管怎么样……能用就行把。欢迎门派兄弟们帮忙测试一下。

1. dropstone=0
   
2. function shuitan_check(n,l,w)
   
3.         EnableTimer("shuitan_check",false)
   
4.         DeleteTimer("shuitan_check")
   
5.         fuzhongbfb=0
   
6.         local t = tonumber(w[3])
   
7.         fuzhongbfb=t
   
8.         print(fuzhongbfb)
   
9.         if fuzhongbfb == 0  then
   
10.         return check_busy(shuitan_checkpre,1)
    
11.         else
    
12.         return jqg_checktrigger()
    
13.         end
    
14. end
    
15. 
    
16. function jqg_checktrigger()
    
17.         DeleteTriggerGroup("dashikuai")
    
18.     create_trigger_t('dashikuai1','^>*\\s*你身上没有这样东西。,'','dropstone_false')
    
19.     create_trigger_t('dashikuai2','^>*\\s*你丢下一块','','dropstone_true')
    
20.         for i = 1,2 do SetTriggerOption('dashikuai'..i,'group','dashikuai') end
    
21.     EnableTriggerGroup("dashikuai",false)
    
22.         return jqg_checkMdo()
    
23. end
    
24. 
    
25. function jqg_checkMdo()
    
26.         if fuzhongbfb>100 then
    
27.                 dropstone=1
    
28.                 return dashikuai_dg()
    
29.         else if fuzhongbfb>80 then
    
30.                 exe('tiao tan')
    
31.             return jgq_qiandown()
    
32.                 else
    
33.                     exe('#3(jian shi)')
    
34.                         return shuitan_checkpre()
    
35.         end
    
36. end
    
37. end
    
38. 
    
39. function dashikuai_dg()
    
40.         EnableTriggerGroup("dashikuai",true)
    
41.         if dropstone==1 then
    
42.         exe('drop da shikuai')
    
43.         end
    
44.         if dropstone==2 then
    
45.         exe('drop xiao shitou')
    
46.         end
    
47.         if dropstone==3 then
    
48.         exe('drop e luanshi')
    
49.         end
    
50.         if dropstone==4 then
    
51.         dropstone=1
    
52.         return Totanan()
    
53.         end
    
54. end
    
55. 
    
56. function dropstone_true()
    
57.         EnableTriggerGroup("dashikuai",false)       
    
58.         return shuitan_checkpre()
    
59. end
    
60. 
    
61. function dropstone_false()
    
62. dropstone=dropstone+1
    
63. return dashikuai_dg()
    
64. end
    
65. 
    
66. 
    
67. function shuitan_checkpre()
    
68. exe('i')
    
69. EnableTimer("shuitan_check",true)
    
70. end
    
71. 
    
72. function Totanan()
    
73.         DeleteTimer("shuitan_check")
    
74.     DeleteTriggerGroup("qqs")
    
75.     create_trigger_t('qqs1','^>*\\s*你要往哪里潜？,'','qQydok')
    
76.     create_trigger_t('qqs2','^>*\\s*由于重力不够，你无法继续下潜!,'','qQyderorr')
    
77.     create_trigger_t('qqs3','^>*\\s*你一个猛栽，潜了下去。,'','jgq_qiandown')
    
78.     SetTriggerOption("qqs1","group","qqs")
    
79.     SetTriggerOption("qqs2","group","qqs")
    
80.     SetTriggerOption("qqs3","group","qqs")
    
81.     EnableTriggerGroup("qqs",true)  
    
82.         create_trigger_t('shuitan_bags','^(> )*你身上带着(\\D*)件东西\\(负重\\s*(\\d*)\\.\\d*\\%\\)：','','shuitan_check')
    
83.         EnableTrigger("shuitan_bags",true)
    
84. 
    
85.                 exe('unwield taiji sword;unwield changjian;unwield yunny jian')
    
86.         exe('#10(jian shi)')
    
87.                
    
88.         create_timer_s('shuitan_check',1,'shuitan_checkpre')
    
89.         EnableTimer("shuitan_check",true)
    
90. end
    
91. 
    
92. function jgq_qiandown()
    
93.                 EnableTriggerGroup("dashikuai",false)
    
94.                 DeleteTriggerGroup("dashikuai")
    
95.                 DeleteTimer("shuitan_check")
    
96.                 EnableTrigger("shuitan_bags",false)
    
97.                 DeleteTrigger("shuitan_bags")
    
98.         check_busy(function() exe('qian down') end,1)
    
99. end
    
100. function jqg_qianup()
     
101.         check_busy(function() exe('qian up') end,1)
     
102. end
     
103. 
     
104. function qQyderorr()
     
105.         EnableTriggerGroup("qqs",false)         
     
106.         check_halt(qQyderorrgetstone)
     
107. end
     
108. function qQyderorrgetstone()
     
109.             exe('pa up')
     
110.         return Totanan()
     
111. --[[        exe('pa up;#2(jian shi)')
     
112.         EnableTriggerGroup("qqs",true)  
     
113.         checkBags()
     
114.         return check_busy(jqg_checktiaotan)--]]
     
115. end
     
116. function qQydok()
     
117.                 DeleteTriggerGroup("qqs")            
     
118.         --checkBags()
     
119.         check_busy(qQyd_dropstone)               
     
120. end
     
121. 
     
122. function qQyd_dropstone()
     
123.         if not Bag["ENCB"] or not Bag["ENCB"].value then
     
124.                 exe('#20(drop stone)')
     
125.         else
     
126.                 if Bag['大石块'] and Bag['大石块'].cnt then
     
127.                         exe('#' .. Bag['大石块'].cnt .. '(drop da shikuai)')               
     
128.                 end
     
129.                 if Bag['鹅卵石'] and Bag['鹅卵石'].cnt then
     
130.                         exe('#' .. Bag['鹅卵石'].cnt .. '(drop e luanshi)')               
     
131.                 end
     
132.                 if Bag['小石头'] and Bag['小石头'].cnt then
     
133.                         exe('#' .. Bag['小石头'].cnt .. '(drop xiao shitou)')               
     
134.                 end        
     
135.         end
     
136.         return check_busy(totanan_check_qqup)        
     
137. end
     
138. function totanan_check_qqup()        
     
139.         create_trigger_t('qqs1','^>*\\s*你身子沉重，用尽全力也无法向上面游去！,'','totanan_check_qqup')               
     
140.         create_trigger_t('qqs2','^>*\\s*你两腿用力一蹬，向左上方浮去。,'','qQup')        
     
141.         create_trigger_t('qqs3','^>*\\s*你要往哪里潜？,'','Hyadi')        
     
142.         SetTriggerOption("qqs1","group","qqs")
     
143.                 SetTriggerOption("qqs2","group","qqs")
     
144.         SetTriggerOption("qqs3","group","qqs")
     
145.         exe('#20(drop stone);qian zuoshang')                        
     
146. end
     
147. 
     
148. function qQup()
     
149.         check_busy(function() exe('qian up') return check_busy(qQsover) end,1)
     
150. end
     
151. 
     
152. function qQsover()
     
153.         DeleteTriggerGroup("qqs")
     
154.     exe("pa up")
     
155.     exe("#10(drop stone)")
     
156.     return walk_wait()
     
157. end
     
158. function Hgudi()   
     
159.         DeleteTriggerGroup("qqs")
     
160.     create_trigger_t('qqs1','^>*\\s*你要往哪里潜？,'','Hyadi')
     
161.     create_trigger_t('qqs2','^>*\\s*由于重力不够，你无法继续下潜!,'','qQyderorr')
     
162.         create_trigger_t('qqs3','^>*\\s*你一个猛栽，潜了下去。,'','jgq_qiandown')
     
163.     SetTriggerOption("qqs1","group","qqs")
     
164.     SetTriggerOption("qqs2","group","qqs")
     
165.         SetTriggerOption("qqs3","group","qqs")
     
166.     EnableTriggerGroup("qqs",true)   
     
167.         create_trigger_t('shuitan_bags','^(> )*你身上带着(\\D*)件东西\\(负重\\s*(\\d*)\\.\\d*\\%\\)：','','shuitan_check')
     
168.         EnableTrigger("shuitan_bags",true)
     
169. 
     
170.                 exe('unwield taiji sword;unwield changjian;unwield yunny jian')
     
171.         exe('#10(jian shi)')
     
172.                
     
173.         create_timer_s('shuitan_check',1,'shuitan_checkpre')
     
174.         EnableTimer("shuitan_check",true)
     
175. --[[        exe('#10(jian shi)')
     
176.         checkBags()
     
177.         return check_busy(jqg_checktiaotan)--]]
     
178. end
     
179. 
     
180. function Hyadi()
     
181.         DeleteTriggerGroup("qqs")
     
182.         --checkBags()
     
183.         check_busy(hhq_dropstone,1)
     
184. end
     
185. function hhq_dropstone()
     
186.         if not Bag["ENCB"] or not Bag["ENCB"].value then
     
187.                 exe('#20(drop stone)')
     
188.         else
     
189.                 if Bag['大石块'] and Bag['大石块'].cnt then
     
190.                         exe('#' .. Bag['大石块'].cnt .. '(drop da shikuai)')               
     
191.                 end
     
192.                 if Bag['鹅卵石'] and Bag['鹅卵石'].cnt then
     
193.                         exe('#' .. Bag['鹅卵石'].cnt .. '(drop e luanshi)')               
     
194.                 end
     
195.                 if Bag['小石头'] and Bag['小石头'].cnt then
     
196.                         exe('#' .. Bag['小石头'].cnt .. '(drop xiao shitou)')               
     
197.                 end        
     
198.         end        
     
199.         return check_busy(Hyadiup)        
     
200. end
     
201. function Hyadiup()        
     
202.         DeleteTriggerGroup("qqs")
     
203.         create_trigger_t('qqs1','^>*\\s*你身子沉重，用尽全力也无法向上面游去！,'','Hyadiup')               
     
204.         create_trigger_t('qqs2','^>*\\s*你(两腿用力一蹬，向上面浮去|手脚齐划，顺着水势向上面浮去)','','jqg_qianup')        
     
205.         create_trigger_t('qqs3','^>*\\s*你要往哪里潜？,'','hhqover')        
     
206.         SetTriggerOption("qqs1","group","qqs")
     
207.     SetTriggerOption("qqs2","group","qqs")
     
208.         SetTriggerOption("qqs3","group","qqs")         
     
209.         exe('#5(drop stone);qian up')                        
     
210. end
     
211. 
     
212. function hhqover()
     
213.         exe('#10(drop stone);pa up')        
     
214.         DeleteTriggerGroup("qqs")
     
215.         return walk_wait()
     
216. end

复制代码

云妮儿(yunny@tj)

1. 有两处  exe('unwield taiji sword;unwield changjian;unwield yunny jian')  要换成自己的武器

云妮儿(yunny@tj)

2. 在dropstone=0 下面再加一行fuzhongbfb=0

曼殊沙华(manshu@tj)

好的，我去测试看看。
怎么弄啊？复制到lujing里吗？

云妮儿(yunny@tj)

得替换原来水潭的部分呀

无法风(kkfromch@tj)

30: 铜钱 = coin, coins, coin_money
31: 白金指环 = ring
32: 黄金头饰 = headgear
33: 紫晶项链 = necklace
34: 翡翠玉镯 = bangle
35: 龙凤玉佩 = jade
> 你身上带着三十五件东西(负重
bei bei bei
66.54%)：
  五十六两白银(Silver)
  二十四锭黄金(Gold)
  十一颗飞蝗石(Feihuang shi)
  三百六十七颗石子(Shizi)
  四十八文铜钱(Coin)
□三才无极箫(Wuji xiao)
□背囊(Bei Nang)
□紫长衫(Cloth)
□神通靴(Shentong boot)
□黄龙甲胄(Huanglong armor)
□风云手套(Fengyun glove)
□贵宾卡(VIP Card)
□白金指环(Ring)
□黄金头饰(Headgear)
□紫晶项链(Necklace)
□翡翠玉镯(Bangle)
□龙凤玉佩(Jade)
  一柄三才乾坤剑(Qiankun sword)
  一柄木剑(Mu jian)
  一支火折(Fire)
  一本菜谱(Cai pu)
  一条粗绳子(Cu shengzi)
  四块大石块(Da shikuai)
  二颗蝉蜕金疮药(Chantui yao)
  一个牛皮酒袋(Jiudai)
  三块小石头(Xiao shitou)
  三块鹅卵石(E luanshi)
> 你的背囊里有：
  三颗活血疗精丹(Huoxue dan)
  十颗川贝内息丸(Chuanbei wan)
  二十颗蝉蜕金疮药(Chantui yao)
  十颗黄芪内息丹(Huangqi dan)
  二颗正气丹(Zhengqi dan)
  一千二百块金矿石(Jinkuang shi)                  【零级】
  一千块铁矿石(Tiekuang shi)                      【零级】
  一百四十块铜矿石(Tongkuang shi)                 【零级】
  十四块银矿石(Yinkuang shi)                      【零级】
  五千九百五十团原丝(Raw silk I)                  【一级】
  四十一块精铁魄(Jingtie po I)                    【一级】
> 你目前已经拥有了五件私有装备：风云手套,三才乾坤剑,黄龙甲胄,神通靴,三才无极箫。
> 你把 "action" 设定为 "检查包裹" 成功完成。
Run-time error
World: tj.sjever.net
Function/Sub: checkBagsOver called by trigger
Reason: 正在处理触发器 "bags5"
C:\MUSHS\lua\show_switch.lua:1136: attempt to index field 'ENCB' (a nil value)
stack traceback:
        C:\MUSHS\lua\show_switch.lua:1136: in function 'draw_bagwindow'
        [string "Script file"]:2901: in function <[string "Script file"]:2900>
> 你已准备有一种技能了。
Run-time error
World: tj.sjever.net
Function/Sub: beiok called by trigger
Reason: 正在处理触发器 "check_bei1"
C:\MUSHS\lua\lujing.lua:2332: attempt to index field 'ENCB' (a nil value)
stack traceback:
        C:\MUSHS\lua\lujing.lua:2332: in function <C:\MUSHS\lua\lujing.lua:2331>
        (tail call): ?
> 你已准备有一种技能了。

开命令显示，是否也会截断负重显示，导致ENCB抓不到值啊？

云妮儿(yunny@tj)

kkfromch@tj 发表于 2019-1-16 02:50
30: 铜钱 = coin, coins, coin_money
31: 白金指环 = ring
32: 黄金头饰 = headgear

跟无法兄你的什么有冲突 我也不太清楚啦 我是根据自己的改的  我不用ENCB了 触发里面的相关语句其实都可以删了

云妮儿(yunny@tj)

checkBags 执行的东西太多了 很容易出问题

无法风(kkfromch@tj)

yunny@tj 发表于 2019-1-16 15:12
跟无法兄你的什么有冲突 我也不太清楚啦 我是根据自己的改的  我不用ENCB了 触发里面的相关语句其实都可 ...

你这个不错，绝情谷水潭报错困扰我好长时间，昨晚看了你这个之后，深受启发！

我在原程序里添加一条语句——

function jqg_checktiaotan()
            if Bag["ENCB"].value==nil then Bag["ENCB"].value=81 end

看看能不能糊弄过去，如果为空则赋值为81，先跳水潭试试，反正石头不够会有触发器判断的，毕竟这个ENCB不会永远取不到值吧？

要是不行的话，我再抄你这个，我懒嘛！

云妮儿(yunny@tj)

kkfromch@tj 发表于 2019-1-16 15:22
你这个不错，绝情谷水潭报错困扰我好长时间，昨晚看了你这个之后，深受启发！

我在原程序里添加一条语 ...

我最早是这么改的  但是极端情况还是会发呆……