TC官方合作论坛

标题: 第一次做了个倩女幽魂自动打怪的脚本 [打印本页]

作者: luojiawne77 时间: 2012-2-10 13:42
标题: 第一次做了个倩女幽魂自动打怪的脚本
第一次做了个倩女幽魂自动打怪的脚本，发上来给大家看看求学习
第二个增加了自动拾取银两银票功能

#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))
倩女幽魂之自动打怪.打打()
如果结束
循环结束
返回真
功能结束
空间结束

作者: woodfish 时间: 2012-2-11 23:03
楼主好人啊，分享自己的源码，大家一起学习

作者: haitianzhilian 时间: 2012-2-12 10:48
学习了！！！

作者: sungaofei 时间: 2012-2-18 20:37
学习一下，。好用不。。

作者: 小川 时间: 2012-2-20 08:09
我也要给力

作者: hcxiaowu 时间: 2012-2-21 01:59
能做一个梦幻的脚本么

作者: caoqingyun 时间: 2012-2-21 13:19
楼主无私啊

作者: huangxi 时间: 2012-3-1 00:00
十个金币了

作者: zblp120110 时间: 2012-3-10 14:55
学习学习！新手报到加学习:P

作者: 8122206 时间: 2012-3-10 14:59
新手收藏了

作者: 4661654 时间: 2012-3-10 14:59
:D 顶下楼主，厉害

作者: 海底小鱼 时间: 2012-3-11 00:34
楼主太好了

作者: luohuyang 时间: 2012-3-11 09:26
学习

作者: yang5277229 时间: 2012-4-5 16:25
一定要看的

作者: us512 时间: 2012-4-5 19:52
回复必火

作者: 467133214 时间: 2012-4-6 16:05
不知道能不能用不，下来看看先

作者: shiyanjie001 时间: 2012-4-7 16:44
楼主好人啊，分享自己的源码，大家一起学习

作者: 废羊羊 时间: 2012-4-15 20:17
新手···看看

作者: fang2018 时间: 2012-4-16 22:34
没有金币

作者: fang2018 时间: 2012-4-16 22:35
不过也要顶下

作者: 31346337 时间: 2012-4-16 23:08
新手收藏了

作者: x1331366 时间: 2012-4-16 23:27
很厉害啊

作者: TC兔子 时间: 2012-4-17 06:47
回复 6楼hcxiaowu的帖子

敢做你也不敢用啊,梦幻查的很严滴~~弄不好就封号了

作者: wanghaidong1983 时间: 2012-4-17 09:50
学习学习！新手报到加学习

作者: z358928719 时间: 2012-7-31 06:59
可以用吗？？？？？？？？？？？？？？？？

作者: z358928719 时间: 2012-7-31 06:59

不晓得可以用不？？？？？？？？？？？？

作者: zeronAZ0 时间: 2012-8-24 00:31
好，学习学习

作者: zeronAZ0 时间: 2012-8-24 00:35
看不到啊

作者: huang120 时间: 2012-8-24 13:14
回复 1楼luojiawne77的帖子

能不能给个自动拾取的界面设计，谢谢，楼主好人

作者: Alice 时间: 2012-8-24 13:23
空间自动拾取
功能逻辑型银票银两()
整型是否找到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))
倩女幽魂之自动打怪.打打()
如果结束
循环结束
返回真
功能结束
空间结束
楼主，我把你源码粘贴后编译一下就显示出第6句(红色)是错误的是参数列表，求解

作者: huang120 时间: 2012-8-24 19:13
回复 1楼luojiawne77的帖子

楼主你这软件不能用啊，绑定窗口失败

作者: yoyofly1 时间: 2012-8-28 16:16
第一次接触用中文写的程序，感觉很迷茫

作者: huang120 时间: 2012-8-28 18:49
回复 1楼luojiawne77的帖子

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

作者: 1320630909 时间: 2012-9-25 01:41
给力

作者: wlguangzi345 时间: 2012-10-10 22:03
不错不错学习了哈哈哈的、好东西呀

作者: jin7533122 时间: 2013-2-19 13:40
运行起来报错啊为什么呢？是我使用有问题么？

作者: 板桥人 时间: 2013-2-28 09:39
好人一生平安

作者: tc11054110 时间: 2013-4-11 19:23
回复 1楼luojiawne77的帖子

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

作者: wl20070313 时间: 2013-5-9 17:41
我来看看

作者: jian4892 时间: 2013-5-11 15:36

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

作者: 爱上老公 时间: 2015-5-15 14:49
额。。。代码要精简啊

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)