绝情谷水潭判断负重代码

袭人(xiren@tj)

1. function Togudi()
   
2.     exe('cuo shupi;cuo shupi;cuo shupi;cuo shupi;cuo shupi;cuo shupi;cuo shupi;cuo shupi;cuo shupi;bang song;pa down')
   
3.     locate()
   
4.     return check_busy(Goyadi,1)
   
5. end
   
6. function Goyadi()
   
7.     if string.find(locl.room,'谷底') then
   
8.     return walk_wait()
   
9.        elseif string.find(locl.room,'崖壁') then
   
10.                        exe("pa down")
    
11.             locate()
    
12.     return check_busy(Goyadi,1)
    
13.         end
    
14. end
    
15. function Toqiaobi()
    
16.     exe('pa yabi')
    
17.     locate()
    
18.     return check_busy(Goqiaobi,1)
    
19. end
    
20. function Goqiaobi()
    
21.     if string.find(locl.room,'峭壁') then
    
22.                 return walk_wait()
    
23.     elseif string.find(locl.room,'崖壁') then
    
24.             exe("pa up")
    
25.             locate()
    
26.                 return check_busy(Goqiaobi,1)
    
27.         end
    
28. end
    
29. 
    
30. function Totanan()
    
31.     DeleteTriggerGroup("qqs")
    
32.     create_trigger_t('qqs1','^>*\\s*你要往哪里潜？
    
33. 
    
34. ,'','qQydok')
    
35.     create_trigger_t('qqs2','^>*\\s*由于重力不够，你无法继续下潜!
    
36. 
    
37. ,'','qQyderorr')
    
38.     SetTriggerOption("qqs1","group","qqs")
    
39.     SetTriggerOption("qqs2","group","qqs")
    
40.     EnableTriggerGroup("qqs",true)   
    
41.         exe('#10(jian shi)')
    
42.         checkBags()
    
43.         return check_busy(totanan_checkencumbrance,0.7)       
    
44. end
    
45. function totanan_checkencumbrance()
    
46.         if Bag["ENCB"].value > 100 then
    
47.                 exe('#10(drop stone)')               
    
48.                 checkBags()
    
49.                 return check_busy(totanan_checkencumbrance,0.7)
    
50.         elseif Bag["ENCB"].value > 50 then
    
51.                 exe('tiao tan')
    
52.                 return create_timer_s('gotanan',1,'qQianshui')
    
53.         else
    
54.                 exe('#5(jian shi)')
    
55.                 checkBags()
    
56.                 return check_busy(totanan_checkencumbrance,0.7)
    
57.         end
    
58. end
    
59. function qQianshui()
    
60.     exe('qian down')
    
61. end
    
62. function qQyderorr()
    
63.         dis_all()
    
64.         wait.make(function()
    
65.                 wait.time(2)
    
66.                 exe('pa up;#6(drop shitou);#6(drop e);#10(jian shi);tiao tan')
    
67.                 create_timer_s('gotanan',1,'qQianshui')
    
68.     end)
    
69. end
    
70. function qQydok()
    
71.     DeleteTriggerGroup("qqs")
    
72.     DeleteTimer('gotanan')       
    
73.         checkBags()       
    
74.         return check_busy(qQyd_dropstone)       
    
75. end
    
76. 
    
77. function qQyd_dropstone()
    
78.         if not Bag["ENCB"].value then
    
79.                 exe('#25(drop stone)')
    
80.         end
    
81.         if Bag['大石块'] and Bag['大石块'].cnt then
    
82.                 exe('#' .. Bag['大石块'].cnt .. '(drop da shikuai)')               
    
83.         end
    
84.         if Bag['鹅卵石'] and Bag['鹅卵石'].cnt then
    
85.                 exe('#' .. Bag['鹅卵石'].cnt .. '(drop e luanshi)')               
    
86.         end
    
87.         if Bag['小石头'] and Bag['小石头'].cnt then
    
88.                 exe('#' .. Bag['小石头'].cnt .. '(drop xiao shitou)')               
    
89.         end
    
90.         checkBags()       
    
91.         return check_busy(totanan_check_qqup_encumbrance,0.7)
    
92. end
    
93. function totanan_check_qqup_encumbrance()
    
94.         if Bag["ENCB"].value < 40 then               
    
95.                 exe('qian zuoshang')
    
96.                 return check_busy(qQup,1)
    
97.         else
    
98.                 exe('#5(drop stone)')
    
99.                 checkBags()
    
100.                 return check_busy(totanan_check_qqup_encumbrance,0.7)
     
101.         end
     
102. end
     
103. function qQup()
     
104.      exe("qian up")
     
105.     return check_busy(qQsover,1)
     
106. end
     
107. function qQsover()
     
108.     exe("pa up")
     
109.     exe("#5(drop stone)")
     
110.         return walk_wait()
     
111. end
     
112. function Hgudi()   
     
113.         exe("#15(jian shi)")
     
114.         checkBags()
     
115.         return check_busy(Hgudi_checkencumbrance,0.7)   
     
116. end
     
117. function Hgudi_checkencumbrance()
     
118.         if Bag["ENCB"].value > 100 then
     
119.                 exe('#20(drop stone)')               
     
120.                 checkBags()
     
121.                 return check_busy(Hgudi_checkencumbrance,0.7)
     
122.         elseif Bag["ENCB"].value > 50 then
     
123.                 exe('tiao tan')
     
124.                 fastLocate()
     
125.                 return check_busy(Hyadi,1)
     
126.         else
     
127.                 exe('#5(jian shi)')
     
128.                 checkBags()
     
129.                 return check_busy(Hgudi_checkencumbrance,0.7)
     
130.         end
     
131. end
     
132. 
     
133. function Hyadi()
     
134.     if string.find(locl.room,'谷底水潭') then
     
135.                 if Bag['大石块'] and Bag['大石块'].cnt then
     
136.                         exe('#' .. Bag['大石块'].cnt .. '(drop da shikuai)')               
     
137.                 end
     
138.                 if Bag['鹅卵石'] and Bag['鹅卵石'].cnt then
     
139.                         exe('#' .. Bag['鹅卵石'].cnt .. '(drop e luanshi)')               
     
140.                 end
     
141.                 if Bag['小石头'] and Bag['小石头'].cnt then
     
142.                         exe('#' .. Bag['小石头'].cnt .. '(drop xiao shitou)')               
     
143.                 end
     
144.                 checkBags()
     
145.                 exe('qian up')               
     
146.                 DeleteTriggerGroup("qqs")
     
147.                 create_trigger_t('qqs1','^>*\\s*你要往哪里潜？
     
148. 
     
149. ,'','hhqok')
     
150.                 SetTriggerOption("qqs1","group","qqs")
     
151.                 EnableTriggerGroup("qqs",true)
     
152.                 create_timer_s('hyadi',1,'hQianshui')
     
153.     elseif string.find(locl.room,'水底通道') or string.find(locl.room,'水潭表面') then
     
154.                 exe('qian down')
     
155.                 DeleteTriggerGroup("qqs")
     
156.                 create_trigger_t('qqs1','^>*\\s*你要往哪里潜？
     
157. 
     
158. ,'','hhqok')
     
159.                 create_trigger_t('qqs2','^>*\\s*由于重力不够，你无法继续下潜!
     
160. 
     
161. ,'','hQyderror')
     
162.                 SetTriggerOption("qqs1","group","qqs")
     
163.                 SetTriggerOption("qqs2","group","qqs")
     
164.                 EnableTriggerGroup("qqs",true)
     
165.                 fastLocate()
     
166.                 checkBags()
     
167.                 return check_busy(Hyadi,1)
     
168.     end
     
169. end
     
170. function hQyderror()
     
171.         dis_all()
     
172.         wait.make(function()
     
173.                 wait.time(2)
     
174.                 exe('halt;pa up;#10(jian shi);tiao tan')
     
175.                 create_timer_s('hyadi',1,'Hyadi')
     
176.     end)   
     
177. end
     
178. function hQianshui()       
     
179.     exe('qian up')
     
180. end
     
181. function hhqok()
     
182.     DeleteTriggerGroup("hqs")
     
183.     DeleteTimer('hyadi')
     
184.     return check_halt(hhqok2)
     
185. end
     
186. function hhqok2()
     
187.         exe('pa up')
     
188.         return walk_wait()
     
189. end
     
190. function Fqy()
     
191.     exe("enter")
     
192.         return walk_wait()
     
193. end
     
194. function Inwdj()
     
195.     exe("northup")
     
196.         return walk_wait()
     
197. end

复制代码

任平生(kuaiyi@tj)

怎么用这个代码？ 不知道怎们修改

慕容傻(woshicy@tj)

好像我的绝情谷不会出问题

李青(semic@tj)

MARK一下，等出问题了再改

龙儿(mygm@tj)

不错,mark一下.                        

本形(xlang@tj)

请问是在lujing.lua里面修改吗？

慕容师师(alphadog@tj)

高手 风神有空 更新一版吧 新的lujing room kezhiwugong

云潇(belloc@tj)

咋修改啊。。。我也在杨过那发呆了。

任平生(kuaiyi@tj)

belloc@tj 发表于 2017-12-24 11:35
咋修改啊。。。我也在杨过那发呆了。

道长和我一样是小白啊  我请教过袭人
是把lujing 里面找到这段代码 全部替换了就行了
需要注意的是 我出错过一次，是因为断行了（先把代码复制到txt文件里，仔细检查一下没有断行的情况的话，再开始替换）

红莲(honglian@tj)

这个代码好几处都断行了吧。