【有源码】倩女自动寻路及大漠设置

翔林小刚

namespace 自动寻路
//定义默认空间
dm=com("dm.dmsoft")
function start_click()
dm.SetPath(help.getrcpath("rc:")) //设置大漠全局路径
dm.SetDict(0,"路.txt")  //设置字库文件  
intX,intY
dm_ret = dm.FindPic(0,0,2000,2000,"zidong.bmp","000000",0.9,0,intX,intY)
if(dm_ret==0)   
   dm.MoveTo(intX+5,intY+5)
   help.sleep(500)
   dm.LeftClick()
   help.sleep(500)
   自动寻路.mubiao("孙道长")
   if(自动寻路.dongjing())
       help.messagebox("到达目标")
   endif
endif

//dm.FindStr(0,0,1280,800,"自动寻路","ffffff-000000",1.0,X,Y)

return true
//函数返回语句
endfunction
function exit_click()
//这里添加你要执行的代码
help.exit()
return true
//函数返回语句
endfunction
//判断人物是静还是动
function dongjing()
  dm_ret,dm_ret2
     while(true)
  dm_ret = dm.FetchWord(907,108,960,126,"00ff00-0A320A","坐标")
  help.sleep(400)
  dm_ret2 = dm.FetchWord(907,108,960,126,"00ff00-0A320A","坐标")
  if(dm_ret==dm_ret2)
      help.messagebox("人物停止")
      break
  endif
     endwhile
return true
endfunction
//跑到目标位置
function mubiao(mb)
dm.UseDict(0)  //使用字库
intX,intY
dm.FindStr(0,0,1280,800,mb,"ffffff-000000",1.0,intX,intY)
if(intX>0)
    dm.MoveTo(intX+5,intY+5)
    help.sleep(500)
    dm.LeftClick()
    help.sleep(500)
endif
return true
endfunction
endnamespace
//空间结束语句

wumengyi

沙发啊 ！谢谢LZ!

9030062

谢谢分享