mushclient的automap之lua脚本实现

这几天操作了一下侠客行MUD游戏，通过mushclient这个软件。不过，自带的路径生成器，操作起来感觉不爽。
就自己重做了一个实现。全部命令行操作，比较方便。代码不多。

1. --mushclient automap 工具 by suxiaojack 2008.9
2. --完全在命令行实现。感觉比自带的操作起来方便。
3. --说明，应该设置mushclient的脚本识别标识为'.'
4. --这样命令行调用时使用.wk="内容"就可以调用了！
5. --启动   .wait.make(automap)
6. --开始执行一个新path.
7. --              .wk="s"
9. --进行步进 .wk="n/s"   表示我现在向北走返回为南
10. --              .wk="nd/su" 等等
11. --              可以写一半另一半自动识别
12. --在处理开门关门顺序上需要连续书写两个
13. --比如  .wk="open door;n/open door;s"
15. --执行错误的一步怎么办？
16. --         .wk="d"       表示删除上一步的内容,命令完全是无效的。
17. --         .wk="b"       表示删除上一步的内容但是我的位置会自动回退
18. --在路径错误，回退。或者是我要部分修改时回退等等。
19. --其他：
20. --         .wk="gb"   返回
21. --         .wk="gg"    再走   这两个用来验证一下。
22. --         .wk="save   xx"    保存正向alias xx
23. --         .wk="save   xx ff"  保存正向 xx 反向ff 的alias
24. --         .wk="show"            查看当前路径串
25. --         .wk="nouse"   终止使用
28. wk=""
30. mappath=""
32. mapper={
33. ["n"]="s",
34. ["s"]="n",
35. ["w"]="e",
36. ["e"]="w",
37. ["u"]="d",
38. ["d"]="u",
39. ["ne"]="sw",
40. ["nw"]="se",
41. ["nu"]="sd",
42. ["nd"]="su",
43. ["se"]="nw",
44. ["sw"]="ne",
45. ["su"]="nd",
46. ["sd"]="nu",
47. ["wu"]="ed",
48. ["wd"]="eu",
49. ["eu"]="wd",
50. ["ed"]="wu"
52. }
53. require "wait"
55. function find(l,p)
56.     return string.find(l,p) 
57. end
59. function automap()
60.     Note("automap启动!")
61.     Note("         by suxiaojack")
62.     local pathlen,t
63.     while 1 do
64.     if wk ~= "" then
65.         if wk=="s" then
66.         --清空路径，开始新纪录
67.             mappath=""
68.             Send("place")   --!!!查看地图的命令，改为帮自己辨向的!!!
69.         else
70.             t=utils.split(mappath,".")
71.             if t~=nil then
72.                 pathlen=table.getn(t)
73.                 t[1]=nil --开头一个总是空的
74.             else
75.                 pathlen=0
76.             end
77.             --
78.             if wk=="gb" or wk=="gg" then
79.                 local z=""
80.                 local f=""
81.                 if pathlen>1 then
82.                     for i =2,pathlen do
83.                         v=t[i]
84.                         if v~=nil then
85.                             re = rex.new ("(.*)/(.*)")
86.                             s, e, tt = re:match (v)
87.                             z=z..tt[1]..";"
88.                             f=tt[2]..";"..f
89.                         end
90.                     end
91.                 end
92.                 if wk=="gg" then --再走
93.                     Execute(z)
94.                 end
95.                 if wk=="gb" then --回去