TC官方合作论坛
标题:
【高级篇】2、2013地下城与勇士城镇移动到固定地点
[打印本页]
作者:
T_暗乄殇灬
时间:
2013-3-4 21:23
标题:
【高级篇】2、2013地下城与勇士城镇移动到固定地点
暂时放出代码,后面将慢慢介绍详情:
代码如下:
功能 移动人物方法(x,y,x1,y1,x2,y2,模式) //[通用移动人物到副本门口方法]
ts暗殇 = T_暗乄殇灬.ts暗殇
Plug365_龍吟 = com("网络验证.Plug365")
标记1=0,标记2=0,数据 = 数组[5]
//[打开地图]
循环(真)
循环(真)
如果(通用方法.检测网络中断(ts暗殇))
返回 "网络连接中断"
如果结束
如果(!窗口.是否存在(窗口句柄))
返回 "游戏消失"
如果结束
数据[0]=-1
数据 = 通用方法.找字方法(0,0,800,600,"游戏菜单|确认","ffffff-000000|ddc593-000000",ts暗殇)
如果(数据[0]==2)
ts暗殇.KeyPress(27)
辅助.等待(辅助.随机数(20,30))
如果结束
如果(字符串.比较(ts暗殇.GetColor(686,19),"ffffff")==0)
跳出
否则
ts暗殇.KeyPress(78)
辅助.等待(辅助.随机数(20,30))
如果结束
标记2 += 1
如果(标记2==200)
如果(字符串.比较(Plug365_龍吟.IsWindowDead(窗口句柄,20),"无响应")==0)
返回 "游戏卡死"
否则
标记2 = 0
如果结束
如果结束
辅助.等待(辅助.随机数(20,30))
循环结束
标记2 = 0
循环(真)
如果(通用方法.检测网络中断(ts暗殇))
返回 "网络连接中断"
如果结束
如果(!窗口.是否存在(窗口句柄))
返回 "游戏消失"
如果结束
如果(标记1==0)
遍历(记号=0;记号<3;记号++)
循环(真)
如果(通用方法.检测网络中断(ts暗殇))
返回 "网络连接中断"
如果结束
如果(!窗口.是否存在(窗口句柄))
返回 "游戏消失"
如果结束
如果(字符串.比较(ts暗殇.GetColor(686,19),"ffffff")==0)
跳出
否则
ts暗殇.KeyPress(27)
辅助.等待(辅助.随机数(20,30))
ts暗殇.KeyPress(78)
辅助.等待(辅助.随机数(20,30))
如果结束
辅助.等待(辅助.随机数(20,30))
循环结束
ts暗殇.MoveTo(x,y)
辅助.等待(辅助.随机数(20,30))
ts暗殇.RightClick()
辅助.等待(辅助.随机数(20,30))
遍历结束
如果结束
标记1 += 1
如果(标记1==400)
标记1=0
如果结束
数据[0]=-1
数据 = 通用方法.找字方法(x1,y1,x2,y2,"人物特征","09d9fd-000000|09cfff-000000|09cafd-000000|07b7f5-000000",ts暗殇)
如果(数据[0]==2)
跳出
如果结束
如果(模式==0)
数据[0]=-1
数据 = 通用方法.找字方法(0,0,800,600,"城镇","ddc593-000000",ts暗殇)
如果(数据[0]==2)
跳出
如果结束
否则
数据[0]=-1
数据 = 通用方法.找字方法(0,0,800,600,"城镇","ddc593-000000",ts暗殇)
如果(数据[0]==2)
ts暗殇.MoveTo(数据[1],数据[2])
辅助.等待(辅助.随机数(20,30))
ts暗殇.LeftClick()
辅助.等待(辅助.随机数(20,30))
标记2=800
跳出
如果结束
如果结束
标记2 += 1
如果(标记2==200)
如果(字符串.比较(Plug365_龍吟.IsWindowDead(窗口句柄,20),"无响应")==0)
返回 "游戏卡死"
否则
标记2 = 0
如果结束
如果结束
辅助.等待(辅助.随机数(20,30))
循环结束
如果(标记2!=800)
跳出
否则
标记2 = 0
如果结束
循环结束
//[关闭地图]
标记2 = 0
循环(真)
如果(通用方法.检测网络中断(ts暗殇))
返回 "网络连接中断"
如果结束
如果(!窗口.是否存在(窗口句柄))
返回 "游戏消失"
如果结束
如果(字符串.比较(ts暗殇.GetColor(686,19),"ffffff")!=0)
跳出
否则
ts暗殇.KeyPress(78)
辅助.等待(辅助.随机数(20,30))
如果结束
标记2 += 1
如果(标记2==200)
如果(字符串.比较(Plug365_龍吟.IsWindowDead(窗口句柄,20),"无响应")==0)
返回 "游戏卡死"
否则
标记2 = 0
如果结束
如果结束
辅助.等待(辅助.随机数(20,30))
循环结束
返回 ""
功能结束
复制代码
作者:
zhmap
时间:
2013-3-11 00:20
顶一个,学习了
作者:
kun0507
时间:
2013-3-11 22:02
支持,支持
作者:
loveyun149
时间:
2013-3-18 18:40
眼花啊,还带自定义
作者:
liu_7209
时间:
2013-7-5 11:45
回复
1楼
T_暗乄殇灬
的帖子
学习了
欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)
Powered by Discuz! X3.1