TC官方合作论坛

标题: 循环叛断和找怪问题 [打印本页]

作者: qfgstmkd 时间: 2012-11-5 15:39
标题: 循环叛断和找怪问题
练习中，做了个天珠界的挖宝
整体描述：
交接任务和寻路正常就是是找怪那里怪是随机的，找不到
问题：
1：不知道怎么关任务栏
2：找不到怪
就这样吧，有好心高手的话帮帮我，谢谢
源码如下：
#import "dm.dmsoft" dm
空间重来
整型线程
功能整型主任务()
整型 x,y,intx,inty,x1,y1
系统.设置路径(辅助.获取资源路径("rc:"))
dm.SetDict(0,"zk.txt")
整型句柄=网页.得到窗口句柄("浏览器0")
整型子句柄 = dm.FindWindowEx(句柄,"MacromediaFlashPlayerActiveX","")
dm.BindWindow(子句柄,"gdi","windows3","windows",0)
循环(真)
      dm.FindStr(660,433,716,454,"务|接务|完务","f6f5cd-050505|f6f5cd-000000",1.0,x,y)//5点接受或完成任务
      //dm.FindStrFast(540,375,604,394,"使|用","f6f5cd-000000",1.0,intx,inty)
      dm.FindStr(660,433,716,454,"务|接务|完务","f6f5cd-050505|f6f5cd-000000",1.0,x1,y1)
      if(x>0||x1>0)
         dm.MoveTo(x,y)
         help.sleep(1000)
         dm.LeftClick()
         辅助.等待(300)
         dm.MoveTo(x1,y1)
         help.sleep(1000)
         dm.LeftClick()
         辅助.等待(300)
      否则
         重来.挖宝()
      endif
循环结束

返回 0
功能结束
功能整型挖宝()
整型 x,y,intx,inty,x1,y1,子句柄
循环(真)

      dm.FindStrFast(457,401,538,435,"使|用","f6f5cd-000000",1.0,intx,inty)//5使用铲子招出怪物
      if(intx>0)
         dm.MoveTo(intx,inty)
         辅助.等待(300)
         dm.LeftClick()
         辅助.等待(300)
         dm.KeyPress(81)
         辅助.等待(4000)
         跳出
      否则
         dm.FindStrFast(478,372,493,386,"到","f6f5cd-000000",1.0,x,y)//4鼠标偏移点寻路
         if(x>0)
            dm.MoveTo(x+24,y+9)
            辅助.等待(300)
            dm.LeftClick()
            help.sleep(500)
            //dm.KeyPress(81)  //发送Q关闭任务栏
            //help.sleep(500)
            跳出
         否则
            dm.FindStrFast(279,341,309,358,"挖|宝","ffff00-000000",1.0,x,y)//3点击挖宝
            if(x>0)
                  dm.MoveTo(x,y)
                  辅助.等待(300)
                  dm.LeftClick()
                  辅助.等待(200)
                  跳出
            否则
                  dm.FindStrFast(272,322,321,337,"循|环","f6f5cd-000000",1.0,x,y) //2 点循环任务
                  if(x>0)
                     dm.MoveTo(x,y)
                     辅助.等待(300)
                     dm.LeftClick()
                     辅助.等待(200)
                     跳出
                  否则
                     dm.KeyPress(81)  //1发送Q打开任务栏
                     help.sleep(500)
                  endif
            endif
         endif
         //endif
      endif
循环结束
返回 0
功能结束
功能逻辑型开始_点击()
线程=线程.开启("重来.主任务","")

返回真
//函数返回语句
功能结束
功能逻辑型退出_点击()
//这里添加你要执行的代码
辅助.退出()

返回真
//函数返回语句
功能结束
功能逻辑型暂停_点击()
线程.关闭(线程)

返回真
功能结束
功能逻辑型初始化()
网页.转到("浏览器0","http://rc.qzone.qq.com/100642816?via=appcenter#!app=100642816&via=appcenter")
辅助.注册插件("rc:\\dm.dll",真)
返回真
功能结束
空间结束

作者: shine宝宝 时间: 2012-11-5 16:11

脚本思路要自己想的啊

作者: ksap787523 时间: 2012-11-5 16:44
你这个代码太长了我的比你的少很多代码在优化下

功能整型主程序()
基本功能.绑定游戏(游戏窗口句柄,"ZK.txt")
辅助.等待(500)
基本功能.界面处理()
辅助.等待(500)
挖宝.任务判断()
返回 0
功能结束

复制代码

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