循环叛断和找怪问题

qfgstmkd

练习中，做了个天珠界的挖宝
整体描述：
交接任务和寻路正常就是是找怪那里怪是随机的，找不到
问题：
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",真)
    返回 真
功能结束
空间结束

ksap787523

你这个代码太长了 我的比你的少很多   代码在优化下

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

复制代码

shine宝宝

脚本思路要自己想的啊