[讨论] 循环找色 调色没报错，赐教 [复制链接]

Dim 人物,战斗,关闭
人物 = "674|1108|545158,636|1110|898896,588|1109|5D5C66,703|1136|1B1C1C,686|1276|211F1D,443|915|01016A"
战斗 = "401|1155|C3C3C3,372|1156|A0B1B8,386|1171|6B6969,365|1173|7AB3CB,368|1187|74919D,443|915|01016A"
关闭 = "476|900|1E1EBC,464|903|1A728D,450|898|4D4DAC,456|910|1B7699,471|918|01019B,443|915|01016A"
sub 主函数

Do

If 通用检测(人物) Then 发现人物

If 通用检测(战斗) Then 开始战斗

If 通用检测(关闭) Then 关闭世界

Delay 1000

Loop
End Sub
Function 通用检测(对象)

If CmpColorEx(对象, 0.9) = 1 Then

通用检测=true

End If
End Function
Sub 发现人物
Dim intX,intY
FindColor 1077,1,1279,180,"00FFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
tap 279,1001
End If
End Sub
Sub 开始战斗
tap 385,1169
End Sub

Sub 关闭世界
tap 284,705
End Sub
主函数