参考借鉴卡通农场辅助源码docxWord文档下载推荐.docx
《参考借鉴卡通农场辅助源码docxWord文档下载推荐.docx》由会员分享，可在线阅读，更多相关《参考借鉴卡通农场辅助源码docxWord文档下载推荐.docx（24页珍藏版）》请在冰豆网上搜索。
Call邻居小麦（）
DelaR1000
Loop
Remjumpfind
Call商店（）
FindPic917,443,967,491,"
Attachment:
定位图.png"
"
000000"
0,0.7,dw1,dw2
Ifdw1<
0Anddw2<
0Then
Call定位种田（）
EndSub
Sub调整屏幕（）
TouchDown366,563,1
TouchDown799,248,2
TouchMove630,373,1,200
DelaR500
TouchUp2
TouchUp1
Sub定位种田（）
DimcornerR,cornerR
Call读现在时（0）
do
DelaR100
Swipe376,250,514,445,300
FindPic0,0,259,142,"
tree.png"
0,0.7,cornerR,cornerR
IfcornerR>
0AndcornerR>
已定位种田"
TouchDown635,422
TouchMove635,160
TouchUp
调整完毕"
ERitDo
If计时器（10,0,false）Then
指定时间到"
Sub种植小麦（）
DimlandR,landR
//--------无云----------
FindPic569,530,651,595,"
FirstFarmland0.png"
0,0.6,landR,landR
IflandR<
0AndlandR<
//--------阴影----------
FirstFarmland1.png"
IflandR>
0AndlandR>
开始种植"
Call第一田（）
If小麦（）=1Then
准备刷地"
Call刷地（）
//TRL=now
//PlantingNumber=PlantingNumber+1
EndIf
Sub小麦收割（）
Dimland2R,land2R
FindPic580,528,647,584,"
FirstFarmland2.png"
0,0.7,land2R,land2R
Ifland2R<
0Andland2R<
FirstFarmland3.png"
Ifland2R>
0Andland2R>
开始收割"
If收割（）=1Then
//---点击第一块土地
Sub第一田（）
Tap609,564
已点击第一田"
Function小麦（）
DimintR,intR
FindPic497,436,573,512,"
wheat0.png"
0,0.7,intR,intR
IfintR>
0AndintR>
已找到小麦图标"
TouchDown537,473,0
已点击小麦图标"
小麦=1
Else
未找到小麦图标"
小麦=-1
EndFunction
Function收割（）
FindPic465,472,556,552,"
Sickle.png"
TouchDown511,492,0
已按镰刀"
收割=1
未找到镰刀图标"
收割=-1
Sub刷地（）
//种植速度，24是延时
Dimfa
刷地"
fa=ReadUIConfig（"
farm"
）
//将小麦移动至第一块田
TouchMove606,568,0,200
//刷第一排
TouchMove941,395,0,800
Iffa=0Then
TouchUp0
Gotofarmland
//调整至第二排
TouchMove905,376,0,200
//刷第二排
TouchMove567,545,0,800
Iffa=1Then
EndIf
//调整至第三排
TouchMove531,528,0,200
//刷第三排
TouchMove869,359,0,800
Iffa=2Then
//调整至第四排
TouchMove832,342,0,200
//刷第四排
TouchMove496,508,0,800
Iffa=3Then
//调整至第五排
TouchMove463,496,0,200
//刷第五排
TouchMove792,324,0,800
Iffa=4Then
//调整至第六排
TouchMove759,307,0,200
//刷第六排
TouchMove425,473,0,800
Iffa=5Then
//调整至第七排
TouchMove389,457,0,200
//刷第七排
TouchMove721,288,0,800
Iffa=6Then
//调整至第八排
TouchMove686,272,0,200
//刷第八排
TouchMove353,438,0,800
Iffa=7Then
//调整至第九排
TouchMove327,412,0,200
//刷第九排
TouchMove653,253,0,800
Iffa=8Then
Remfarmland
Sub粮仓（）
DimbarnR,barnR
Advertisement=0
FindPic539,126,735,267,"
full.png"
0,0.6,barnR,barnR
IfbarnR>
0AndbarnR>
粮仓已满"
Tap873,199
DelaR1000
barnfull=1
粮仓未满"
Sub粮仓水位（）
DimbarnlevelR,barnlevelR,barnlevel2R,barnlevel2R,BarnlevelTeRt,ba,bb
barnlevel=5
ba=ReadUIConfig（"
barn"
SelectCase（ba）
Case0
bb=50
Case1
bb=60
Case2
bb=70
Case3
bb=80
EndSelect
FindColor951,493,963,584,"
4FF8FF"
0,0.8,barnlevelR,barnlevelR
IfbarnlevelR>
0AndbarnlevelR>
粮仓水位以找到"
BarnlevelTeRt=（584-barnlevelR）R100\87-10
TracePrintBarnlevelTeRt
TracePrintbb/BarnlevelTeRt
barnlevel=bb/BarnlevelTeRt
4AD5F7"
0,0.8,barnlevel2R,barnlevel2R
Ifbarnlevel2R>
0Andbarnlevel2R>
BarnlevelTeRt=（584-barnlevel2R）R100\87-10
Sub商店（）
Call开启商店（）
Call金钱收集（）
Ifbarnlevel<
=1orbarnfull=1Then
Call商品上架（）
Call广告（）
//--商品架下一页
ForReadUIConfig（"
shoppage"
Call商品架下一页（）
barnfull=0//重置粮仓
Call关闭商店（）
//--------开启商店----------
Sub开启商店（）
Tap447,551
开启商店"
//--------关闭商店----------
Sub关闭商店（）
Tap1073,99
关闭商店"
//--------商品架下一页----------
Sub商品架下一页（）
TouchDown932,384
TouchMove340,384
//--------金钱收集----------
Sub金钱收集（）
DimsoldR,soldR,sold2R,sold2R
For10
FindPic320,206,987,518,"
sold.png"
0,0.7,soldR,soldR
IfsoldR>
0AndsoldR>
找到已卖出商品"
sold2R=soldR
sold2R=soldR-50
Tapsold2R,sold2R
TracePrint（"
没有卖出商品"
DelaR50
ERitFor
//--------商品上架----------
Sub商品上架（）
DimemptRR,emptRR,emptR2R,emptR2R,shopR
shopR=ReadUIConfig（"
shopnumber"
）+4
ForshopR
emptR.png"
0,0.9,emptRR,emptRR
IfemptRR>
0AndemptRR>
找到空闲位置"
emptR2R=emptRR+33
TapemptR2R,emptRR
点击空闲位置"
DelaR400
Call小麦商品上架（）
Advertisement=1
没有空闲位置"
Sub小麦商品上架（）
DimwheatR,wheatR,wheat2R,wheat2R,soldingR,soldingR
Tap312,195
FindPic371,159,682,551,"
wheat.png"
0,0.7,wheatR,wheatR
IfwheatR>
0AndwheatR>
找到小麦"
wheat2R=wheatR+33
Tapwheat2R,wheatR
FindPic752,205,817,281,"
solding10.png"
0,0.7,soldingR,soldingR
IfsoldingR>
0AndsoldingR>
作物充足"
Call价格调整（）
Tap810,515
作物不足"
Tap910,125
未找到小麦可以卖"
Sub价格调整（）
For9
Tap735,367
//--------广告----------
Sub广告（）
DimunsoldR,unsoldR,unsold2R,unsold2R
IfAdvertisement=0Then
FindPic694,234,750,298,"
unsold.png"
0,0.7,unsoldR,unsoldR
IfunsoldR>
0AndunsoldR>
找到贩卖中产品"
unsold2R=unsoldR+50
TapunsoldR,unsold2R
DelaR700
Call创建广告（）
创建广告"
没有未售出商品"
）
Sub创建广告（）
DimhadadR,hadadR
FindColor726-5,344-5,726+5,344+5,"
00B145"
0,0.8,hadadR,hadadR
IfhadadR>
0AndhadadR>
可创建广告"
Tap640,423
无法创建广告"
Tap768,143
EndSub
Sub定位干扰（）
FindColor64-5,648-5,64+5,648+5,"
002638"
有干扰画面"
Tap52,332
无干扰画面"
FindColor53-5,650-5,53+5,650+5,"
22B613"
0,0.8,intR,intR
跑到其他人的家"
Tap54,614
DelaR10000
FindPic97,594,174,669,"
home.png"
跑到其他场景"
Tap138,639
Sub重新联机（）
DimreconnectR,reconnectR
FindPic593,456,673,521,"
reconnecting.png"
0,0.8,reconnectR,reconnectR
IfreconnectR>
0AndreconnectR>
Tap638,492
重新连接"
DelaR20RR0
Call调整屏幕（）
Sub收集
DimintR,intR,Ra,Ra
FindColor898-5,290-5,898+5,290+5,"
336A8F"
找到蜜蜂树"
Tap898,290
DelaR20RR
FindPic753,136,840,224,"
honeR.png"
收集蜂蜜"
//Ra=intR+20
//Ra=intR+10
TouchDown774,174,1
TouchMove871,212,1,200
TouchMove948,215,1,200
TouchMove924,272,1,200
TouchMove845,287,1,200
Tap1000,263
Sub找邻居（）
DimFindNeighborR,FindNeighborR,FindNeighborColor1,FindNeighborColor2,NeighborA,NeighborB,intR,intR,i
//----判定点R轴
FindNeighborR=arraR（1040,1068,1098,1129,1099,1119）
FindNeighborR=arraR（369,351,369,392,392,371）
//----判定点颜色
FindNeighborColor1=arraR（"
10C797"
11C394"
2C6DC9"
2F6EC3"
367CD5"
0DBF90"
//----判定点阴影下颜色
FindNeighborColor2=arraR（"
11AE81"
13AD82"
2C63B4"
2F68B4"
3470BE"
11AF84"
Ifaaa>
6and计时器（30,1,false）Then
i=0
For6
TracePrinti+1
DelaR10
FindColorFindNeighborR（i）-2,FindNeighborR（i）-2,FindNeighborR（i）+2,FindNeighborR（i）-2,FindNeighborColor1（i）,0,0.9,intR,intR
NeighborA=0
NeighborA=1
FindColorFindNeighborR（i）-2,FindNeighborR（i）-2,FindNeighborR（i）+2,FindNeighborR（i）-2,FindNeighborColor2（i）,0,0.9,intR,intR
NeighborB=
升级会员 