卡通农场辅助源码.doc

本源码适用于按键精灵手机版

Dim 现在时(),Advertisement,barnfull,barnlevel,dw1,dw2,aaa,a
Call 调整屏幕()

Call 定位干扰()

Call 重新联机()

Call 定位种田()

Call 主程序()

Sub 主程序()
Do

If ReadUIConfig("fans") Then
Call 粉丝移除()
End If

For 2
Call 种植小麦()

Call 小麦收割()

Delay 300
Next
Call 粮仓()
If barnfull = 1 Then
TracePrint "判定粮仓满了"
Call 商店()
End If

Call 粮仓水位()
//读取界面元素名称为"账号"的默认值,如果该元素未设置默认值则读出100
If ReadUIConfig("honey") Then
Call 收集()
End If

//-----找邻居卖东西
If ReadUIConfig("neighbor") Then
//-----开始找邻居的时间
Call 读现在时(1)

If 计时器(30, 1, false) Then
Goto jumpfind
End If

Delay 200

//---点击次数
aaa=0
Do Until 计时器(30, 1, false) =True
Call 找邻居()

Call 邻居小麦()

Delay 1000
Loop

Delay 200
Rem jumpfind
End If

Call 商店()

Call 重新联机()

FindPic 917, 443, 967, 491, "Attachment:定位图.png", "000000", 0, 0.7, dw1, dw2
If dw1 < 0 And dw2 < 0 Then
Call 定位种田()
End If

Loop
End Sub
Sub 调整屏幕()
TouchDown 366,563, 1
Delay 200
TouchDown 799,248, 2
Delay 200
TouchMove 630,373, 1, 200

Delay 500
TouchUp 2
TouchUp 1
End Sub

Sub 定位种田()
Dim cornerX,cornerY
Delay 200
Call 读现在时 (0)
do

Delay 100

Swipe 376,250,514,445,300
Delay 100
FindPic 0,0,259,142,"Attachment:tree.png","000000",0,0.7,cornerX,cornerY
If cornerX > 0 And cornerY > 0 Then
TracePrint "已定位种田"
Delay 200
TouchDown 635, 422
Delay 200
TouchMove 635, 160
Delay 200
TouchUp
Delay 200
TracePrint "调整完毕"
Exit Do
End If

If 计时器(10, 0, false) Then
TracePrint "指定时间到"
Call 调整屏幕()
Call 定位干扰()
Call 重新联机()
End If

Loop

End Sub

Sub 种植小麦()
Dim landX,landY
//--------无云----------
FindPic 569,530,651,595,"Attachment:First Farmland0.png","000000",0,0.6,landX,landY
If landX < 0 And landY < 0 Then
//--------阴影----------
FindPic 569,530,651,595,"Attachment:First Farmland1.png","000000",0,0.6,landX,landY
End If
If landX > 0 And landY > 0 Then
TracePrint "开始种植"
Call 第一田()
Delay 500
If 小麦() = 1 Then
TracePrint "准备刷地"
Call 刷地()
End If
Delay 1000
//TXL = now
//PlantingNumber=PlantingNumber+1
End If
End Sub
Sub 小麦收割()
Dim land2X,land2Y
//--------无云----------
FindPic 580,528,647,584,"Attachment:First Farmland2.png","000000",0,0.7,land2X,land2Y
If land2X < 0 And land2Y < 0 Then
//--------阴影----------
FindPic 580,528,647,584,"Attachment:First Farmland3.png","000000",0,0.7,land2X,land2Y
End If
If land2X > 0 And land2Y > 0 Then
TracePrint "开始收割"
Call 第一田()
Delay 500
If 收割() = 1 Then
Call 刷地()
End If
Delay 1000
End If
End Sub

//---点击第一块土地
Sub 第一田()
Delay 200

Tap 609,564
TracePrint "已点击第一田"
Delay 200
End Sub
Function 小麦()
Dim intX,intY
FindPic 497,436,573,512,"Attachment:wheat0.png","000000",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "已找到小麦图标"
TouchDown 537,473,0
TracePrint "已点击小麦图标"
Delay 100
小麦 = 1
Else
TracePrint "未找到小麦图标"
小麦=-1
End If
End Function
Function 收割()
Dim intX,intY
FindPic 465,472,556,552,"Attachment:Sickle.png","000000",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
TouchDown 511,492,0
TracePrint "已按镰刀"
Delay 100
收割 = 1
Else
TracePrint "未找到镰刀图标"
收割=-1
End If
End Function

Sub 刷地()
//种植速度，24是延时
//读取界面元素名称为"账号"的默认值,如果该元素未设置默认值则读出100
Dim fa
TracePrint "刷地"
fa=ReadUIConfig("farm")
//将小麦移动至第一块田
TouchMove 606,568, 0, 200
Delay 200
//刷第一排
TouchMove 941,395, 0, 800
Delay 200

If fa = 0 Then
TouchUp 0
Goto farmland
End If
//调整至第二排
TouchMove 905, 376, 0, 200
Delay 200
//刷第二排
TouchMove 567, 545, 0, 800

If fa = 1 Then
TouchUp 0
Goto farmland
End If
//调整至第三排
TouchMove 531, 528, 0, 200
//刷第三排
TouchMove 869, 359, 0, 800

If fa = 2 Then
TouchUp 0
Goto farmland
End If
//调整至第四排
TouchMove 832, 342, 0, 200
//刷第四排
TouchMove 496, 508, 0, 800

If fa = 3 Then
TouchUp 0
Goto farmland
End If
//调整至第五排
TouchMove 463, 496, 0, 200
//刷第五排
TouchMove 792, 324, 0, 800

If fa = 4 Then
TouchUp 0
Goto farmland
End If
//调整至第六排
TouchMove 759,307, 0, 200
//刷第六排
TouchMove 425, 473, 0, 800

If fa = 5 Then
TouchUp 0
Goto farmland
End If
//调整至第七排
TouchMove 389,457, 0, 200
//刷第七排
TouchMove 721, 288, 0, 800

If fa = 6 Then
TouchUp 0
Goto farmland
End If
//调整至第八排
TouchMove 686,272, 0, 200
//刷第八排
TouchMove 353, 438, 0, 800

If fa = 7 Then
TouchUp 0
Goto farmland
End If
//调整至第九排
TouchMove 327,412, 0, 200
//刷第九排
TouchMove 653, 253, 0, 800

If fa = 8 Then
TouchUp 0
Goto farmland
End If

Rem farmland

Delay 100
TouchUp
Delay 100

End Sub

Sub 粮仓()
Dim barnX,barnY

Advertisement = 0
FindPic 539,126, 735,267, "Attachment:full.png", "000000", 0, 0.6, barnX, barnY
If barnX > 0 And barnY > 0 Then
TracePrint "粮仓已满"
Tap 873,199
Delay 1000
barnfull = 1
Else
TracePrint "粮仓未满"
End If

Call 种植小麦()
Delay 100
Call 定位干扰()
Delay 100

End Sub

Sub 粮仓水位()
Dim barnlevelX, barnlevelY,barnlevel2X,barnlevel2Y,BarnlevelText,ba,bb
barnlevel = 5
ba = ReadUIConfig("barn")
Select Case (ba)
Case 0
bb = 50
Case 1
bb = 60
Case 2
bb = 70
Case 3
bb = 80

End Select
FindColor 951,493, 963,584, "4FF8FF", 0, 0.8, barnlevelX, barnlevelY
If barnlevelX > 0 And barnlevelY > 0 Then
TracePrint "粮仓水位以找到"
BarnlevelText = (584 - barnlevelY) * 100 \ 87 - 10
TracePrint BarnlevelText

TracePrint bb / BarnlevelText
barnlevel =bb / BarnlevelText

Else

FindColor 951,493, 963,584, "4AD5F7", 0, 0.8,barnlevel2X,barnlevel2Y
If barnlevel2X > 0 And barnlevel2Y > 0 Then
TracePrint "粮仓水位以找到"
BarnlevelText = (584 - barnlevel2Y) * 100 \ 87 - 10
TracePrint BarnlevelText
TracePrint bb / BarnlevelText
barnlevel = bb / BarnlevelText
End If
End If

End Sub

Sub 商店()
Call 粮仓水位()
Delay 500
Call 开启商店()
Delay 500
Call 金钱收集()
Delay 100
If barnlevel <= 1 or barnfull =1 Then
Call 商品上架()
End If
Delay 100

Call 广告()
//--商品架下一页
For ReadUIConfig("shoppage")
Call 商品架下一页()
Delay 500
Call 金钱收集()
Delay 100
If barnlevel <=1 or barnfull =1 Then
Call 商品上架()
End If
Delay 100

Call 广告()
Next
barnfull = 0 //重置粮仓
Call 关闭商店()
Delay 1000
FindPic 917, 443, 967, 491, "Attachment:定位图.png", "000000", 0, 0.7, dw1, dw2
If dw1 < 0 And dw2 < 0 Then
Call 定位种田()
End If

End Sub

//--------开启商店----------
Sub 开启商店()
Delay 200
Tap 447,551
Delay 200
TracePrint "开启商店"
End Sub
//--------关闭商店----------
Sub 关闭商店()
Delay 200
Tap 1073, 99
Delay 200
TracePrint "关闭商店"
End Sub
//--------商品架下一页----------
Sub 商品架下一页()
TouchDown 932,384
Delay 300
TouchMove 340,384
Delay 500
TouchUp
End Sub
//--------金钱收集----------
Sub 金钱收集()
Dim soldX, soldY, sold2X, sold2Y
For 10
FindPic 320,206, 987,518, "Attachment:sold.png", "000000",0,0.7, soldX, soldY
If soldX > 0 And soldY > 0 Then

TracePrint "找到已卖出商品"
sold2X = soldX
sold2Y = soldY-50

Tap sold2X, sold2Y
Delay 300
Else
TracePrint ("没有卖出商品")
Delay 50
Exit For
End If
Next

End Sub
//--------商品上架----------
Sub 商品上架()
Dim emptyX, emptyY,empty2X, empty2Y,shopx
shopx=ReadUIConfig("shopnumber")+4

For shopx
FindPic 320,206, 987,518, "Attachment:empty.png","000000",0, 0.9, emptyX, emptyY
If emptyX > 0 And emptyY > 0 Then

TracePrint "找到空闲位置"

empty2X = emptyX + 33

Tap empty2X, emptyY
TracePrint "点击空闲位置"
Delay 400

Call 小麦商品上架()
Advertisement = 1
Else
TracePrint ("没有空闲位置")
Exit For
End If
Delay 500
Next
End Sub

Sub 小麦商品上架()
Dim wheatX, wheatY,wheat2X, wheat2Y,soldingX, soldingY
Tap 312,195
Delay 500
FindPic 371,159, 682,551, "Attachment:wheat.png", "000000",0,0.7, wheatX, wheatY
If wheatX > 0 And wheatY > 0 Then
TracePrint "找到小麦"
wheat2X = wheatX+ 33
Tap wheat2X, wheatY
Delay 500
FindPic 752,205, 817,281, "Attachment:solding10.png","000000",0, 0.7, soldingX, soldingY
If soldingX > 0 And soldingY > 0 Then
TracePrint "作物充足"
Call 价格调整()
Delay 100
Tap 810,515
Delay 100

Else
TracePrint "作物不足"
Tap 910,125
Delay 100
End If

Else
TracePrint "未找到小麦可以卖"
Tap 910,125
Delay 100
End If
End Sub

Sub 价格调整()
For 9
Tap 735, 367
Delay 50
Next
End Sub

//--------广告----------
Sub 广告()
Dim unsoldX, unsoldY,unsold2X, unsold2Y
If Advertisement = 0 Then
FindPic 694,234, 750,298, "Attachment:unsold.png","000000",0, 0.7, unsoldX, unsoldY
If unsoldX > 0 And unsoldY > 0 Then

TracePrint "找到贩卖中产品"
unsold2X = unsoldX +50
unsold2Y = unsoldY +50
Tap unsoldX, unsold2Y
Delay 700
Call 创建广告()
TracePrint "创建广告"
Advertisement = 1
Else
TracePrint ("没有未售出商品")
End If
End If

End Sub

Sub 创建广告()
Dim hadadX, hadadY
FindColor 726-5,344-5,726+5,344+5, "00B145",0, 0.8, hadadX, hadadY
If hadadX > 0 And hadadY > 0 Then
TracePrint "可创建广告"
Tap 640,423
Delay 700
Else
TracePrint "无法创建广告"
Tap 768,143
Delay 700
End If
End Sub

Sub 定位干扰()
Dim intX,intY
FindColor 64-5,648-5,64+5,648+5,"002638",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "有干扰画面"
Tap 52,332
Delay 500
Else
TracePrint "无干扰画面"
End If

FindColor 53-5,650-5,53+5,650+5,"22B613",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "跑到其他人的家"
Tap 54,614
Delay 10000
Call 调整屏幕()
Else
TracePrint "无干扰画面"
End If

FindPic 97,594,174,669,"Attachment:home.png","000000",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "跑到其他场景"
Tap 138,639
Delay 10000
Call 调整屏幕()
Else
TracePrint "无干扰画面"
End If

End Sub

Sub 重新联机()
Dim reconnectX,reconnectY
FindPic 593,456,673,521,"Attachment:reconnecting.png","000000",0,0.8,reconnectX,reconnectY
If reconnectX > 0 And reconnectY > 0 Then

Tap 638,492
TracePrint "重新连接"
Delay 20000

Call 调整屏幕()

Call 定位种田()
End If

End Sub

Sub 收集

Dim intX,intY,Xa, Ya
FindColor 898-5,290-5,898+5,290+5,"336A8F",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "找到蜜蜂树"
Delay 200
Tap 898,290
Delay 2000
End If

FindPic 753,136, 840,224, "Attachment:honey.png","000000",0, 0.8, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "收集蜂蜜"
//Xa = intX + 20
//Ya = intY +10
TouchDown 774, 174,1
Delay 200
TouchMove 871, 212, 1,200
Delay 200
TouchMove 948, 215, 1,200
Delay 200
TouchMove 924, 272, 1,200
Delay 200
TouchMove 845, 287, 1,200
Delay 200
TouchUp 1
Delay 200
Tap 1000,263

Else
Tap 1000,263
Delay 1000
End If
End Sub

Sub 找邻居()
Dim FindNeighborX,FindNeighborY,FindNeighborColor1,FindNeighborColor2,NeighborA,NeighborB,intX,intY,i

//----判定点X轴
FindNeighborX = array(1040,1068,1098,1129,1099,1119)
//----判定点Y轴
FindNeighborY = array(369,351,369,392,392,371)
//----判定点颜色
FindNeighborColor1 = array("10C797","11C394","2C6DC9","2F6EC3","367CD5","0DBF90")
//----判定点阴影下颜色
FindNeighborColor2 = array("11AE81","13AD82","2C63B4","2F68B4","3470BE","11AF84")

If aaa > 6 and 计时器(30,1,false) Then

Call 商店()
End If

Do Until 计时器(30,1,false)=True
i = 0

Delay 200

For 6
TracePrint i+1
Delay 10

FindColor FindNeighborX(i)-2,FindNeighborY(i)-2,FindNeighborX(i)+2,FindNeighborY(i)-2,FindNeighborColor1(i),0,0.9,intX,intY
If intX > 0 And intY > 0 Then
NeighborA = 0
Else
NeighborA = 1
End If

FindColor FindNeighborX(i)-2,FindNeighborY(i)-2,FindNeighborX(i)+2,FindNeighborY(i)-2,FindNeighborColor2(i),0,0.9,intX,intY
If intX > 0 And intY > 0 Then
NeighborB = 0
Else
NeighborB = 1
End If

If NeighborA + NeighborB = 2 Then
//