初学mush,试写遍历代码,请各位高手指教

pos

1. ---遍历指定深度找房间
   
2. ---输入参数       
   
3. ---roomname                 string                目标房间名称
   
4. ---roomway                sting                目标房间出口
   
5. ---wayarray     array                起步出口数组
   
6. ---steps                number                遍历深度
   
7. ---输出参数       
   
8. ---1                Boolean                是否发现目标房间
   
9. ---2                string                发现目标的完整路径
   
10. function goallwaytofind(roomname,roomway,thisroomarray,steps)
    
11.         local room="";        local way="";        local forward="";        local fw="";        local found=false
    
12. 
    
13.         if thisroomarray=={} then return found,forward end
    
14.         for j in ipairs(thisroomarray) do
    
15.                 exe(thisroomarray[j])
    
16.                 while true do
    
17.                         l,w=wait.regexp("^(\\S*)\\s*-\\s*$|^>*\\s*绿萼白了你一眼道.*|^>*\\s*店小二一下挡在楼梯前.*|^>*\\s*这里通向神的世界.*|你小心翼翼往前挪动|青海湖畔美不胜收，你不由停下脚步，欣赏起了风景。")
    
18.                         if string.find(l,"%s+-%s+$") then --正常行走部分
    
19.                                 room=w[1]
    
20.                                 break
    
21.                         elseif string.find(l,"绿萼白了你一眼道") or string.find(l,"店小二一下挡在楼梯前")  --无法通过部分
    
22.                                 or string.find(l,"这里通向神的世界") then                       
    
23.                                 local roomarray={}
    
24.                                 for i,k in ipairs(thisroomarray) do
    
25.                                         if i>j then roomarray[i-j]=k end        --忽略过不去的方向.
    
26.                                 end
    
27.                                 found,fw=goallwaytofind(roomname,roomway,roomarray,steps)        --剩余方向继续遍历.
    
28.                                 forward=forward..";"..fw
    
29.                                 forward=formatway(forward)
    
30.                                 return found,forward
    
31.                         elseif string.find(l,"你小心翼翼往前挪动") or string.find(l,"青海湖畔美不胜收")  --需缓慢行走部分
    
32.                                 wait.time(3)
    
33.                         end
    
34.                 end --end while true do
    
35. 
    
36.                 l,w=wait.regexp("^\\s*这里.*的出口是\\s*(.*)。$")
    
37.                 if string.find(l,"的出口是") then
    
38.                         way=w[1]
    
39.                         forward=forward..";"..thisroomarray[j]
    
40.                 end
    
41. 
    
42.                 if isrightroom(roomname,roomway,room,way,step_count) then
    
43.                         found=true
    
44.                         break
    
45.                 elseif steps>1 then
    
46.                         if room="苗岭边缘" then way=removesamedirection(way,"southup") end
    
47.                         found,fw=goallwaytofind(roomname,roomway,splitway(removesamedirection(formatway(way),reverse[thisroomarray[j]])),steps-1)
    
48.                         forward=forward..";"..fw
    
49.                         if found then break end
    
50.                 end
    
51.                                
    
52.                 exe(reverse[thisroomarray[j]])
    
53.                 l,w=wait.regexp("^\\s*这里.*的出口是\\s*.*。$")
    
54.                 forward=forward..";"..reverse[thisroomarray[j]]
    
55.         end        ---for j in ipairs(bt[steps.."-"..tostring(i)]) do
    
56. 
    
57.         forward=formatway(forward)
    
58.         return found,forward
    
59. end
    

复制代码

最近解决推车乱入问题,顺便写了个小遍历,共享一下.请各位同好斧正.

北大侠客行MUD，中国最好的MUD

labaz

formatway是干啥的？

pos

回复 4# labaz


把各种格式出口表述,变成用分号;为间隔的字符串

pos

formatway是干啥的？
labaz 发表于 2012-12-5 01:38 PM

比如:
north、west、south、east、southwest 和 northeast
变成:north;west;south;east;southwest;northeast

labaz

回复 6# pos

l,w=wait.regexp("^\\s*这里.*的出口是\\s*.*。$")
forward=forward..";"..reverse[thisroomarray[j]]

上面不是已经有;的处理了吗？

另外最后获得的路径有压缩处理吗？

pos

1. ---简化路径，剔除遍历时重复路径
   
2. ---输入参数
   
3. ---way string 标准路径字符串
   
4. ---输出参数
   
5. ---1 string 剔除重复路径后的标准路径字符串
   
6. function simplifyway(way)
   
7. if not string.find(way,";") then return way end
   
8. 
   
9. local pos=0
   
10. local lastpath=""
    
11. local lastpathpos=0
    
12. while string.find(way,"%a+%p",pos) do
    
13. a,b=string.find(way,"%a+%p",pos)
    
14. if lastpath==reverse[string.sub(way,a,b-1)] then
    
15. way=string.sub(way,0,lastpathpos)..string.sub(way,b)
    
16. lastpath=""
    
17. lastpathpos=0
    
18. pos=0
    
19. else
    
20. lastpath=string.sub(way,a,b-1)
    
21. lastpathpos=pos
    
22. pos=b
    
23. end
    
24. end
    
25. 
    
26. if string.find(way,".*%a$") then
    
27. a,b=string.find(way,"%p%a+$",pos)
    
28. if lastpath==reverse[string.sub(way,a+1,b)] then
    
29. way=string.sub(way,1,lastpathpos)
    
30. end
    
31. end
    
32. 
    
33. way=formatway(way)
    
34. return way
    
35. end
    

复制代码

有时会出现第一个字符或最后一个字符是“；”，formatway可以处理掉。大部分时间是习惯的冗余处理。反正这个也不化服务器资源。

hijacker

mark学习下，总是搞不太懂递归

wxkx

小弟初学mush，求formatway函数的内容，谁能贴出来？

cappuccino

回复 8# wxkx

我在几个存储设备里找了20+min。。。以下代码的作者是楼主，借此怀念下pos

1. --------------------------------------------------------------------------------------------------------------
   
2. ---格式化路径字符串为";"间隔的标准路径字符串，
   
3. ---输入参数
   
4. ---way                        string                从游戏中抓取的路径字符串
   
5. ---输出参数
   
6. ---1                        sting                标准路径字符串
   
7. --------------------------------------------------------------------------------------------------------------
   
8. function formatway(way)
   
9.         way=string.gsub(way," 和 ",";")
   
10.         way=string.gsub(way,"、",";")
    
11.         way=string.gsub(way," ",";")
    
12.         way=string.gsub(way,"。",";")
    
13.         if way=="" then return "" end
    
14.         way=string.gsub(way,";+",";")
    
15.         way=string.gsub(way,"^;+(.*)","%1")
    
16.         way=string.gsub(way,"(.*);+$","%1")
    
17.         return way
    
18. end

复制代码