lugin.Window.Find(0, "极光世界-光明神-狂De无边")
Rect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Rem 选怪
Call 吃药()
Call 吃蓝()
KeyPress "Tab", 1
Delay 1000
IfColor 455+Ux,41+Uy,"198F",2 Then
    Rem 攻击
    Call 吃药()
    Call 吃蓝()
KeyPress "1", 1
    Delay 100
    Call 拾取()
    KeyPress "2", 1
    Delay 300
    Call 拾取()
    IfColor 463+Ux,41+Uy,"FAC071",2 Then
    Goto 攻击
Else
    Goto 选怪
End If
    Else
    Goto 选怪
    End If
Sub 吃药()
    IfColor 205+Ux,44+Uy,"130C05",2 Then
    KeyPress "3", 1
        Delay 300
End If
End Sub
Sub 吃蓝()
    IfColor 125+Ux,56+Uy,"120B04",2 Then
    KeyPress "4", 1
        Delay 300
End If
End Sub
Sub 拾取()
KeyPress "`", 3
End Sub