学习MUSH第三日（续）---抓取房间，出口，地点

religiose

都是收集别人的帖子,copy代码，加自己实践出来的（mush4.43绿色版）。
直接上例子：抓取一个房间的名称，描述，出口
房间格式类似如下：
一个小房间 -
     这里是一个小房间，是花一朵的小屋，淡雅，恬静。屋子中间放着几张座椅，普拉普拉普拉
   普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉
   普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉普拉。
     这里明显的出口是 up, out 和 west。

1，抓ROOM名称：触发器匹配：^(.{2,})\s\-\s$   发送就不写了，抓到了干什么都可以。
2，copy别人的，匹配：

1. 
   
2. 
   
4.    name="room_desc"
   
5.    id="026692aaf3e3f8a2ef495057"
   
6.    language="Lua"
   
7.    save_state="y"
   
8.    date_written="2012-01-08 19:17:28"
   
9.    requires="4.43"
   
10.    version="1.0"
    
11.    >
    
12. 
    
13. 
    
14.   
15.    enabled="y"
    
16.    group="map"
    
17.    lines_to_match="4"
    
18.    match="^$\n^\S+\s-\s$\n^\s+(\S+)\s*$\n^\s+"
    
19.    multi_line="y"
    
20.    name="map_desc1"
    
21.    regexp="y"
    
22.    send_to="12"
    
23.    sequence="101"
    
24.    variable="map_desc1"
    
25.   >
    
26.   getRoomDesc("room_desc","%1")
    
27.   
    
28.   
29.    enabled="y"
    
30.    group="map"
    
31.    lines_to_match="5"
    
32.    match="^$\n^\S+\s-\s$\n^\s+(\S+)\s*$\n^(\S+)\s*$\n^\s+"
    
33.    multi_line="y"
    
34.    name="map_desc2"
    
35.    regexp="y"
    
36.    send_to="12"
    
37.    sequence="102"
    
38.    variable="map_desc2"
    
39.   >
    
40.   getRoomDesc("room_desc","%1".."%2")
    
41.   
    
42.   
43.    enabled="y"
    
44.    group="map"
    
45.    lines_to_match="6"
    
46.    match="^$\n^\S+\s-\s$\n^\s+(\S+)\s*$\n^(\S+)\s*$\n^(\S+)\s*$\n^\s+"
    
47.    multi_line="y"
    
48.    name="map_desc3"
    
49.    regexp="y"
    
50.    send_to="12"
    
51.    sequence="103"
    
52.    variable="map_desc3"
    
53.   >
    
54.   getRoomDesc("room_desc","%1".."%2".."%3")
    
55.   
    
56.   
57.    enabled="y"
    
58.    group="map"
    
59.    lines_to_match="7"
    
60.    match="^$\n^\S+\s-\s$\n^\s+(\S+)\s*$\n^(\S+)\s*$\n^(\S+)\s*$\n^(\S+)\s*$\n^\s+"
    
61.    multi_line="y"
    
62.    name="map_desc6"
    
63.    regexp="y"
    
64.    send_to="12"
    
65.    sequence="104"
    
66.    variable="map_desc6"
    
67.   >
    
68.   getRoomDesc("room_desc","%1".."%2".."%3".."%4")
    
69.   
    
70.   
71.    enabled="y"
    
72.    group="map"
    
73.    lines_to_match="8"
    
74.    match="^$\n^\S+\s-\s$\n^\s+(\S+)\s*$\n^(\S+)\s*$\n^(\S+)\s*$\n^(\S+)\s*$\n^(\S+)\s*$\n^\s+"
    
75.    multi_line="y"
    
76.    name="map_desc5"
    
77.    regexp="y"
    
78.    send_to="12"
    
79.    sequence="105"
    
80.    variable="map_desc5"
    
81.   >
    
82.   getRoomDesc("room_desc","%1".."%2".."%3".."%4".."%5")
    
83.   
    
84. 
    
85. 
    
86. 
    
87. 
    
88. 
    

复制代码

3，出口：

1. require "wait"
   
2. require "tprint"
   
3. place=nil
   
4. desc=nil
   
5. ways=nil
   
6. function way_t()
   
7.     local l,w
   
8.     local find=string.find
   
9. Note(1)
   
10.     while 1 do
    
11. Note(7)
    
12.     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]+)")
    
13. Note(l)
    
14. Note(w)
    
15. ways=nil
    
16.           ways={}
    
17.           local id=1
    
18.           if find(l,"-") then
    
19.            for i,v in ipairs(w) do
    
20.             if v~=nil and v~=false and (not find(v,">")) and v~="" and i>2 then
    
21.              Note(v)
    
22.              ways[id]=v
    
23.              id=id+1
    
24.             end
    
25.            end
    
26.           else
    
27.            for i,v in ipairs(w) do
    
28.             if v~=nil and v~=false and v~="" then
    
29.              Note(v)
    
30.              ways[id]=v
    
31.              id=id+1
    
32.             end
    
33.            end
    
34.           end
    
35.          tprint(ways)
    
36.     end
    
37. Note(6)
    
38. end
    
39. function init()
    
40.     wait.make(way_t);
    
41. end
    
42. init()

复制代码

基本都是收集的，不过看懂了，用起来还是蛮爽的。

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

labaz

看着像是2毛的代码风格

dcl

出口处理的不全，丐帮暗道梁长老那里的出口你这个捕获不到