部落冲突COC呆呆机器人源码(采集资源/打鱼)

// #### 字库部分 ####

SetRowsNumber(0)

//注意：每次制作完字库后，需要自行把制作的字库文件添加到脚本“附件”中

SetDictEx(0, “Attachment:mq_soft.txt”)

SetDictEx(1, “Attachment:army_mq_soft.txt”)

SetDictEx 2, “Attachment:troopsfont.txt”

SetDictEx(3, “Attachment:attack_font.txt”)

SetDictEx(4, “Attachment:attack_elixir.txt”)

/*

字库0

ocrchar = Ocr(1080, 97, 1206, 120, “FFFFFF-111111|C4CCC8-060606|EFF1F0-111111”, 0.9)

字库1

ocrchar=Ocr(intX,intY,intX2,intY2,“FFFFFF-111111|F2E7DC-010101|F9F4EE-010101”,0.9)

字库2

ocrchar = Ocr(85, 86, 310, 115, “FFFFFF|FEFCFA-010101|FEFDFC-010101|DCDEDE-010101”, 0.9)

字库3

ocrchar1 = Ocr(63, 89, 175, 114, “CCFBFF-111111|91C2BF-111111”, 0.9)

字库4

ocrchar2 = Ocr(63, 125, 175, 150, “FDE8FF-111111|C2C4CF-111111”, 0.9)

*/

// #### 系统检测变量及程序 ####

Dim OriginalS

// 初始时间

OriginalS = Time()

/*

For 10

ShowMessage “##########################################\n########呆呆机器人使用注意事项########\n##########################################\n####１在呆呆运行前，需要您手动将兵####\n####营清空。####\n####２请在呆呆运行前将游戏语言设置####\n####为简体中文，呆呆不懂除简体中####\n####文外的其他语言哦。####\n####３呆呆运行时，请不要进行再操作####\n####游戏，以避免呆呆犯傻。####\n####４如需要暂停呆呆，请直接点击停####\n####止按钮。再次运行呆呆前，需要####\n####您再次手动清空兵营。####\n##########################################\n偷偷告诉你： \n“呆呆的ＱＱ群号码是 ２００１８６４４６”\n##########################################”

Delay 2000

Next

Delay 2000

*/

Call isScreenReady() // 屏幕分辨率和DPI检测

Call isLoginReady() // 游戏检测

// #### 全局变量 ####

Dim zoomScreenTimes = 3

// 缩放屏幕次数

Dim originalGold = -1, originalElixir = -1, originalDark = -1, originalTrophy = -1

// 初始资源

Dim gold = -1, elixir = -1, dark = -1, trophy = -1

// 资源

Dim dGold = 0, dElixir = 0, dDark = 0, dTrophy = 0

Dim dGoldString, dElixirString, dDarkString, dTrophyString

// 资源差值，字符串

Dim runS = 0, runTimeString = “0 秒”

// 已经运行的秒数，已经运行的时间字符串

Dim pGold = 0, pElixir = 0, pDark = 0

Dim pGoldString, pElixirString, pDarkString

// 预计增长值 每日

Dim multiple = 1

// 倍数

Dim armyBarbarianNumber = 0, armyGiantNumber = 0, armyArcherNumber = 0, armyStateString="-", sumHaveArmySpace, armyCampSpace = 0

// armyBarbarianNumber 类：各兵种数量

// armyStateString 军队概况提示文本

// sumHaveArmySpace 兵营已用空间

// armyCamSpace 兵营总空间

Dim backBarbarian = 60, backGiant = 12, backArcher = 80

// 备用兵 待训练各兵数量

Dim backKinds = 3

// 备用兵 待训练兵种数

Dim backBarbarianN = 2, backGiantN = 3, backArcherN = 1

// 备用兵 训练顺序

Dim goalBarbarian = 60, goalGiant = 12, goalArcher = 80

// 目标兵 待训练各兵数量

Dim goalKinds = 3

// 目标兵 待训练兵种数

Dim goalBarbarianN = 2, goalGiantN = 1, goalArcherN = 3

// 目标兵 训练顺序

Dim dGoalBarbarian = 0, dGoalGiant = 0, dGoalArcher = 0

// 目标并与已有兵数量差值

Dim box = 0// 迭代器

Dim trainFlag = 0

// 练兵标志，为 0 说明没有开始练兵，为 1 说明已经开始练兵

Dim 闪黑选项 = 1

Dim 只打死鱼 = 1

Dim 敌人资源总量最低限制 = 300000

Dim 出战前状态信息

Dim 敌人gold = 0, 敌人elixir = 0, 敌人资源总量 = 0

// ####################

// #### 主循环程序 ####

// ####################

While 1

敌人gold = 0

敌人elixir = 0

敌人资源总量 = 0

If CmpColorEx(“711|554|1FBB6C-111111,713|519|75F4D6-111111”,0.9) = 1 Then

TracePrint 1

Tap 633, 537

Else

TracePrint 0

End If

Call isConnect()

// 断线重连系统（已经验证）

If isMainWindow() > 0 Then

If zoomScreenTimes > 2 Then

zoomScreenTimes = 2

Call zoomScreen()

Else

zoomScreenTimes = zoomScreenTimes + 1

End If

End If

// 缩放屏幕，每2轮缩放一次（已经验证）

If isMainWindow() > 0 Then

If originalGold < 0 Then

originalGold = getGold()

originalElixir = getElixir()

originalDark = getDark()

originalTrophy = getTrophy()

If originalGold < 0 Or originalElixir < 0 Or originalDark < 0 Or originalTrophy < 0 Then

ShowMessage “读取奖杯数量或资源数值失败！”

Delay 1000

End If

End If

End If

// 初始资源记录（已经验证）

If isMainWindow() > 0 Then

Call collectResource()

End If

// 采集资源（已经验证）

trainFlag = 0

// 【未注释】

Rem halfProgram

// 【未注释】

If isMainWindow() > 0 Then

gold = getGold()

elixir = getElixir()

dark = getDark()

trophy = getTrophy()

End If

// 记录资源数据（已经验证）

dGold = gold - originalGold

dElixir = elixir - originalElixir

dDark = dark - originalDark

dTrophy = trophy- originalTrophy

// 计算资源量与初始资源的差值（已经验证）

runS = Time() - OriginalS

runS = runS + 600

// 计算目前时间与初始事件的差值，默认+600s（已经验证）

multiple = CDbl(CDbl(86400) / CDBl(runS))

// 计算预测资源需要乘以初始资源的倍数（已经验证）

pGold = multiple * dGold

pElixir = multiple * dElixir

pDark = multiple * dDark

// 计算预计每日资源收益（已经验证）

For 3

ShowMessage “我是呆呆机器人，这是我统计的信息\n#机器人接管后的数据统计\n 奖杯增减：” & CStr(dTrophy) & " 个\n 金币收益：" & bigNTS(dGold) & " 个\n 圣水收益：" & bigNTS(dElixir) & " 滴\n 暗黑重油收益：" & bigNTS(dDark) & " 滴\n#预计每日收益\n 金币预计：" & bigNTS(CLng(pGold)) & " 个/天\n 圣水预计：" & bigNTS(CLng(pElixir)) & " 滴/天\n 暗黑重油预计：" & bigNTS(CLng(pDark)) & " 滴/天\n#注意：务必在使用机器人前将兵营清空\n#呆呆已经运行 " & timeToStr(Time(), OriginalS) & “了\n#想和呆呆聊天请加群哦（群号：20018 6446）”

Delay 1000

Next

ShowMessage “我是呆呆机器人，这是我统计的信息\n#机器人接管后的数据统计\n 奖杯增减：” & CStr(dTrophy) & " 个\n 金币收益：" & bigNTS(dGold) & " 个\n 圣水收益：" & bigNTS(dElixir) & " 滴\n 暗黑重油收益：" & bigNTS(dDark) & " 滴\n#预计每日收益\n 金币预计：" & bigNTS(CLng(pGold)) & " 个/天\n 圣水预计：" & bigNTS(CLng(pElixir)) & " 滴/天\n 暗黑重油预计：" & bigNTS(CLng(pDark)) & " 滴/天\n#注意：务必在使用机器人前将兵营清空\n#呆呆已经运行 " & timeToStr(Time(), OriginalS) & “了\n#想和呆呆聊天请加群哦（群号：20018 6446）”

Delay 3000

// 屏幕显示状态提示，5s（已经验证）

If isMainWindowButtonEnabled() > 0 Then

Tap 53, 526

Delay 500

End If

// 打开军队概况面板（已经验证）

If isArmyWindow() > 0 Then

armyStateString = “军队概况：” // 提示信息恢复默认

armyBarbarianNumber = getArmyBarbarianNumber()

armyGiantNumber = getArmyGiantNumber()

armyArcherNumber = getArmyArcherNumber()

// 读取军队个数

sumHaveArmySpace = armyBarbarianNumber + armyGiantNumber * 5 + armyArcherNumber

armyCampSpace = readArmyCampSpace()

armyStateString = armyStateString & sumHaveArmySpace & " / " & armyCampSpace

ShowMessage armyStateString

Delay 1000

End If

// 读取军队种类数和个数并显示提示信息（已经验证）

If sumHaveArmySpace >= armyCampSpace Then

Call exitTroopsWindow()

Delay 1000

Goto 出战

End If

// 首次检测兵营是否已满，如果已满，切换至出战，未满，继续

If isArmyWindow() > 0 Then

Tap 463, 44

Delay 1000

End If

// 第一次切换至训练面板

If isTrainTroopsWindow() > 0 Then

Call clearMoreTroops()

End If

// 清除多余的军队

If isTrainTroopsWindow() > 0 Then

Tap 194, 44

Delay 500

End If

// 切换至军队概况面板

If isArmyWindow() > 0 Then

armyStateString = “军队概况：” // 提示信息恢复默认

armyBarbarianNumber = getArmyBarbarianNumber()

If armyBarbarianNumber <> Null Then

ShowMessage "Barbarian: " & armyBarbarianNumber

Delay 500

End If

armyGiantNumber = getArmyGiantNumber()

If armyGiantNumber <> Null Then

ShowMessage "Giant: " & armyGiantNumber

Delay 500

End If

armyArcherNumber = getArmyArcherNumber()

If armyArcherNumber <> Null Then

ShowMessage "Archer: " & armyArcherNumber

Delay 500

End If

// 读取军队个数

sumHaveArmySpace = armyBarbarianNumber + armyGiantNumber * 5 + armyArcherNumber

armyCampSpace = readArmyCampSpace()

armyStateString = armyStateString & sumHaveArmySpace & " / " & armyCampSpace

ShowMessage armyStateString

Delay 1000

End If

// 读取军队种类数和个数并显示提示信息（已经验证）

If isArmyWindow() > 0 Then

Tap 463, 44

Delay 500

End If

// 打开训练面板（已经验证）

If isTrainTroopsWindow() > 0 Then

If sumHaveArmySpace < armyCampSpace Then

// 以下为练目标兵

dGoalBarbarian = goalBarbarian - armyBarbarianNumber

dGoalGiant = goalGiant - armyGiantNumber

dGoalArcher = goalArcher - armyArcherNumber

If dGoalBarbarian < 0 Then

dGoalBarbarian = 0

End If

If dGoalGiant < 0 Then

dGoalGiant = 0

End If

If dGoalArcher < 0 Then

dGoalArcher = 0

End If

box = 1

While box < (goalKinds+1)

If goalBarbarianN = box Then

If isTrainTroopsWindow() > 0 Then

For dGoalBarbarian

//If isBarbarianTrainReady() > 0 Then

Tap 130, 444

Delay 30

//End If

Next

End If

ElseIf goalGiantN = box Then

If isTrainTroopsWindow() > 0 Then

For dGoalGiant

//If isGiantTrainReady() > 0 Then

Tap 261, 444

Delay 30

//End If

Next

End If

ElseIf goalArcherN = box Then

If isTrainTroopsWindow() > 0 Then

For dGoalArcher

//If isArcherTrainReady() > 0 Then

Tap 130, 584

Delay 30

//End If

Next

End If

End If

box = box + 1

Wend

// 以下为继续练备用兵

trainFlag = 1

box = 1

While box < (backKinds+1)

If backBarbarianN = box Then

If isTrainTroopsWindow() > 0 Then

For BackBarbarian

//If isBarbarianTrainReady() > 0 Then

Tap 130, 444

Delay 30

//End If

Next

End If

ElseIf backGiantN = box Then

If isTrainTroopsWindow() > 0 Then

For backGiant

//If isGiantTrainReady() > 0 Then

Tap 261, 444

Delay 30

//End If

Next

End If

ElseIf backArcherN = box Then

If isTrainTroopsWindow() > 0 Then

For backArcher

//If isArcherTrainReady() > 0 Then

Tap 130, 584

Delay 30

//End If

Next

End If

End If

box = box + 1

Wend

Else

// 以下为练备用兵

trainFlag = 1

box = 1

While box < (backKinds+1)

If backBarbarianN = box Then

If isTrainTroopsWindow() > 0 Then

For BackBarbarian

//If isBarbarianTrainReady() > 0 Then

Tap 130, 444

Delay 30

//End If

Next

End If

ElseIf backGiantN = box Then

If isTrainTroopsWindow() > 0 Then

For backGiant

//If isGiantTrainReady() > 0 Then

Tap 261, 444

Delay 30

//End If

Next

End If

ElseIf backArcherN = box Then

If isTrainTroopsWindow() > 0 Then

For backArcher

//If isArcherTrainReady() > 0 Then

Tap 130, 584

Delay 30

//End If

Next

End If

End If

box = box + 1

Wend

End If

// 训练兵种。

End If

// 选择指定的兵种进行训练（训练界面）

If isTrainTroopsWindow() > 0 Then

Tap 194, 44

Delay 500

End If

// 切换至军队概况面板

If isArmyWindow() > 0 Then

armyStateString = “军队概况：” // 提示信息恢复默认

armyBarbarianNumber = getArmyBarbarianNumber()

armyGiantNumber = getArmyGiantNumber()

armyArcherNumber = getArmyArcherNumber()

// 读取军队个数

sumHaveArmySpace = armyBarbarianNumber + armyGiantNumber * 5 + armyArcherNumber

armyCampSpace = readArmyCampSpace()

armyStateString = armyStateString & sumHaveArmySpace & " / " & armyCampSpace

ShowMessage armyStateString

Delay 1000

End If

// 读取军队种类数和个数并显示提示信息（已经验证）

If 闪黑选项 > 0 Then

If isArmyWindow() > 0 Then

Tap 740, 44

Delay 500

End If

If isBrewSpellsWindow() > 0 Then

Tap 130, 446

Delay 30

End If

Call exitTroopsWindow()

Delay 1000

End If

// 检测是否闪黑，如果闪黑，切换至法术配置面板并制造相应法术，最后退出

If isMainWindow() > 0 Then

gold = getGold()

elixir = getElixir()

dark = getDark()

trophy = getTrophy()

End If

// 记录资源数据（已经验证）

dGold = gold - originalGold

dElixir = elixir - originalElixir

dDark = dark - originalDark

dTrophy = trophy- originalTrophy

// 计算资源量与初始资源的差值（已经验证）

runS = Time() - OriginalS

runS = runS + 600

// 计算目前时间与初始事件的差值，默认+60s（已经验证）

multiple = CDbl(CDbl(86400) / CDBl(runS))

// 计算预测资源需要乘以初始资源的倍数（已经验证）

pGold = multiple * dGold

pElixir = multiple * dElixir

pDark = multiple * dDark

// 计算预计每日资源收益（已经验证）

For 2

ShowMessage “我是呆呆机器人，这是我统计的信息\n#机器人接管后的数据统计\n 奖杯增减：” & CStr(dTrophy) & " 个\n 金币收益：" & bigNTS(dGold) & " 个\n 圣水收益：" & bigNTS(dElixir) & " 滴\n 暗黑重油收益：" & bigNTS(dDark) & " 滴\n#预计每日收益\n 金币预计：" & bigNTS(CLng(pGold)) & " 个/天\n 圣水预计：" & bigNTS(CLng(pElixir)) & " 滴/天\n 暗黑重油预计：" & bigNTS(CLng(pDark)) & " 滴/天\n#注意：务必在使用机器人前将兵营清空\n#呆呆已经运行 " & timeToStr(Time(), OriginalS) & “了\n#想和呆呆聊天请加群哦（群号：20018 6446）”

Delay 1000

Next

ShowMessage “我是呆呆机器人，这是我统计的信息\n#机器人接管后的数据统计\n 奖杯增减：” & CStr(dTrophy) & " 个\n 金币收益：" & bigNTS(dGold) & " 个\n 圣水收益：" & bigNTS(dElixir) & " 滴\n 暗黑重油收益：" & bigNTS(dDark) & " 滴\n#预计每日收益\n 金币预计：" & bigNTS(CLng(pGold)) & " 个/天\n 圣水预计：" & bigNTS(CLng(pElixir)) & " 滴/天\n 暗黑重油预计：" & bigNTS(CLng(pDark)) & " 滴/天\n#注意：务必在使用机器人前将兵营清空\n#呆呆已经运行 " & timeToStr(Time(), OriginalS) & “了\n#想和呆呆聊天请加群哦（群号：20018 6446）”

Delay 3000

// 屏幕显示状态提示，5s（已经验证）

While 1

/If isTrainTroopsWindow() > 0 Then

Tap 194, 44

Delay 500

End If/

If isMainWindowButtonEnabled() > 0 Then

Tap 53, 526

Delay 500

End If

// 切换至军队概况面板

If isArmyWindow() > 0 Then

armyStateString = “军队概况：” // 提示信息恢复默认

armyBarbarianNumber = getArmyBarbarianNumber()

armyGiantNumber = getArmyGiantNumber()

armyArcherNumber = getArmyArcherNumber()

// 读取军队个数

sumHaveArmySpace = armyBarbarianNumber + armyGiantNumber * 5 + armyArcherNumber

armyCampSpace = readArmyCampSpace()

armyStateString = armyStateString & sumHaveArmySpace & " / " & armyCampSpace

ShowMessage armyStateString

Delay 2000

End If

// 读取军队种类数和个数并显示提示信息（已经验证）

If sumHaveArmySpace >= armyCampSpace Then

Call exitTroopsWindow()

Delay 1000

Goto 出战

End If

Call exitTroopsWindow()

Delay 2000

If isMainWindow() > 0 Then

gold = getGold()

elixir = getElixir()

dark = getDark()

trophy = getTrophy()

End If

// 记录资源数据（已经验证）

dGold = gold - originalGold

dElixir = elixir - originalElixir

dDark = dark - originalDark

dTrophy = trophy- originalTrophy

// 计算资源量与初始资源的差值（已经验证）

runS = Time() - OriginalS

runS = runS + 600

// 计算目前时间与初始事件的差值，默认+600s（已经验证）

multiple = CDbl(CDbl(86400) / CDBl(runS))

// 计算预测资源需要乘以初始资源的倍数（已经验证）

pGold = multiple * dGold

pElixir = multiple * dElixir

pDark = multiple * dDark

// 计算预计每日资源收益（已经验证）

For 3

ShowMessage “我是呆呆机器人，这是我统计的信息\n#机器人接管后的数据统计\n 奖杯增减：” & CStr(dTrophy) & " 个\n 金币收益：" & bigNTS(dGold) & " 个\n 圣水收益：" & bigNTS(dElixir) & " 滴\n 暗黑重油收益：" & bigNTS(dDark) & " 滴\n#预计每日收益\n 金币预计：" & bigNTS(CLng(pGold)) & " 个/天\n 圣水预计：" & bigNTS(CLng(pElixir)) & " 滴/天\n 暗黑重油预计：" & bigNTS(CLng(pDark)) & " 滴/天\n#注意：务必在使用机器人前将兵营清空\n#呆呆已经运行 " & timeToStr(Time(), OriginalS) & “了\n#想和呆呆聊天请加群哦（群号：20018 6446）”

Delay 1000

Next

ShowMessage “我是呆呆机器人，这是我统计的信息\n#机器人接管后的数据统计\n 奖杯增减：” & CStr(dTrophy) & " 个\n 金币收益：" & bigNTS(dGold) & " 个\n 圣水收益：" & bigNTS(dElixir) & " 滴\n 暗黑重油收益：" & bigNTS(dDark) & " 滴\n#预计每日收益\n 金币预计：" & bigNTS(CLng(pGold)) & " 个/天\n 圣水预计：" & bigNTS(CLng(pElixir)) & " 滴/天\n 暗黑重油预计：" & bigNTS(CLng(pDark)) & " 滴/天\n#注意：务必在使用机器人前将兵营清空\n#呆呆已经运行 " & timeToStr(Time(), OriginalS) & “了\n#想和呆呆聊天请加群哦（群号：20018 6446）”

Delay 3000

// 屏幕显示状态提示，5s（已经验证）

ShowMessage “等待造兵中…”

Delay 14000

Wend

/*

打开军队概况面板1->读取数据1->

Rem troopsFlag1

如果兵营已满1->关闭窗口并_Goto出战1如果兵营未满1->第一次切换至训练面板1->消除多余兵种1->

切换至军队概况面板1，统计军队数据1->切换至训练面板1->训练差值兵种，并补足兵种1->

切换至军队概况面板1，统计军队数据 1

->切换至训练法术面板1->制造对应法术（闪黑=1）1->关闭面板1

显示状态5s 1

While 1

切换至兵营面板 1

读取兵营数据（显示数据） 1

1.如果兵营已满1->Goto出战1

2.如果兵营未满1->关闭面板1->显示等待造兵中…1->延时15s1

Wend

Rem 出战

startAttack() 函数

“点击进攻按钮（主界面）->延时1000

点击搜索对手按钮（进攻页面） ->延时1000”

While 1

If 确认是战斗面板 Then

延时2000ms

读取各个数据

If 死鱼 Then

ShowMessage “金币：” & 金币 & " 圣水：" & 圣水

Delay 2000

战斗函数（给定的数据）

Else

点击搜寻按钮

Delay 1000

End If

End If

延时1000ms

Wend

*/

/*

If trainFlag = 0 Then

If isArmyWindow() Then

Tap 463, 44

Delay 500

End If

// 打开训练面板

// 切换至训练界面（军队界面）

If isTrainTroopsWindow() Then

Call clearMoreTroops()

End If

// 清除多余的在训练的军队

// 清除在造兵种（训练界面）

If isTrainTroopsWindow() Then

Tap 194, 44

Delay 500

End If

// 切换至军队概况面板

// 切换至军队界面（训练界面）

End If

// 清除兵种等

armyStateString = “军队概况：”

If isArmyWindow() Then

armyBarbarianNumber = getArmyBarbarianNumber()

armyGiantNumber = getArmyGiantNumber()

armyArcherNumber = getArmyArcherNumber()

sumHaveArmySpace = armyBarbarianNumber + armyGiantNumber * 5 + armyArcherNumber

armyCampSpace = readArmyCampSpace()

armyStateString = armyStateString & sumHaveArmySpace & " / " & armyCampSpace

ShowMessage armyStateString

Delay 1000

End If

// 读取兵种与数量（军队界面）

If trainFlag = 0 Then

If isArmyWindow() Then

Tap 463, 44

Delay 500

End If

// 切换至训练界面（军队界面）

If isTrainTroopsWindow() Then

If sumHaveArmySpace < armyCampSpace Then

// 以下为练目标兵

trainFlag = 1

dGoalBarbarian = goalBarbarian - armyBarbarianNumber

dGoalGiant = goalGiant - armyGiantNumber

dGoalArcher = goalArcher - armyArcherNumber

box = 1

While box < (goalKinds+1)

If goalBarbarianN = box Then

If isTrainTroopsWindow() Then

For goalBarbarian

If isBarbarianTrainReady() Then

Tap 130, 444

Delay 30

End If

Next

End If

ElseIf goalGiantN = box Then

If isTrainTroopsWindow() Then

For goalGiant

If isGiantTrainReady() Then

Tap 261, 444

Delay 30

End If

Next

End If

ElseIf goalArcherN = box Then

If isTrainTroopsWindow() Then

For goalArcher

If isArcherTrainReady() Then

Tap 130, 584

Delay 30

End If

Next

End If

End If

box = box + 1

Wend

// 以下为继续练备用兵

trainFlag = 1

box = 1

While box < (backKinds+1)

If backBarbarianN = box Then

If isTrainTroopsWindow() Then

For BackBarbarian

If isBarbarianTrainReady() Then

Tap 130, 444

Delay 30

End If

Next

End If

ElseIf backGiantN = box Then

If isTrainTroopsWindow() Then

For backGiant

If isGiantTrainReady() Then

Tap 261, 444

Delay 30

End If

Next

End If

ElseIf backArcherN = box Then

If isTrainTroopsWindow() Then

For backArcher

If isArcherTrainReady() Then

Tap 130, 584

Delay 30

End If

Next

End If

End If

box = box + 1

Wend

Else

// 以下为练备用兵

trainFlag = 1

box = 1

While box < (backKinds+1)

If backBarbarianN = box Then

If isTrainTroopsWindow() Then

For BackBarbarian

If isBarbarianTrainReady() Then

Tap 130, 444

Delay 30

End If

Next

End If

ElseIf backGiantN = box Then

If isTrainTroopsWindow() Then

For backGiant

If isGiantTrainReady() Then

Tap 261, 444

Delay 30

End If

Next

End If

ElseIf backArcherN = box Then

If isTrainTroopsWindow() Then

For backArcher

If isArcherTrainReady() Then

Tap 130, 584

Delay 30

End If

Next

End If

End If

box = box + 1

Wend

End If

// 训练兵种。

End If

// 选择指定的兵种进行训练（训练界面）

End If

If isArmyWindow() Or isTrainTroopsWindow() Or isBrewSpellsWindow() Then

Tap 1200, 37

Delay 1000

End If

// 切换至法术界面（训练界面）

// 读取法术种类与数量（法术界面）

// 配置指定的法术（法术界面）

// 切换至军队概况（法术界面）

// 读取兵种与数量（军队界面）

If sumHaveArmySpace < armyCampSpace Then

Goto halfProgram

End If

// 若满足继续，若不满足，则显示状态（短5s，长30s）

// 切换至进攻页面（兵营充足条件，主界面）

*/

Rem 出战

ShowMessage “准备出战了哦！”

Delay 2000

If 只打死鱼 > 0 Then

出战前状态信息 = “#只打死鱼：是(不一定能准确判断，该功能完善中)\n”

End If

If 敌人资源总量最低限制 > 0 Then

出战前状态信息 = 出战前状态信息 & “敌人资源最低限制：” & bigNTS(敌人资源总量最低限制) & “\n”

End If

If 闪黑选项 > 0 Then

出战前状态信息 = 出战前状态信息 & “是否闪黑：是(该功能完善中)”

End If

For 3

ShowMessage 出战前状态信息

Next

Delay 3000

Call startAttack()

Delay 3000

While 1

If isFightReadyWindow() > 0 Then

Delay 2000

Call zoomFightScreenUp()

UseDict(3)

敌人gold = CInt(Ocr(63, 89, 175, 114, “CCFBFF-111111|91C2BF-111111”, 0.9))

TracePrint “金币:” & bigNTS(敌人gold)

UseDict(4)

敌人elixir = CInt(Ocr(63, 125, 175, 150, “FDE8FF-111111|C2C4CF-111111”, 0.9))

TracePrint “圣水:” & 敌人elixir

敌人资源总量 = 敌人gold + 敌人elixir

If 敌人资源总量 > 敌人资源总量最低限制 And isDeadFishII() = 1 Then

ShowMessage “金币 + 圣水：” & BigNTS(敌人资源总量)

Delay 3000

Goto 下兵

Else

Call searchNext()

End If

End If

Delay 1000

Wend

/*

Rem 出战

startAttack() 函数

“点击进攻按钮（主界面）->延时1000 1

点击搜索对手按钮（进攻页面） ->延时1000” 1

While 1

If 确认是战斗面板 Then

延时2000ms

If 位置确定() < 1 Then

Call zoomFightScreenUp()

End If

读取各个数据

If 死鱼 Then

ShowMessage “金币：” & 金币 & " 圣水：" & 圣水

Delay 2000

For 10

ShowMessage “正常下兵啦”

Delay 2000

Next

Else

点击搜寻按钮

End If

End If

延时2000ms

Wend

*/

Rem 下兵

For 2

Call zoomFightScreenUp()

Delay 200

Call A方案上端下兵(508, 140, 463, 165, 345, 248, 733, 130, 825, 195, 894, 246)

Call zoomFightScreenDown()

Delay 200

Call A方案下端下兵(512, 500, 419, 428, 303, 345, 758, 457, 886, 354, 1014, 275)

Next

Dim 剩余战斗时间 = 30, 临时金币, 临时圣水, 临时暗黑圣水 // 此处未完善黑水资源计算选项

临时金币 = 敌人gold

临时圣水 = 敌人elixir

Delay 1000

While 剩余战斗时间 > -1

剩余战斗时间 = 剩余战斗时间 - 1

Delay 500

UseDict(3)

临时金币 = CInt(Ocr(63, 89, 175, 114, “CCFBFF-111111|91C2BF-111111”, 0.9))

Delay 500

UseDict(4)

临时圣水 = CInt(Ocr(63, 125, 175, 150, “FDE8FF-111111|C2C4CF-111111”, 0.9))

If 敌人gold > 临时金币 Then

敌人gold = 临时金币

剩余战斗时间 = 30

End If

If 敌人elixir > 临时圣水 Then

敌人elixir = 临时圣水

剩余战斗时间 = 30

End If

If CmpColorEx(“719|659|1FBD6E-111111,718|629|72F4D5-111111”,0.9) = 1 Then

TracePrint 1

Tap 641, 641

Goto 结束

Else

TracePrint 0

End If

Wend

If 闪黑选项 > 0 Then

Call zoomFightScreenUp()

ShowMessage “闪黑功能暂未完善”

Delay 2000

End If

Tap 93, 538

Delay 1000

// If CmpColorEx(“713|488|1FBB6C-010101,720|446|75F4D6-010101”, 0.9) = 1 Then

Tap 781, 465

Delay 1000

Tap 641,641

// TracePrint 1

// Else

// TracePrint 0

// End If

/*

If isMainWindowButtonEnabled() Then // 点击进攻按钮

Tap 82, 640

Delay 500

End If

If isBeforeAttackWindow() Then // 点击搜索对手按钮

Tap 286, 547

Delay 500

End If

// 进攻（进攻页面）

Dim ocrchar1 = 0, ocrchar2= 0, deadFish, resource

While 1

If CmpColorEx(“1094|542|0D51E5-111111,1135|492|35BDFD-111111,45|552|0E0DCF-111111,45|530|615DF8-111111”, 0.9) = 1 Then

Delay 1000

deadfish = "NOT "

TracePrint “界面判断成功”

Call zoomScreen()

UseDict(3)

ocrchar1 = Ocr(63, 89, 175, 114, “CCFBFF-111111|91C2BF-111111”, 0.9)

TracePrint “1:” & ocrchar1

UseDict(4)

ocrchar2 = Ocr(63, 125, 175, 150, “FDE8FF-111111|C2C4CF-111111”, 0.9)

TracePrint “2:” & ocrchar2

resource = CInt(ocrchar1) + CInt(ocrchar2)

TracePrint resource

If isDeadFish(resource)>0 Then

TracePrint “DEAD!”

deadFish = "DEAD! "

ShowMessage deadfish & "金币 " & ocrchar1 & " 圣水 " & ocrchar2

Delay 3000

Goto attack

End If

Delay 2000

Tap 1179, 518

Else

TracePrint “界面判断不成功”

Delay 1000

End If

Wend

Rem attack

*/

// 读取敌方数据（战斗页面）

// 继续（若之和大于300000）否则跳转

// 检测对方圣水罐和金币罐（战斗页面）

// 切换至战斗状态（若为空）否则跳转

// 点击下一个按钮（战斗页面），跳转回上一个

// 战斗循环

/*

读取野蛮人位置，弓箭手位置，巨人位置，野蛮人首领位置，弓箭女皇位置

切换至上端释放巨人12、野蛮人24、弓箭手36（间隔2秒）

切换至下端释放巨人12、野蛮人24、弓箭手36

切换至上端，寻找圣水罐/金矿，若有，4野蛮人，6弓箭手

切换至下端，寻找圣水罐/金矿，若有，4野蛮人，6弓箭手

若无，随机释放。

切换至上端左侧释放蛮王和弓箭女皇。

检测弓箭女王、蛮王快死时点击技能。

检测资源变化情况不断更新，30s内无变化，回家。

*/

// 点击结束按钮->点击确定按钮->点击回家按钮。

//

Rem 结束

Delay 6000

Wend

// ##################

// ##################

// ##################

// #### 函数部分 ####

// ##################

// ##################

// ##################

// #### 0 系统类函数部分 ####

Function isScreenReady()

Dim screenX

screenX = GetScreenX()

Dim screenY

screenY = GetScreenY()

Dim DPI

DPI=Device.GetDPI()

If screenX = 1280 And screenY = 720 And DPI = 160 Then

isScreenReady = 1

Else

Dim djs

djs = 20

While djs > 0

ShowMessage “脚本仅支持 1280×720 分辨率(横向)和 160 DPI，请设置好后再运行脚本\n” & djs & " 秒后脚本将自动停止运行"

djs = djs - 1

Delay 999

Wend

End If

End Function

// 分辨率检测（成功 耗时0，不成功 延时20000后终止脚本）

Function isLoginReady()

Rem logindeny

While 1

If CmpColorEx(“1232|110|FF25E0,1233|37|19DEFF”, 0.9) = 1 Then

Goto loginsuccess

End If

ShowMessage “请手动登录游戏。若已登录，请切换至游戏主界面”

Delay 1000

Wend

Rem loginsuccess

For 2

ShowMessage “登录成功！欢迎使用！”

Delay 1000

Next

If CmpColorEx(“1232|110|FF25E0,1233|37|19DEFF”, 0.9) <> 1 Then

Goto loginsuccess

End If

ShowMessage “登录成功！欢迎使用！”

Delay 1000

End Function

// 登录检测（成功 耗时0，不成功 循环）

Function isConnect()

If CmpColorEx(“250|336|282828,250|335|E5B533”, 0.9) = 1 Then

Tap 850, 426

For 5

ShowMessage “断线重连中…”

Delay 10000

Next

End If

If CmpColorEx(“759|307|282828-111111,772|376|282828-111111,770|424|282828-111111,354|421|282828-111111,416|302|282828-111111”,0.9) = 1 Then

Tap 850, 426

For 5

ShowMessage “断线重连中…”

Delay 10000

Next

End If

End Function

// 断线重连（成功 耗时5s）

Function zoomScreen()

TouchDown 98, 173, 1

TouchDown 1095, 664, 2

TouchMove 670, 360, 1, 200

TouchMove 674, 364, 2, 200

TouchUp 1

TouchUp 2

Delay 500

Swipe 1000, 200, 1000, 620

Delay 500

Swipe 1000, 360, 600, 360

Delay 500

Swipe 1000, 360, 600, 360

Delay 500

Swipe 1000, 400, 1000, 320

Delay 500

End Function

// 缩小屏幕（成功 2700ms）

Function bigNTS(numberb)

Dim numbera

numbera = Clng(numberb)

Dim temp1,temp2,temp3,outinga

If numbera > 999999 Or numbera < -999999 Then

temp3 = Int(numbera / 1000000)

temp3 = CStr(temp3)

temp2 = numbera Mod 1000000

temp2 = Abs(Int(temp2 / 1000))

If temp2 = 0 Then

temp2 = “000”

ElseIf temp2 < 10 Then

temp2 = “00” & CStr(temp2)

ElseIf temp2 < 100 Then

temp2 = “0” & CStr(temp2)

Else

temp2 = CStr(temp2)

End If

temp1 = Abs(numbera Mod 1000)

If temp1 = 0 Then

temp1 = “000”

ElseIf temp1 < 10 Then

temp1 = “00” & CStr(temp1)

ElseIf temp1 < 100 Then

temp1 = “0” & CStr(temp1)

Else

temp1 = CStr(temp1)

End If

outinga = temp3 & “,” & temp2 & “,” & temp1

ElseIf CLng(numbera) > 999 Or numbera < -999 Then

temp2 = Int(numbera / 1000)

temp2 = CStr(temp2)

temp1 = Abs(numbera Mod 1000)

If temp1 = 0 Then

temp1 = “000”

ElseIf temp1 < 10 Then

temp1 = “00” & CStr(temp1)

ElseIf temp1 < 100 Then

temp1 = “0” & CStr(temp1)

Else

temp1 = CStr(temp1)

End If

outinga = temp2 & “,” & temp1

Else

outinga = Cstr(numberb)

End If

bigNTS = outinga

End Function

// 大数字转格式化字符串

Function timeToStr(secondTillNow, secondAtFirst)

Dim timeleft = 0, runM = 0, runH = 0, runD = 0, timeString

timeleft = secondTillNow - secondAtFirst

While timeleft > 59

runM = runM + 1

timeleft = timeleft - 60

If runM > 59 Then

runH = runH + 1

runM = runM - 60

End If

If runH > 24 Then

runD = runD + 1

runH = runH - 24

End If

Wend

If runD > 0 Then

timeString = CStr(runD) & " 天 "

If runH > 0 Then

timeString = timeString & CStr(runH) & " 小时 "

If runM > 0 Then

timeString = timeString & CStr(runM) & " 分钟 "

If timeleft > 0 Then

timeString = timeString & CStr(timeleft) & " 秒"

End If

End If

End If

ElseIf runH > 0 Then

timeString = CStr(runH) & " 小时 "

If runM > 0 Then

timeString = timeString & CStr(runM) & " 分钟 "

If timeleft > 0 Then

timeString = timeString & CStr(timeleft) & " 秒"

End If

End If

ElseIf runM > 0 Then

timeString = CStr(runM) & " 分钟 "

If timeleft > 0 Then

timeString = timeString & CStr(timeleft) & " 秒"

End If

Else

timeString = CStr(timeleft) & " 秒"

End If

timeToStr= timeString

End Function

// 时间格式输出函数

// #### 1 资源采集函数部分 ####

Function getGold()

UseDict(0)

Dim ocrchar = “-1”

ocrchar=Ocr(1061,29,1205,53,“FFFFFF-111111|C4CCC8-060606|EFF1F0-111111”,0.9)

Traceprint ocrchar

getGold = Clng(ocrchar)

End Function

Function getElixir()

UseDict(0)

Dim ocrchar = “-1”

ocrchar = Ocr(1080, 97, 1206, 120, “FFFFFF-111111|C4CCC8-060606|EFF1F0-111111”, 0.9)

getElixir = Clng(ocrchar)

End Function

Function getDark()

UseDict(0)

Dim ocrchar = “-1”

ocrchar = Ocr(1111, 163, 1206, 186, “FFFFFF-111111|C4CCC8-060606|EFF1F0-111111”, 0.9)

getDark = Clng(ocrchar)

End Function

Function getTrophy()

UseDict(0)

Dim ocrchar = “-1”

ocrchar = Ocr(90, 110, 154, 134, “FFFFFF-111111|C4CCC8-060606|EFF1F0-111111”, 0.9)

getTrophy = Clng(ocrchar)

End Function

// 读取资源

Function collectResource()

Dim intX,intY

For 3

FindMultiColor 232,80,1000,708,“B7DBD1-111111”,"-13|9|A7D5D0-111111,13|16|95CAC0-111111,-13|21|85C0B8-111111,1|29|73B8B0-111111,12|21|85C0B8-111111",0,0.95,intX,intY

If intX > -1 And intY > -1 Then

Tap intX, intY+5

End If

Delay 500

Next

End Function

// 采集资源

Function randomX()

Dim temp1, temp2

temp1 = Time()

temp1 = temp1 Mod 10

randomX = temp1

End Function

// 随机数

// #### 2 界面判断函数部分 ####

Function isMainWindow()

Delay 500

If CmpColorEx(“31|21|ECBD39-111111,16|276|1DA9FE-111111”,0.9) Then

isMainWindow = 1

Else

isMainWindow = 0

End If

End Function

// 界面判断：主界面

Function isMainWindowButtonEnabled()

Delay 500

If CmpColorEx(“18|279|24A9FD-111111,30|21|ECBD38-111111,43|518|E4FFFF-111111”,0.9) Then

isMainWindowButtonEnabled = 1

Else

isMainWindowButtonEnabled = 0

End If

End Function

// 界面判断：主界面左侧按钮可用

Function isArmyWindow()

Delay 500

If CmpColorEx(“84|32|F8F8F8-111111,82|57|E5ECE8-111111,1199|18|958DFF-111111,1186|529|75F1CD-111111,1182|617|79F1D1-111111,560|29|63747A-111111,845|26|65777C-111111”,0.9) Then

isArmyWindow = 1

Else

isArmyWindow = 0

End If

End Function

// 界面判断：军队概况界面

Function isTrainTroopsWindow()

Delay 500

If CmpColorEx(“288|29|63747A-111111,567|28|F9FAFA-111111,562|55|E6EDED-111111,836|31|627378-111111,798|678|9BA0A0-111111,1199|18|958DFF-111111”,0.9) Then

isTrainTroopsWindow = 1

Else

isTrainTroopsWindow = 0

End If

End Function

// 界面判断：训练军队界面

Function isBrewSpellsWindow()

Delay 500

If CmpColorEx(“289|29|63747A-111111,562|29|63747A-111111,844|29|F9FAFA-111111,842|54|E7EDED-111111,70|95|005AE9-111111,1199|18|958DFF-111111”,0.9) Then

isBrewSpellsWindow = 1

Else

isBrewSpellsWindow = 0

End If

End Function

// 界面判断：配置药水界面

Function isFightReadyWindow()

Delay 500

If CmpColorEx(“1249|37|1DDDFF-111111,1094|539|0D54E5-111111,1138|493|35B9F9-111111,47|529|615DF9-111111”,0.9) = 1 Then

isFightReadyWindow = 1

Else

isFightReadyWindow = 0

End If

End Function

// 界面判断：战斗面板（含下一个按钮）

// #### 3 训练兵种部分 ####

Function clearMoreTroops()

While CmpColorEx(“1198|142|0D0FE4-111111,1197|129|918DFF-111111”, 0.9) = 1

For 30

Tap 1199, 135

Delay 20

Next

Delay 500

Wend

While CmpColorEx(“1200|140|0F0EE5-111111”, 0.9) = 1

For 30

Tap 1199, 135

Delay 20

Next

Delay 500

Wend

End Function

// 清除正在训练的多余的军队

Function getArmyBarbarianNumber()

Dim intX,intY,intX2,intY2 // 获取XY坐标

FindPic 60,150,1135,180,“Attachment:野蛮人概况.png”,“111111”,0,0.8,intX,intY

If intX > -1 And intY > -1 Then

TracePrint intX

TracePrint intY

intX = intX + 13

intY = intY - 26

intX2 = intX + 62

intY2 = intY + 22

UseDict(1)

Dim ocrchar = “-1”

ocrchar=Ocr(intX,intY,intX2,intY2,“FFFFFF-111111|F2E7DC-010101|F9F4EE-010101”,0.9)

Traceprint ocrchar

getArmyBarbarianNumber = CInt(ocrchar)

End If

End Function

Function getArmyGiantNumber()

Dim intX,intY,intX2,intY2 // 获取XY坐标

FindPic 60,150,1135,180,“Attachment:巨人概况.png”,“111111”,0,0.8,intX,intY

If intX > -1 And intY > -1 Then

TracePrint intX

TracePrint intY

intX = intX + 13

intY = intY - 26

intX2 = intX + 62

intY2 = intY + 22

UseDict(1)

Dim ocrchar = “-1”

ocrchar=Ocr(intX,intY,intX2,intY2,“FFFFFF-111111|F2E7DC-010101|F9F4EE-010101”,0.9)

Traceprint ocrchar

getArmyGiantNumber = CInt(ocrchar)

End If

End Function

Function getArmyArcherNumber()

Dim intX,intY,intX2,intY2 // 获取XY坐标

FindPic 60,150,1135,180,“Attachment:弓箭手概况.png”,“111111”,0,0.8,intX,intY

If intX > -1 And intY > -1 Then

TracePrint intX

TracePrint intY

intX = intX + 13

intY = intY - 26

intX2 = intX + 62

intY2 = intY + 22

UseDict(1)

Dim ocrchar = “-1”

ocrchar=Ocr(intX,intY,intX2,intY2,“FFFFFF-111111|F2E7DC-010101|F9F4EE-010101”,0.9)

Traceprint ocrchar

getArmyArcherNumber = CInt(ocrchar)

End If

End Function

// 读取军队概况界面各兵种的数量字符的左上角 x y 坐标，右下角坐标计算可得 x+62 y+22

// 识图两边各留3像素

Function readArmyCampSpace()

Dim ocrchar, sumlong, firstpun, readlong

UseDict (2)

ocrchar = Ocr(131,87,242,120, “FFFFFF|FEFCFA-010101|FEFDFC-010101|DCDEDE-010101”, 0.9)

sumlong = Len(ocrchar)

firstpun = InStr(1, ocrchar, “/”, False)

readlong = sumlong - firstpun

ocrchar = Right(ocrchar, readlong)

readArmyCampSpace = CInt(ocrchar)

End Function

// 读取最大兵营量

Function isBarbarianTrainReady()

If CmpColorEx(“141|393|3DC6FD-111111,83|400|DDB585-111111”,0.9) = 1 Then

isBarbarianTrainReady = 1

Else

isBarbarianTrainReady = 0

End If

End Function

Function isGiantTrainReady()

If CmpColorEx(“209|388|DEBD8D-111111,290|432|80B5FD-111111”,0.9) = 1 Then

isGiantTrainReady = 1

Else

isGiantTrainReady = 0

End If

End Function

Function isArcherTrainReady()

If CmpColorEx(“83|534|DDB585-111111,136|550|7037C5-111111”,0.9) = 1 Then

isArcherTrainReady = 1

Else

isArcherTrainReady = 0

End If

End Function

Function isLightningSpellReady()

If CmpColorEx(“118|423|FDA435,153|432|FFFFF5-111111,121|465|F54415-111111”,0.9) = 1 Then

isLightningSpellReady = 1

Else

isLightningSpellReady = 0

End If

End Function

// 检测训练界面的兵种\法术图标是否激活

Function isBeforeAttackWindow()

If CmpColorEx(“195|509|43BEFF-010101,200|562|0E5FE9-111111,103|441|A7B6C6-111111,514|256|39B6C6-111111,511|240|396DC6-111111,47|299|946DA5-111111,59|283|42ABC6-111111”,0.9) = 1 Then

isBeforeAttackWindow = 1

Else

isBeforeAttackWindow = 0

End If

End Function

// 界面检测，搜寻前的界面

/*

Function isDeadFish(resource1)

Dim deadfish = 0

If resource1 > 300000 Then

TracePrint “resource>300000”

Dim intX = -1, intY = -1

Delay 200

FindPic 172,52,1197,573,“Attachment:圣水采集器.png”,“010101”,0,0.9,intX,intY

If intX > -1 And intY > -1 Then

deadfish = deadfish + 9

TracePrint intX

TracePrint intY

TracePrint “满的圣水采集器找到”

End If

intX = -1, intY = -1

FindPic 172,52,1197,573,“Attachment:空圣水瓶.png”,“010101”,0,0.9,intX,intY

If intX > -1 And intY > -1 Then

deadfish = deadfish + 1

TracePrint intX

TracePrint intY

TracePrint “空圣水瓶找到”

End If

intX = -1, intY = -1

FindPic 172,52,1197,573,“Attachment:空的圣水瓶.png”,“010101”,0,0.9,intX,intY

If intX > -1 And intY > -1 Then

deadfish = deadfish + 1

TracePrint intX

TracePrint intY

TracePrint “空的圣水瓶找到”

End If

Else

TracePrint “<300000”

Goto aaa

End If

If deadfish > 0 Then

TracePrint “deadfish>0”

isDeadFish = 1

Else

Goto aaa

End If

Rem aaa

isDeadFish = 0

End Function

// 检测死鱼

Function trueAttack()

Swipe 900, 100, 900, 300

Delay 1000

Tap 252, 657

Delay 50

For 2

Tap 322, 292

Delay 50

Tap 662, 101

Delay 50

Tap 890, 276

Delay 50

Next

Tap 60, 657 // bbr

For 2

Tap 322, 292

Delay 50

Tap 662, 101

Delay 50

Tap 890, 276

Delay 50

Next

//322 292 662 101 890276

End Function*/

Function exitTroopsWindow()

Tap 1200, 36

End Function

// 退出军队界面

/*

法术识别，备用

Dim intX,intY

FindPic 60,347,842,377,“Attachment:闪电概况.png”,“000000”,0,0.9,intX,intY

If intX > -1 And intY > -1 Then

TracePrint intX

TracePrint intY

End If

*/

// #### 4 战斗函数 ####

Function startAttack()

Tap 82, 640

Delay 1000

// If CmpColorEx(“460|115|667D84-111111,204|562|0E5FE9-111111,198|510|42BDFF-111111”,0.9) = 1 Then

Tap 290, 549

// Else

// TracePrint 0

// End If

End Function

// 开始战斗（点击二次按钮）

Function zoomFightScreenUp()

TouchDown 1000, 60, 1

TouchDown 870, 190, 2

TouchMove 935, 125, 1, 120

TouchMove 935, 125, 2, 120

TouchUp 1

TouchUp 2

Delay 500

Swipe 1000, 60, 400, 400

Delay 500

Swipe 1000, 60, 400, 400

Delay 1300

End Function

// 战斗界面向右上角移动(含缩放）

Function zoomFightScreenDown()

Swipe 1000, 550, 730, 10

Delay 500

Swipe 1000, 550, 730, 10

Delay 1300

End Function

// 战斗界面向右下角移动

Function searchNext()

Tap 1168, 519

End Function

// 寻找下一个对手

/*

从远到近顺序，从上到下顺序

/

Function A方案上端下兵(intX1, intY1, intX2, intY2, intX3, intY3, intX4, intY4, intX5, intY5, intX6, intY6)

Delay 500

/

1 巨人，5野蛮人，7弓箭手

*/

Call 选中巨人()

Call 向左下方向释放(intX1, intY1, 1, 30)

Call 向左下方向释放(intX2, intY2, 1, 30)

Call 向左下方向释放(intX3, intY3, 1, 30)

Call 向右下方向释放(intX4, intY4, 1, 30)

Call 向右下方向释放(intX5, intY5, 1, 30)

Call 向右下方向释放(intX6, intY6, 1, 30)

Delay 2000

Call 选中野蛮人()

Call 向左下方向释放(intX1, intY1, 5, 30)

Call 向左下方向释放(intX2, intY2, 5, 30)

Call 向左下方向释放(intX3, intY3, 5, 30)

Call 向右下方向释放(intX4, intY4, 5, 30)

Call 向右下方向释放(intX5, intY5, 5, 30)

Call 向右下方向释放(intX6, intY6, 5, 30)

Delay 2000

Call 选中弓箭手()

Call 向左下方向释放(intX1, intY1, 7, 30)

Call 向左下方向释放(intX2, intY2, 7, 30)

Call 向左下方向释放(intX3, intY3, 7, 30)

Call 向右下方向释放(intX4, intY4, 7, 30)

Call 向右下方向释放(intX5, intY5, 7, 30)

Call 向右下方向释放(intX6, intY6, 7, 30)

End Function

Function A方案下端下兵(intX1, intY1, intX2, intY2, intX3, intY3, intX4, intY4, intX5, intY5, intX6, intY6)

Delay 2000

/*

1 巨人，5野蛮人，7弓箭手

*/

Call 选中巨人()

Call 向左上方向释放(intX1, intY1, 1, 30)

Call 向左上方向释放(intX2, intY2, 1, 30)

Call 向左上方向释放(intX3, intY3, 1, 30)

Call 向右上方向释放(intX4, intY4, 1, 30)

Call 向右上方向释放(intX5, intY5, 1, 30)

Call 向右上方向释放(intX6, intY6, 1, 30)

Delay 2000

Call 选中野蛮人()

Call 向左上方向释放(intX1, intY1, 5, 30)

Call 向左上方向释放(intX2, intY2, 5, 30)

Call 向左上方向释放(intX3, intY3, 5, 30)

Call 向右上方向释放(intX4, intY4, 5, 30)

Call 向右上方向释放(intX5, intY5, 5, 30)

Call 向右上方向释放(intX6, intY6, 5, 30)

Delay 2000

Call 选中弓箭手()

Call 向左上方向释放(intX1, intY1, 7, 30)

Call 向左上方向释放(intX2, intY2, 7, 30)

Call 向左上方向释放(intX3, intY3, 7, 30)

Call 向右上方向释放(intX4, intY4, 7, 30)

Call 向右上方向释放(intX5, intY5, 7, 30)

Call 向右上方向释放(intX6, intY6, 7, 30)

End Function

Sub 选中野蛮人()

If CmpColorEx(“140|697|587EC8-222222,143|630|30AEEC-222222”,0.9) = 1 Then

Tap 146, 658 // 选中野蛮人

选中野蛮人 = 1

Else

选中野蛮人 = 0

End If

End Sub

Sub 选中弓箭手()

If CmpColorEx(“233|699|20AF8F-111111,246|642|6229B8-111111”,0.9) = 1 Then

Tap 242, 658 // 选中弓箭手

选中弓箭手 = 1

Else

选中弓箭手 = 0

End If

End Sub

Sub 选中巨人()

If CmpColorEx(“331|625|85BEF8-060606,358|657|74ACF5-060606”,0.9) = 1 Then

Tap 336, 658 // 选中巨人

选中巨人 = 1

Else

选中巨人 = 0

End If

End Sub

Sub 向左下方向释放(intX, intY, tTime, dTime)

For tTime

Tap intX, intY

intX = intX - 16

intY = intY + 12

Delay dTime

Next

End Sub

Sub 向右下方向释放(intX, intY, tTime, dTime)

For tTime

Tap intX, intY

intX = intX + 16

intY = intY + 12

Delay dTime

Next

End Sub

Sub 向左上方向释放(intX, intY, tTime, dTime)

For tTime

Tap intX, intY

intX = intX - 16

intY = intY - 12

Delay dTime

Next

End Sub

Sub 向右上方向释放(intX, intY, tTime, dTime)

For tTime

Tap intX, intY

intX = intX + 16

intY = intY - 12

Delay dTime

Next

End Sub

Function isDeadFishII()

Delay 1000

Dim intX = 0

Dim intY = 0

FindMultiColor 0,0,1020,720,“BFAF8D-111111”,“8|-28|474344-111111,8|-18|24EDFF-111111,8|-22|24D6FF-111111”,0,0.9,intX,intY

If intX > -1 And intY > -1 Then

TracePrint “Dead”

isDeadFishII = 1

Else

TracePrint “活鱼”

isDeadFishII = 0

End If

Delay 1000

End Function

如果觉得《部落冲突COC呆呆机器人源码(采集资源/打鱼)》对你有帮助，请点赞、收藏，并留下你的观点哦！