完全无法运行.主要是找多点时候出现问题,是偏移色2的问题,输出就找不到了.求多点找色这样数组的正确写法Dim战场血条主色数组,战场偏色1绿条数组,战场偏色2角色名数组战场血条主色数组...
完全无法运行.主要是找多点时候出现问题,是偏移色2的问题,输出就找不到了.
求多点找色这样数组的正确写法
Dim 战场血条主色数组,战场偏色1绿条数组,战场偏色2角色名数组
战场血条主色数组 =array("5271EF","528EEF","5A75FF","52FF9C","7386FF","3979F7","4282F7")
战场偏色1绿条数组 = array("5271EF","528EEF","5A71FF","7386FF")
战场偏色2角色名数组 = array("7386FF")
起点X=0
起点Y=0
起点宽=1024
起点高=750
call 战场找角色()
Sub 战场找角色()
For 战场血条主色序号 = 0 To UBound(战场血条主色数组)
For 战场偏色1绿条序号 = 0 To UBound(战场偏色1绿条数组)
For 战场偏色2角色名序号 = 0 To UBound(战场偏色2角色名数组)
战场找血条X战场找血条Y=Plugin.Color.FindMultiColorEx(起点X,起点Y,起点宽,起点高,战场血条主色数组(战场血条主色序号),"0|4|"&战场偏色1绿条数组(战场偏色1绿条序号),"0|9|"&战场偏色2角色名数组(战场偏色2角色名序号),找色识别系数,1)
战场找血条 = InStr(战场找血条X战场找血条Y,"|")
战场找血条X = Clng(Left(战场找血条X战场找血条Y, 战场找血条 - 1)) : 战场找血条Y = Clng(Right(战场找血条X战场找血条Y, Len(战场找血条X战场找血条Y) - 战场找血条))
If 战场找血条X > 0 Then
TracePrint "角色坐标X"&战场找血条X&"角色坐标Y"&战场找血条Y
End If
Next
Next
Next
End Sub
展开