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

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

本源碼適用于按鍵精靈手機版Dim現(xiàn)在時(),Advertisement,barnfull,barnlevel,dw1,dw2,aaa,aCall調(diào)整屏幕Call調(diào)整屏幕()Call定位干擾()Call重新聯(lián)機()Call定位種田()Call主程序()Sub主程序()DoIfReadUIConfig("fans")ThenCall粉絲移除()EndIfFor2Call種植小麥()Call小麥收割()Delay300NextCall糧倉()Ifbarnfull=1ThenTracePrint"判定糧倉滿了"Call商店()EndIfCall糧倉水位()//讀取界面元素名稱為"賬號"的默認值,如果該元素未設(shè)置默認值則讀出100IfReadUIConfig("honey")ThenCall收集()EndIf//——找鄰居賣東西IfReadUIConfig("neighbor")Then

//——開始找鄰居的時間Call讀現(xiàn)在時(1)If計時器(30,1,false)ThenGotojumpfindEndIfDelay200//-—點擊次數(shù)aaa=0DoUntil計時器(30,1,false)二TrueCall找鄰居()Call鄰居小麥()Delay1000LoopDelay200RemjumpfindEndIfCall商店()Call重新聯(lián)機()FindPic917,443,967,491,"Attachment:定位圖.png","000000",0,0.7,dw1,dw2Ifdw1<0Anddw2<0ThenCall定位種田()EndIfLoopEndSubSub調(diào)整屏幕0TouchDown366,563,1Delay200TouchDown799,248,2Delay200TouchMove630,373,1,200Delay500TouchUp2TouchUp1EndSubSub定位種田()DimcornerX,cornerYDelay200Call讀現(xiàn)在時(0)doDelay100Swipe376,250,514,445,300Delay100FindPic0,0,259,142,"Attachment:tree?png","000000",0,0?7,cornerX,cornerYIfcornerX>0AndcornerY>0ThenTracePrint"已定位種田"

Delay200TouchDown635,422Delay200TouchMove635,160Delay200TouchUpDelay200TracePrint"調(diào)整完畢"ExitDoEndIfIf計時器(10,0,false)Then

TracePrint"指定時間到"Call調(diào)整屏幕()Call調(diào)整屏幕()Call定位干擾()Call重新聯(lián)機()EndIfLoopEndSubSub種植小麥()DimlandX,landY//無云FindPic569,530,651,595,"Attachment:FirstFarmland。?png","000000",0,0?6,landX,landYIflandX<0AndlandY<0Then//陰影FindPic569,530,651,595,"Attachment:FirstFarmland]?png","000000",0,0?6,landX,landYEndIfIflandX>0AndlandY>0ThenTracePrint"開始種植"Call第一田()Delay500If小麥()=1ThenTracePrint"準備刷地"Call刷地()EndIfDelay1000//TXL=now//PlantingNumber二PlantingNumber+1EndIfEndSubSub小麥收割()Dimland2X,land2Y//無云FindPic580,528,647,584,"Attachment:FirstFarmland2?png","000000",0,0?7,land2X,land2YIfland2X<0Andland2Y<0Then//陰影FindPic580,528,647,584,"Attachment:FirstFarmland3?png","000000",0,0?7，land2X，land2YEndIfIfland2X>0Andland2Y>0ThenTracePrint"開始收割"Call第一田()Delay500If收割()=1ThenCall刷地()EndIfDelay1000EndIfEndSub//-一點擊第一塊土地Sub第一田()Delay200Tap609,564TracePrint"已點擊第一田"Delay200EndSubFunction小麥()DimintX,intYFindPic497,436,573,512,"Attachment:wheat0?png",000000",0,0?7，intX,intYIfintX>0AndintY>0ThenTracePrint"已找到小麥圖標"TouchDown537,473,0TracePrint"已點擊小麥圖標"Delay100小麥=1ElseTracePrint"未找到小麥圖標"小麥=-1EndIfEndFunctionFunction收割()DimintX,intYFindPic465,472,556,552,"Attachment:Sickle.png","000000",0,0.7,intX,intYIfintX>0AndintY>0ThenTouchDown511,492,0TracePrint"已按鐮刀"Delay100收割=1ElseTracePrint"未找到鐮刀圖標"收割=-1EndIfEndFunctionSub刷地()〃種植速度，24是延時//讀取界面元素名稱為"賬號"的默認值，如果該元素未設(shè)置默認值則讀出100DimfaTracePrint"刷地"fa二ReadUIConfig("farm")〃將小麥移動至第一塊田TouchMove606,568,0,200Delay200〃刷第一排TouchMove941,395,0,800Delay200Iffa=0ThenTouchUp0GotofarmlandEndIf//調(diào)整至第二羽乍TouchMove905,376,0,200Delay200〃刷第二排TouchMove567,545,0,800Iffa=1ThenTouchUp0GotofarmlandEndIf//調(diào)整至第三排TouchMove531,528,0,200〃刷第三排TouchMove869,359,0,800Iffa=2ThenTouchUp0GotofarmlandEndIf//調(diào)整至第四排TouchMove832,342,0,200〃刷第四排TouchMove496,508,0,800Iffa=3ThenTouchUp0GotofarmlandEndIf//調(diào)整至第五排TouchMove463,496,0,200〃刷第五排TouchMove792,324,0,800Iffa=4ThenTouchUp0GotofarmlandEndIf//調(diào)整至第六排TouchMove759,307,0,200〃刷第六排TouchMove425,473,0,800Iffa=5ThenTouchUp0GotofarmlandEndIf//調(diào)整至第七排TouchMove389,457,0,200〃刷第七排TouchMove721,288,0,800Iffa=6ThenTouchUp0GotofarmlandEndIf//調(diào)整至第八排TouchMove686,272,0,200〃刷第八排TouchMove353,438,0,800Iffa=7ThenTouchUp0GotofarmlandEndIf//調(diào)整至第九排TouchMove327,412,0,200〃刷第九排TouchMove653,253,0,800Iffa=8ThenTouchUp0GotofarmlandEndIfRemfarmlandDelay100TouchUpDelay100EndSubSub糧倉()DimbarnX,barnYAdvertisement二0FindPic539,126,735,267,"Attachmentfull?png","000000",0,0.6,barnX,barnYIfbarnX>0AndbarnY>0ThenTracePrint"糧倉已滿"Tap873,199Delay1000barnfull=1ElseTracePrint"糧倉未滿"EndIfCall種植小麥()Delay100Call定位干擾()Delay100EndSubSub糧倉水位()DimbarnlevelX,barnlevelY,barnlevel2X,barnlevel2Y,BarnlevelText,ba,bbbarnlevel=5ba=ReadUIConfig("barn")SelectCase(ba)Case0bb=50Case1bb=60Case2bb=70Case3bb=80EndSelectFindColor951,493,963,584,"4FF8FF",0,0.8,barnlevelX,barnlevelYIfbarnlevelX>0AndbarnlevelY>0ThenTracePrint"糧倉水位以找到"BarnlevelText二(584-barnlevelY)*100\87-10TracePrintBarnlevelTextTracePrintbb/BarnlevelText

barnlevel=bb/BarnlevelTextElseFindColor951,493,963,584,"4AD5F7",0,0.8,barnlevel2X,barnlevel2YIfbarnlevel2X>0Andbarnlevel2Y>0ThenTracePrint"糧倉水位以找到"BarnlevelText=(584-barnlevel2Y)*100\87-10TracePrintBarnlevelTextTracePrintbb/BarnlevelTextbarnlevel=bb/BarnlevelTextEndIfEndIfEndSubSub商店()Call糧倉水位()Delay500Call開啟商店0Delay500Call金錢收集0Delay100Ifbarnlevel<=1orbarnfull=1ThenCall商品上架()EndIfDelay100Call廣告()//一商品架下一頁ForReadUIConfig("shoppage")Call商品架下一頁()Delay500Call金錢收集()Delay100Ifbarnlevel<=1orbarnfull=1ThenCall商品上架()EndIfDelay100Call廣告()Nextbarnfull=0//重置糧倉Call關(guān)閉商店()Delay1000FindPic917,443,967,491,"Attachment:定位圖.png","000000",0,0.7,dw1,dw2Ifdw1<0Anddw2<0ThenCall定位種田()EndIfEndSub//開啟商店Sub開啟商店()Delay200Tap447,551Delay200TracePrint"開啟商店"EndSub//關(guān)閉商店Sub關(guān)閉商店()Delay200Tap1073,99Delay200TracePrint"關(guān)閉商店"EndSub//商品架下一頁Sub商品架下一頁()TouchDown932,384Delay300TouchMove340,384Delay500TouchUpEndSub//金錢收集Sub金錢收集0DimsoldX,soldY,sold2X,sold2YFor10FindPic320,206,987,518,"Attachment:sold?png","000000",0,0?7,soldX,soldYIfsoldX>0AndsoldY>0ThenTracePrint"找到已賣出商品"sold2X=soldXsold2Y=soldY-50Tapsold2X,sold2YDelay300ElseTracePrint("沒有賣出商品")Delay50ExitForEndIfNextEndSub//商品上架Sub商品上架()DimemptyX,emptyY,empty2X,empty2Y,shopxshopx二ReadUIConfig("shopnumber")+4ForshopxFindPic320,206,987,51&"Attachment:empty?png","000000",0,0.9,emptyX,emptyYIfemptyX>0AndemptyY>0ThenTracePrint"找到空閑位置"empty2X=emptyX+33Tapempty2X,emptyYTracePrint"點擊空閑位置"Delay400Call小麥商品上架()Advertisement二1ElseTracePrint("沒有空閑位置")ExitForEndIfDelay500NextEndSubSub小麥商品上架()DimwheatX,wheatY,wheat2X,wheat2Y,soldingX,soldingYTap312,195Delay500FindPic371,159,682,551,"Attachment:wheat?png","000000",0,0.7,wheatX,wheatYIfwheatX>0AndwheatY>0ThenTracePrint"找到小麥"wheat2X=wheatX+33Tapwheat2X,wheatYDelay500FindPic752,205,817,281,"Attachment:solding10?png","000000",0,0.7,soldingX,soldingYIfsoldingX>0AndsoldingY>0ThenTracePrint"作物充足"Call價格調(diào)整()Delay100Tap810,515Delay100ElseTracePrint"作物不足"Tap910,125Delay100EndIfElseTracePrint"未找到小麥可以賣"Tap910,125Delay100EndIfEndSubSub價格調(diào)整()For9Tap735,367Delay50NextEndSub//廣告Sub廣告()DimunsoldX,unsoldY,unsold2X,unsold2YIfAdvertisement二0ThenFindPic694,234,750,29&"Attachment:unsold?png","000000",0,0.7,unsoldX,unsoldYIfunsoldX>0AndunsoldY>0ThenTracePrint"找到販賣中產(chǎn)品"unsold2X=unsoldX+50unsold2Y=unsoldY+50TapunsoldX,unsold2YDelay700Call創(chuàng)建廣告0TracePrint"創(chuàng)建廣告"Advertisement二1ElseTracePrint（"沒有未售出商品"）EndIfEndIfEndSubSub創(chuàng)建廣告0DimhadadX,hadadYFindColor726-5,344-5,726+5,344+5,"00B145",0,0.8,hadadX,hadadYIfhadadX>0AndhadadY>0ThenTracePrint"可創(chuàng)建廣告"Tap640,423Delay700ElseTracePrint"無法創(chuàng)建廣告"Tap768,143Delay700EndIfEndSubSub定位干擾()DimintX,intYFindColor64-5,648-5,64+5,648+5,"002638",0,0?7,intX,intYIfintX>0AndintY>0ThenTracePr