TC官方合作论坛

标题: 【有源码】倩女自动寻路及大漠设置 [打印本页]

作者: 翔林小刚 时间: 2012-2-25 20:09
标题: 【有源码】倩女自动寻路及大漠设置
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 时间: 2012-3-17 17:57
沙发啊！谢谢LZ!

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)