xkx mushclient 全自动walk lua实现

加入了xkx地图数据，通过寻路算法，找到两点间的通路，然后再走。
地图数据来自xkx论坛gps定位的sqlite数据库,转换成lua格式输出处理。修改其中的一些错误的,"符号

1. room={
2.     [1]={
3.         ["id"]=1,
4.         ["name"]="中心广场",
5.         ["desc"]="这是泉州的中心地带，树荫浓郁，整齐划一。人山人海，摩肩接踵，来来",
6.         ["ways"]="east|north|south|west",
7.         ["link"]={["w"]=2,["w"]=11,["e"]=10,["s"]=9},
8.         ["zone"]="福建泉州",
9.         ["npc"]="",
10.         ["cmd"]=""
11.     },
12.     [2]={
13.         ["id"]=2,
14.         ["name"]="刺桐西路",
15.         ["desc"]="这是泉州的主要干道，笔直宽广，车水马龙，热闹非凡。西边便是著名的",
16.         ["ways"]="east|north|west",
17.         ["link"]={["w"]=3,["w"]=19,["s"]=17},
18.         ["zone"]="福建泉州",
19.         ["npc"]="",
20.         ["cmd"]=""
21.     },
22.          .
23.          .
24.          .
25. }

通过触发器获取place,ways,desc表示当前看到的地点，出路，地点描述。

trywalk.lua含半自动行走实现

1. --[[
2. 1、修改wait.regexp使得匹配后该行保持有效，触发器仍旧为临时触发（一劳永逸。）
3. 2、需要全局变量 place 获取房间名建立1个触发器
4. 3、需要全局变量ways获取出路建立18个出发器
5. 4、使用举例
6.    可以建立mush alias walk/((.*),(.*)/)
7.    发送到脚本
8.    local target="%1"
9.    local allow="%2"
10.    function walk()
11.      rectilineal_walk(target,allow)
12.    end
13.    require "wait"
14.    wait.make(walk)
15.    从武当三清殿走到玄岳门可以在命令行walk(玄岳,n.nd.nu)
16.    再从玄岳门走到三不管walk(三不管,e.eu.ed.nw.n)
17. ]]--
19. require "wait"
20. require "tprint"
22. place=nil
23. desc=nil
24. ways=nil
26. --脚本建立出发器的方法
27. function way_t()
28.     local l,w
29.     local find=string.find
30.     while 1 do
31.         l,w=wait.regexp("这里没有任何明显的出路|这里唯一的出口是 ([a-z]+)。|这里明显的出口是 ([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|(> )*(.*) /- $|(> )*(.*) /- ([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) /- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$")
32.           ways=nil
33.           ways={}
34.           local id=1
35.           if find(l,"-") then
36.            for i,v in ipairs(w) do
37.             if v~=nil and v~=false and (not find(v,">")) and v~="" and i>2 then
38.              --Note(v)
39.              ways[id]=v
40.              id=id+1
41.             end
42.            end
43.           else
44.            for i,v in ipairs(w) do
45.             if v~=nil and v~=false and v~="" then
46.              --Note(v)
47.              ways[id]=v
48.              id=id+1
49.             end
50.            end
51.           end
52.           --tprint(ways)
53.     end
54. end
56. function place_t()
57.     local l,w
58.     local find=string.find
59.     local ways_str
60.     while 1 do
61.         l,w=wait.regexp("(> )*(.*) /- ([a-z、]*)")
62.         place=w[2]
63.         desc=nil
64.         ways=nil
65.         npc=""
66.         --Note("地点："..place)
67.     end
68. end
69. function desc_t()
70.     local l,w
71.     local find=string.find
72.     while 1 do
73.         l,w=wait.regexp("    (.*)")
74.         if desc==nil then
75.             desc=w[1]
76.             --Note(desc)
77.         end
78.     end
79. end
80. function init()
81.     wait.make(way_t)
82.     wait.make(desc_t)
83.     wait.make(place_t)
84. end
85. init()
87. --上面这一段可以自己不用脚本，通过操作mush的触发器设置实现（我实现好了，用脚本方便点)
89. function rectilineal_walk(target,allows)
90.     local find=string.find
91.     local l,w,t
92.     local walkmap_s,walkmap_l,walkmap
93. local bad=false
94.     --映射
95.     walkmap_s="e;w;s;n;eu;ed;wu;wd;su;sd;nu;nd;se;sw;ne;nw;d;u"
96.     walkmap_l="east;west;south;north;eastup;eastdown;westup;westdown;southup;southdown;northup;northdown;southeast;southwest;northeast;northwest;down;up"
97.     
98.     local ws=utils.split(walkmap_s,";")
99.     local wl=utils.split(walkmap_l,";")
100.     local path=""
101.     walkmap={}
102.     for i,v in ipairs(ws) do
103.         walkmap[v]=wl[i]
104.     end
105.     for i,v in ipairs(wl) do
106.         walkmap[v]=ws[i]
107.     end
108.     --获取允许方位
109.     if allows~=nil then
110.        if allows~="" then  t=utils.split(allows,".") end
111.     end
112.     --t中有可行方位，有优先级
113. Execute("look")
114.     task="walking"
115.     while task=="walking" do
116.         l,w=wait.regexp("这里明显的出口是|这里唯一的出口是|这里没有任何明显的出路|(> )*(.*) /- ([a-z、]+)",10)
117.         if l==nil then
118.         else
119.             if find(place,target) then
120.                 Note("到达"..target)
121.                 break
122.             end
123.             if ways~=nil then
124.                 --通过出口，尝试走
125.                 local walked=false
126.                 for i,v in ipairs(t) do
127.                     for ii,vv in ipairs(ways) do
128.                         if vv=="" or vv==false or vv==nil then else
129.                         if vv==v or walkmap[vv]==v then
130.                             Execute("h;"..v) --发送一个halt再行走
131.        --Execute(v)         --网速好时可以快速行走
132.                             path=path..v..";"
133.                             walked=true
134.                             break
135.                         end
136.                         end
137.                     end
138.                     if walked==true then break end
139.                 end
140.                 --不能再走了
141.                 if walked==false then
142.                     Note("能力有限，走到这里，不只如何走了")
143.                     bad=true
144.                     break
145.                 end
146.             else
147.                 Note("这里没有出路，机器人解决不了")
148.                 bad=true
149.                 break
150.             end
151.         end
152.     end
153.     Note("我走的路径:"..path)
154.     if bad==false then
155.       return path
156.     else
157.       return nil
158.     end
159. end

全自动寻路行走实现

autowalk.lua

2. require "xkx_room"
3. require "tprint"
4. require "trywalk"
6. local wait=wait
7. local  find=string.find
8. local ways_ok=function (ways1,ways2)
9.     local w1=utils.split(ways1,"|")
10.     --local w1=ways1
11.     local w2=utils.split(ways2,"|")
12.     local i,v,ii,vv
13.     if  table.getn(w1)==table.getn(w2) then
14.         for i,v in ipairs(w1) do
15.             local ok=false
16.             for ii,vv in ipairs(w2) do
17.                 if vv==v then
18.                     ok=true
19.                     break
20.                 end
21.             end
22.             if  ok==false then return false end
23.         end
24.         --all ok
25.         return true
26.     else
27.         return false
28.     end
29. end
31. --地址描述用触发得到是完整的，find找数据中匹配项，不可以反,因为数据中有不完整的。
32. function findroom(name,desc,ways)
33.     Note("开始寻找"..name)
34.     local ret={}
35.     local id=1
36.     local i,v
37.     for i,v in ipairs(room) do
38.         if v["name"]==name then
39.             if (desc~=nil and desc~="") or ( ways~=nil and ways~="")  then
40.                 if (desc~=nil and desc~="") and ( ways~=nil and ways~="") then
41.                 --两个都有
42.                     if  find(desc,v["desc"]) and ways_ok(ways,v["ways"]) then
43.                         ret[id]=v["id"]
44.                         id=id+1
45.                     end
46.                 else
47.                     if ( ways~=nil and ways~="") then
48.                     --ways有desc无
49.                         if ways_ok(ways,v["ways"]) then
50.                             ret[id]=v["id"]
51.                             id=id+1
52.                         end
53.                     else
54.                     --desc有ways无
55.                         if find(desc,v["desc"]) then
56.                             ret[id]=v["id"]
57.                             id=id+1
58.                         end
59.                     end
60.                 end
61.             else
62.             --两个空
63.                 ret[id]=v["id"]
64.                 id=id+1
65.             end
66.         end
67.     end
68.     Note("寻找"..name.."结束")
69.     tprint(ret)
70.     return ret
71. end
73. function showroom(roomid)
74.     tprint(room[roomid])
75. end
77. function pathbyid(startroomid,endroomid)
78.     local ret=""
79.     local tree={}
80.     local tree_grow_at=function (id)
81.         local k,v
82.         local ret=false
83.         if id~=nil then
84.             local links={}
85.             if  (room[id])["link"]~=nil  and (room[id])["link"]~={} then
86.                 for k,v in pairs( (room[id])["link"] ) do
87.                     if tree[v]~=nil or v==0 then
88.                         --已经处理了，是正常顺序
89.                     else
90.                         tree[v]={}
91.                         tree[v]={
92.                             ["uplink"]=id,
93.                             ["path"]=k,
94.                             ["link"]={}
95.                         }
96.                         table.insert(links,v)
97.                         if v == endroomid then
98.                             ret=true
99.                             break
100.                         end
101.                     end
102.                 end
103.                 (tree[id])["link"]=links
104.                 if ret==true then return true else return links end
105.             else
106.                 return nil
107.             end
108.             return links
109.         else
110.             tree[startroomid]={
111.                 ["uplink"]=nil,
112.                 ["path"]=nil,
113.                 ["link"]={[1]=startroomid}
114.             }
115.             if startroomid==endroomid then
116.                 return true
117.             end
118.             return (tree[startroomid])["link"]
119.         end
120.     end
121.     --
122.     local tree_grow=function()
123.         local root,links,leaf
124.         local i,v,ii,vv,iii,vvv
125.         local trycount=0
126.         local ret=false
127.         local closed={}
128.         root=tree_grow_at(nil)
129.         if root==true then
130.             --找到
131.             return true
132.         else
133.             while root~=nil and root~={} and table.getn(tree)
134.                 leaf={}
135.                 for i,v in ipairs(root) do
136.                     table.insert(closed,v)
137.                     links=tree_grow_at(v)
138.                     if links==true then
139.                         --找到
140.                         return true
141.                     else
142.                         if links~=nil then
143.                             for ii,vv in ipairs(links) do
144.                                 local new=true
145.                                 for iii,vvv in ipairs(closed) do
146.                                     if vvv==vv then
147.                                         new=false
148.                                         break
149.                                     end
150.                                 end
151.                                 if new==true then
152.                                     table.insert(leaf,vv)
153.                                 else
154.                                     --print("but old place")
155.                                 end
156.                             end
157.                         end
158.                     end
159.                 end
160.                 root=leaf
161.                 trycount=trycount+1
162.             end
163.         end
164.         --从这里出，失败
165.         return false
166.     end
167.     --
168.     if tree_grow()==true then
169.         Note("找到了！")
170.         local id=endroomid
171.         while id~=startroomid do
172.             ret=(tree[id])["path"]..";"..ret
173.             id=(tree[id])["uplink"]
174.         end
175.         Note(ret)
176.     else
177.         Note("抱歉没找到通路,请修改地图room.lua数据,确保连通")
178.     end
179.     return ret
180. end
182. function where()
183.     local roomidt={}
184.     while  table.getn(roomidt)~=1 do
185.         place=nil
186.         ways=nil
187.         desc=nil
188.         Execute("look")
189.         while 1 do
190.             if place~=nil and ways~=nil and desc~=nil then
191.                 break
192.             end
193.             wait.time(2)
194.         end
195.         local wlen=table.getn(ways)
196.         local ran=math.random(wlen)
197.         local ranway=ways[ran]
198.         roomidt=findroom(place,desc,table.concat(ways,'|'))
199.         if table.getn(roomidt)~=1 then
200.             Note("此处不好定位,换个地方。走："..ranway)
201.             Execute("h;"..ranway)
202.         end
203.     end
204.     Note("当前房间:"..roomidt[1])
205.     return roomidt[1]
206. end
208. function walk(toname,tozone)
209.     local rooms=findroom(toname)
210.     local startid=where()
211.     local i,v,ii,vv
212.     local path
213.     local find=string.find
214.     if rooms~=nil and rooms~={} then
215.         if  tozone~=nil then
216.             for ii,vv in ipairs(rooms) do
217.                 if find((room[vv])["zone"],tozone) then
218.                 else
219.                     Note("区域："..(room[vv])["zone"].."不合要求"..tozone)
220.                     rooms[ii]=0
221.                 end
222.             end
223.         end
224.         --只处理到第一个位置
225.         for i,v in ipairs(rooms) do
226.             if v~=nil and v~=0 then
227.                 path=pathbyid(startid,v)
228.                 if path~=nil and path~="" then break end
229.             end
230.         end
231.         if path~=nil and path~="" then
232.             --找到了通路,执行咯！
233.             local patht=utils.split(path,";")
234.             for i,v in ipairs(patht) do
235.                 wait.time(1)
236.                 Execute("h;"..v)
237.             end
238.         else
239.             Note("奇怪，没有通路")
240.         end
241.     else
242.         Note("无法定位目标房间号")
243.     end
244. end
246. function to_npc(tonpc)
247.      --无数据，有数据很好实现，把目标找到和上面就一样了。    
248. end