lugin.Window.Find(0, "QQ幻想世界")
Call Plugin.Window.Move(Hwnd, 0, 0)
Dim MyArray
MyArray=Split(Rect,"|")
x=CLng(0)
y=CLng(1)

Rem 开始
Call 补蓝血()
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay 200
    IfColor 531,73,"00CC93",0 Then
    Rem 战斗中
Call 技能()
        Call 确认怪死()
    Delay 200
    Call 捡东西()
        Goto 开始
        
        
        
  


        
        
        
        
        Else
    
        Call 捡东西()
    Goto 开始
End If
Sub 捡东西()
    For 3
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 200
Next
End Sub


Sub 技能()
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 1100
    Call 补蓝血()
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
Delay 1200
    Call 补蓝血()
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
    Call 补蓝血()
Delay 1300
End Sub


Sub 补蓝血()
Rem 补蓝
    IfColor 129,90,"876309",0 Then
    Else
    
Call Plugin.Bkgnd.KeyPress(Hwnd, 113)
Delay 200
        End If
Rem 补红
    IfColor 125,76,"98461",0 Then
Else


    Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
    Delay 200
End If
End Sub



Sub 确认怪死()
IfColor 521,86,"C18904",0 Then
    Goto 战斗中
Else
        Call 捡东西()
    Goto 开始
End If
End Sub