第一次做了个倩女幽魂自动打怪的脚本

luojiawne77

第一次做了个倩女幽魂自动打怪的脚本，发上来给大家看看  求学习
第二个增加了自动拾取银两银票功能

---

#include"自动拾取.t"
空间 倩女幽魂之自动打怪
//定义默认空间
整型 线程句柄
功能 逻辑型 打怪()
整型 a,d
整型 选项,选项3
选项=下拉框.得到选项("下拉框0")

如果(选项==0)
    a=49
否则
       如果(选项==1)
            a=50  
       否则
              如果(选项==2)
                  a=51
              否则
                   如果(选项==3)
                       a=52
                   否则
                       如果(选项==4)
                          a=53
                       否则
                            如果(选项==5)
                                a=54
                       否则
                            如果(选项==6)
                                a=55
                       否则
                            如果(选项==7)
                                a=56
                       否则
                              如果(选项==8)
                                  a=57
                       否则
                           如果(选项==9)
                                  a=48
                       否则
                           如果(复选框.获得状态("复选框0"))
                           辅助.消息框("请设置技能1按键！")
                           如果结束
                       如果结束
                       如果结束
                       如果结束
                       如果结束
                       如果结束
                       如果结束
如果结束
如果结束
如果结束
如果结束
选项3=下拉框.得到选项("下拉框3")
如果(选项3==0)
    d=49
如果结束
如果(选项3==1)
    d=50
如果结束
如果(选项3==2)
    d=51
如果结束
如果(选项3==3)
    d=52
如果结束
如果(选项3==4)
    d=53
如果结束
如果(选项3==5)
    d=54
如果结束
如果(选项3==6)
    d=55
如果结束
如果(选项3==7)
    d=56
如果结束
如果(选项3==8)
    d=57
如果结束
如果(选项3==9)
    d=48
如果结束
如果(选项3<0&&复选框.获得状态("复选框1"))
辅助.消息框("请设置技能2按键！")
如果结束
如果(a>0&&复选框.获得状态("复选框0"))
    大漠.按键(a)
辅助.等待(600)
如果结束
如果(复选框.获得状态("复选框1"))
    大漠.按键(d)
    辅助.等待(600)
如果结束
返回 真
功能结束

功能 逻辑型 加血()
整型 b
整型 选项1
选项1=下拉框.得到选项("下拉框1")
如果(选项1==0)
    b=112
否则
       如果(选项1==1)
            b=113
       否则
              如果(选项1==2)
                  b=114
              否则
                   如果(选项1==3)
                       b=115
                   否则
                       如果(选项1==4)
                          b=116
                       否则
                            如果(选项1==5)
                                b=117
                       否则
                            如果(选项1==6)
                                b=118
                       否则
                             如果(选项1==7)
                                 b=119
                             否则
                                 如果(复选框.获得状态("复选框2"))
                                 辅助.消息框("请设置加血按键！")
                                 如果结束
                             如果结束
                       如果结束
                       如果结束
                       如果结束
如果结束
如果结束
如果结束
如果结束
如果(b>0&&复选框.获得状态("复选框2"))
大漠.按键(b)
辅助.等待(300)
如果结束
返回 真
功能结束

功能 逻辑型 加蓝()
整型 c
整型 选项2
选项2=下拉框.得到选项("下拉框2")
如果(选项2==0)
    c=112
否则
       如果(选项2==1)
           c=113
       否则
              如果(选项2==2)
                 c=114
              否则
                   如果(选项2==3)
                      c=115
                   否则
                       如果(选项2==4)
                         c=116
                       否则
                            如果(选项2==5)
                               c=117
                       否则
                            如果(选项2==6)
                                c=118
                       否则
                             如果(选项2==7)
                                 c=119
                             否则
                                 如果(复选框.获得状态("复选框3"))
                                 辅助.消息框("请设置加蓝按键！")
                                 如果结束
                                  如果结束
                       如果结束
                       如果结束
                       如果结束
如果结束
如果结束
如果结束
如果结束
如果(c>0&&复选框.获得状态("复选框3"))
大漠.按键(c)
辅助.等待(300)
如果结束

返回 真
功能结束

功能 逻辑型 自动打怪()
逻辑型 是否成功
整型 窗口句柄
是否成功=辅助.注册插件("rc:\\dm.dll",真)
是否成功=大漠.创建()
如果(!是否成功)
    辅助.消息框("大漠创建失败~")
返回 假
如果结束
窗口句柄=大漠.找到窗口("MainWnd class of ArkEngine","")
是否成功=大漠.绑定窗口(窗口句柄,"dx","dx","dx",0)
如果(!是否成功)
    辅助.消息框("窗口绑定失败~")
返回 假
如果结束
是否成功=大漠.设置字库(0,"rc://倩女死亡.txt")
如果(!是否成功)
    辅助.消息框("字库设置失败~")
返回 假
如果结束
倩女幽魂之自动打怪.打打()
返回 真
功能结束






功能 逻辑型 打打()
辅助.等待(1000)
大漠.按键(9)
循环(真)
整型 intx
整型 inty
整型 是否找到,找到与否1,找到与否2
是否找到=大漠.找字(406,4,529,58,"[死亡]","ffffff-000000",1.0,intx,inty)
找到与否1=大漠.找字(406,4,529,58,"[死亡]","ff88ff-000000",1.0,intx,inty)
找到与否2=大漠.找字(406,4,529,58,"[死亡]","fffe91-000000",1.0,intx,inty)
如果((是否找到==0)||(找到与否1==0)||(找到与否2==0))
辅助.等待(300)
大漠.按键(9)
否则
倩女幽魂之自动打怪.打怪()
如果结束
逻辑型 是否找到1
逻辑型 是否找到2
字符型 加血百分比
字符型 加蓝百分比
整型 e
整型 f
整型 g
整型 h
浮点型 m,n
加血百分比=编辑框.获得文本("编辑框0")
加蓝百分比=编辑框.获得文本("编辑框1")
e=转换.字符型转整型(加血百分比,0)
f=转换.字符型转整型(加蓝百分比,0)
如果((e<0)||(e>100))
    辅助.消息框("请输入一个0~100的数")
如果结束
如果((f<0)||(f>100))
    辅助.消息框("请输入一个0~100的数")
如果结束
m=74+108*e/100
n=74+108*f/100
g=转换.浮点型转整型(m)
h=转换.浮点型转整型(n)

是否找到1=大漠.区域找色(g,26,182,40,"900909-000000",1.0,0,intx,inty)
如果(!是否找到1)
倩女幽魂之自动打怪.加血()
如果结束
是否找到2=大漠.区域找色(h,37,182,51,"093b95-000000",1.0,0,intx,inty)
如果(!是否找到2)
倩女幽魂之自动打怪.加蓝()
如果结束
自动拾取.银票银两()
循环结束
返回 真
功能结束

功能 逻辑型 开始_点击()
//这里添加你要执行的代码
线程句柄=线程.开启("倩女幽魂之自动打怪.自动打怪")
返回 真
//函数返回语句
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
大漠.解绑窗口(线程句柄)
大漠.释放(线程句柄)
线程.关闭(线程句柄)
辅助.退出()
返回 真
//函数返回语句
功能结束
功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
大漠.解绑窗口(线程句柄)
大漠.释放(线程句柄)
线程.暂停(线程句柄)
返回 真
功能结束

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

空间 自动拾取
功能 逻辑型 银票银两()
整型 是否找到1,是否找到2
整型 intx1,intx2
整型 inty1,inty2
是否找到1=大漠.找字(0,0,2000,2000,"银票","ffffff-000000",1.0,intx1,inty1)
是否找到2=大漠.找字(0,0,2000,2000,"银两","ffffff-000000",1.0,intx2,inty2)
循环((是否找到1==0)||(是否找到2==0))
是否找到1=大漠.找字(0,0,2000,2000,"银票","ffffff-000000",1.0,intx1,inty1)
如果(是否找到1==0)
大漠.移动(intx1+10,inty1+5)
大漠.左键单击()
辅助.等待(1000)
如果结束
是否找到2=大漠.找字(0,0,2000,2000,"银两","ffffff-000000",1.0,intx2,inty2)
如果(是否找到2==0)
大漠.移动(intx2+10,inty2+5)
大漠.左键单击()
辅助.等待(1000)
如果结束
如果((是否找到1!=0)&&(是否找到2!=0))
   倩女幽魂之自动打怪.打打()
如果结束
循环结束
返回 真
功能结束
空间结束

爱上老公

额。。。代码要精简啊

jian4892

共同学习进步，，，楼主好人

wl20070313

我 来看看

tc11054110

回复 1楼luojiawne77的帖子

空间 倩女幽魂之自动打怪
//定义默认空间
整型 线程句柄
功能 逻辑型 打怪()  // 楼主这句报错说“逻辑型 打怪”中出现不是命名规范中的字符

板桥人

好人一生平安

jin7533122

运行起来报错啊  为什么呢？ 是我使用有问题么 ？

wlguangzi345

不错不错 学习了 哈哈哈 的、好东西呀

1320630909

给力

huang120

回复 1楼luojiawne77的帖子

楼主请问你这脚本是不是可以自动拾取？