zmud转mush求助之(二) 如何实现list变量的路径功能

imtt

有哪些对应的函数可以使用吗？城际互联插件有没有集成遍历的功能？

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

littleknife

哈哈。遍历有啊。好多遍历方法的。不过不是城际互联插件里的。
机器人应用层框架代码可以参考如下内容：

1. TestMOD={
   
2.         new=function()
   
3.                 local _TestMOD={}
   
4.                 setmetatable(_TestMOD,{__index=TestMOD})
   
5.                 return _TestMOD
   
6.         end,
   
7.         interval=5,
   
8.         timeout=20,
   
9.         help="格式：帮助文件",
   
10.         -------------------------------------
    
11.         Sleeproomno=player.Sleeproomno,
    
12.         Eatfoodroomno=player.Eatfoodroomno,
    
13.         Trainingroomno=player.Trainingroomno,
    
14.         -------------------------------------
    
15.         aimroomno="",
    
16.         aimroomname="",
    
17.         -------------------------------------
    
18.         jobnpcname="",
    
19.         jobnpcid="",
    
20.         jobnpcmenpai="",
    
21.         jobwords="",
    
22. }
    
23. 
    
24. function TestMOD:finish()
    
25. end
    
26. 
    
27. function TestMOD:fail()
    
28. end
    
29. 
    
30. TestMOD_button=function()
    
31.         print(TestMOD.help)
    
32.         SetCommandSelection (1, -1)
    
33.         PasteCommand("#TestMOD ")
    
34. end
    
35. 
    
36. TestMOD_alias=function(name, line, wildcards)
    
37.         do_TestMOD(wildcards,TestMOD_ok,TestMOD_fail)
    
38. end
    
39. 
    
40. do_TestMOD=function(wildcards,TestMOD_ok,TestMOD_fail)
    
41.         local tmp_TestMOD=TestMOD.new()
    
42.         tmp_TestMOD.finish=TestMOD_ok
    
43.         tmp_TestMOD.fail=TestMOD_fail
    
44.         tmp_TestMOD:start(wildcards)
    
45. 
    
46. end
    
47. 
    
48. function TestMOD:start(wildcards)
    
49.         wait.make(function()
    
50.         self:update()
    
51.         local f=function() self:check(wildcards) end
    
52.         getinfo(f)
    
53.         end)
    
54. end
    
55. 
    
56. function TestMOD:check(wildcards)
    
57.         local askjob=function() self:askcmd() end
    
58.         local endf=function()
    
59.                         do_walkgo(self.masterroomno,0.2,askjob,askjob)
    
60.         end
    
61. 
    
62.                 if me.hp["neili"]<=1.2*me.hp["neilimax"] then
    
63.                         do_dazuo(1.2,"curmaxneili",endf,endf)
    
64.                 else
    
65.                                 busytest(endf)
    
66.                 end
    
67. end
    
68. 
    
69. function TestMOD:askcmd()
    
70. end
    
71. 
    
72. function TestMOD:cooltime()
    
73. end
    
74. 
    
75. function TestMOD:main()
    
76. end
    
77. 
    
78. -----------------------------------------------
    
79. 
    
80. function TestMOD:dosomething1(n,l,w)
    
81. end
    
82. 
    
83. function TestMOD:dosomething2()
    
84. end
    
85. 
    
86. function TestMOD:dosomething3()
    
87. end
    
88. 
    
89. function TestMOD:dosomething4()
    
90. end
    
91. 
    
92. -----------------------------------------------
    
93. 
    
94. function TestMOD:update()
    
95. 
    
96.                 local  TestMOD_triggerlist={
    
97.                        {name="TestMOD_dosth1",regexp="Here is trigger1 RegularExpression",script=function(n,l,w)    self:dosomething1(n,l,w)  end,},
    
98.                        {name="TestMOD_dosth2",regexp="Here is trigger2 RegularExpression",script=function()    self:dosomething2()  end,},
    
99.                        {name="TestMOD_dosth3",regexp="Here is trigger3 RegularExpression",script=function()    self:dosomething3()  end,},
    
100.                        {name="TestMOD_dosth4",regexp="Here is trigger4 RegularExpression",script=function()    self:dosomething4()  end,},
     
101.                 }
     
102. 
     
103. ---Creat Trigger-->>
     
104.                 for k,v in pairs(TestMOD_triggerlist) do
     
105.                         addtri(v.name,v.regexp,"q_TestMOD",v.script)
     
106.                 end
     
107. 
     
108. ---End Creat Trigger--<<
     
109.         local noecho_trilist={
     
110.                         "noecho_tri1",
     
111.                         "noecho_tri2",
     
112.                         }
     
113.         local _noechotri=linktri(noecho_trilist)
     
114. 
     
115.         addtri("TestMOD_noecho",_noechotri,"q_TestMOD","")
     
116.         SetTriggerOption("TestMOD_noecho","omit_from_output",1)
     
117.         EnableTriggerGroup("q_TestMOD",1)
     
118. end
     
119. 
     
120. AddAlias("alias_TestMOD_button","#TestMOD_button","",alias_flag.Enabled + alias_flag.Replace ,"TestMOD_button")
     
121. AddAlias("alias_TestMOD","#TestMOD (.*)","",alias_flag.Enabled + alias_flag.Replace+ alias_flag.RegularExpression ,"TestMOD_alias")
     
122. 
     
123. SetAliasOption("alias_TestMOD","group","job_TestMOD")
     
124. SetAliasOption("alias_TestMOD_button","group","job_TestMOD")
     

复制代码

1. addtri=function(triname,trimatch,trigroup,triscript,triflag,trisequence)
   
2. 
   
3.                         if triflag==nil or triflag=="" then triflag=flag_base_enable end
   
4.                         if trisequence==nil then trisequence=10 end
   
5.                         if type(triscript)=="string"        then
   
6.                                                 tri_returnvalue=check(AddTriggerEx(triname, trimatch, "", triflag, -1, 0, "",  triscript, 0, trisequence))
   
7.                         end
   
8.                         if type(triscript)=="function"        then
   
9.                
   
10.                                 local Addtri_fun = "addtri_" .. GetUniqueNumber ()
    
11.                                 _G [Addtri_fun] = triscript
    
12.                                 tri_returnvalue=check(AddTriggerEx(triname, trimatch, "", triflag, -1, 0, "",  Addtri_fun, 0, trisequence))
    
13.                         end        
    
14.                         SetTriggerOption(triname,"group",trigroup)
    
15.                         return tri_returnvalue
    
16. end

复制代码

关键你得能看明白。呵呵。

imtt

回复 4# yyahoo
我已经晕了

imtt

回复 3# littleknife
多谢提供代码，我想我是用不出来了。简单的list在mush里居然这么复杂！

imtt

回复 2# yyahoo
我只是设想在使用上能做到一致，通过自定义函数或其他方式，使zmud的使用者，不需要做什么改变就可以飞快的使用mush，理论上应该是可以做到的。正如看电视一样，我并不需要关心是阴极射线管，还是LCD，或是LED。对于mud，我只需根据屏幕反馈，键入相同的命令，而得到相同的结果，而不用管是mush或是zmud。

littleknife

回复  littleknife
多谢提供代码，我想我是用不出来了。简单的list在mush里居然这么复杂！
imtt 发表于 2014-10-29 03:59 AM

我的理解，楼主的命题是两个问题，一个是list的使用，一个是路径的问题。上面的代码不单单是list应用，也是个应用模块。我的理解list就是mush里的table表格。初始就是定义一个变量a={}，okey了。就是list了。然后你怎么用它，都可以。
至于路径的定义，第一种思路：list_node={roomno=“”,roomname="",desc="",exits="",direction={a,b,c,d}}形如这种数据结构来做节点，节点定义完成后，用搜索函数形如map_search(startpoint,endpoint)来形成路线。
第二种思路，直接给路线：list[pointa]={pointb,path="a;b;c;d;e;f;g;"}，然后决定pointa，用walk函数走到pointb。但这种也涉及pointa的定位问题。

zardtest

电总的帖子里有遍历代码，拿来直接可以用，无需修改。
我现在用的就是这个，配合城际互联和GPS，无需自己写代码（俺也不会写）就能实现比gt强大得多的功能。
错长老的mush推车贴也研究过，但是看不懂。
不过貌似错长老也没写出成品来吧？

imtt

回复 10# zardtest
求帖子地址链接，谢谢

metatrader

哇，小刀还在冒泡。膜拜啊。

zardtest

回复 12# imtt


    http://pkuxkx.com/forum/viewthread.php?tid=32933&highlight=mush