TC官方合作论坛

 找回密码
 立即注册
楼主: 360307327

[游戏] 有源码 伏魔 我欲封天,主线到34级 师门做完

  [复制链接]
发表于 2014-9-25 06:32:12 | 显示全部楼层
看看
回复

使用道具 举报

发表于 2014-9-26 22:25:31 | 显示全部楼层
楼主威武
回复

使用道具 举报

发表于 2014-10-2 00:01:43 | 显示全部楼层
啊啊啊啊啊啊啊啊啊啊啊啊
回复 支持 反对

使用道具 举报

发表于 2014-10-17 21:31:29 | 显示全部楼层

实际上只是下载下来查看一下写法,具体这个工具能不能用倒是其次......
回复 支持 反对

使用道具 举报

发表于 2014-10-23 17:44:52 | 显示全部楼层
伏魔 我欲封天
回复 支持 反对

使用道具 举报

发表于 2014-10-23 22:09:33 | 显示全部楼层
#include"仙.t"

空间 对象

窗口数组=数组[],ts数组=数组[],任务数组=数组[]

功能 注册插件()
   
   
    是否成功=辅助.注册插件("rc:\\TSPlug.dll",真)
    辅助.等待(200)
    调试输出(是否成功)
    如果(!是否成功)
        辅助.等待(200)
        辅助.消息框("插件注册失败")
        辅助.退出()
        
        
    如果结束
   
   
功能结束

//-------------------------------------获取句柄----------------------------
功能 获取句柄()
    窗口句柄,数组下标
    ts=com("ts.tssoft")
    辅助.等待(200)
    窗口句柄 = ts.GetForegroundWindow()
    调试输出(窗口句柄)
    //窗口句柄 = ts.GetForegroundWindow()
    //窗口标题 = ts.GetWindowTitle(窗口句柄)
    辅助.等待(200)
    如果(窗口句柄>0)
        调试输出("获取句柄:"&窗口句柄)
        辅助.等待(200)
        //窗口标题[su]= ts.GetWindowTitle(窗口句柄)
        数组下标=数组空间.查找(窗口数组,窗口句柄)
        辅助.等待(200)
        如果(数组下标==-1)
            数组下标=数组空间.查找(窗口数组,111)//查看是否有单停后的数组,单停后=111
            如果(数组下标>=0)
                调试输出("获取句柄:")
                窗口数组[数组下标]=窗口句柄
                返回 窗口句柄
            否则
                辅助.等待(200)
                数组空间.增加(窗口数组,窗口句柄,1)
                数组空间.增加(ts数组,空,1)
                数组空间.增加(任务数组,空,1)
               
               
                返回 窗口句柄
            如果结束
        否则
            辅助.消息框("同一个窗口请不要重复启动")
            返回 -1
        如果结束
    否则
        返回 -1
    如果结束   
功能结束

功能 任务选择(下标)
    ret,intX,intY,ret1
    调试输出("任务选择")
    ts数组[下标]=com("ts.tssoft")
    辅助.等待(200)
    ts数组[下标].SetPath(help.getrcpath("rc:"))
    //path=ts.GetPath()
    辅助.等待(200)
    ts数组[下标].SetDict(0,"zx.txt")
    //辅助.等待(200)
    //ts数组[su].UseDict(0)
    辅助.等待(1000)
    ret=ts数组[下标].BindWindow(窗口数组[下标],"dx","dx","dx",1)
    仙.任务主框(下标)
   
功能结束

功能 战斗中(下标)
    调试输出("战斗中(下标)")
   
    如果(对象.找图(下标,0,0,800,600,"攻击.bmp|自由.bmp")==0)
        技能= 下拉框.获得文本("下拉框0")  
        
        时间 =日期时间.当前日期()
        
        对象.找字点击(下标,0,0,755,600,"取消","9abec1-202020",+2,+2)
        辅助.等待(2000)
        对象.鼠标移动点击(下标,723,475)
        循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.超时(时间)<120)
            调试输出("战斗中循环")
            如果(对象.找图(下标,0,0,800,600,"自动.bmp|自动2.bmp|自动3.bmp|自动4.bmp")==0)
               
                如果(对象.找色(下标,194,456,538,536,"8b089a-000000|a007b4-000000|5a1f60-000000")==0)
                    辅助.等待(1000)
                    对象.鼠标移动点击(下标,780,241)
                    辅助.等待(2000)
                    对象.找色点击(下标,194,456,538,536,"8b089a-000000|a007b4-000000|5a1f60-000000",2,2)
                    //对象.鼠标移动点击(下标,393,484)
                    辅助.等待(1000)
                    对象.找色点击(下标,194,456,538,536,"8b089a-000000|a007b4-000000|5a1f60-000000",2,2)
                    //对象.鼠标移动点击(下标,393,484)
                    辅助.等待(1000)
                    对象.鼠标移动点击(下标,723,509)
                    
                否则
                    辅助.等待(1000)  
                    对象.鼠标移动点击(下标,723,475)   
                如果结束
               
            如果结束
            //否则  
            //辅助.等待(5000)
            //如果结束
            //辅助.等待(1000)
            //调试输出("战斗中循环33333")
            如果(对象.找图(下标,2,0,491,232,"已接任务.bmp|已接任务2.bmp")==0)
               
                调试输出("战斗中循环跳出 自动 回")
                跳出
            如果结束
            辅助.等待(1000)
            
            如果(对象.找字(下标,551,148,742,299,"主线|新手|师门","c5832e-202020")==0)
               
                跳出
            如果结束
        循环结束
    如果结束
功能结束

功能 突厥首领(下标)
    如果(对象.找字点击(下标,554,156,741,284,"突厥首领","ff6363-000000|ff0000-000000",+2,+2)==0)
        时间 =日期时间.当前日期()
        循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.超时(时间)<300)
            
            对象.找字点击(下标,554,156,741,284,"突厥首领","ff6363-000000|ff0000-000000",+2,+2)
            
            对象.寻路中(下标)
            如果(对象.找字点击(下标,0,0,617,559,"首领","ece04f-000000",+2,-40)==0)
                辅助.等待(2000)
                如果(对象.找字点击(下标,0,0,617,559,"你是谁","e4e3d8-000000",+2,+2)==0)
                    辅助.等待(500)
                    时间 =日期时间.当前日期()
                    循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.超时(时间)<300)  
                        辅助.等待(500)
                        对象.战斗中(下标)
                        辅助.等待(500)
                        对象.鼠标移动点击(下标,650,563)
                        
                        
                        辅助.等待(1000)
                        对象.找字点击(下标,0,0,617,559,"边境","e4e3d8-000000",+2,+2)
                        辅助.等待(1000)
                        对象.找色点击(下标,311,133,621,336,"049e1e-000000|0eca01-000000",+2,+2)     
                        辅助.等待(1000)
                        对象.鼠标移动点击(下标,744,81)
                        
                        辅助.等待(2000)
                        对象.寻路中(下标)
                        辅助.等待(500)
                        对象.寻路中(下标)
                        
                        辅助.等待(2000)
                        如果(对象.找字点击(下标,0,0,617,559,"你是谁","e4e3d8-000000",+2,+2)==0)
                           
                            对象.找图点击(下标,0,0,800,600,"差.bmp|差2.bmp",+2,+2)
                            跳出
                        如果结束  
                        
                        
                        
                    循环结束
                否则
                    
                    
                    辅助.等待(2000)
                    对象.找字点击(下标,0,0,617,559,"首领","d5c222-000000",+2,+2)
                如果结束
            如果结束
            辅助.等待(1000)
            对象.任务对话左下(下标)
            对象.战斗中(下标)
        循环结束
        
    如果结束
   
   
功能结束

功能 红怪(下标)
   
    如果(对象.找色点击(下标,579,182,725,250,"ff0000-000000|f35e5e-000000|0098b0-000000|00bec6-000000",+2,+2)==0)
        对象.找色点击(下标,579,182,725,250,"ff0000-000000|f35e5e-000000|0098b0-000000|00bec6-000000",+2,+2)
        辅助.等待(1000)
        对象.寻路中(下标)
        辅助.等待(1000)
        对象.寻路中(下标)
        辅助.等待(1000)
        对象.鼠标移动点击右(下标,727,326)
        辅助.等待(2000)
        
        对象.鼠标移动点击右(下标,473,533)
        辅助.等待(2000)
        对象.鼠标移动点击右(下标,727,326)
    如果结束
   
功能结束

功能 给予(下标)
    x=415,y=180,h=0
   
    调试输出("给予")
   
    如果(对象.找字点击(下标,0,0,755,600,"长安之事","4bd147-000000",2,2)==0)
        
        辅助.等待(2000)
    如果结束   
    如果(对象.找图(下标,0,0,800,600,"给予.bmp|给予2.bmp|给予3.bmp")==0)
        调试输出("给予遍历10")
        遍历(6)
            遍历(10)
                调试输出("xy"&x&"---"&y)
                调试输出("给予遍历10")
                对象.鼠标移动点击右(下标,x,y)
                x=x+40
                辅助.等待(200)
                如果(对象.找字点击(下标,0,0,800,600,"确定","badee0-000000",2,2)==0)
                    h=1
                    跳出
                如果结束
               
            遍历结束
            y=y+40
            x=415
            如果(h==1)
                跳出
            如果结束
            
        遍历结束
    如果结束   
   
功能结束

功能 坐骑(下标)
   
    如果(对象.找字(下标,559,178,755,311,"坐骑","c5832e-000000")==0)
        
        如果(对象.找图(下标,579,182,725,250,"44.bmp")==0)
            对象.主线任务点击(下标)
            对象.寻路中(下标)
            辅助.等待(3000)
            对象.寻路中(下标)
        否则
            
            辅助.等待(500)
            
            如果(对象.找色(下标,579,182,725,250,"ff0000-000000|f35e5e-000000")==0)
                对象.找色点击(下标,579,182,725,250,"ff0000-000000|f35e5e-000000",+2,+2)
                调试输出("山贼")
                对象.寻路中(下标)
               
               
               
            否则
               
                辅助.等待(1000)
               
                对象.主线任务点击(下标)
               
                调试输出("坐骑")
                辅助.等待(1000)
            如果结束
        如果结束
        对象.战斗中(下标)
        对象.任务对话左下(下标)
    如果结束
功能结束

功能 掉线(下标)
    如果(对象.找字点击(下标,70,145,694,365,"师门","e4e3d8-000000",2,2)==0)
        辅助.等待(500)
        对象.鼠标移动点击(下标,400,338)
        辅助.等待(1000)
        
    如果结束
功能结束


功能 交任务(下标)
   
    循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.找图(下标,149,277,634,347,"交.bmp|差.bmp|差2.bmp")==0)
        
        对象.鼠标移动点击(下标,270,332)
        辅助.等待(300)
        对象.鼠标移动点击(下标,253,364)
        对象.鼠标移动点击(下标,253,364)
        辅助.等待(300)
        对象.鼠标移动点击(下标,257,379)
        对象.鼠标移动点击(下标,257,379)
        辅助.等待(300)
        对象.鼠标移动点击(下标,257,397)
         对象.鼠标移动点击(下标,257,397)
        辅助.等待(300)
        对象.鼠标移动点击(下标,257,421)
        辅助.等待(1000)
        对象.找色点击(下标,579,182,725,250,"4bd147-000000|fdf600-000000",+2,+2)
        辅助.等待(1000)
        
        对象.找字点击(下标,204,314,328,503,"师","4bd147-000000|fff800-000000",2,2)
        调试输出("交任务")
    循环结束
   
功能结束

功能 师门除妖(下标)
    aa=对象.找字(下标,577,181,732,298,"师门除妖","c5832e-202020")
    如果(aa==0)
        调试输出("除妖")
        时间 =日期时间.当前日期()
        循环(对象.找字(下标,576,181,722,296,"师门除妖","c5832e-202020")==0&&对象.超时(时间)<300)   
            调试输出("除妖")
            
            如果(对象.找字(下标,563,174,727,322,"(1/1)|(2/2)|(3/3)|(4/4)|(5/5)","deddc8-000000")>=0)
                调试输出("除妖完成")
                辅助.等待(1000)
                对象.回师门(下标)
                辅助.等待(200)
                对象.交任务(下标)
                跳出
            如果结束
            
            
            辅助.等待(1000)
            对象.找色点击(下标,579,182,725,250,"ff0000-000000|ff6363-000000",+2,+2)
            辅助.等待(1000)
            对象.寻路中(下标)
            辅助.等待(1000)
            对象.鼠标移动点击(下标,488,269)
            辅助.等待(2000)
            对象.鼠标移动点击(下标,128,225)
           
            
            对象.战斗中(下标)
            
        循环结束
    如果结束
   
功能结束

功能 师门任务物资(下标)
    x,y,数,数左,数右
   
   
    如果(ts数组[下标].FindStr(559,182,740,308,"师门","c5832e-202020",1.0,x,y)==0)
        调试输出("师门")
        辅助.等待(1000)
        
        
        aa=对象.找字(下标,576,181,722,296,"收集物资","c5832e-000000")
        如果(aa==0)
            
            如果(对象.找字(下标,x,y,x+150,y+80,"(1/1)|(2/2)|(3/3)|(4/4)|(5/5)","deddc8-000000")>=0)
               
                调试输出("数字")
                辅助.等待(1000)
                对象.回师门(下标)
                辅助.等待(1000)
                对象.寻路中(下标)
                对象.交任务(下标)
            否则  
               
                调试输出("物资")  
                如果(对象.找色点击(下标,x,y,x+150,y+80,"0098b0-000000|00bec6-000000",+2,+2)==0)
                    辅助.等待(1000)
                    对象.寻路中(下标)
                    
                    辅助.等待(5000)
                    对象.寻路中(下标)
                    
                    
                    
                如果结束
                时间 =日期时间.当前日期()
                循环(对象.找色(下标,207,305,301,486,"d5c222-000000|4bd147-000000|fff800-000000")==0&&对象.超时(时间)<40)   
                    
                    对象.找色点击(下标,212,320,357,502,"4bd147-000000|fff800-000000",+2,+2)
                    辅助.等待(1000)
                    对象.找色点击(下标,212,320,357,502,"d5c222-000000",+2,+2)
                    调试输出("找色点击")
                    辅助.等待(1000)
                循环结束
                如果(对象.找色点击(下标,174,147,399,436,"dadc10-000000|faec02-000000|eee604-000000",0,0)==0)
                    对象.找色点击(下标,174,147,399,436,"dadc10-000000|faec02-000000|eee604-000000",0,0)
                    
                    辅助.等待(1000)
                    对象.鼠标移动点击(下标,508,462)
                    
                    
                否则
                    调试输出("找色点击22222")
                    
                    
                如果结束
               
               
               
            如果结束
            
        如果结束
        
        
    如果结束  
   
功能结束

功能 回复师傅(下标)
    x,y
    如果(ts数组[下标].FindStr(570,177,724,305,"回复师傅","c5832e-202020",1.0,x,y)==0)
        对象.回师门(下标)
        
        对象.找字点击(下标,575,174,752,345,"蓬莱大仙|东海龙王|阎王","049e1e-000000|0eca01-000000",2,2)
        
    如果结束
   
   
功能结束

功能 回师门(下标)
    x,y
    如果(ts数组[下标].FindStr(559,182,740,308,"师门","c5832e-202020",1,x,y)==0)
        如果(对象.找字(下标,575,174,752,345,"蓬莱大仙|东海龙王|阎王","049e1e-000000|0eca01-000000")==0)
            辅助.等待(1000)
            对象.鼠标移动点击(下标,781,167)
            辅助.等待(2000)
            对象.找色点击(下标,x,y,x+150,y+80,"0ec701-000000|049e1e-000000",+2,+2)
            调试输出("回师门")
            对象.寻路中(下标)
        否则
            
            调试输出("接师门任务")
            
            对象.找色点击(下标,x,y,x+150,y+80,"049e1e-000000|0eca01-000000",+2,+2)
            辅助.等待(1000)
            对象.寻路中(下标)
            
        如果结束
    如果结束
功能结束

功能 师门(下标)
    x,y
   
    对象.战斗中(下标)
    如果(ts数组[下标].FindStr(576,181,725,316,"师门","c5832e-202020",1.0,x,y)<0)
        
        对象.鼠标移动点击(下标,651,561)
        辅助.等待(800)
        对象.鼠标移动点击(下标,331,107)
        辅助.等待(800)
        对象.找字点击(下标,70,145,694,365,"师门","e4e3d8-000000",+360,+1)
        
        辅助.等待(800)
        对象.找字点击(下标,190,339,468,491,"师门","4bd147-000000|fff800-000000",+2,+2)
        辅助.等待(800)
        对象.鼠标移动点击(下标,746,80)
        辅助.等待(1000)
        对象.任务对话左下(下标)
        
    如果结束
   
   
功能结束

功能 师门任务拜访(下标)
    x,y,数,数左,数右
   
    如果(ts数组[下标].FindStr(559,182,740,308,"师门","c5832e-202020",1.0,x,y)==0)
        
        调试输出("主线点击")
        
        如果(对象.找字(下标,576,181,725,316,"拜访友人","c5832e-000000")==0)
            
            如果(对象.找字(下标,x,y,x+150,y+80,"蓬莱大仙|东海龙王|阎王","049e1e-000000|0eca01-000000")==0)
                辅助.等待(800)
                对象.鼠标移动点击(下标,781,167)
                辅助.等待(500)
                对象.找色点击(下标,x,y,x+150,y+80,"0ec701-000000|049e1e-000000",+2,+2)
                调试输出("回师门")
                辅助.等待(800)
                对象.回师门(下标)
               
            否则
               
                调试输出("接师门任务")
               
                对象.找色点击(下标,x,y,x+150,y+80,"049e1e-000000|0eca01-000000",+2,+2)
                辅助.等待(300)
               
               
            如果结束
            
            对象.寻路中(下标)
            辅助.等待(1000)
            对象.寻路中(下标)
            
        如果结束
        
    如果结束
    调试输出("-----")
   
功能结束

功能 主线任务点击(下标)
    x,y
   
    如果(对象.ts数组[下标].FindStr(551,148,742,299,"主线|新手","c5832e-202020",1.0,x,y)==0)
        辅助.等待(1000)
        调试输出("主线点击")
        对象.找色点击(下标,x,y,x+115,y+50,"049e1e-000000|0eca01-000000",+2,+2)
        辅助.等待(300)
        
    如果结束
   
    如果(对象.ts数组[下标].FindStr(551,148,742,299,"领双","c5832e-000000",1.0,x,y)==0)
        辅助.等待(1000)
        调试输出("主线点击")
        对象.找色点击(下标,x,y,x+115,y+50,"049e1e-000000|0eca01-000000",+2,+2)
        辅助.等待(300)
        
    如果结束
   
   
功能结束

功能 任务对话左下(下标)
    调试输出("任务对话左下(下标")
   
    如果(对象.找图(下标,14,489,795,601,"鼠标.bmp|鼠标2.bmp|点.bmp")==0)
        对象.鼠标移动点击(下标,478,545)
        辅助.等待(200)
        对象.鼠标移动点击(下标,478,565)
        辅助.等待(300)
        对象.鼠标移动点击(下标,461,585)
    如果结束
    辅助.等待(300)
   
    对象.找色点击(下标,194,301,288,483,"80ff00-000000|67ce00-000000|d5c222-000000",+2,+2)
    辅助.等待(500)
    对象.找色点击(下标,194,301,288,483,"80ff00-000000|67ce00-000000",+2,+2)   
    辅助.等待(500)
    对象.找色点击(下标,194,301,288,483,"80ff00-000000|67ce00-000000|d5c222-000000",+2,+2)
    对象.找色点击(下标,194,301,288,483,"4bd147-000000|fff800-000000",+2,+2)
   
    对象.找色点击(下标,212,320,357,502,"d5c222-000000",+2,+2)
   
功能结束

功能 抓蜈蚣(下标)
    时间 =日期时间.当前日期()
    调试输出("抓蜈蚣")
    如果(对象.找字(下标,559,178,755,311,"捉蜈蚣","deddc8-000000")==0)
        调试输出("抓蜈蚣")   
        循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.超时(时间)<180)
            调试输出("抓蜈蚣")
            对象.主线任务点击(下标)
            对象.寻路中(下标)
            对象.任务对话左下(下标)
            
            对象.找字点击(下标,0,0,755,600,"取消","9abec1-202020",+2,+2)
            辅助.等待(1000)
            
            如果(对象.找字(下标,0,0,755,600,"法力值","e4e3d8-000000")==0)
               
                辅助.等待(6000)
                对象.鼠标移动点击右(下标,696,371)
                辅助.等待(2000)
                对象.鼠标移动点击右(下标,687,387)
            如果结束
            
            
            
            如果(对象.找图(下标,620,109,756,183,"窗.bmp")==0)
                辅助.等待(1000)
                对象.鼠标移动点击右(下标,695,344)
                辅助.等待(2000)
                对象.找色点击(下标,36,85,481,438,"ece04f-000000",+10,-30)
                辅助.等待(3000)
                对象.鼠标移动点击右(下标,687,387)
            如果结束
            
            如果(对象.找字(下标,0,0,755,600,"法力值","e4e3d8-000000")==0)
               
               
            如果结束
            
            
            
            如果(对象.找字(下标,558,170,726,256,"长安之事","c5832e-000000")==0)
               
               
                跳出
            如果结束
        循环结束
        
        对象.鼠标移动点击右(下标,695,344)
        
        对象.鼠标移动点击右(下标,695,344)
        
    如果结束   
功能结束

功能 获取等级(下标)
    调试输出("等级")
    辅助.等待(2000)
    对象.鼠标移动点击(下标,664,47)
    辅助.等待(1000)
    等级=ts数组[下标].Ocr(290,95,322,115,"46c528-000000",1.0)
    如果(类型.转整型(等级)>0)
        
        辅助.写配置("当前等级","等级"&下标,等级,"c:\\xian\\窗口"&下标&".ini")
        对象.鼠标移动点击(下标,358,18)
        返回 等级
    否则
        
        对象.鼠标移动点击(下标,358,18)
        返回 -1
    如果结束
   
   
功能结束

功能 升级(下标)
    调试输出("升级")
    如果(对象.找图点击右(下标,0,0,800,600,"升级.bmp|升级2.bmp",2,2)==0)   
        辅助.等待(3000)
        对象.鼠标移动点击(下标,297,527)
        辅助.等待(1000)
        对象.找字点击(下标,0,0,755,600,"继续升级","badee0-000000",2,2)
        辅助.等待(2000)
        对象.鼠标移动点击(下标,453,301)
        辅助.等待(2000)
        对象.鼠标移动点击(下标,309,397)
        辅助.等待(1000)
        对象.鼠标移动点击(下标,359,20)
        辅助.等待(500)
        对象.找图点击(下标,0,0,800,600,"差.bmp|差2.bmp",2,2)
    如果结束
    辅助.等待(1000)
    如果(对象.找图(下标,0,0,800,600,"宠物升级.bmp|宠物升级2.bmp")==0)   
        调试输出("宠物升级")
        对象.鼠标移动点击(下标,527,43)
        辅助.等待(2000)
        对象.鼠标移动点击(下标,233,436)
        辅助.等待(1000)
        对象.鼠标移动点击(下标,308,435)
        辅助.等待(1000)
        对象.鼠标移动点击(下标,362,45)
        辅助.等待(1000)
        对象.找图点击(下标,0,0,800,600,"差.bmp|差2.bmp",2,2)
    如果结束
   
   
功能结束

功能 家传宝玉(下标)
    调试输出("家传宝玉")
    时间 =日期时间.当前日期()
    如果(对象.找字点击(下标,554,177,726,250,"家传宝玉","0098b0-000000",2,2)==0)
        
        循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.超时(时间)<40)
            如果(对象.找色点击(下标,35,493,117,593,"80ff00-000000|faf300-000000",2,2)==0)
                辅助.等待(2000)
                对象.鼠标移动点击(下标,340,141)
                对象.鼠标移动点击(下标,340,141)
                辅助.等待(1000)
                对象.鼠标移动点击右(下标,217,178)
                辅助.等待(1000)
                跳出
            如果结束
        循环结束
    如果结束
功能结束

功能 购买凝血丹(下标)
    调试输出("购买凝血丹")
    辅助.等待(1000)
    对象.鼠标移动点击(下标,273,415)
   
    辅助.等待(1000)
    对象.鼠标移动点击(下标,278,412)
    辅助.等待(1000)
    对象.鼠标移动点击(下标,367,170)
    辅助.等待(1000)
    对象.鼠标移动点击(下标,509,463)
    辅助.等待(1000)
功能结束

功能 寻路中(下标)
    调试输出("寻路中")
    循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.找图(下标,0,0,800,600,"寻路.bmp")==0)
        
        辅助.等待(5000)
        
    循环结束
   
功能结束

功能 拜师(下标)
    调试输出("拜师")
    如果(对象.找字点击(下标,554,173,754,283,"好心人","049e1e-000000",+2,+2)==0||对象.找字(下标,554,173,754,283,"拜入师门","c5832e-000000")==0)
        调试输出("拜师")
        
        选项=下拉框.得到选项("下拉框0")
        
        时间 =日期时间.当前日期()
        循环(辅助.读配置("全局变量","跳出"&下标,"c:\\xian\\启动.ini")==1&&对象.超时(时间)<40)
            
            如果(选项==0)//仙岛
                对象.找字点击(下标,577,174,733,325,"蓬莱大仙","049e1e-000000",2,2)
            否则
                如果(选项==1)//龙宫
                    对象.找字点击(下标,577,174,733,325,"东海龙王","049e1e-000000",2,2)   
                否则
                    //阎王
                    对象.找字点击(下标,577,174,733,325,"阎王","049e1e-000000",2,2)
                    
                如果结束
            如果结束
            辅助.等待(5000)
            对象.找字点击(下标,175,281,650,516,"拜入师门","4bd147-000000",2,2)
            辅助.等待(2000)
            对象.找字点击(下标,175,281,650,516,"拜入师门","4bd147-000000",2,2)
            辅助.等待(2000)
            
            如果(对象.找字点击(下标,175,281,650,516,"确认","fff800-000000|4bd147-000000",2,2)==0)
               
                跳出
            如果结束
            对象.找图点击(下标,0,0,800,600,"差.bmp|差2.bmp",2,2)
            
        循环结束
    如果结束
功能结束

功能 超时(时间2)
    时差
    时间 =日期时间.当前日期()
    时差=日期时间.日期间隔("s",时间2,时间)
    返回 时差
功能结束

功能 鼠标移动点击(下标,x,y)
   
    ts数组[下标].MoveTo(x,y)
    辅助.等待(500)
    ts数组[下标].LeftClick()
   
功能结束
功能 鼠标移动点击右(下标,x,y)
   
    ts数组[下标].MoveTo(x,y)
    辅助.等待(500)
    ts数组[下标].RightClick()
   
功能结束

功能 找图(下标,x,y,x1,y1,图片)
    ret,intX,intY
    ret= ts数组[下标].FindPic(x,y,x1,y1,图片,"000000",0.9,0,intX,intY)
    if(ret>=0)
        返回 0
    否则
        返回 -1   
    endif
功能结束
功能 找图点击(下标,x,y,x1,y1,图片,偏移x,偏移y)
    ret,intX,intY
    ret= ts数组[下标].FindPic(x,y,x1,y1,图片,"000000",0.9,0,intX,intY)
    if(ret>=0)
        对象.鼠标移动点击(下标,intX+偏移x,intY+偏移y)
        返回 0
    否则
        返回 -1   
    endif
功能结束
功能 找图点击右(下标,x,y,x1,y1,图片,偏移x,偏移y)
    ret,intX,intY
    ret= ts数组[下标].FindPic(x,y,x1,y1,图片,"000000",0.9,0,intX,intY)
    if(ret>=0)
        对象.鼠标移动点击右(下标,intX+偏移x,intY+偏移x)
        返回 0
    否则
        返回 -1   
    endif
功能结束

功能 找色(下标,x,y,x1,y1,颜色)
    ret,intX,intY
    ret=ts数组[下标].FindColor(x,y,x1,y1,颜色,0.9,0,intX,intY)
    if(ret>=0)
        返回 0
    否则
        返回 -1   
    endif
   
功能结束
功能 找色点击(下标,x,y,x1,y1,颜色,偏移x,偏移y)
    ret,intX,intY
    ret=ts数组[下标].FindColor(x,y,x1,y1,颜色,0.9,0,intX,intY)
    if(ret>=0)
        辅助.等待(500)
        对象.鼠标移动点击(下标,intX+偏移x,intY+偏移y)   
        返回 0
    否则
        返回 -1   
    endif
   
功能结束

功能 找字(下标,x,y,x1,y1,字,色偏)
    x,y
    ts_ret=ts数组[下标].FindStr(x,y,x1,y1,字,色偏,1.0,x,y)
    if(ts_ret>=0)
        
        返回 0
    否则
        返回 -1   
    endif
功能结束

功能 找字点击(下标,x,y,x1,y1,字,色偏,偏移x,偏移y)
    x,y
    ts_ret=ts数组[下标].FindStr(x,y,x1,y1,字,色偏,1.0,x,y)
    if(ts_ret>= 0)
        对象.鼠标移动点击(下标,x+偏移x,y+偏移y)
        返回 0
    否则
        返回 -1   
    endif  
功能结束

功能 暂停()//暂停
   
    变量 窗口句柄,数组下标,长度
   
    //如果(暂停==真)
    //暂停=假
    //辅助.等待(200)
    //窗口句柄 = ts.GetForegroundWindow()
    //辅助.等待(200)
    //数组下标=数组空间.查找(对象.窗口数组,窗口句柄)
    //辅助.等待(200)
    //调试输出("暂停:"&数组下标)
    //如果(数组下标>=0)
    //辅助.写配置("全局变量","跳出"&数组下标,0,"c:\\fi\\ff.ini")
    //辅助.写配置("全局变量","跳出",0,"c:\\fi\\ff.ini")
   
    //否则
    //辅助.消息框("请选中游戏窗口")
    //如果结束
    //暂停=真
    //如果结束
   
    ts=com("ts.tssoft")
    辅助.等待(200)
   
    窗口句柄 = ts.GetForegroundWindow()
    辅助.等待(200)
    数组下标=数组空间.查找(窗口数组,窗口句柄)
    辅助.写配置("全局变量","跳出"&数组下标,0,"c:\\xian\\启动.ini")
    辅助.等待(1000)
    调试输出("暂停:"&窗口句柄)
   
    辅助.等待(5000)
   
    如果(数组下标>-1)
        //小标题=ts数组[数组下标].SetWindowText(窗口句柄,窗口标题[数组下标])
        ts数组[数组下标].UnBindWindow()
        辅助.等待(200)
        对象.删除数组指定内容(窗口数组,数组下标)
        //对象.删除数组指定内容(窗口标题,数组下标)
        辅助.等待(200)
        线程.关闭(任务数组[数组下标])
        //线程.关闭(检测数组[数组下标])
        su=数组下标
    否则
        辅助.消息框("请选中游戏窗口")
    如果结束
功能结束

功能 删除数组指定内容(&数组名,下标)
    辅助.等待(200)
    数组名[下标]=111
功能结束







空间结束
回复 支持 反对

使用道具 举报

发表于 2014-10-26 18:23:52 | 显示全部楼层
回复

使用道具 举报

发表于 2014-11-1 11:25:16 | 显示全部楼层
ganxielouzhufabu
回复 支持 反对

使用道具 举报

发表于 2014-11-1 12:11:05 | 显示全部楼层
- -   学习 学习
回复 支持 反对

使用道具 举报

发表于 2014-11-3 22:09:55 | 显示全部楼层
看看
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-3-29 21:04 , Processed in 0.041590 second(s), 19 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表