|
楼主 |
发表于 2016-5-12 16:20:57
|
显示全部楼层
- 变量 循环开关,ts = 插件("ts.tssoft")
- //从这里开始执行
- 功能 盖世豪侠_初始化()
- //这里添加你要执行的代码
- 变量 是否成功=注册插件("TSPlug.dll",真)
- 如果(是否成功)
- 调试输出("插件注册成功")
- 结束
- 结束
- 功能 热键1_热键()
- //这里添加你要执行的代码
- 循环开关 = 假
- 线程关闭("任务线程",0)
-
- 如果 (ts.UnBindWindow())
- 调试输出("解除绑定成功")
- 结束
- 结束
- 功能 热键0_热键()
- //这里添加你要执行的代码
- 循环开关 = 真
-
- //获取窗口
- 变量 窗口句柄=ts.GetMousePointWindow()
-
- 如果(窗口句柄 > 0)
- 调试输出("获取窗口成功")
- 否则
- 调试输出("获取窗口失败")
- 结束
- 如果 (ts.SetPath(获取资源路径("rc:")))
- 调试输出("获取路径成功")
- 否则
- 调试输出("获取路径失败")
- 结束
- //设置字库
- 如果 (ts.SetDict(0,"0.txt"))
- 调试输出("获取字库成功")
- 否则
- 调试输出("获取字库失败")
- 结束
- 如果 (ts.BindWindow(窗口句柄,"gdi","normal","normal",1))
- 调试输出("绑定窗口成功")
- 否则
- 调试输出("绑定窗口失败")
- 结束
- 线程开启("任务线程","")
- 结束
- 功能 任务线程()
- 变量 找主线
- 循环(循环开关)
- 找主线 = 找主线1_10级()
- 调试输出("找主线中")
- 选择(找主线)
-
- 结束
- 结束
-
- 结束
- 功能 找主线1_10级()
- 变量 x,y
- ts.FindStr(0,0,800,600,"面|头|素|龙|紫|主|宋|儿|人|","00ff00-203040",0.9,x,y)
- 如果(x>-1)
- ts.MoveTo(x,y)
- 等待(500)
- ts.LeftClick()
- 否则
-
- 任务对话()
- 任务战斗()
- 任务找图点击()
- //任务选择角色()
- //任务领取灵儿()
- 结束
- 结束
- 功能 任务对话()
- 变量 intX,intY,x,y,intX1,intY1,intX2,intY2
- ts.FindColor(0,0,800,600,"84d794-000000",1.0,0,intX,intY)
- 如果(intX >= 0 && intY >= 0)
- ts.MoveTo(intX,intY)
- 等待(500)
- ts.LeftClick()
- 调试输出("找到对话")
- 否则
- 调试输出("没有找到对话")
- ts.FindStr(0,0,800,600,"郭","adef00-203040",0.9,x,y)
- 如果(x>-1)
- ts.MoveTo(x,y)
- 等待(500)
- ts.LeftClick()
- 调试输出("找到杀郭")
- 否则
- 调试输出("没有找到杀郭")
-
- 结束
-
- 结束
- 结束
- 功能 任务战斗()
- 变量 x,y,x1,y1,intX,intY,intX1,intY1
- ts.FindStr(0,0,800,600,"客|无|空","94e773-203040",0.9,x1,y1)
- 如果(x>-1)
- ts.MoveTo(x1,y1-28)
- ts.KeyPressChar("F2")
- 等待(500)
- ts.LeftClick()
- 等待(500)
- ts.LeftClick()
- 调试输出("找字客|无|空|武成功")
- ts.FindPic(0,0,2000,2000,"自.bmp","000000",0.9,0,intX,intY)
- 如果(intX >= 0 && intY >= 0)
- 否则
- ts.FindPic(0,0,2000,2000,"自动.bmp","000000",0.9,0,intX1,intY1)
- 如果(intX1 >= 0 && intY1 >= 0)
- ts.MoveTo(intX1,intY1)
- 等待(500)
- ts.LeftClick()
- 调试输出("找自动图成功")
- 结束
- 结束
- 否则
- ts.FindStr(0,0,800,600,"葱头","94e773-203040",0.9,x,y)
- 如果(x>-1)
- ts.MoveTo(x,y-25)
- ts.KeyDownChar("alt")
- 等待(500)
- ts.KeyPressChar("g")
- 等待(500)
- ts.KeyUpChar("alt")
- 等待(500)
- ts.LeftClick()
- 调试输出("找怪物坐标点")
- 否则
- 调试输出("没有找到怪物坐标点")
-
- 结束
- 结束
- 结束
- 功能 任务找图点击()
- 变量 intX,intY
- ts.FindPic(0,0,2000,2000,"确定.bmp|领取技能.bmp|","000000",0.9,0,intX,intY)
- 如果(intX >= 0 && intY >= 0)
- ts.MoveTo(intX,intY)
- 等待(500)
- ts.LeftClick()
- 调试输出("找到确定和领取技能")
- 否则
- 调试输出("没有找到确定和领取技能")
- 结束
- 结束
复制代码 |
|