lugin.Window.Find(0, "legend of mir2")
Rect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ax=CLng(MyArray(0))
Ay=CLng(MyArray(1))

Rem 战斗开始
FindColor 730+Ax,50+Ay,750+Ax,70+Ay,"0000FF",intX,intY
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
If intX > 0 And intY > 0 Then
    //在这里可以添加找到坐标后，需要做的处理。
Qx=(intX-Ax-740)*11+400+Ax
Qy=(intY-Ay-58)*11+182+Ay
MoveTo Qx, Qy
Delay 50
LeftClick 1
Rem 战斗中
Delay 3000
IfColor 326,135,"80810",0 Then
Goto 战斗中

End If
Else
Call 寻怪()
End If

    Delay 50
Goto 战斗开始
Sub 寻怪()
Randomize 数值
n=Int(rnd*4)
If n=0
MoveTo 200+Ax, 70+Ay
Delay 50
LeftClick 1
End If

If n=1
MoveTo 500+Ax, 70+Ay
Delay 50
LeftClick 1
End If

If n=2
MoveTo 500+Ax, 300+Ay
Delay 50
LeftClick 1
End If

If n=3
MoveTo 200+Ax, 300+Ay
Delay 50
LeftClick 1
End If

Delay 2000


End Sub