[已回复] 超级取色范围用变量会报错

Dim 蓝点 = {542,1129,689,1277,"F4F40D-101010","0|-8|D75515-101010,-9|0|D15A16-101010,8|0|DD5511-101010",false}
Dim 路线_亮
//Dim 路线_亮 = {542,1129,689,1277,"1B556A-101010","5|0|1B556A-101010,0|5|1B556A-101010,5|5|1B556A-101010",false}
Dim 人物坐标()
If zm.FindMultiColor(蓝点,1000) Then 
        人物坐标(0) = tMul(1)
        人物坐标(1) = tMul(2)
End If
Dim 左边(),右边(),上边(),下边()
左边(0) = 人物坐标(0)-15
左边(1) = 人物坐标(1)-48
左边(2) = 人物坐标(0)+15
左边(3) = 人物坐标(1)-18
右边(0) = 人物坐标(0)-15
右边(1) = 人物坐标(1)+19
右边(2) = 人物坐标(0)+15
右边(3) = 人物坐标(1)+48
上边(0) = 人物坐标(0)-45
上边(1) = 人物坐标(1)+18
上边(2) = 人物坐标(0)+48
上边(3) = 人物坐标(1)+15
下边(0) = 人物坐标(0)-48
下边(1) = 人物坐标(1)-15
下边(2) = 人物坐标(0)-19
下边(3) = 人物坐标(1)+15

Dim IntX,IntY
FindMultiColor 上边(0),上边(1),上边(2),上边(3),"1B556A-101010","5|0|1B556A-101010,0|5|1B556A-101010,5|5|1B556A-101010",0,0.9,intX,intY
If intX > -1 Then
    TracePrint "找到啦，坐标在"&intX&","&intY
Else
    TracePrint "没找到"
End If

Dim 左边路线_亮 = {左边(0),左边(1),左边(2),左边(3),"1B556A-101010","5|0|1B556A-101010,0|5|1B556A-101010,5|5|1B556A-101010",1,1000,false}
Dim 右边路线_亮 = {右边(0),右边(1),右边(2),右边(3),"1B556A-101010","5|0|1B556A-101010,0|5|1B556A-101010,5|5|1B556A-101010",1,1000,false}
Dim 上边路线_亮 = {上边(0),上边(1),上边(2),上边(3),"1B556A-101010","5|0|1B556A-101010,0|5|1B556A-101010,5|5|1B556A-101010",1,1000,false}
Dim 下边路线_亮 = {下边(0),下边(1),下边(2),下边(3),"1B556A-101010","5|0|1B556A-101010,0|5|1B556A-101010,5|5|1B556A-101010",1,1000,false}

If zm.FindMultiColor(左边路线_亮) Then 
        TracePrint "左"
End If
If zm.FindMultiColor(右边路线_亮) Then 
        TracePrint "右"
End If
If zm.FindMultiColor(上边路线_亮) Then 
        TracePrint "上"
End If
If zm.FindMultiColor(下边路线_亮) Then 
        TracePrint "下"
End If

TracePrint "人物坐标：" & 人物坐标(0) & "," &人物坐标(1)
TracePrint "左边坐标：" & 左边(0) & "," &左边(1)& "," &左边(2)& "," &左边(3)
TracePrint "右边坐标：" & 右边(0) & "," &右边(1)& "," &右边(2)& "," &右边(3)
TracePrint "上边坐标：" & 上边(0) & "," &上边(1)& "," &上边(2)& "," &上边(3)
TracePrint "下边坐标：" & 下边(0) & "," &下边(1)& "," &下边(2)& "," &下边(3)