Delay 100
                SB = GetCursorShape(0)
                If SB = 536865780 Then
                    LockMouse
                    Delay 50
                    LeftDoubleClick 1
                    Delay SJ
                    Call SR()
                    Call DDDL()
                End If
            End If
        End If
    End If
    IfColor 231,307,"5DDBFA",0 Then
        IfColor 218,319,"5DDBFA",0 Then
            IfColor 225,319,"5DDBFA",0 Then
                MoveTo 351, 313
                LeftClick 1
                Delay 100
                SB = GetCursorShape(0)
                If SB = 536865780 Then
                    LockMouse
                    Delay 50
                    LeftDoubleClick 1
                    Delay SJ
                    Call SR()
                    Call DDDL()
                End If
            End If
        End If
    End If
               
    UnlockMouse
End Sub
Sub JDX()
    FindColorEx 0, 100,1024, 640,"0D005C",1,0.9,intX,intY
    If intX > 0 And intY > 0 Then//灵魂
        MoveTo intX,intY
        LeftClick 1
        Delay 1500
    End If
    Delay 30
    FindColorEx 0, 100,1024, 640,"0D005C",1,0.9,intX,intY
    If intX > 0 And intY > 0 Then//灵魂
        Call JDX()
    End If
End Sub
Sub CZ()
    XMC = 0
    For JGMC
        IfColor 312+XMC,59,"1F4484",2 Then
            IfColor 314+XMC,60,"421",2 Then
                IfColor 319+XMC,57,"55AEFB",2 Then//"出征"
                    MoveTo 309+XMC, 60
                    LeftClick 1
                    Delay 500
                End If
            End If
        End If
        XMC = XMC+149
    Next
    XMC = 0

    For 2
        IfColor 338+XMC,58,"1C4A",2 Then
            IfColor 334+XMC,60,"63A6F7",2 Then
                IfColor 341+XMC,63,"810",2 Then//"合体":"1":"2"
                    MoveTo 344+XMC, 60
                    LeftClick 1
                    Delay 500
                End If
            End If
        End If
        XMC = XMC+149
    Next
    IfColor 638,56,"A2753",2 Then
        IfColor 651,61,"842",2 Then
            IfColor 648,57,"1042",2 Then//"合体":"3"
                MoveTo 643, 60
                LeftClick 1
                Delay 500
            End If
        End If
    End If
    IfColor 789,56,"92652",2 Then
        IfColor 799,57,"1042",2 Then
            IfColor 802,61,"842",2 Then//"合体":"4"
                MoveTo 794, 60
                LeftClick 1
                Delay 500
            End If
        End If
    End If
End Sub
Sub ZTJC()
    Hwnd = Plugin.Window.Find(0, "提示")
    If Hwnd > 0 Then
        HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, "确定")
        sRect = Plugin.Window.GetClientRect(HwndEx)
        MyArray = Split(sRect, "|")