用户操作
[留言]  [发消息]  [加为好友] 
订阅我的博客
XML聚合    FeedSky
订阅到鲜果
订阅到Google
订阅到抓虾
suxiaojack的公告
C/C++<br><A href=tencent://message/?uin=34434940&Menu=yes target=_blank><B>发QQ消息给我</B></A><br> <font color=red>评论</font>支持客户端HTML代码<br>留言无此公告不支持了 <script language="javascript"> var wloaded=false; var stimer=0; function noad(){ try{ var adcs=document.getElementById("Post.ascx_TagAd_palTagAd"); if(adcs!=null)adcs.outerHTML=""; }catch(e){ }; } function doreplace(){ var comm=document.getElementById("commentslist"); if(comm!=null){ if(stimer!=0){ clearTimeout(stimer);stimer=0; stimer=setTimeout(doreplace,1000); } str=comm.innerHTML; str=(str.replace(/&lt;/g,"<")).replace(/&gt;/g,">"); comm.innerHTML=str; if(wloaded==false){ wloaded=true; stimer=setTimeout(doreplace,1000); setTimeout(noad,10); } }else{ alert("欢迎光临！:)"); }; } window.attachEvent('onload',doreplace); </script>
文章分类
    推荐网站
    CodeProject
    GameRes游戏开发
    sourceforge
    XfocusTeam
    存档

    原创  xkx mushclient 全自动walk lua实现 收藏

    加入了xkx地图数据，通过寻路算法，找到两点间的通路，然后再走。
    地图数据来自xkx论坛gps定位的sqlite数据库,转换成lua格式输出处理。修改其中的一些错误的,"符号

    1. room={
    2.     [1]={
    3.         ["id"]=1,
    4.         ["name"]="中心广场",
    5.         ["desc"]="这是泉州的中心地带，树荫浓郁，整齐划一。人山人海，摩肩接踵，来来",
    6.         ["ways"]="east|north|south|west",
    7.         ["link"]={["w"]=2,["w"]=11,["e"]=10,["s"]=9},
    8.         ["zone"]="福建泉州",
    9.         ["npc"]="",
    10.         ["cmd"]=""
    11.     },
    12.     [2]={
    13.         ["id"]=2,
    14.         ["name"]="刺桐西路",
    15.         ["desc"]="这是泉州的主要干道，笔直宽广，车水马龙，热闹非凡。西边便是著名的",
    16.         ["ways"]="east|north|west",
    17.         ["link"]={["w"]=3,["w"]=19,["s"]=17},
    18.         ["zone"]="福建泉州",
    19.         ["npc"]="",
    20.         ["cmd"]=""
    21.     },
    22.          .
    23.          .
    24.          .
    25. }

    通过触发器获取place,ways,desc表示当前看到的地点，出路，地点描述。

    trywalk.lua含半自动行走实现

    1. --[[
    2. 1、修改wait.regexp使得匹配后该行保持有效，触发器仍旧为临时触发（一劳永逸。）
    3. 2、需要全局变量 place 获取房间名建立1个触发器
    4. 3、需要全局变量ways获取出路建立18个出发器
    5. 4、使用举例
    6.    可以建立mush alias walk\((.*),(.*)\)
    7.    发送到脚本
    8.    local target="%1"
    9.    local allow="%2"
    10.    function walk()
    11.      rectilineal_walk(target,allow)
    12.    end
    13.    require "wait"
    14.    wait.make(walk)
    15.    从武当三清殿走到玄岳门可以在命令行walk(玄岳,n.nd.nu)
    16.    再从玄岳门走到三不管walk(三不管,e.eu.ed.nw.n)
    17. ]]--
    19. require "wait"
    20. require "tprint"
    22. place=nil
    23. desc=nil
    24. ways=nil
    26. --脚本建立出发器的方法
    27. function way_t()
    28.     local l,w
    29.     local find=string.find
    30.     while 1 do
    31.         l,w=wait.regexp("这里没有任何明显的出路|这里唯一的出口是 ([a-z]+)。|这里明显的出口是 ([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|这里明显的出口是 ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+) 和 ([a-z]+)|(> )*(.*) \- $|(> )*(.*) \- ([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$|(> )*(.*) \- ([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)、([a-z]+)$")
    32.           ways=nil
    33.           ways={}
    34.           local id=1
    35.           if find(l,"-") then
    36.            for i,v in ipairs(w) do
    37.             if v~=nil and v~=false and (not find(v,">")) and v~="" and i>2 then
    38.              --Note(v)
    39.              ways[id]=v
    40.              id=id+1
    41.             end
    42.            end
    43.           else
    44.            for i,v in ipairs(w) do
    45.             if v~=nil and v~=false and v~="" then
    46.              --Note(v)
    47.              ways[id]=v
    48.              id=id+1
    49.             end
    50.            end
    51.           end
    52.           --tprint(ways)
    53.     end
    54. end
    56. function place_t()
    57.     local l,w
    58.     local find=string.find
    59.     local ways_str
    60.     while 1 do
    61.         l,w=wait.regexp("(> )*(.*) \- ([a-z、]*)")
    62.         place=w[2]
    63.         desc=nil
    64.         ways=nil
    65.         npc=""
    66.         --Note("地点："..place)
    67.     end
    68. end
    69. function desc_t()
    70.     local l,w
    71.     local find=string.find
    72.     while 1 do
    73.         l,w=wait.regexp("    (.*)")
    74.         if desc==nil then
    75.             desc=w[1]
    76.             --Note(desc)
    77.         end
    78.     end
    79. end
    80. function init()
    81.     wait.make(way_t)
    82.     wait.make(desc_t)
    83.     wait.make(place_t)
    84. end
    85. init()
    87. --上面这一段可以自己不用脚本，通过操作mush的触发器设置实现（我实现好了，用脚本方便点)
    89. function rectilineal_walk(target,allows)
    90.     local find=string.find
    91.     local l,w,t
    92.     local walkmap_s,walkmap_l,walkmap
    93. local bad=false
    94.     --映射
    95.     walkmap_s="e;w;s;n;eu;ed;wu;wd;su;sd;nu;nd;se;sw;ne;nw;d;u"
    96.     walkmap_l="east;west;south;north;eastup;eastdown;westup;westdown;southup;southdown;northup;northdown;southeast;southwest;northeast;northwest;down;up"
    97.     
    98.     local ws=utils.split(walkmap_s,";")
    99.     local wl=utils.split(walkmap_l,";")
    100.     local path=""
    101.     walkmap={}
    102.     for i,v in ipairs(ws) do
    103.         walkmap[v]=wl[i]
    104.     end
    105.     for i,v in ipairs(wl) do
    106.         walkmap[v]=ws[i]
    107.     end
    108.     --获取允许方位
    109.     if allows~=nil then
    110.        if allows~="" then  t=utils.split(allows,".") end
    111.     end
    112.     --t中有可行方位，有优先级
    113. Execute("look")
    114.     task="walking"
    115.     while task=="walking" do
    116.         l,w=wait.regexp("这里明显的出口是|这里唯一的出口是|这里没有任何明显的出路|(> )*(.*) \- ([a-z、]+)",10)
    117.         if l==nil then
    118.         else
    119.             if find(place,target) then
    120.                 Note("到达"..target)
    121.                 break
    122.             end
    123.             if ways~=nil then
    124.                 --通过出口，尝试走
    125.                 local walked=false
    126.                 for i,v in ipairs(t) do
    127.                     for ii,vv in ipairs(ways) do
    128.                         if vv=="" or vv==false or vv==nil then else
    129.                         if vv==v or walkmap[vv]==v then
    130.                             Execute("h;"..v) --发送一个halt再行走
    131.        --Execute(v)         --网速好时可以快速行走
    132.                             path=path..v..";"
    133.                             walked=true
    134.                             break
    135.                         end
    136.                         end
    137.                     end
    138.                     if walked==true then break end
    139.                 end
    140.                 --不能再走了
    141.                 if walked==false then
    142.                     Note("能力有限，走到这里，不只如何走了")
    143.                     bad=true
    144.                     break
    145.                 end
    146.             else
    147.                 Note("这里没有出路，机器人解决不了")
    148.                 bad=true
    149.                 break
    150.             end
    151.         end
    152.     end
    153.     Note("我走的路径:"..path)
    154.     if bad==false then
    155.       return path
    156.     else
    157.       return nil
    158.     end
    159. end

    全自动寻路行走实现

    autowalk.lua

    2. require "xkx_room"
    3. require "tprint"
    4. require "trywalk"
    6. local wait=wait
    7. local  find=string.find
    8. local ways_ok=function (ways1,ways2)
    9.     local w1=utils.split(ways1,"|")
    10.     --local w1=ways1
    11.     local w2=utils.split(ways2,"|")
    12.     local i,v,ii,vv
    13.     if  table.getn(w1)==table.getn(w2) then
    14.         for i,v in ipairs(w1) do
    15.             local ok=false
    16.             for ii,vv in ipairs(w2) do
    17.                 if vv==v then
    18.                     ok=true
    19.                     break
    20.                 end
    21.             end
    22.             if  ok==false then return false end
    23.         end
    24.         --all ok
    25.         return true
    26.     else
    27.         return false
    28.     end
    29. end
    31. --地址描述用触发得到是完整的，find找数据中匹配项，不可以反,因为数据中有不完整的。
    32. function findroom(name,desc,ways)
    33.     Note("开始寻找"..name)
    34.     local ret={}
    35.     local id=1
    36.     local i,v
    37.     for i,v in ipairs(room) do
    38.         if v["name"]==name then
    39.             if (desc~=nil and desc~="") or ( ways~=nil and ways~="")  then
    40.                 if (desc~=nil and desc~="") and ( ways~=nil and ways~="") then
    41.                 --两个都有
    42.                     if  find(desc,v["desc"]) and ways_ok(ways,v["ways"]) then
    43.                         ret[id]=v["id"]
    44.                         id=id+1
    45.                     end
    46.                 else
    47.                     if ( ways~=nil and ways~="") then
    48.                     --ways有desc无
    49.                         if ways_ok(ways,v["ways"]) then
    50.                             ret[id]=v["id"]
    51.                             id=id+1
    52.                         end
    53.                     else
    54.                     --desc有ways无
    55.                         if find(desc,v["desc"]) then
    56.                             ret[id]=v["id"]
    57.                             id=id+1
    58.                         end
    59.                     end
    60.                 end
    61.             else
    62.             --两个空
    63.                 ret[id]=v["id"]
    64.                 id=id+1
    65.             end
    66.         end
    67.     end
    68.     Note("寻找"..name.."结束")
    69.     tprint(ret)
    70.     return ret
    71. end
    73. function showroom(roomid)
    74.     tprint(room[roomid])
    75. end
    77. function pathbyid(startroomid,endroomid)
    78.     local ret=""
    79.     local tree={}
    80.     local tree_grow_at=function (id)
    81.         local k,v
    82.         local ret=false
    83.         if id~=nil then
    84.             local links={}
    85.             if  (room[id])["link"]~=nil  and (room[id])["link"]~={} then
    86.                 for k,v in pairs( (room[id])["link"] ) do
    87.                     if tree[v]~=nil or v==0 then
    88.                         --已经处理了，是正常顺序
    89.                     else
    90.                         tree[v]={}
    91.                         tree[v]={
    92.                             ["uplink"]=id,
    93.                             ["path"]=k,
    94.                             ["link"]={}
    95.                         }
    96.                         table.insert(links,v)
    97.                         if v == endroomid then
    98.                             ret=true
    99.                             break
    100.                         end
    101.                     end
    102.                 end
    103.                 (tree[id])["link"]=links
    104.                 if ret==true then return true else return links end
    105.             else
    106.                 return nil
    107.             end
    108.             return links
    109.         else
    110.             tree[startroomid]={
    111.                 ["uplink"]=nil,
    112.                 ["path"]=nil,
    113.                 ["link"]={[1]=startroomid}
    114.             }
    115.             if startroomid==endroomid then
    116.                 return true
    117.             end
    118.             return (tree[startroomid])["link"]
    119.         end
    120.     end
    121.     --
    122.     local tree_grow=function()
    123.         local root,links,leaf
    124.         local i,v,ii,vv,iii,vvv
    125.         local trycount=0
    126.         local ret=false
    127.         local closed={}
    128.         root=tree_grow_at(nil)
    129.         if root==true then
    130.             --找到
    131.             return true
    132.         else
    133.             while root~=nil and root~={} and table.getn(tree)<table.getn(room) and trycount<table.getn(room) do
    134.                 leaf={}
    135.                 for i,v in ipairs(root) do
    136.                     table.insert(closed,v)
    137.                     links=tree_grow_at(v)
    138.                     if links==true then
    139.                         --找到
    140.                         return true
    141.                     else
    142.                         if links~=nil then
    143.                             for ii,vv in ipairs(links) do
    144.                                 local new=true
    145.                                 for iii,vvv in ipairs(closed) do
    146.                                     if vvv==vv then
    147.                                         new=false
    148.                                         break
    149.                                     end
    150.                                 end
    151.                                 if new==true then
    152.                                     table.insert(leaf,vv)
    153.                                 else
    154.                                     --print("but old place")
    155.                                 end
    156.                             end
    157.                         end
    158.                     end
    159.                 end
    160.                 root=leaf
    161.                 trycount=trycount+1
    162.             end
    163.         end
    164.         --从这里出，失败
    165.         return false
    166.     end
    167.     --
    168.     if tree_grow()==true then
    169.         Note("找到了！")
    170.         local id=endroomid
    171.         while id~=startroomid do
    172.             ret=(tree[id])["path"]..";"..ret
    173.             id=(tree[id])["uplink"]
    174.         end
    175.         Note(ret)
    176.     else
    177.         Note("抱歉没找到通路,请修改地图room.lua数据,确保连通")
    178.     end
    179.     return ret
    180. end
    182. function where()
    183.     local roomidt={}
    184.     while  table.getn(roomidt)~=1 do
    185.         place=nil
    186.         ways=nil
    187.         desc=nil
    188.         Execute("look")
    189.         while 1 do
    190.             if place~=nil and ways~=nil and desc~=nil then
    191.                 break
    192.             end
    193.             wait.time(2)
    194.         end
    195.         local wlen=table.getn(ways)
    196.         local ran=math.random(wlen)
    197.         local ranway=ways[ran]
    198.         roomidt=findroom(place,desc,table.concat(ways,'|'))
    199.         if table.getn(roomidt)~=1 then
    200.             Note("此处不好定位,换个地方。走："..ranway)
    201.             Execute("h;"..ranway)
    202.         end
    203.     end
    204.     Note("当前房间:"..roomidt[1])
    205.     return roomidt[1]
    206. end
    208. function walk(toname,tozone)
    209.     local rooms=findroom(toname)
    210.     local startid=where()
    211.     local i,v,ii,vv
    212.     local path
    213.     local find=string.find
    214.     if rooms~=nil and rooms~={} then
    215.         if  tozone~=nil then
    216.             for ii,vv in ipairs(rooms) do
    217.                 if find((room[vv])["zone"],tozone) then
    218.                 else
    219.                     Note("区域："..(room[vv])["zone"].."不合要求"..tozone)
    220.                     rooms[ii]=0
    221.                 end
    222.             end
    223.         end
    224.         --只处理到第一个位置
    225.         for i,v in ipairs(rooms) do
    226.             if v~=nil and v~=0 then
    227.                 path=pathbyid(startid,v)
    228.                 if path~=nil and path~="" then break end
    229.             end
    230.         end
    231.         if path~=nil and path~="" then
    232.             --找到了通路,执行咯！
    233.             local patht=utils.split(path,";")
    234.             for i,v in ipairs(patht) do
    235.                 wait.time(1)
    236.                 Execute("h;"..v)
    237.             end
    238.         else
    239.             Note("奇怪，没有通路")
    240.         end
    241.     else
    242.         Note("无法定位目标房间号")
    243.     end
    244. end
    246. function to_npc(tonpc)
    247.      --无数据，有数据很好实现，把目标找到和上面就一样了。    
    248. end

     

     

     

     

     

    发表于 @ 2008年10月09日　15:43:00 | 评论( loading... ) | 编辑| 举报| 收藏

    旧一篇:mushclient xkx 半自动walk行走lua实现 | 新一篇:扑克牌去王随机洗均，4人拿，同色牌数量分布情况
    查看最新精华文章 请访问博客首页相关文章
    • 发表评论
    • 评论内容：
    •  
    Copyright © suxiaojack
    Powered by CSDN Blog