帖个js转换zmud格式alias的东东，方便mushclient初学者

tianheng

帖个js转换zmud格式alias的东东，方便mushclient初学者

1. 
   
2. var pathArray = {"e" : "w", "east" : "west", "eu" : "wd", "eastup" : "westdown",
   
3. "ed" : "wu", "eastdown" : "westup", "w" : "e", "west" : "east",
   
4. "wu" : "ed", "westup" : "eastdown", "wd" : "eu", "westdown" : "eastup",
   
5. "s" : "n", "south" : "north", "su" : "nd", "southup" : "northdown",
   
6. "sd" : "nu", "southdown" : "northup", "n" : "s", "north" : "south",
   
7. "nu" : "sd", "northup" : "southdown", "nd" : "su", "northdown" : "southup",
   
8. "u" : "d", "up" : "down", "d" : "u", "down" : "up", "se" : "nw",
   
9. "southeast" : "northwest", "sw" : "ne", "southwest" : "northeast",
   
10. "ne" : "sw", "northeast" : "southwest", "nw" : "se", "northwest" : "southeast",
    
11. "enter" : "out", "out" : "enter"};
    
12. /**路径中默认可以识别的方向和行为**/
    
13. var pa = {"n":"north","s":"south","e":"east","w":"west","u":"up","d":"down",
    
14. "c":"close","o":"open","l":"look","k":"unlock"};
    
15. /**显示消息**/
    
16. function show(obj) {
    
17. var shell = new ActiveXObject("WScript.Shell");
    
18. shell.Popup(obj);
    
19. }
    
20. /**处理zMud格式的alias**/
    
21. function alias(aliastr) {
    
22. var a = aliastr.toLowerCase();
    
23. var name = "", path = "";
    
24. if (a.indexOf("#alias") != -1) {
    
25.   name = a.substring(7,a.indexOf("{") - 1);
    
26.   path = a.substring(a.indexOf("{") + 1,a.indexOf("}"));
    
27. }
    
28. var ary = path.split(";");
    
29. var tp = "";
    
30. for (i = 0; i < ary.length; i++) {
    
31.   var regExp0 = /#(\d{1,})(\s*)(.*)/;
    
32.   var regExp2 = /do(\s*)(\d{1,})(\s*)(.*)/;
    
33.   var regExp1 = /#wa(\s*)(\d{1,})/;
    
34.   if (regExp1.test(ary)) {
    
35.   } else if (regExp0.test(ary)) {
    
36.    var reg = regExp0.exec(ary);
    
37.    var n = RegExp.$1;
    
38.    var s = RegExp.$3;
    
39.    tp += n + parseStr(s);
    
40.   } else if (regExp2.test(ary)) {
    
41.    var reg = regExp2.exec(ary);
    
42.    var n = RegExp.$2;
    
43.    var s = RegExp.$4;
    
44.    tp += n + parseStr(s);
    
45.   } else {
    
46.    tp += parseStr(ary);
    
47.   }
    
48. }
    
49. function parseStr(str) {
    
50.   var tmp = "";
    
51.   var t = pathArray[str];
    
52.   if (t != undefined) {
    
53.    if (pa[str] != undefined) {
    
54.     tmp = str;
    
55.    } else {
    
56.     tmp = "(" + str + "/" + t + ")";
    
57.    }
    
58.   } else {
    
59.    tmp = "(" + str + ")";
    
60.   }
    
61.   return tmp;
    
62. }
    
63. return tp;
    
64. }
    
65. eval(show(alias("#alias baituo {n;w;do 2 ask qian about 白驼山;give qian 1 gold;#2 sw;#wa 1000;do 5 d}")));

复制代码

欢迎大家指正！

[ 本帖最后由 tianheng 于 2009-1-7 04:17 PM 编辑 ]

tianheng

测试用的alias是为了测试乱写的

tianheng

var regExp0 = /#(\d{1,})(\s*)(.*)/;
var regExp2 = /do(\s*)(\d{1,})(\s*)(.*)/;
感觉这两个可以合并为一个，但不知道怎么弄。

tianheng

呵呵，精华了。修改了下，可以批量转换文件中的＃alias。调用方法为：/myaddalias("x:/pkuxkx_path.txt");

1. 
   
2. var pathArray = {"e" : "w", "east" : "west", "eu" : "wd", "eastup" : "westdown",
   
3. "ed" : "wu", "eastdown" : "westup", "w" : "e", "west" : "east",
   
4. "wu" : "ed", "westup" : "eastdown", "wd" : "eu", "westdown" : "eastup",
   
5. "s" : "n", "south" : "north", "su" : "nd", "southup" : "northdown",
   
6. "sd" : "nu", "southdown" : "northup", "n" : "s", "north" : "south",
   
7. "nu" : "sd", "northup" : "southdown", "nd" : "su", "northdown" : "southup",
   
8. "u" : "d", "up" : "down", "d" : "u", "down" : "up", "se" : "nw",
   
9. "southeast" : "northwest", "sw" : "ne", "southwest" : "northeast",
   
10. "ne" : "sw", "northeast" : "southwest", "nw" : "se", "northwest" : "southeast",
    
11. "enter" : "out", "out" : "enter"};
    
12. /**路径中默认可以识别的方向和行为**/
    
13. var pa = {"n":"north","s":"south","e":"east","w":"west","u":"up","d":"down",
    
14. "c":"close","o":"open","l":"look","k":"unlock"};
    
15. /**显示消息**/
    
16. function show(obj) {
    
17. var shell = new ActiveXObject("WScript.Shell");
    
18. shell.Popup(obj);
    
19. }
    
20. /**处理zMud格式的alias**/
    
21. function alias(aliastr) {
    
22. var a = aliastr.toLowerCase();
    
23. var name = "", path = "";
    
24. if (a.indexOf("#alias") != -1) {
    
25.   name = a.substring(7,a.indexOf("{") - 1);
    
26.   path = a.substring(a.indexOf("{") + 1,a.indexOf("}"));
    
27. }
    
28. var ary = path.split(";");
    
29. var tp = "";
    
30. for (i = 0; i < ary.length; i++) {
    
31.   var regExp0 = /#(\d{1,})(\s*)(.*)/;
    
32.   var regExp2 = /do(\s*)(\d{1,})(\s*)(.*)/;
    
33.   var regExp1 = /#wa(\s*)(\d{1,})/;
    
34.   if (regExp1.test(ary)) {
    
35.   } else if (regExp0.test(ary)) {
    
36.    var reg = regExp0.exec(ary);
    
37.    var n = RegExp.$1;
    
38.    var s = RegExp.$3;
    
39.    tp += n + parseStr(s);
    
40.   } else if (regExp2.test(ary)) {
    
41.    var reg = regExp2.exec(ary);
    
42.    var n = RegExp.$2;
    
43.    var s = RegExp.$4;
    
44.    tp += n + parseStr(s);
    
45.   } else {
    
46.    tp += parseStr(ary);
    
47.   }
    
48. }
    
49. function parseStr(str) {
    
50.   var tmp = "";
    
51.   var t = pathArray[str];
    
52.   if (t != undefined) {
    
53.    if (pa[str] != undefined) {
    
54.     tmp = str;
    
55.    } else {
    
56.     tmp = "(" + str + "/" + t + ")";
    
57.    }
    
58.   } else {
    
59.    tmp = "(" + str + ")";
    
60.   }
    
61.   return tmp;
    
62. }
    
63. return tp;
    
64. }
    
65. //eval(show(alias("#alias baituo {n;w;do 2 ask qian about 白驼山;give qian 1 gold;#2 sw;#wa 1000;do 5 d}")));
    
66. /**处理zMud格式的alias**/
    
67. function alias(aliastr) {
    
68. var a = aliastr.toLowerCase();
    
69. var name = "", path = "";
    
70. if (a.indexOf("#alias") != -1) {
    
71.   name = a.substring(7,a.indexOf("{") - 1);
    
72.   path = a.substring(a.indexOf("{") + 1,a.indexOf("}"));
    
73. }
    
74. var ary = path.split(";");
    
75. var tp = "";
    
76. for (i = 0; i < ary.length; i++) {
    
77.   var regExp0 = /#(\d{1,})(\s*)(.*)/;
    
78.   var regExp2 = /do(\s*)(\d{1,})(\s*)(.*)/;
    
79.   var regExp1 = /#wa(\s*)(\d{1,})/;
    
80.   if (regExp1.test(ary)) {
    
81.   } else if (regExp0.test(ary)) {
    
82.    var reg = regExp0.exec(ary);
    
83.    var n = RegExp.$1;
    
84.    var s = RegExp.$3;
    
85.    tp += n + parseStr(s);
    
86.   } else if (regExp2.test(ary)) {
    
87.    var reg = regExp2.exec(ary);
    
88.    var n = RegExp.$2;
    
89.    var s = RegExp.$4;
    
90.    tp += n + parseStr(s);
    
91.   } else {
    
92.    tp += parseStr(ary);
    
93.   }
    
94. }
    
95. function parseStr(str) {
    
96.   var tmp = "";
    
97.   var t = pathArray[str];
    
98.   if (t != undefined) {
    
99.    if (pa[str] != undefined) {
    
100.     tmp = str;
     
101.    } else {
     
102.     tmp = "(" + str + "/" + t + ")";
     
103.    }
     
104.   } else {
     
105.    tmp = "(" + str + ")";
     
106.   }
     
107.   return tmp;
     
108. }
     
109. note(name + " = " + tp);
     
110. addalias(name, name, tp, 1|32|1024|2048, "");
     
111. //return tp;
     
112. }
     
113. function myaddalias(file) {
     
114. try {
     
115.   var fso, rf, r;
     
116.   var ForReading = 1, ForWriting = 2, ForAppending = 8;
     
117.   fso = new ActiveXObject("Scripting.FileSystemObject");
     
118.   rf = fso.OpenTextFile(file, ForReading);
     
119.   while (!rf.AtEndOfStream) {
     
120.    r = rf.ReadLine();
     
121.    if (trim(r) != "") {
     
122.     alias(r);
     
123.    }
     
124.   }
     
125.   rf.close();
     
126.   note("ok!");
     
127. }
     
128. catch (e) {
     
129. }
     
130. }

复制代码

附件更新过了！

[ 本帖最后由 tianheng 于 2009-1-7 04:18 PM 编辑 ]

bfmgqy

发一个mush版的插件，北侠常用路径的插件，和zmud的差不多，很像