该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim 当前分辨率,x,y,开发分辨率
x = GetScreenX()
y = GetScreenY()
当前分辨率 = x & y
Dim 特征1,特征2,特征3
Call 屏幕缩放()
Call 主数据()
Call 兼容数据() '把无法兼容的新的图色数据进行覆盖
TracePrint 多点找色(特征1, 0)
TracePrint 多点找色(特征1, 480800) '能够兼容480*854以及480*800两种分辨率图色数据
TracePrint 多点找色(特征2, 0)
TracePrint 多点找色(特征3, 0)
Function 主数据
特征1 = Array(349, 241, 450, 337, "FAFAFA", "17|-11|201C1C,-7|-48|201C1C,-17|-15|1733EC,-20|-5|1430E9")
特征2 = Array(149, 231, 235, 321, "CBB41E", "-33|-43|E4DEA3,1|-44|E0E06B,-30|7|B9A971,-56|12|AE690A")
特征3 = Array(343, 525, 458, 625, "0DD100", "-15|40|FFFFFF,-33|55|0CBB00,-40|22|FFFFFF,-105|12|00C3FF")
End Function
Function 兼容数据
If 当前分辨率 = 480800 Then '分辨率480*800 下的数据
特征1 = Array(249,239,342,323,"05B802","-20|17|FFFFFF,-48|25|D69C00,-19|41|272BDD,-33|-7|00D0EA")
End If
End Function
Function 屏幕缩放
Dim scrX,scrY
'这里设置成开发的分辨率
scrX = 480
scrY = 854
SetScreenScale scrX, scrY
开发分辨率 = scrX & scrY
End Function
Function 多点找色(颜色特征, 兼容分辨率)
'当当前的分辨率和兼容分辨率参数一致时,就取消缩放,直接用兼容分辨率下的特征来进行找色
If InStr(1, 兼容分辨率, 当前分辨率) > 0 and 当前分辩率 <> 开发分辩率 Then
ResetScreenScale
End If
FindMultiColor 颜色特征(0), 颜色特征(1), 颜色特征(2), 颜色特征(3), 颜色特征(4), 颜色特征(5), 2, 0.9, intX, intY
If intX > -1 Then
多点找色 = True
Else
多点找色 = False
End If
'找色完成后重新缩放屏幕
If InStr(1, 兼容分辨率, 当前分辨率) > 0 and 当前分辩率 <> 开发分辩率 Then
Call 屏幕缩放()
End If
End Function