遍历，又见遍历！

zmeng

先传个框架思路，
基本思路同http://bbs.mymud.com/viewthread.php?tid=40034&highlight=%CB%D1%CB%F7
略有删改

[ 本帖最后由 zmeng 于 2009-8-24 12:14 PM 编辑 ]

zmeng

解释如下：
遍历深度 @temp 默认 5
步速@wait 默认 1000

开始遍历：
当前深度 #var deep 0;
行走方向 #var temp_path {}
遍历路径 #var path {}
触发机器人： #t+ bianli
                      look

1、判断是不是出发点：@当前深度=0    @deep=0
1.1 是 执行2
1.2 否 执行3

2、判断是否刚开始：@行走方向的长度=0   %len(@temp_path)=0
2.1 是 执行 把第一个出口赋值给行走方向 temp_path=%item(@location,1)
            增加一条行走路径           #var path [email={@temp_path]{@temp_path[/email]}
            当前深度增加1                #var deep 1
2.2 否 执行 4.1

3、只有一个出口或达到遍历深度 %numitems(@exit)=1 or @当前深度=@设计深度      %numitems(@exit)=1 or @deep=@temp
3.1 是 执行 把行走方向反向                 temp_path=#back(@temp_path)
            删除最后一条行走路径              #var path %delnitem(@path,%numitems(@path))
            当前深度减少1                          #add deep -1
3.2 否 执行 4.2
4、是否还有没走过的出口
4.1 在出发点：%反向（@行走方向）的位置在出口的最后
  条件 temp_path=#back(@temp_path)
           #var i 1
           #while (%item(@exit,@i)<>@temp_path) {#ADD i 1}
           #if @i=%numitems(@exit)
                是 执行 遍历结束 #var temp_path over
                否 执行 还有某个方向没去过  下一个出口位置     #add i 1
                                   赋值下个出口给方向                           #var temp_path %item(@exit,@i)  
                                   增加一条行走路径                              #var path [email={@temp_path]{@temp_path[/email]}
                                   当前深度增加1                                   #var deep 1
  
4.2 不是出发点：下个出口是不是第一次来的出口
    条件  temp_path=#back(@temp_path)
            #var i 1
            #while (%item(@exit,@i)<>@temp_path) {#ADD i 1}
            #if @i=%numitems(@exit)
          是 执行 赋值 第一个 出口给方向 #var temp_path %item(@exit,1)  
                                判断是不是相符        #if @temp_path=#back(%item(@path,@deep))
                                                                    是 执行 #var temp_path %item(@exit,1)
                                                                                  #var path %delnitem(@path,%numitems(@path))
                                                                                  #add deep -1
                                             
                                                                    否 执行 #var temp_path %item(@exit,1)
                                                                                  #VAR path %addItem(@temp_path,@path)
                                                                                  #add deep 1
          否 执行 赋值 下一个 出口给方向   #add i 1
                                                                  #var temp_path %item(@exit,@i)  
                                判断是不是相符         #if @temp_path=#back(%item(@path,@deep))
                                                                    是 执行 #var temp_path %item(@exit,@i)
                                                                                  #var path %delnitem(@path,%numitems(@path))
                                                                                  #add deep -1
                                             
                                                                    否 执行 #var temp_path %item(@exit,@i)
                                                                                  #VAR path %addItem(@temp_path,@path)
                                                                                  #add deep 1

#if @temp_path<>over
    是 执行 #wa @wait
                  #exec @temp_path
    否 执行 #var tenp_path {}
                 #var path {}
                 #t- bianli
                #say 遍历结束

[ 本帖最后由 zmeng 于 2009-8-24 11:46 AM 编辑 ]

zmeng

总程序：

#tri 出口是(*)

#var exit %replace( "%1", "、", "|")
#var exit %replace( @exit, " 和 ", "|")
#var exit %trim( @exit)
#if @deep=0 {
  #if %len(@temp_path)=0 {
    temp_path=%item( @exit, 1)
    #var path [email={@temp_path]{@temp_path[/email]}
    #var deep 1
    } {
    [email=temp_path=@back(@temp_path]temp_path=@back(@temp_path[/email])
    #var i 1
    #while (%item( @exit, @i)<>@temp_path) {#ADD i 1}
    #if @i=%numitems( @exit) {#var temp_path over} {
      #add i 1
      #var temp_path %item( @exit, @i)
      #var path [email={@temp_path]{@temp_path[/email]}
      #var deep 1
      }
    }
  } {
  #if (%numitems( @exit)=1 or @deep=@temp) {
    [email=temp_path=@back(@temp_path]temp_path=@back(@temp_path[/email])
    #var path %delnitem( @path, %numitems( @path))
    #add deep -1
    } {
    [email=temp_path=@back(@temp_path]temp_path=@back(@temp_path[/email])
    #var i 1
    #while (%item( @exit, @i)<>@temp_path) {#ADD i 1}
    #if @i=%numitems( @exit) {
      #var temp_path %item( @exit, 1)
      #if @temp_path=@back(%item(@path,@deep)) {
        #var temp_path %item( @exit, 1)
        #var path %delnitem( @path, %numitems( @path))
        #add deep -1
        } {
        #var temp_path %item( @exit, 1)
        #VAR path %addItem( @temp_path, @path)
        #add deep 1
        }
      } {
      #add i 1
      #var temp_path %item( @exit, @i)
      #if @temp_path=@back(%item(@path,@deep)) {
        #var temp_path %item( @exit, @i)
        #var path %delnitem( @path, %numitems( @path))
        #add deep -1
        } {
        #var temp_path %item( @exit, @i)
        #VAR path %addItem( @temp_path, @path)
        #add deep 1
        }
      }
    }
  }
#if @temp_path<>over {
  #wa @wait
  #exec @temp_path
  } {
  #var tenp_path {}
  #var path {}
  #t- bianli
  #say 遍历结束
  }
//为了便于阅读，暂时按此编写，取用是需自己编辑{}
//#back指将一个方向返回，详见糖果的Zmud机器人制作--基础知识,技巧以及实例讲解 第11章。
//
我理解是这样的：
逆向返回:
#var fangxiang {east|southeast|south|southwest|west|northwest|north|northeast|eastup|southup|westup|northup|eastdown|southdown|westdown|northdown|up|dowm|enter|out}
#var fangxiangb {west|northwest|north|northeast|east|southeast|south|southwest|westdown|northdown|eastdown|southdown|westup|northup|eastup|southup|down|up|out|enter}
#fun back [email=%item@fangxiangb,%ismember(%1,@fangxiang]%item(@fangxiangb,%ismember(%1,@fangxiang[/email]))
//没有考虑陷阱，迷阵的处理办法。请高手指点怎么处理。
//本程序没有经过试验，具体能不能运行还是未知数，只是发出来探讨。思路取自网络，本人紧做分析。
//声明：
//1．本人不识字，以上内容文字均看不懂是什么意思。
//2．表述之事与本人无关，只是本着“见贴回帖、利人利己”的原则繁荣网络。
//3. 本人在此留言均为网络上复制，用于检验本人电脑键盘录入、屏幕显示的机械、光电性能。并不代表本人局部或全部同意、支持或者反对帖子内容观点。
//4.人生有风险，入世需谨慎。本贴不暗示、鼓励、支持或映射读者作出生活方式、工作态度、婚姻交友、子女教育的积极或消极判断。
//5. 如本人留言违反国家有关法律，请网络管理员及时删除本贴。
//6. 因删贴不及时所产生的任何法律（包括宪法，加法、减法、乘法、除法、剑法、拳法、脚法、民法，刑法，书法，公检法，基本法，劳动法，婚姻法，
//输入法，没办法，国际法，今日说法，吸星大法，与台湾关系法及文中涉及或可能涉及以及未涉及之法，各地治安管理条例）纠纷或责任本人概不负责。
//7. 本人谢绝任何跨省追捕行为，如有需要请直接联系版主、网络管理员或法人代表。
//8. 此声明最终解释权归本人所有

[ 本帖最后由 zmeng 于 2009-8-24 03:42 PM 编辑 ]

lanwfy

沙发~0

[ 本帖最后由 lanwfy 于 2009-8-24 12:40 PM 编辑 ]

zmeng

欢迎大家提意见，呵呵，如果用这个做慕容如何？？

zgbl

zmeng大神啊，学那么快，我都还没开始学……

zgbl

慕容有难度，因为叛徒会自己走路，只要走到你遍历过的房间，就会导致找不到

zmeng

这个问题确实存在，如果遍历2次，同样存在这个问题，而且效率明显降低。只要遍历不到，放弃也就放弃了。

下面需要做的就是总结慕容叛徒的区域，然后用前辈的路径到达山门，直接开始遍历。

如果深度设为20的话，是不是整个门派就都遍历了，嘎嘎。

zmeng

我的第一个精华啊，哈哈，谢谢icer

这也是我的第一贴矿泉水贴，哈哈。

以前发的都是纯净水。嘎嘎

zgbl

至少，峨眉深度20不够，全真也不够，少林也不够

快速行走，走路不停，就容易找到叛徒，然后记录地点，在过去以那里为中心小遍历，应该成功率高点