TC官方合作论坛

标题: 【有源码】人人社区办PVZ 前院6自动循环刷脚本 [打印本页]

作者: 阿拉 时间: 2011-9-28 09:34
标题: 【有源码】人人社区办PVZ 前院6自动循环刷脚本
PVZ 游戏脚本
写了3个晚上的处女座脚本:D，。TC论坛首发，目前校内上还没分享，脚本只有我自己再用，因为涉及到坐标区域找色，我不知道会不会因为电脑屏幕大小不同导致坐标不同，还是只要更改分辨率就能在其他电脑上应用，主要用到TC功能1、区域找色2、线程开启、暂停，原理很简单，但是抓图都快给我抓疯了。。
闲话少说，代码如下，发出来有玩PVZ的大家可以一起交流。
目前昨天晚上在写道场12的挂机脚本，估计10月1放假要是没什么事就能搞定放到校内上，，有兴趣的可以加我好友下地址：
http://www.renren.com/profile.do?id=228866898

空间我的程序
x
y
x1
y1
x2
y2
x3
y3
x4
y4
x5
y5
x6
y6
x7
y7
x8
y8
x91
y91
x92
y92
x93
y93
x94
y94
x95
y95
x10
y10
x11
y11
x12
y12
x13
y13
x14
y14
x15
y15
x16
y16
x17
y17
x18
y18
x19
y19
x20
y20
x21
y21
x22
y22
x23
y23
x24
y24
x25
y25
x26
y26
x27
y27
x28
y28
x29
y29
x30
y30
x40
y40
线程编号1
线程编号2
线程编号3
返回的x1坐标
返回的y1坐标
返回的x8坐标
返回的y8坐标
选择前院6
继续冒险
选择容易
点击确定开始游戏
使用上次选择
立刻开战
是否找到太阳
起点僵尸放土雷1
起点僵尸放土雷2
起点僵尸放土雷3
起点僵尸放土雷4
起点僵尸放土雷5
土雷是否恢复
超时确定
向日葵是否恢复
是否已种植向日葵11
是否已种植向日葵12
是否已种植向日葵13
是否已种植向日葵14
是否已种植向日葵15
冰豆荚是否恢复
是否已种植冰豆荚21
是否已种植冰豆荚22
是否已种植冰豆荚23
是否已种植冰豆荚24
是否已种植冰豆荚25
大嘴花是否恢复
是否已种植大嘴花31
是否已种植大嘴花32
是否已种植大嘴花33
是否已种植大嘴花34
是否已种植大嘴花35
点击乘2速度
是否找到结束小旗
是否找到停止冰豆荚
功能种植植物()
x1=-1
循环(x1==-1)
是否找到停止冰豆荚=图像.区域找色(350,175,418,268,#FFD339,1,x40,y40)
超时确定=图像.区域找色(336,204,753,536,#00FF00,1,x11,y11)
是否找到太阳=图像.区域找色(151,171,901,651,#52FFFF,1,x8,y8)
起点僵尸放土雷1=图像.区域找色(822,167,907,238,#00046B,2,x91,y91)
起点僵尸放土雷2=图像.区域找色(857,274,914,365,#00046B,2,x92,y92)
起点僵尸放土雷3=图像.区域找色(866,360,913,440,#00046B,2,x93,y93)
起点僵尸放土雷4=图像.区域找色(864,462,905,539,#00046B,2,x94,y94)
起点僵尸放土雷5=图像.区域找色(870,554,909,637,#00046B,2,x95,y95)
土雷是否恢复=图像.区域找色(386,99,428,161,#4A51F7,0,x10,y10)
向日葵是否恢复=图像.区域找色(280,95,326,163,#E7FFFF,0,x12,y12)
是否已种植向日葵11=图像.区域找色(192,176,269,271,#E7FFFF,0,x13,y13)
是否已种植向日葵12=图像.区域找色(195,279,274,362,#E7FFFF,0,x14,y14)
是否已种植向日葵13=图像.区域找色(196,373,267,457,#E7FFFF,0,x15,y15)
是否已种植向日葵14=图像.区域找色(191,460,272,550,#E7FFFF,0,x16,y16)
是否已种植向日葵15=图像.区域找色(188,554,274,649,#E7FFFF,0,x17,y17)
冰豆荚是否恢复=图像.区域找色(331,96,378,163,#FFD339,0,x18,y18)
是否已种植冰豆荚25=图像.区域找色(349,557,427,651,#FFD339,1,x23,y23)
是否已种植冰豆荚24=图像.区域找色(349,482,425,570,#FFD339,0,x22,y22)
是否已种植冰豆荚23=图像.区域找色(349,382,425,470,#FFD339,0,x21,y21)
是否已种植冰豆荚22=图像.区域找色(349,282,425,370,#FFD339,0,x20,y20)
是否已种植冰豆荚21=图像.区域找色(350,175,418,268,#FFD339,0,x19,y19)
大嘴花是否恢复=图像.区域找色(229,94,275,162,#9C2484,0,x24,y24)
是否已种植大嘴花31=图像.区域找色(273,175,350,269,#9C2484,0,x25,y25)
是否已种植大嘴花31=图像.区域找色(273,278,341,370,#9C2484,0,x26,y26)
是否已种植大嘴花31=图像.区域找色(273,378,341,470,#9C2484,0,x27,y27)
是否已种植大嘴花31=图像.区域找色(273,478,341,570,#9C2484,0,x28,y28)
是否已种植大嘴花31=图像.区域找色(273,578,341,670,#9C2484,0,x29,y29)
如果(是否找到停止冰豆荚)
辅助.等待(2000)
线程.关闭(线程编号1)
否则
如果结束
如果(x23==-1)
如果(冰豆荚是否恢复)
辅助.等待(200)
鼠标.移动(354,126)
鼠标.左键按下()
鼠标.移动(390,630)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x22==-1)
如果(冰豆荚是否恢复)
辅助.等待(200)
鼠标.移动(354,126)
鼠标.左键按下()
鼠标.移动(390,530)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x21==-1)
如果(冰豆荚是否恢复)
辅助.等待(200)
鼠标.移动(354,126)
鼠标.左键按下()
鼠标.移动(390,430)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x20==-1)
如果(冰豆荚是否恢复)
辅助.等待(200)
鼠标.移动(354,126)
鼠标.左键按下()
鼠标.移动(390,330)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x19==-1)
如果(冰豆荚是否恢复)
辅助.等待(200)
鼠标.移动(354,126)
鼠标.左键按下()
鼠标.移动(390,230)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x25==-1)
如果(大嘴花是否恢复)
辅助.等待(200)
鼠标.移动(250,126)
鼠标.左键按下()
鼠标.移动(300,230)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x26==-1)
如果(大嘴花是否恢复)
辅助.等待(200)
鼠标.移动(250,126)
鼠标.左键按下()
鼠标.移动(300,330)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x27==-1)
如果(大嘴花是否恢复)
辅助.等待(200)
鼠标.移动(250,126)
鼠标.左键按下()
鼠标.移动(300,430)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x28==-1)
如果(大嘴花是否恢复)
辅助.等待(200)
鼠标.移动(250,126)
鼠标.左键按下()
鼠标.移动(300,530)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x29==-1)
如果(大嘴花是否恢复)
辅助.等待(200)
鼠标.移动(250,126)
鼠标.左键按下()
鼠标.移动(300,630)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x13==-1)
如果(向日葵是否恢复)
//辅助.等待(1000)
鼠标.移动(304,126)
鼠标.左键按下()
鼠标.移动(230,230)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x14==-1)
如果(向日葵是否恢复)
//辅助.等待(1000)
鼠标.移动(304,126)
鼠标.左键按下()
鼠标.移动(230,315)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x15==-1)
如果(向日葵是否恢复)
//辅助.等待(1000)
鼠标.移动(304,126)
鼠标.左键按下()
鼠标.移动(230,415)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x16==-1)
如果(向日葵是否恢复)
//辅助.等待(1000)
鼠标.移动(304,126)
鼠标.左键按下()
鼠标.移动(230,515)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(x17==-1)
如果(向日葵是否恢复)
//辅助.等待(1000)
鼠标.移动(304,126)
鼠标.左键按下()
鼠标.移动(230,615)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
//辅助.等待(80)
如果(超时确定)
鼠标.移动(x11,y11)
//辅助.等待(80)
鼠标.左键单击(1)
否则
如果结束
如果(是否找到太阳)
//返回的x8坐标=转换.整型转字符型(x8)
//返回的y8坐标=转换.整型转字符型(y8)
//辅助.消息框(返回的x8坐标)
//辅助.消息框(返回的y8坐标)
//辅助.等待(1000)
鼠标.移动(x8,y8)
//辅助.等待(80)
鼠标.左键单击(1)
//辅助.消息框("22222")
否则
//辅助.消息框("33333")
如果结束
//辅助.等待(80)
如果(超时确定)
鼠标.移动(x11,y11)
//辅助.等待(80)
鼠标.左键单击(1)
否则
如果结束
//辅助.等待(80)
如果(起点僵尸放土雷1)
如果(土雷是否恢复)
//辅助.等待(200)
鼠标.移动(x10,y10)
鼠标.左键按下()
鼠标.移动(467,246)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(起点僵尸放土雷2)
如果(土雷是否恢复)
//辅助.等待(200)
鼠标.移动(x10,y10)
鼠标.左键按下()
鼠标.移动(467,341)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(起点僵尸放土雷3)
如果(土雷是否恢复)
//辅助.等待(200)
鼠标.移动(x10,y10)
鼠标.左键按下()
鼠标.移动(467,434)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(起点僵尸放土雷4)
如果(土雷是否恢复)
//辅助.等待(200)
鼠标.移动(x10,y10)
鼠标.左键按下()
鼠标.移动(467,510)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束
如果(起点僵尸放土雷5)
如果(土雷是否恢复)
//辅助.等待(200)
鼠标.移动(x10,y10)
鼠标.左键按下()
鼠标.移动(467,605)
鼠标.左键按下()
鼠标.右键单击(1)
否则
如果结束
否则
如果结束

循环结束
返回真
功能结束
功能循环开始游戏和获取太阳()
x1=-1
循环(x1==-1)
//是否找到停止冰豆荚=图像.区域找色(349,582,425,670,#FFEB7B,0,x1,y1)
继续冒险=图像.区域找色(660,595,858,673,#7BBEEF,0,x2,y2)
选择前院6=图像.区域找色(598,364,736,538,#2128D6,0,x3,y3)
选择容易=图像.区域找色(260,214,404,358,#6B5152,0,x4,y4)
点击确定开始游戏=图像.区域找色(301,547,490,640,#00C700,0,x5,y5)
使用上次选择=图像.区域找色(485,165,580,212,#3171AD,0,x6,y6)
立刻开战=图像.区域找色(302,499,438,751,#39AADE,0,x7,y7)
超时确定=图像.区域找色(449,503,599,569,#AD7D7B,0,x11,y11)
辅助.等待(80)

如果(超时确定)
鼠标.移动(x11,y11)
//辅助.等待(80)
鼠标.左键单击(1)
否则
如果结束

如果(继续冒险)
辅助.等待(95000)
鼠标.移动(x2,y2)
//辅助.等待(18000)
鼠标.左键单击(1)
辅助.等待(95000)
否则
如果结束
如果(选择前院6)
鼠标.移动(x3,y3)
//辅助.等待(18000)
鼠标.左键单击(1)
//辅助.等待(18000)
否则
如果结束
如果(选择容易)
鼠标.移动(x4,y4)
//辅助.等待(80)
鼠标.左键单击(1)
//辅助.等待(80)
选择容易=图像.区域找色(260,214,404,358,#08FF52,0,x4,y4)
如果(选择容易)
鼠标.移动(x5,y5)
//辅助.等待(80)
鼠标.左键单击(1)
线程.暂停(线程编号1)
辅助.等待(5000)
否则
如果结束
否则
如果结束
如果(使用上次选择)
辅助.等待(2000)
鼠标.移动(x6,y6)
辅助.等待(3000)
鼠标.左键单击(1)
如果(立刻开战)
鼠标.移动(x7,y7)
鼠标.左键单击(1)
线程编号1=线程.开启("我的程序.种植植物","")
辅助.等待(80)
//线程.恢复(线程编号1)
//线程.恢复(线程编号1)
//线程.恢复(线程编号1)
//线程.恢复(线程编号1)
否则
如果结束
否则
如果结束
循环结束
返回真
功能结束
功能开始_点击()
线程编号1=线程.开启("我的程序.种植植物","")
线程编号2=线程.开启("我的程序.循环开始游戏和获取太阳","")
//线程编号3=线程.开启("我的程序.速度乘二","")
返回真
功能结束

功能退出_点击()
辅助.退出()
返回真
功能结束
空间结束

作者: 阿拉 时间: 2011-9-28 09:34
沙发还是自己坐:Z

作者: TC管理员 时间: 2011-9-28 09:35
不错。支持下。感谢分享,支持原创、。

作者: 小王 时间: 2011-9-28 09:35
回复 1楼阿拉的帖子

变量定义可以这样
整型变量1,变量2,变量3...
不用一行定义一个哦！

作者: 阿拉 时间: 2011-9-28 09:41
回复 4楼小王的帖子

受教受教正为这个烦恼呢，每次调试都要往下啦好久，。

作者: 1066808696 时间: 2011-9-28 10:40
已经有点晕了顶一个好了

作者: 脚笨小子 时间: 2011-9-28 12:32
表示2周以后再来看此贴。谢了楼主

作者: long254229962 时间: 2011-9-28 14:00
我晕啊什么用户组才能下载东西呢

作者: long254229962 时间: 2011-9-28 14:00
实在是搞不懂啊哪位知道的说下下

作者: nimeide 时间: 2011-9-28 14:57
挺给力啊。楼主

作者: 阿拉 时间: 2011-9-30 10:31
回复 8楼long254229962的帖子

不用下载啊，我直接贴的代码你直接复制就可以了。不过要自己用的话建议重新抓图改下坐标和颜色

作者: 阿拉 时间: 2011-9-30 10:32
回复 10楼nimeide的帖子

:D.................

作者: kissboss999 时间: 2011-11-20 11:07
楼主打字速度很快么。这么多的整型逻辑型，看起来都晕

作者: 6263691 时间: 2011-11-21 10:34
fffffffffffffffffffff

作者: 缘翼 时间: 2011-11-21 16:54
学习

作者: gdlulu 时间: 2011-12-6 20:31
犀利....看到那么长的整型整型,晕了....

作者: v11ks 时间: 2011-12-11 16:36
我得去摸一把这个东西先

作者: 1748xsl 时间: 2011-12-12 00:22
看看

作者: z8566313 时间: 2011-12-17 21:00
想问下楼主，编辑这个花了多久啊？

作者: 吕小猫 时间: 2011-12-19 00:00
先顶一下，然后慢慢看！

作者: w0j0j 时间: 2012-1-4 17:25
什么时候才能升级到菜鸟，才能下载附件啊

作者: luojiawne77 时间: 2012-1-19 19:44
好夸张啊

作者: a695921659 时间: 2012-3-21 00:47

虽然我不知道这什么游戏- -
但是看了表示好强大=- :~

作者: a695921659 时间: 2012-3-21 00:48

好吧我发现了- -我知道了植物大战僵尸~哈哈

作者: 153968987 时间: 2012-4-10 12:34
这样看起太长了，可以缩减的！

作者: thischild 时间: 2012-5-21 15:41
就喜欢看有代码的...

作者: c2x3h4 时间: 2012-6-18 19:48
顶顶楼主

作者: qixingzhaoxun 时间: 2012-7-6 23:47
感谢分享学习了

作者: lzwquit 时间: 2012-7-7 15:14
好长

作者: smallno 时间: 2012-7-27 19:30
如果你知道数组。。。

作者: kunkun9876 时间: 2012-8-8 11:48
不知道

作者: Soeve_278 时间: 2012-10-27 13:25
回复 1楼阿拉的帖子

看到这个代码，我感觉头大了。楼主太有耐心了。

作者: liu0623 时间: 2013-5-21 17:55
提示: 作者被禁止或删除内容自动屏蔽

作者: yangfusheng 时间: 2013-11-24 01:17
有贴必回，最喜欢楼主这样的有为青年了~

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