【有源码】人人社区办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=线程.开启("我的程序.速度乘二","")
返回 真
功能结束





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

阿拉

沙发还是自己坐:Z

TC管理员

不错。 支持下。感谢分享,支持原创、。

小王

回复 1楼阿拉的帖子

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

阿拉

回复 4楼小王的帖子

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

1066808696

已经有点晕了 顶一个好了

脚笨小子

表示2周以后再来看此贴。谢了楼主

long254229962

我晕啊 什么用户组才能下载东西呢

long254229962

实在是搞不懂啊  哪位知道的说下下

nimeide

挺给力啊。楼主