彩虹岛横版 利用找人物定位判断怪物在左在右

//查找窗口类名(0)或者标题("LaTale Client"),返回找到的句柄Hwnd
Hwnd = Plugin.Window.Find(0, "LaTale Client")
//TracePrint Hwnd
//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myarray

myarray = Split(sRect,"|")

ux = CLng(myarray(0))
uy = CLng(myarray(1))
 
XY=Plugin.Color.FindMutiColor(0,0,800,600,"614C31","-2|-5|000000,-2|-9|000000,-2|-10|FFFFFF,-1|-10|FFFFFF",1)

Dim 多点坐标   //注意找图找不到， 就用抓抓里的多点抓点找
多点坐标= Split(XY,"|")
xx=CLng(多点坐标(0))
yy=CLng(多点坐标(1))
//TracePrint xx&yy
If xx > 0 and yy > 0 Then 
TracePrint "找到人物等级图标"&xx&yy
MoveTo xx+ux,yy+uy
End If

XY1=Plugin.Color.FindMutiColor(xx-400,yy-50,xx+400,yy+50,"A1E8FF","1|0|A1E8FF,0|1|A1E8FF,1|1|FFFFFF,2|1|FFFFFF,4|2|FFFFFF,5|3|79ABFE,7|2|8ECAFE,9|1|A1E8FF",1)
dim 多点怪物
多点怪物 = Split(XY1, "|")
xxx = CInt(多点怪物(0)): yyy = CInt(多点怪物(1))

If xxx > 0 and yyy > 0 Then 
TracePrint "找到怪物图标"&xx&yy
MoveTo xxx+ux,yyy+uy
If xxx < xx+ux Then 
    TracePrint "怪在左边"
    Else 
    TracePrint "怪在右边"
End If
End If