求解析path_bianli_lib.lua

dniao

3  谁帮我翻译下这个文件，主要是算法有点看不懂。。。会用，但是功能太少了，我想自己加点东西进去

1. path_dir_bianli_table={
   
2.         ["path_dl"]="wtlkwenssnjnwnsenhehlnnsjkewlhswlseetjhnehkesklgwwsgeensstgsnwenwswweeeewnssnwsweeudwswswenntwnsegseenssnwspllhnhntgslshiswwntnswuwtgeetgetgwwdegseeselelhwhw6n",
   
3.        
   
4. }
   
5. 
   
6. function is_number(c_name)
   
7. 
   
8.         local x,y=string.find(c_name,".*");
   
9.         for x=1,y do
   
10.                 local b=string.byte(string.sub(c_name,x,x));--将截取到的字符串转换为整数
    
11.                 if ((b<48) or (b>57)) then
    
12.                         return false;
    
13.                 end
    
14.         end
    
15.         return true;
    
16. end
    
17. 
    
18. temp_slow_path_table={};
    
19. function fill_slow_path(path_name)
    
20. local i,v = string.find(path_dir_bianli_table[path_name],".*");--匹配表中的字符串，i为字符串的起始位置，v为结束位置
    
21.         while i<=v  do
    
22.                 if is_number(string.sub(path_dir_bianli_table[path_name],i,i+1)) then
    
23.                 --如果is_number（）为true，但括号里的内容有点不理解，怎么成为is_number的参数
    
24.                
    
25.                         for j=1,string.sub(path_dir_bianli_table[path_name],i,i+1) do--string.sub返回的是什么值？
    
26. 
    
27.                                 if nil~= path_dir_table[string.sub(path_dir_bianli_table[path_name], i+2, i+2)] then
    
28.                                         table.insert(temp_slow_path_table, path_dir_table[string.sub(path_dir_bianli_table[path_name], i+2, i+2)].cmd);
    
29.                                         --将当前获取的一个字符串所表示的cmd值存入temp_slow_path_table中
    
30.                                 else
    
31.                                         table.insert(temp_slow_path_table, string.sub(path_dir_bianli_table[path_name], i+2, i+2));
    
32.                                         --将当前获取的一个字符串存入temp_slow_path_table
    
33.                                 end
    
34.                         end
    
35.                         i=i+3;
    
36.                 elseif is_number(string.sub(path_dir_bianli_table[path_name], i, i)) then
    
37.                         for j=1,string.sub(path_dir_bianli_table[path_name],i,i) do
    
38.                                 if nil~= path_dir_table[string.sub(path_dir_bianli_table[path_name],i+1,i+1)] then
    
39.                                         table.insert(temp_slow_path_table, path_dir_table[string.sub(path_dir_bianli_table[path_name],i+1,i+1)].cmd);
    
40.                                 else
    
41.                                         table.insert(temp_slow_path_table, string.sub(path_dir_bianli_table[path_name],i+1,i+1));
    
42.                                 end
    
43.                         end
    
44.                         i=i+2;
    
45.                 else
    
46.                         if nil~= path_dir_table[string.sub(path_dir_bianli_table[path_name], i, i)] then
    
47.                                 table.insert(temp_slow_path_table, path_dir_table[string.sub(path_dir_bianli_table[path_name], i, i)].cmd);
    
48.                         else
    
49.                                 table.insert(temp_slow_path_table, string.sub(path_dir_bianli_table[path_name], i, i));
    
50.                         end
    
51.                         i=i+1;
    
52.                 end
    
53.         end
    
54. end
    
55. 
    
56. function slow_path(path_name, time_wait)
    
57.         if nil~= path_dir_bianli_table[path_name] then
    
58.                 fill_slow_path(path_name);
    
59.                 slow_path_thread=coroutine.create(function ()--coroutine.create创建一个协同程序
    
60.                         for i,v in ipairs(temp_slow_path_table) do--遍历表
    
61.                 world.DoAfterSpecial(time_wait, "slow_auto_next();",12);--n秒之后继续执行slow_path_thread
    
62.                                 coroutine.yield();--程序被挂起，暂停运行
    
63.                                 world.Send(v);
    
64.                         end
    
65.                 end);
    
66.                 coroutine.resume(slow_path_thread);--从yeild处开始继续执行  else
    
67.                 Note("你有这个搜索路径么");  end endfunction slow_auto_next() if slow_state==0 then coroutine.resume(slow_path_thread); endend

复制代码

[ 本帖最后由 aiccybb 于 2011-10-18 04:10 PM 编辑 ]

dniao

sigh。。。  来个人交流下吧。。。这是好东西啊

littleknife

这是一个线性遍历库，它的作用是根据zmud录制的路线，按照一定的路线遍历最后返回出发点。
1、这个库是一个早期的库，现在要是用估计得修改不少内容。但是确实是一个不错的学习材料（早期的城际互联就是参考这个代码）。
2、它的暂停机制有时候会失灵。
3、这里有zmud录制的遍历路线转换为一般路线函数，可是缺少一般的zmud路线转换为遍历路线的函数。即遍历路线的形成必须进入zmud中自己录制才可以。

pizzagoo

我的明教新手机器人就用了这个，不过发现有个bug，有个table在赋值的时候没有初始化以下，会造成循环遍历。

littleknife

城际互联脚本模式是提供这种慢速行走的。
比如你有个zmud的路线：#3 e;n;ne;w;nu;nd;e;se;sw
可以定义path="#3 e;n;ne;w;nu;nd;e;se;sw"
然后wait_step=-1 do_walkgo(path,1)即是以每1秒走一步的方式，慢速行走。

[ 本帖最后由 littleknife 于 2011-10-18 10:16 AM 编辑 ]

dniao

原帖由 pizzagoo 于 2011-10-18 08:32 发表
我的明教新手机器人就用了这个，不过发现有个bug，有个table在赋值的时候没有初始化以下，会造成循环遍历。

对，初始化是个问题。。。

dniao

原帖由 littleknife 于 2011-10-18 10:10 发表 城际互联脚本模式是提供这种慢速行走的。比如你有个zmud的路线：#3 e;n;ne;w;nu;nd;e;se;sw可以定义path="#3 e;n;ne;w;nu;nd;e;se;sw"然后wait_step=-1 do_walkgo(path,1)即是以每1秒走一步的方式，慢速行走。

我去看看do_walkgo()函数，其实我是想加入个后退一步的功能。这个lua路径主要是用到了一个模式匹配函数，我去lua程序设计里面找到了。暂时还不会用。。。

[ 本帖最后由 aiccybb 于 2011-10-18 11:11 AM 编辑 ]

dniao

原帖由 pizzagoo 于 2011-10-18 08:32 发表
我的明教新手机器人就用了这个，不过发现有个bug，有个table在赋值的时候没有初始化以下，会造成循环遍历。

temp_slow_path_table={}
要把这个表的内容清空
用value=table.remove(temp_slow_path_table)来清除。。
不知道有没有弄错