天龙八部 初学自制源码 打死换怪 滑块加血

a568118425

学了一个月了 终于做出了一个能用的脚本
这个脚本的选怪键是F11
窗口时800*600
16色
可是有几个问题还是一直整不明白
1:我不会做F2,F3,F4键自己设定等待时间,多线程的话就必须用大漠绑定多次,所以只做了
一个F1键,就是一个门派技能键
2:界面修改后我不知道怎么保存设置,所以就弄了一个初始化
3:我也不会用大漠识别坐标,所以这个不会定点挂机
4:我不会上传附件
5:我也不会会员回复可见
源码送上希望大神们指点
#import "dm.dmsoft" dm
空间 雪飘叶落
//定义默认空间
整型 线程句柄
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
线程句柄=线程.开启("雪飘叶落.打怪","")
返回 真
//函数返回语句
功能结束
功能 逻辑型 打怪()
//这里添加你要执行的代码
辅助.等待(1000)
整型 窗口句柄=dm.GetMousePointWindow()
窗口.激活(窗口句柄)
dm.BindWindow(窗口句柄,"dx","dx2","dx",0)
整型 位置0,位置1,位置2
逻辑型 状态0,状态1,状态2,状态3
状态0=复选框.获得状态("复选框0")
状态1=复选框.获得状态("复选框1")
状态2=复选框.获得状态("复选框2")
状态3=复选框.获得状态("复选框3")
位置0=滑块.得到位置("滑块0")
位置1=滑块.得到位置("滑块1")
位置2=滑块.得到位置("滑块2")
整型 生命值,法力值,宝宝血,X,Y,怪物,怪死,验证码,包,拾取
dm.SetPath(辅助.获取资源路径("rc:"))
循环(真)
    生命值=dm.FindColor(67,32,216,37,"333333-202020",1.0,0,X,Y)
    如果(X<位置0*1.49+67)
        如果(状态0)
            如果(X>0)
        dm.KeyPress(119)
        辅助.等待(300)
            如果结束
        如果结束
    如果结束
    法力值=dm.FindColor(67,40,216,45,"333333-202020",1.0,0,X,Y)
    如果(X<位置1*1.49+67)
        如果(状态1)
            如果(X>0)
        dm.KeyPress(120)
        辅助.等待(300)
            如果结束
        如果结束
    如果结束
    宝宝血=dm.FindColor(137,80,231,85,"393839-202020",1.0,0,X,Y)
    如果(X<位置2*0.94+137)
        如果(状态2)
            如果(X>0)
        dm.KeyPress(121)
        辅助.等待(300)
            如果结束
        如果结束
    如果结束
    怪物=dm.FindPic(541,15,581,74,"怪图.bmp|头目.bmp","000000",0.6,0,X,Y)
    如果(X>0)
        dm.KeyPress(112)
        辅助.等待(1000)
    否则
        dm.KeyPress(122)
        辅助.等待(200)
    如果结束
    怪死=dm.FindColor(326,32,328,37,"393839-202020",1.0,0,X,Y)
    如果(X>0)
        dm.KeyPress(122)
        辅助.等待(200)
    如果结束
    验证码=dm.FindPic(0,0,435,500,"验证码.bmp","000000",0.6,0,X,Y)
    如果(X>0)
    辅助.播放("rc:你是我心内的一首歌.mp3")
    辅助.等待(15000)
    如果结束
    //包色=dm.FindColor(325,184,530,406,"9ca368-020202",1.0,0,X,Y)
    包=dm.FindPic(325,184,530,406,"包.bmp","000000",0.8,0,X,Y)
    如果(状态3)
        如果(X>0)
            dm.MoveTo(X,Y)
            dm.LeftClick()
            辅助.等待(200)
        如果结束
    如果结束
    拾取=dm.FindPic(406,269,556,325,"拾取.bmp","000000",0.6,0,X,Y)
    如果(X>0)
        dm.MoveTo(X+30,Y+8)
        dm.LeftClick()
        辅助.等待(200)
    如果结束
循环结束
返回 真
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
整型 dm_ret= dm.UnBindWindow()
线程.关闭(线程句柄)
返回 真
//函数返回语句
功能结束
功能 逻辑型 雪飘叶落_关闭()
//这里添加你要执行的代码
辅助.退出()
返回 真
功能结束
功能 逻辑型 初始化()
//这里添加你要执行的代码
复选框.选中("复选框0",真)  
复选框.选中("复选框1",真)  
复选框.选中("复选框2",真)  
复选框.选中("复选框3",真)
滑块.设置位置("滑块0",80)
滑块.设置位置("滑块1",20)
滑块.设置位置("滑块2",70)
返回 真
功能结束
空间结束
//空间结束语句

554354854

给你赞一个。。。哈哈

1192576065

加油！！！

wl_20110226

支持   分享心得

tclhs

支持分享！