卡通農(nóng)場輔助源碼

1、卡通農(nóng)場輔助源碼本源碼適用于按鍵精靈手機(jī)版Dim現(xiàn)在時(shí)（）,Advertisement,barnfull,barnlevel,dw1,dw2,aaa,aCall調(diào)整屏幕（）Call定位干擾（）Call重新聯(lián)機(jī)（）Call定位種田（）Call主程序（）Sub主程序（）DoIf ReadUIConfig（"fans"） Then Call粉絲移除（）End IfFor 2Call種植小麥()Call小麥?zhǔn)崭?)Delay 300NextCall糧倉()If barnfull = 1 ThenTracePrint " 判定糧倉滿了 "Call商店()End I

2、fCall糧倉水位()/讀取界面元素名稱為"賬號"的默認(rèn)值，如果該 元素未設(shè)置默認(rèn)值則讀出100If ReadUIConfig("honey") ThenCall收集()End If/-找鄰居賣東西If ReadUIConfig("neighbor") Then/-一開始找鄰居的時(shí)間Call 讀現(xiàn)在時(shí)（1）If 計(jì)時(shí)器(30, 1, false) Then Goto jumpfindEnd IfDelay 200/點(diǎn)擊次數(shù)aaa=0Do Until計(jì)時(shí)器(30, 1, false)=TrueCall找鄰居()Call鄰居小麥()Del

3、ay 1000LoopDelay 200 Rem jumpfind End IfCall商店（）Call重新聯(lián)機(jī)（）FindPic 917, 443, 967, 491, "Attachment:定位圖.png", "000000”, 0, 0.7, dw1, dw2If dw1 < 0 And dw2 < 0 Then Call定位種田（）End IfLoopEnd SubSub調(diào)整屏幕（）TouchDown 366,563, 1Delay 200TouchDown 799,248, 2Delay 200TouchMove 630,373, 1, 2

4、00Delay 500TouchUp 2TouchUp 1 End SubSub定位種田()Dim cornerX,cornerYDelay 200Call讀現(xiàn)在時(shí)(0)doDelay 100Swipe 376,250,514,445,300Delay 100FindPic0,0,259,142,"Attachment:tree.png","000000 ",0,0.7,cornerX,cornerYIf cornerX > 0 And cornerY > 0 ThenTracePrint "已定位種田"Delay 200

5、TouchDown 635, 422Delay 200TouchMove 635, 160Delay 200TouchUpDelay 200TracePrint " 調(diào)整完畢"Exit DoEnd IfIf 計(jì)時(shí)器（10, 0, false） ThenTracePrint " 指定時(shí)間到”Call調(diào)整屏幕（）Call定位干擾（）Call重新聯(lián)機(jī)（）End IfLoopEnd SubSub種植小麥()Dim landX,landY/ FindPic569,530,651,595,"Attachment:FirstFarmland0.png",&q

6、uot;000000”,0,0.6,landX,landYIf landX < 0 And landY < 0 Then/陰影FindPic569,530,651,595,"Attachment:FirstFarmland1.png","000000”,0,0.6,landX,landYEnd IfIf landX > 0 And landY > 0 ThenTracePrint " 開始種植"Call 第一田()Delay 500If 小麥()=1 ThenTracePrint "準(zhǔn)備刷地"Call

7、 刷地()End IfDelay 1000TXL = nowPlantingNumber=PlantingNumber+1End IfEnd SubSub小麥?zhǔn)崭睿ǎ〥im land2X,land2Y/ FindPic580,528,647,584,"Attachment:FirstFarmland2.png","000000",0,0.7,land2X,land2YIf land2X < 0 And land2Y < 0 Then/陰影FindPic580,528,647,584,"Attachment:FirstFarmland

8、3.png","000000”,0,0.7,land2X,land2YEnd IfIf land2X > 0 And land2Y > 0 ThenTracePrint開始收割"Call 第一田()Delay 500If收害 U () = 1 ThenCall刷地()End IfDelay 1000End IfEnd Sub/一 點(diǎn)擊第一塊土地Sub第一田()Delay 200Tap 609,564TracePrint " 已點(diǎn)擊第一田"Delay 200End SubFunction 小麥()Dim intX,intYFindPi

9、c497,436,573,512,"Attachment:wheat0.png",000000",0,0.7,intX,intYIf intX > 0 And intY > 0 ThenTracePrint "已找到小麥圖標(biāo)"TouchDown 537,473,0TracePrint "已點(diǎn)擊小麥圖標(biāo)"Delay 100小麥=1ElseTracePrint " 未找到小麥圖標(biāo)" /1、麥 =-1End IfEnd FunctionFunction 收割()Dim intX,intYFindPi

10、c465,472,556,552,"Attachment:Sickle.png", 000000",0,0.7,intX,intYIf intX > 0 And intY > 0 ThenTouchDown 511,492,0TracePrint " 已按鐮刀"Delay 100收害U = 1ElseTracePrint "未找到鐮刀圖標(biāo)"收割=-1End IfEnd FunctionSub刷地()/種植速度，24是延時(shí)/讀取界面元素名稱為"賬號"的默認(rèn)值，如果該元素未設(shè)置默認(rèn)值則讀出100D

11、im faTracePrint " 刷地"fa=ReadUIConfig("farm")/將小麥移動(dòng)至第一塊田TouchMove 606,568, 0, 200Delay 200/刷第一排TouchMove 941,395, 0, 800Delay 200If fa = 0 ThenTouchUp 0Goto farmland0000End If/調(diào)整至第二排TouchMove 905, 376,Delay 200/刷第二排TouchMove 567, 545,If fa = 1 ThenTouchUp 0Goto farmlandEnd If/調(diào)整至第

12、三排TouchMove 531, 528,/刷第三排TouchMove 869, 359,If fa = 2 ThenTouchUp 0 Goto farmlandEnd If/調(diào)整至第四排,200,800,200,800TouchMove 832, 342, 0, 200/刷第四排TouchMove 496, 508, 0, 800If fa = 3 ThenTouchUp 0Goto farmlandEnd If/調(diào)整至第五排TouchMove 463, 496, 0, 200/刷第五排TouchMove 792, 324, 0, 800If fa = 4 ThenTouchUp 0Got

13、o farmlandEnd If/調(diào)整至第六排TouchMove 759,307, 0, 200/刷第六排TouchMove 425, 473, 0, 800If fa = 5 ThenTouchUp 0Goto farmlandEnd If/ 調(diào)整至第七排TouchMove 389,457, 0, 200/刷第七排TouchMove 721, 288, 0, 800If fa = 6 ThenTouchUp 0Goto farmlandEnd If/ 調(diào)整至第八排TouchMove 686,272, 0, 200/刷第八排TouchMove 353, 438, 0, 800If fa = 7

14、 ThenTouchUp 0Goto farmlandEnd If/ 調(diào)整至第九排TouchMove 327,412, 0, 200/ 刷第九排TouchMove 653, 253, 0, 800If fa = 8 Then TouchUp 0 Goto farmland End IfRem farmlandDelay 100 TouchUpDelay 100End SubSub糧倉()Dim barnX,barnYAdvertisement = 0FindPic539,126,735,267,"Attachment:full.png", "000000"

15、;,0, 0.6,barnX, barnYIf barnX > 0 And barnY > 0 ThenTracePrint "糧倉已滿"Tap 873,199Delay 1000 barnfull = 1ElseTracePrint "糧倉未滿"End IfCall種植小麥（）Delay 100Call定位干擾（）Delay 100End SubSub糧倉水位()DimbarnlevelX,barnlevelY,barnlevel2X,barnlevel2Y,Bamle velText,ba,bb barnlevel = 5 ba = Re

16、adUIConfig("barn")Select Case (ba) Case 0 bb = 50 Case 1 bb = 60 Case 2 bb = 70 Case 3 bb = 80End SelectFindColor 951,493, 963,584, "4FF8FF”, 0, 0.8, barnlevelX, barnlevelYIf barnlevelX > 0 And barnlevelY > 0 ThenTracePrint糧倉水位以找到"BarnlevelText = (584 - barnlevelY) * 100 87

17、 - 10TracePrint BarnlevelTextTracePrint bb / BarnlevelText barnlevel =bb / BarnlevelTextElseFindColor 951,493, 963,584, "4AD5F7”, 0, 0.8,barnlevel2X,barnlevel2YIf barnlevel2X > 0 And barnlevel2Y > 0 ThenTracePrint "糧倉水位以找到"BarnlevelText=(584-barnlevel2Y) * 100 87 - 10TracePrint

18、BarnlevelTextTracePrint bb / BarnlevelText barnlevel = bb / BarnlevelText End IfEnd IfEnd SubSub商店（）Call糧倉水位（）Delay 500Call開啟商店（）Delay 500Call金錢收集（）Delay 100If barnlevel <= 1 or barnfull =1 ThenCall商品上架（）End IfDelay 100Call 廣告（）-商品架下一頁For ReadUIConfig（"shoppage"）Call商品架下一頁（）Delay 500Cal

19、l金錢收集（）Delay 100Ifbarnlevel <=1 or barnfull =1 ThenCall 商品上架（）End IfDelay 100Call 廣告（）Nextbarnfull = 0 /重置糧倉Call 關(guān)閉商店（）Delay 1000FindPic 917, 443, 967, 491, "Attachment: 定位圖.png", "000000”, 0, 0.7, dw1, dw2If dw1 < 0 And dw2 < 0 ThenCall定位種田（）End IfEnd Sub/ 開啟商店Sub開啟商店（）Delay

20、 200Tap 447,551Delay 200TracePrint "開啟商店"End Sub/ 關(guān)閉商店Sub關(guān)閉商店（）Delay 200Tap 1073, 99Delay 200TracePrint " 關(guān)閉商店"End Sub/ 商品架下一頁Sub商品架下一頁（）TouchDown 932,384Delay 300TouchMove 340,384Delay 500TouchUpEnd Sub/ 金錢收集Sub金錢收集（）Dim soldX, soldY, sold2X, sold2YFor 10FindPic320,206,987,518,&

21、quot;Attachment:sold.png", "000000",0,0.7, soldX, soldYIf soldX > 0 And soldY > 0 ThenTracePrint "找到已賣出商品"sold2X = soldX sold2Y = soldY-50Tap sold2X, sold2YDelay 300ElseTracePrint （"沒有賣出商品”）Delay 50 Exit ForEnd IfNextEnd Sub/ 商品上架Sub商品上架（）DimemptyX,emptyY,empty2X,

22、empty2Y,shopxshopx=ReadUIConfig("shopnumber")+4For shopxFindPic320,206,987,518,"Attachment:empty.png","000000”,0, 0.9, emptyX, emptyYIf emptyX > 0 And emptyY > 0 ThenTracePrint "找到空閑位置"empty2X = emptyX + 33Tap empty2X, emptyYTracePrint "點(diǎn)擊空閑位置"Delay

23、 400Call小麥商品上架()Advertisement = 1ElseTracePrint (Exit For沒有空閑位置")End If Delay 500 Next End SubSub小麥商品上架（）DimwheatX, wheatY,wheat2X,wheat2Y,soldingX, soldingYTap 312,195Delay 500FindPic371,159,682,551,"Attachment:wheat.png", "000000",0,0.7, wheatX, wheatYIf wheatX > 0 And

24、wheatY > 0 ThenTracePrint "找到小麥"wheat2X = wheatX+ 33 Tap wheat2X, wheatY Delay 500FindPic752,205,817,281,"Attachment:solding10.png","000000”,0, 0.7, soldingX, soldingYIf soldingX > 0 And soldingY > 0 ThenTracePrint "作物充足"Call價(jià)格調(diào)整（）Delay 100Tap 810,515Delay

25、 100ElseTracePrint "作物不足"Tap 910,125Delay 100End IfElseTracePrint "未找到小麥可以賣"Tap 910,125Delay 100End IfEnd SubSub價(jià)格調(diào)整()For 9Tap 735, 367Delay 50NextEnd Sub/ 廣告Sub廣告()Dim unsoldX, unsoldY,unsold2X, unsold2YIf Advertisement = 0 ThenFindPic694,234,750,298,"Attachment:unsold.png&

26、quot;,"000000”,0, 0.7, unsoldX, unsoldYIf unsoldX > 0 And unsoldY > 0 ThenTracePrint "找到販賣中產(chǎn)品"unsold2X = unsoldX +50 unsold2Y = unsoldY +50 Tap unsoldX, unsold2Y Delay 700Call創(chuàng)建廣告（）TracePrint "創(chuàng)建廣告"Advertisement = 1ElseTracePrint （"沒有未售出商品"）End IfEnd IfEnd Su

27、bSub創(chuàng)建廣告（）Dim hadadX, hadadYFindColor 726-5,344-5,726+5,344+5,“00B145”,0, 0.8, hadadX, hadadYIf hadadX > 0 And hadadY > 0 ThenTracePrint "可創(chuàng)建廣告"Tap 640,423Delay 700ElseTracePrint "無法創(chuàng)建廣告"Tap 768,143Delay 700End IfEnd SubSub定位干擾（）Dim intX,intYFindColor64-5,648-5,64+5,648+5,&

28、quot;002638”,0,07intX ,intYIf intX > 0 And intY > 0 Then TracePrint "有干擾畫面"Tap 52,332Delay 500ElseTracePrint "無干擾畫面"End IfFindColor53-5,650-5,53+5,650+5,"22B613”,0,0.8,intX ,intYIf intX > 0 And intY > 0 ThenTracePrint跑到其他人的家"Tap 54,614Delay 10000Call調(diào)整屏幕（）El

29、seTracePrint "無干擾畫面"End IfFindPic97,594,174,669,"Attachment:home.png","000000”,0,0.8,intX,intYIf intX > 0 And intY > 0 ThenTracePrint "跑到其他場景"Tap 138,639Delay 10000Call調(diào)整屏幕（）ElseTracePrint "無干擾畫面"End IfEnd SubSub重新聯(lián)機(jī)（）Dim reconnectX,reconnectYFindPi

30、c 593,456,673,521,"Attachment:reconnecting.png","000000”,0,0.8,reconnectX,reconnectYIf reconnectX > 0 And reconnectY > 0 TheTap 638,492TracePrint "重新連接"Delay 20000Call調(diào)整屏幕（）Call定位種田（）End IfEnd SubSub收集Dim intX,intY,Xa, YaFindColor 898-5,290-5,898+5,290+5,"336A8F”,

31、0,0.8,intX,intYIf intX > 0 And intY > 0 ThenTracePrint " 找到蜜蜂樹"Delay 200Tap 898,290Delay 2000End IfFindPic753,136,840,224,"Attachment:honey.png","000000”,0, 0.8, intX, intYIf intX > 0 And intY > 0 Then TracePrint " 收集蜂蜜" Xa = intX + 20 /Ya = intY +10 To

32、uchDown 774, 174,1 Delay 200 TouchMove 871, 212, 1,200 Delay 200 TouchMove 948, 215, 1,200Delay 200TouchMove 924, 272, 1,200Delay 200TouchMove 845, 287, 1,200Delay 200TouchUp 1Delay 200Tap 1000,263ElseTap 1000,263Delay 1000End IfEnd SubSub找鄰居()DimFindNeighborX,FindNeighborY,FindNeighborC olor1,FindN

33、eighborColor2,NeighborA,Neighb orB,intX,intY,i/判定點(diǎn)X軸FindNeighborXarray(1040,1068,1098,1129,1099,1119)/- 判定點(diǎn)Y軸FindNeighborYarray(369,351,369,392,392,371)/ 判定點(diǎn)顏色FindNeighborColor1array("10C797","11C394","2c6DC9","2F6EC3” ,“367CD5","0DBF90")/-判定點(diǎn)陰影下顏色Fi

34、ndNeighborColor2array("11AE81","13AD82","2c63B4","2F68B4” ,“3470BE","11AF84")If aaa > 6 and 計(jì)時(shí)器(30,1,false) ThenCallEnd If商店()Do Untili = 0計(jì)時(shí)器(30,1,false尸TrueDelay 200For 6TracePrint i+1Delay 10FindColorFindNeighborX(i)-2,FindNeighborY(i)-2,Fin dN

35、eighborX(i)+2,FindNeighborY(i)-2,FindNe ighborColor1(i),0,0.9,intX,intYIf intX > 0 And intY > 0 ThenNeighborA = 0ElseNeighborA = 1End IfFindColor FindNeighborX(i)-2,FindNeighborY(i)-2,Fin dNeighborX(i)+2,FindNeighborY(i)-2,FindNe ighborColor2(i),0,0.9,intX,intYIf intX > 0 And intY > 0 Th

36、enNeighborB = 0ElseNeighborB = 1 End IfIfNeighborA + NeighborB = 2Then/-點(diǎn)擊鄰居TapFindNeighborX(i),FindNeighborY(i)Delay 2000 /Call寶箱FindPic572,359,681,432,"Attachment:NeighborA.png ","000000”,0,0.7,intX,intYIfintX > 0 AndintY > 0 ThenTracePrint”點(diǎn)至1J 鄰居了"NeighborA = 0 Neighbor

37、B = 0 aaa=aaa+1 Exit Do End If End If i=i+1 NextLoopDelay 10End SubSub鄰居小麥Dim intX,intYFindPic572,359,681,432,"Attachment:NeighborA.png ","000000",0,0.7,intX,intYIf intX > 0 And intY > 0 ThenTracePrint鄰居畫面"-FindPic看是否賣的是小麥514,246,582,315,"Attachment:NeighborWheat.

38、png","000000”,0,0.9,intX,intYIf intX > 0 And intY > 0 Then TracePrint "鄰居收小麥"FindColor591,311,634,345,"3361FF”,0,0.8,intX,intYIf intX > 0 And intY > 0 ThenTracePrint "小麥庫存不足/-點(diǎn)擊稍等片刻Tap 628,524Delay 1000ElseTracePrint "小麥庫存足夠）賣出小麥"/點(diǎn)擊沒問題Tap 629,397De