之前玩ES2 时用的地图.

vase

很粗糙不过手动辅助还算能用

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6. 
   
7. 
   
8. 
   
10.    name="es2_map"
    
11.    id="17bc23ea8b108255c54637fc"
    
12.    language="PerlScript"
    
13.    save_state="y"
    
14.    date_written="2014-07-02 17:44:58"
    
15.    requires="4.84"
    
16.    version="1.0"
    
17.    >
    
18. 
    
19. 
    
20. 
    
21. 
    
22. 
    
23. 
    
24. 
    
25. 
    
26. 
    
27. 
    
28. 
    
29.   
30.    enabled="y"
    
31.    group="map"
    
32.    lines_to_match="15"
    
33.    match="(.+) - \n((?:((?! - ).)*\n){1,14}?)(?:    .+\n)?(?:    這裡沒有任何明顯的出路。|    這裡.+的出口是 (.+)。)\n\z"
    
34.    multi_line="y"
    
35.    regexp="y"
    
36.    script="onMapLog"
    
37.    sequence="100"
    
38.   >
    
39.   
    
40.   
41.    enabled="y"
    
42.    group="map"
    
43.    match="指令錯誤，請用 help cmds 查詢可用的指令。"
    
44.    script="clearPath"
    
45.    sequence="100"
    
46.   >
    
47.   
48.    enabled="y"
    
49.    group="map"
    
50.    match="要移動請你先用 halt 終止你正在做的事。"
    
51.    script="clearPath"
    
52.    sequence="100"
    
53.   >
    
54.   
    
55.   
56.    enabled="y"
    
57.    group="map"
    
58.    match="這個方向沒有出路。"
    
59.    script="clearPath"
    
60.    sequence="100"
    
61.   >
    
62.   
    
63. 
    
64. 
    
65. 
    
66. 
    
67. 
    
68.   
69.    name="MAP_checkAsciiOn"
    
70.    match="MAP_checkASCIIOn"
    
71.    enabled="y"
    
72.    group="map"
    
73.    send_to="12"
    
74.    sequence="100"
    
75.   >
    
76.   setVariable("asciiCheck", 1);
    
77. setAliasOption ("MAP_checkAsciiOn", "menu", "n");
    
78. setAliasOption ("MAP_checkAsciiOff", "menu", "y");
    
79. note("ascii check turn on");
    
80.   
    
81.   
82.    name="MAP_checkAsciiOff"
    
83.    match="MAP_checkAsciiOff"
    
84.    enabled="y"
    
85.    group="map"
    
86.    send_to="12"
    
87.    menu="y"
    
88.    sequence="100"
    
89.   >
    
90.   setVariable("asciiCheck", 0);
    
91. setAliasOption ("MAP_checkAsciiOn", "menu", "y");
    
92. setAliasOption ("MAP_checkAsciiOff", "menu", "n");
    
93. note("ascii check turn off");
    
94.   
    
95.   
96.    name="MAP_mapLogOn"
    
97.    script="logOn"
    
98.    match="MAP_logOn"
    
99.    enabled="y"
    
100.    menu="y"
     
101.    sequence="100"
     
102.   >
     
103.   
     
104.   
105.    name="MAP_mapLogOff"
     
106.    script="logOff"
     
107.    match="MAP_logOff"
     
108.    enabled="y"
     
109.    sequence="100"
     
110.   >
     
111.   
     
112.   
113.    script="delete"
     
114.    match="#d (\w+) ([\d,]+)"
     
115.    enabled="y"
     
116.    regexp="y"
     
117.    sequence="100"
     
118.   >
     
119.   
     
120.   
121.    match="#mp *"
     
122.    enabled="y"
     
123.    send_to="12"
     
124.    sequence="100"
     
125.   >
     
126.   &main::markAsPuzzle("%1")
     
127.   
     
128.   
129.    match="^#ad (\d+) (\d+)"
     
130.    enabled="y"
     
131.    regexp="y"
     
132.    send_to="12"
     
133.    sequence="100"
     
134.   >
     
135.   &main::addDoor("%1", "%2")
     
136.   
     
137.   
138.    match="^#gp (\d+) (\d+)"
     
139.    enabled="y"
     
140.    regexp="y"
     
141.    send_to="12"
     
142.    sequence="100"
     
143.   >
     
144.   &main::getPaths("%1", "%2", 1)
     
145.   
     
146.   
147.    match="^#wtf (\d+)$"
     
148.    enabled="y"
     
149.    regexp="y"
     
150.    send_to="12"
     
151.    sequence="99"
     
152.   >
     
153.   &main::getPathsForIdAndWalkTo("%1", 0.3)
     
154.   
     
155.   
156.    match="^#wtf ([A-z0-9_]+)$"
     
157.    enabled="y"
     
158.    regexp="y"
     
159.    send_to="12"
     
160.    sequence="100"
     
161.   >
     
162.   &main::getPathsForAliasAndWalkTo("%1", 0.3)
     
163.   
     
164.   
165.    match="^#aa ([A-z0-9_]+) (\d+)$"
     
166.    enabled="y"
     
167.    regexp="y"
     
168.    send_to="12"
     
169.    sequence="100"
     
170.   >
     
171.   &main::alias("%2", "%1")
     
172.   
     
173.   
174.    match="^#aag ([A-z0-9_]+) (\d+)$"
     
175.    enabled="y"
     
176.    regexp="y"
     
177.    send_to="12"
     
178.    sequence="100"
     
179.   >
     
180.   &main::aliasGlobal("%2", "%1")
     
181.   
     
182.   
183.    match="^#da (\d+)$"
     
184.    enabled="y"
     
185.    regexp="y"
     
186.    send_to="12"
     
187.    sequence="100"
     
188.   >
     
189.   &main::delAlias("%1")
     
190.   
     
191.   
192.    name="MAP_showAlias"
     
193.    match="#sa"
     
194.    omit_from_command_history="y"
     
195.    enabled="y"
     
196.    send_to="12"
     
197.    menu="y"
     
198.    sequence="100"
     
199.   >
     
200.   &main::showAlias()
     
201.   
     
202.   
203.    match="^#sp( (\d+))?$"
     
204.    enabled="y"
     
205.    regexp="y"
     
206.    send_to="12"
     
207.    sequence="100"
     
208.   >
     
209.   
     
210.     if("%2" eq ""){
     
211.                 &main::walkTo(getVariable("sp1"), 0.3);
     
212.         }else{
     
213.                 &main::walkTo(getVariable("sp%2"), 0.3);
     
214.         }
     
215.   
     
216.   
     
217.   
218.    name="MAP_closeDB"
     
219.    script="closeDB"
     
220.    match="MAP_closeDB"
     
221.    enabled="y"
     
222.    omit_from_command_history="y"
     
223.    sequence="100"
     
224.   >
     
225.   
     
226.   
227.    name="MAP_openDB"
     
228.    script="openDB"
     
229.    match="MAP_openDB"
     
230.    enabled="y"
     
231.    sequence="100"
     
232.   >
     
233.   
     
234.   
235.    name="MAP_usage"
     
236.    script="usage"
     
237.    match="MAP_usage"
     
238.    enabled="y"
     
239.    sequence="100"
     
240.    menu="y"
     
241.   >
     
242.   
     
243.   
244.    name="MAP_debug"
     
245.    script="debug"
     
246.    match="MAP_debug"
     
247.    enabled="y"
     
248.    sequence="100"
     
249.    menu="y"
     
250.   >
     
251.   
     
252. 
     
253. 
     
254. 
     
255. 
     
256. 
     
257.   0
     
258.   0
     
259.   0
     
260.   0
     
261.   1
     
262.   、| 和
     
263.    -~
     
264.   -1
     
265.   1
     
266.   -1
     
267.   3
     
268. 
     
269. 
     
270. 
     
271. 
     
272. 
     
273. 
     
274. 
     
275. 
     
276. 
     

复制代码

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

hkyyxss

好长