y,hwnd,hwndex,xyarray,s
hwnd=Plugin.Window.Find("ToolbarWindow32","运行应用程序")
Hwndex = Plugin.Window.FindEx(Hwnd, 0, "sh2UnrealWWindowsViewportWindow", "水浒Q传2 Beta 0.77.4 Build2010110300 电信一区 入云龙一线 板砖丶")
Call Plugin.Window.Move(Hwndex, -2, 1)
s = Plugin.Window.GetClientRect(Hwndex)
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYarray(1)
Rem 跑动遇敌
IfColor 644,40,"0A1109",0 Then
    Call 自动走路()
     Call 组队()
       Call 检查红()
Else
    Call 等待战斗()
End if
Goto 跑动遇敌
Sub 等待战斗()
    IfColor 586,87,"00407B",0 Then
    MoveTo 586-dx,87-dy
    Delay 200
    MoveTo 700-dx,200-dy
    Delay 100
        Call Plugin.Bkgnd.MoveTo(Hwndex,747-dx,250-dy)
        Delay 100
        Call Plugin.Bkgnd.leftclick(Hwndex,747-dx,250-dy)
        Call 关自动()
    Else
    End if
End Sub
Sub 自动走路()
    IfColor 536,30,"000000",0 Then
        Delay 2000
    Else
        Call Plugin.Bkgnd.MoveTo(hwndex,659-dx,162-dy)
        Delay 200
        Call Plugin.Bkgnd.leftclick(hwndex,659-dx,162-dy)
        Delay 1000
    End if
End Sub
Sub 检查红()
    IfColor 137,132,"0000D9",1 Then
        Call Plugin.Bkgnd.moveto(Hwndex,137-dx,132-dy)
        Delay 100
        Call Plugin.Bkgnd.rightClick(Hwndex,137-dx,132-dy)
    Else
    End if
End Sub
Sub 组队()
    IfColor 343,361,"0C1704",0 Then
        Call Plugin.Bkgnd.moveto(Hwndex,343-dx,361-dy)
        Delay 500
        Call Plugin.Bkgnd.LeftdoubleClick(Hwndex,343-dx,361-dy)
    Else
    End if
End Sub
Sub 关自动()
    Delay 100
    Call Plugin.Bkgnd.MoveTo(Hwndex,99-dx,393-dy)
    Delay 100
    Call Plugin.Bkgnd.LeftClick(Hwndex,99-dx,393-dy)
    Delay 1000
End Sub