《卡通农场辅助源码.doc》由会员分享，可在线阅读，更多相关《卡通农场辅助源码.doc（19页珍藏版）》请在金锄头文库上搜索。
1、本源码适用于按键精灵手机版Dim 现在时(),Advertisement,barnfull,barnlevel,dw1,dw2,aaa,aCall 调整屏幕()Call 定位干扰()Call 重新联机()Call 定位种田()Call 主程序()Sub 主程序()DoIf ReadUIConfig(fans) Then Call 粉丝移除()End IfFor 2Call 种植小麦()Call 小麦收割()Delay 300NextCall 粮仓()If barnfull = 1 Then TracePrint 判定粮仓满了Call 商店()End IfCall 粮仓水位()/读取界面元素名称
2、为账号的默认值,如果该元素未设置默认值则读出100If ReadUIConfig(honey) ThenCall 收集()End If/-找邻居卖东西 If ReadUIConfig(neighbor) Then /-开始找邻居的时间 Call 读现在时(1) If 计时器(30, 1, false) Then Goto jumpfind End If Delay 200 /-点击次数 aaa=0 Do Until 计时器(30, 1, false) =True Call 找邻居() Call 邻居小麦() Delay 1000 Loop Delay 200 Rem jumpfind End
3、IfCall 商店()Call 重新联机()FindPic 917, 443, 967, 491, Attachment:定位图.png, , 0, 0.7, dw1, dw2 If dw1 0 And dw2 0 And cornerY 0 Then TracePrint 已定位种田 Delay 200 TouchDown 635, 422 Delay 200 TouchMove 635, 160 Delay 200 TouchUp Delay 200 TracePrint 调整完毕 Exit Do End If If 计时器(10, 0, false) Then TracePrint 指定
4、时间到 Call 调整屏幕() Call 定位干扰() Call 重新联机() End If LoopEnd SubSub 种植小麦() Dim landX,landY /-无云- FindPic 569,530,651,595,Attachment:First Farmland0.png,0,0.6,landX,landY If landX 0 And landY 0 And landY 0 Then TracePrint 开始种植 Call 第一田() Delay 500 If 小麦() = 1 Then TracePrint 准备刷地 Call 刷地() End If Delay 100
5、0 /TXL = now /PlantingNumber=PlantingNumber+1 End IfEnd SubSub 小麦收割() Dim land2X,land2Y /-无云- FindPic 580,528,647,584,Attachment:First Farmland2.png,0,0.7,land2X,land2Y If land2X 0 And land2Y 0 And land2Y 0 Then TracePrint 开始收割 Call 第一田() Delay 500 If 收割() = 1 Then Call 刷地() End If Delay 1000 End If
6、End Sub/-点击第一块土地Sub 第一田() Delay 200 Tap 609,564 TracePrint 已点击第一田 Delay 200End SubFunction 小麦()Dim intX,intY FindPic 497,436,573,512,Attachment:wheat0.png,0,0.7,intX,intY If intX 0 And intY 0 Then TracePrint 已找到小麦图标 TouchDown 537,473,0 TracePrint 已点击小麦图标 Delay 100 小麦 = 1 Else TracePrint 未找到小麦图标 小麦=-
7、1 End IfEnd FunctionFunction 收割() Dim intX,intY FindPic 465,472,556,552,Attachment:Sickle.png,0,0.7,intX,intY If intX 0 And intY 0 Then TouchDown 511,492,0 TracePrint 已按镰刀 Delay 100 收割 = 1 Else TracePrint 未找到镰刀图标 收割=-1 End IfEnd FunctionSub 刷地() /种植速度，24是延时 /读取界面元素名称为账号的默认值,如果该元素未设置默认值则读出100 Dim fa
8、TracePrint 刷地 fa=ReadUIConfig(farm) /将小麦移动至第一块田 TouchMove 606,568, 0, 200 Delay 200 /刷第一排 TouchMove 941,395, 0, 800 Delay 200 If fa = 0 Then TouchUp 0 Goto farmland End If /调整至第二排 TouchMove 905, 376, 0, 200 Delay 200 /刷第二排 TouchMove 567, 545, 0, 800 If fa = 1 Then TouchUp 0 Goto farmland End If /调整至第三排 TouchMove 531, 528, 0, 200 /刷第三排 TouchMove 869, 359, 0, 800 If fa = 2 Then TouchUp 0 Goto farmland End If /调整至第四排 TouchMove 832, 342, 0, 200 /刷第四排 TouchMove 496, 508, 0, 800 If fa = 3 Then TouchUp 0 Goto farmland End If /调整至第五排 To
