卡通农场辅助源码

卡通农场辅助源码

本源码适用于按键精灵手机版Dim现在时(),Advertisement,barnfull,barnlevel,dw1,dw2,aaa,aCall调整屏幕Call调整屏幕()Call定位干扰()Call重新联机()Call定位种田()Call主程序()Sub主程序()DoIfReadUIConfig("fans")ThenCall粉丝移除()EndIfFor2Call种植小麦()Call小麦收割()Delay300NextCall粮仓()Ifbarnfull=1ThenTracePrint"判定粮仓满了"Call商店()EndIfCall粮仓水位()//读取界面元素名称为"账号"的默认值,如果该元素未设置默认值则读出100IfReadUIConfig("honey")ThenCall收集()EndIf//——找邻居卖东西IfReadUIConfig("neighbor")Then

//——开始找邻居的时间Call读现在时(1)If计时器(30,1,false)ThenGotojumpfindEndIfDelay200//-—点击次数aaa=0DoUntil计时器(30,1,false)二TrueCall找邻居()Call邻居小麦()Delay1000LoopDelay200RemjumpfindEndIfCall商店()Call重新联机()FindPic917,443,967,491,"Attachment:定位图.png","000000",0,0.7,dw1,dw2Ifdw1<0Anddw2<0ThenCall定位种田()EndIfLoopEndSubSub调整屏幕0TouchDown366,563,1Delay200TouchDown799,248,2Delay200TouchMove630,373,1,200Delay500TouchUp2TouchUp1EndSubSub定位种田()DimcornerX,cornerYDelay200Call读现在时(0)doDelay100Swipe376,250,514,445,300Delay100FindPic0,0,259,142,"Attachment:tree・png","000000",0,0・7,cornerX,cornerYIfcornerX>0AndcornerY>0ThenTracePrint"已定位种田"

Delay200TouchDown635,422Delay200TouchMove635,160Delay200TouchUpDelay200TracePrint"调整完毕"ExitDoEndIfIf计时器(10,0,false)Then

TracePrint"指定时间到"Call调整屏幕()Call调整屏幕()Call定位干扰()Call重新联机()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是延时//读取界面元素名称为"账号"的默认值，如果该元素未设置默认值则读出100DimfaTracePrint"刷地"fa二ReadUIConfig("farm")〃将小麦移动至第一块田TouchMove606,568,0,200Delay200〃刷第一排TouchMove941,395,0,800Delay200Iffa=0ThenTouchUp0GotofarmlandEndIf//调整至第二羽乍TouchMove905,376,0,200Delay200〃刷第二排TouchMove567,545,0,800Iffa=1ThenTouchUp0GotofarmlandEndIf//调整至第三排TouchMove531,528,0,200〃刷第三排TouchMove869,359,0,800Iffa=2ThenTouchUp0GotofarmlandEndIf//调整至第四排TouchMove832,342,0,200〃刷第四排TouchMove496,508,0,800Iffa=3ThenTouchUp0GotofarmlandEndIf//调整至第五排TouchMove463,496,0,200〃刷第五排TouchMove792,324,0,800Iffa=4ThenTouchUp0GotofarmlandEndIf//调整至第六排TouchMove759,307,0,200〃刷第六排TouchMove425,473,0,800Iffa=5ThenTouchUp0GotofarmlandEndIf//调整至第七排TouchMove389,457,0,200〃刷第七排TouchMove721,288,0,800Iffa=6ThenTouchUp0GotofarmlandEndIf//调整至第八排TouchMove686,272,0,200〃刷第八排TouchMove353,438,0,800Iffa=7ThenTouchUp0GotofarmlandEndIf//调整至第九排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关闭商店()Delay1000FindPic917,443,967,491,"Attachment:定位图.png","000000",0,0.7,dw1,dw2Ifdw1<0Anddw2<0ThenCall定位种田()EndIfEndSub//开启商店Sub开启商店()Delay200Tap447,551Delay200TracePrint"开启商店"EndSub//关闭商店Sub关闭商店()Delay200Tap1073,99Delay200TracePrint"关闭商店"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价格调整()Delay100Tap810,515Delay100ElseTracePrint"作物不足"Tap910,125Delay100EndIfElseTracePrint"未找到小麦可以卖"Tap910,125Delay100EndIfEndSubSub价格调整()For9Tap735,367Delay50NextEndSub//广告Sub广告()DimunsoldX,unsoldY,unsold2X,unsold2YIfAdvertisement二0ThenFindPic694,234,750,29&"Attachment:unsold・png","000000",0,0.7,unsoldX,unsoldYIfunsoldX>0AndunsoldY>0ThenTracePrint"找到贩卖中产品"unsold2X=unsoldX+50unsold2Y=unsoldY+50TapunsoldX,unsold2YDelay700Call创建广告0TracePrint"创建广告"Advertisement二1ElseTracePrint（"没有未售出商品"）EndIfEndIfEndSubSub创建广告0DimhadadX,hadadYFindColor726-5,344-5,726+5,344+5,"00B145",0,0.8,hadadX,hadadYIfhadadX>0AndhadadY>0ThenTracePrint"可创建广告"Tap640,423Delay700ElseTracePrint"无法创建广告"Tap768,143Delay700EndIfEndSubSub定位干扰()DimintX,intYFindColor64-5,648-5,64+5,648+5,"002638",0,0・7,intX,intYIfintX>0AndintY>0ThenTracePr