资源描述:
《卡通农场辅助源码.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、本源码适用于按键精灵手机版Dim现在时(),Advertisement,barnfull,barnlevel,dw1,dw2,aaa,aCall调整屏幕()Call定位干扰()Call重新联机()Call定位种田()Call主程序()Sub主程序()DoIfReadUIConfig("fans")ThenCall粉丝移除()EndIfFor2Call种植小麦()Call小麦收割()Delay300NextCall粮仓()Ifbarnfull=1ThenTracePrint"判定粮仓满了"Call商店()EndIfCall粮仓水位(
2、)//读取界面元素名称为"账号"的默认值,如果该元素未设置默认值则读出100IfReadUIConfig("honey")ThenCall收集()EndIf//-----找邻居卖东西IfReadUIConfig("neighbor")Then//-----开始找邻居的时间Call读现在时(1)If计时器(30,1,false)ThenGotojumpfindEndIfDelay200//---点击次数aaa=0DoUntil计时器(30,1,false)=TrueCall找邻居()Call邻居小麦()Delay1000LoopDe
3、lay200RemjumpfindEndIfCall商店()Call重新联机()FindPic917,443,967,491,"Attachment:定位图.png","000000",0,0.7,dw1,dw2Ifdw1<0Anddw2<0ThenCall定位种田()EndIfLoopEndSubSub调整屏幕()TouchDown366,563,1Delay200TouchDown799,248,2Delay200TouchMove630,373,1,200Delay500TouchUp2TouchUp1EndSubSub定位
4、种田()DimcornerX,cornerYDelay200Call读现在时(0)doDelay100Swipe376,250,514,445,300Delay100FindPic0,0,259,142,"Attachment:tree.png","000000",0,0.7,cornerX,cornerYIfcornerX>0AndcornerY>0ThenTracePrint"已定位种田"Delay200TouchDown635,422Delay200TouchMove635,160Delay200TouchUpDelay20
5、0TracePrint"调整完毕"ExitDoEndIfIf计时器(10,0,false)ThenTracePrint"指定时间到"Call调整屏幕()Call定位干扰()Call重新联机()EndIfLoopEndSubSub种植小麦()DimlandX,landY//--------无云----------FindPic569,530,651,595,"Attachment:FirstFarmland0.png","000000",0,0.6,landX,landYIflandX<0AndlandY<0Then//------
6、--阴影----------FindPic569,530,651,595,"Attachment:FirstFarmland1.png","000000",0,0.6,landX,landYEndIfIflandX>0AndlandY>0ThenTracePrint"开始种植"Call第一田()Delay500If小麦()=1ThenTracePrint"准备刷地"Call刷地()EndIfDelay1000//TXL=now//PlantingNumber=PlantingNumber+1EndIfEndSubSub小麦收割()
7、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>0An
8、dland2Y>0ThenTracePrint"开始收割"Call第一田()Delay500If收割()=1ThenCall刷地()EndIfDelay1000EndIfEndSub//---点击第一块土地Sub第一田()Delay200Tap60