【小猪猪】sj_set.lua

龙小女(joyce@tj)

附件是文本文件，改一下扩展名为lua即可。

供大家研究探讨，可以节省一些set指令。

1. 
   
2. 
   
3. -- joyce@tj 2019.4.14
   
4. 
   
5. -- usage:
   
6. --      set()
   
7. --      set('ynj')
   
8. --      set('ynj','YES')
   
9. --      unset('ynj')
   
10. 
    
11. Set = {}
    
12. 
    
13. function set(name,value)
    
14.     local l_value
    
15.     value = value or "YES"
    
16. 
    
17.     -- set()
    
18.     if name == nil then
    
19.         if not GetTriggerInfo('set',8) then set_trigger() end
    
20.         Set = {}
    
21.         return exe('set')
    
22.     end
    
23. 
    
24.     -- set('ynj')
    
25.     for k,v in pairs(Set) do
    
26.         if k == name then
    
27.             l_value = v --找Set表已存在的值
    
28.             break
    
29.         end
    
30.     end
    
31. 
    
32.     if l_value == value then --如果Set表已存在值相同，退出
    
33.         return
    
34.     else
    
35.         wait.make(function()
    
36.             repeat
    
37.                 exe('set '..name..' '..value)
    
38.                 _,w = wait.regexp ("^(> )*设定环境变量：(\\S+) = (\\S+)$",1)
    
39.                 if w then
    
40.                     local l_name = w[2]
    
41.                     local l_value = w[3]
    
42.                     if l_name and l_value then
    
43.                         if flag.trace == true then print(l_name..' '..l_value) end
    
44.                         if string.find(l_value,'"') then
    
45.                             Set[l_name] = trim(l_value,'"')
    
46.                         else
    
47.                             Set[l_name] = tonumber(l_value)
    
48.                         end
    
49.                     end
    
50.                 end
    
51.             until Set[name] == value
    
52.         end)
    
53.     end
    
54. end
    
55. function unset(name)
    
56.     -- unset 变量，并同步Set表，如果表中本来也不存在，不执行exe
    
57.     for k,v in pairs(Set) do
    
58.         if k == name then
    
59.             wait.make(function()
    
60.                 repeat
    
61.                     exe('unset '..name)
    
62.                     l,w = wait.regexp ("^(> )*Ok.$",1)
    
63.                     if string.find(l,"Ok") then Set[name] = nil end
    
64.                 until Set[name] == nil
    
65.             end)
    
66.         end
    
67.     end
    
68. end
    
69. 
    
70. function set_trigger()
    
71.     local l_match = ''
    
72.     l_match = l_match..'env_msg|wimpycmd|block|public|no_accept|no_follow|积蓄|fight_player|kill_msg|look'
    
73.     l_match = l_match..'|over_buy|no_kill_ap|buf_off|no_auto_pfm|brief|武馆玉肌丸'
    
74.     l_match = l_match..'|jyzj|double_attack|lbwb|ynj|whdmd|jybgz|hubo_switch|pxj|qzs|szj|hmg|txj|po|玉女心经'
    
75.     l_match = l_match..'|wimpy|debuff_boost|fatal_boost'
    
76.     create_trigger_j('set','general','^('..l_match..')\\s{1,19}(\\S+)
    
77. ,'set_Set','y',50)
    
78. end
    
79. function set_Set(n,l,w)
    
80.     local l_name = w[1]
    
81.     local l_value = w[2]
    
82.     if l_name and l_value then
    
83.         if string.find(l_value,'"') then
    
84.             Set[l_name] = trim(l_value,'"')
    
85.         else
    
86.             Set[l_name] = tonumber(l_value)
    
87.         end
    
88.     end
    
89.     if flag.trace == true then print(l_name..' '..Set[l_name]) end
    
90. end
    
91. 
    

复制代码

本紫(zhaoziyu@tj)

这个要在shujian.lua里引用吗？

龙小女(joyce@tj)

zhaoziyu@tj 发表于 2019-5-16 22:55
这个要在shujian.lua里引用吗？

这个不一定要用，可以参考下思路，没有啥特别的提升，对你的效率。

龙小女(joyce@tj)

我也是在做一些尝试。               

本紫(zhaoziyu@tj)

我也是下来学习学习，跟着学点东东

一把龙泉(pinkmoon@tj)

这个干嘛的呢           

云妮儿(yunny@tj)

这个做什么用的啊 ？ 简化指令？

云妮儿(yunny@tj)

哦  明白了 主要还是trigger啊  能够更清楚自己的状态

云妮儿(yunny@tj)

joyce@tj 发表于 2019-5-16 23:06
我也是在做一些尝试。

小猪猪大神  create_trigger_j  这个函数 公版没有啊  麻烦补全一下~