TC官方合作论坛

 找回密码
 立即注册
查看: 2640|回复: 10
打印 上一主题 下一主题

[已解决] 求教,自动打怪脚本该如何编写顺序

[复制链接]
跳转到指定楼层
楼主
发表于 2012-5-29 19:28:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
  小白编写了个 寻仙后台自动打怪脚本     找坐标点颜色和 找图都可以找到 ,但是打怪的时候不加血, 应该是功能编写顺序的问题,求大神指点12 自动打怪该 如何编写功能顺序





#import "dm.dmsoft" dm
空间 test2
//定义默认空间

整型 窗口句柄
字符型 标题
字符型 帐号
整型 线程句柄1,线程句柄2,线程句柄3,线程句柄4
整型 是否找到1
整型 是否找到
整型 是否找到2
整型 是否找到3
整型 锁定
整型 xx
整型 yy
整型 x
整型 y


//找到鼠标所在窗口句柄 并且绑定窗口 获得窗口名 设置窗口大小,重新设置窗口标题 最后开始执行功能
功能 整型 找到窗口()
进度条.设置进度("进度条0",5)
//窗口句柄=dm.FindWindow("Afx:00400000:b:00010003:01900011:00000000","")  

窗口句柄=dm.GetMousePointWindow()
是否找到2=dm.BindWindow(窗口句柄,"dx","dx","windows",1)
如果 (是否找到2==0)
dm.SetWindowState(窗口句柄,1)
辅助.等待(100)
标题=窗口.得到标题(窗口句柄)
标签.设置文本("标签1",标题)
辅助.等待(100)
进度条.设置进度("进度条0",15)
窗口.设置位置(窗口句柄,0,0)
窗口.设置大小(窗口句柄,800,600)
辅助.等待(100)
窗口.设置标题(窗口句柄,"脚本已运行,请勿重复操作")
辅助.等待(300)
进度条.设置进度("进度条0",50)
否则
辅助.消息框("窗口绑定失败")
如果结束
返回 0
功能结束



功能 逻辑型 自动加血()
进度条.设置进度("进度条0",100)
循环(真)
是否找到=dm.FindColor(103,43,105,45,"bf4040",1.0,0,x,y)
如果(是否找到==0)

否则
   
    dm.KeyDown(49)
    辅助.等待(100)
    dm.KeyDown(49)
    辅助.等待(100)
    dm.KeyDown(49)
辅助.等待(1400)

如果结束  
循环结束
返回 真
功能结束


功能 逻辑型 自动加蓝()
循环(真)
  是否找到1=dm.FindColor(111,53,113,55,"336ea3",1.0,0,xx,yy)
如果(是否找到1==0)

否则
      
    dm.KeyDown(109)
        辅助.等待(100)
    dm.KeyDown(109)
        辅助.等待(100)
    dm.KeyDown(109)
   
  
如果结束

循环结束
返回 真
功能结束

功能 逻辑型 自动找怪()
dm.SetPath(辅助.获取资源路径("rc:"))
整型 xxx
整型 yyy

循环(真)


是否找到3=dm.FindPic(0,0,784,565,"0.bmp"," 050505",0.8,0,xxx,yyy)
dm.SetPath(辅助.获取资源路径("rc:"))


如果(xxx>0)
   
//dm.MoveTo (xxx,yyy)
   dm.KeyDown(13)
窗口.发送按键(窗口句柄,53)
辅助.等待(100)
窗口.发送按键(窗口句柄,90)
窗口.发送按键(窗口句柄,55)
辅助.等待(1300)
窗口.发送按键(窗口句柄,55)
辅助.等待(1300)
辅助.等待(100)
窗口.发送按键(窗口句柄,90)
窗口.发送按键(窗口句柄,90)
窗口.发送按键(窗口句柄,90)




否则
    窗口.发送按键(窗口句柄,9)
       
如果结束
循环结束
返回 真
功能结束
//脚本关闭热键  
功能 逻辑型 热键1_热键()
//这里添加你要执行的代码


辅助.退出()
返回 真
功能结束

//脚本执行热键,点击后脚本开始执行
功能 逻辑型 热键0_热键()
//这里添加你要执行的代码
test2.找到窗口()

如果(是否找到2==0)
    辅助.等待(3000)
线程句柄1=线程.开启("test2.自动找怪","我是参数")
线程句柄2=线程.开启("test2.自动加血","我是参数")
线程句柄3=线程.开启("test2.自动加蓝","我是参数")
如果结束
返回 真
功能结束

//还原窗口初始标题,关闭线程,最大化窗口,解除绑定窗口
功能 逻辑型 销毁()
//这里添加你要执行的代码
帐号=标签.获得文本("标签1")
窗口.设置标题(窗口句柄,帐号)

窗口.最大化(窗口句柄)
dm.ForceUnBindWindow(窗口句柄)

返回 真
功能结束

//注册大漠插件到系统窗口初始化,修改脚本窗口标题名。播放音乐。
功能 逻辑型 初始化()
//这里添加你要执行的代码

辅助.消息框("使用前请关掉360,否则可能造成脚本功能无法正常使用,确认关闭后,单击确定")

辅助.注册插件("rc:\\dm.dll",真)
  逻辑型 是否成功=辅助.注册插件("rc:\\dm.dll",真)
如果(是否成功)
辅助.消息框("插件注册成功")
如果结束     
dm.SetPath(辅助.获取资源路径("rc:"))

辅助.播放("rc:\\12.mp3")
整型 自身句柄=窗口.自身句柄()
窗口.设置标题(自身句柄,"寻仙后台自动挂机脚本")
辅助.等待(500)

返回 真
功能结束

//暂停脚本,停止线程
功能 逻辑型 热键2_热键()
//这里添加你要执行的代码
线程.关闭(线程句柄1)


返回 真
功能结束

//复制游戏窗口标题

功能 逻辑型 标签7_点击()
//这里添加你要执行的代码
辅助.写入剪切板(帐号)

辅助.消息框("窗口信息已以写入,直接粘贴既可")
返回 真
功能结束
//恶搞部分。。。。。。 点击后锁定鼠标10s
功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
辅助.消息框("让你关音乐,鼠标锁定10秒")
鼠标.锁定()
辅助.等待(10000)
鼠标.解锁()
返回 真
功能结束



功能 逻辑型 按钮1_点击()
//这里添加你要执行的代码
帐号=标签.获得文本("标签1")
窗口.设置标题(窗口句柄,帐号)

窗口.最大化(窗口句柄)
dm.ForceUnBindWindow(窗口句柄)
辅助.退出()
返回 真
功能结束


功能 逻辑型 按钮3_点击()
//这里添加你要执行的代码
线程.关闭(线程句柄1)
返回 真
功能结束


功能 逻辑型 按钮2_点击()
//这里添加你要执行的代码
test2.找到窗口()

如果(是否找到2==0)
    辅助.等待(3000)
线程句柄1=线程.开启("test2.自动找怪","我是参数")
线程句柄2=线程.开启("test2.自动加血","我是参数")
线程句柄3=线程.开启("test2.自动加蓝","我是参数")
如果结束
返回 真
功能结束




空间结束
//空间结束语句


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

沙发
发表于 2012-5-29 20:05:36 | 只看该作者
首先你要知道你的判断 是否有效
在要加蓝前 弹出个对话框啥的 慢慢调试
回复 支持 反对

使用道具 举报

板凳
发表于 2012-5-29 21:57:26 | 只看该作者
好复杂啊~都看不懂 哭啦
回复 支持 反对

使用道具 举报

地板
发表于 2012-5-30 09:02:14 | 只看该作者
不加血可能是你加血的判断有问题。  自己设置断点调试吧!  或者写日志。
回复 支持 反对

使用道具 举报

5#
发表于 2012-5-30 09:51:54 | 只看该作者
这个也没得什么循序之说吧! 主要是看你代码判是否有问题而已。
回复 支持 反对

使用道具 举报

6#
发表于 2012-5-30 09:52:45 | 只看该作者
可能是你的颜色值判断有问题,或者你逻辑取真还是取假的时候有问题。
回复 支持 反对

使用道具 举报

7#
发表于 2012-5-30 10:19:49 | 只看该作者
自己做好判断吧!
回复 支持 反对

使用道具 举报

8#
发表于 2012-5-30 10:20:21 | 只看该作者
逻辑型的问题吧!
回复 支持 反对

使用道具 举报

9#
发表于 2012-5-30 10:51:57 | 只看该作者
看看。。
回复 支持 反对

使用道具 举报

10#
发表于 2012-5-30 10:52:18 | 只看该作者
学习下。
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

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

GMT+8, 2025-10-16 06:42 , Processed in 0.149538 second(s), 25 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

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