L = Clng(MyArray(0)): T = Clng(MyArray(1))
        Call Plugin.Window.Top(Hwnd, 0)
        Call Plugin.Window.Top(Hwnd, 1)
        Delay SJ
        MoveTo L+44, T+13
        LeftClick 1
        Delay 3000
        Call ZDDL()
        Goto k
    End If
    MoveTo 469, 691
    LeftClick 1
    LockMouse
    Delay 800
    IfColor 459,663,"FFFFFF",2 Then
    Else
        MoveTo 469, 691
        LockMouse
        Delay 300
        IfColor 474,666,"FFFFFF",2 Then
        Else
            Call ZDDL()
        End If
    End If
    IfColor 500,252,"E4FF",2 Then
        IfColor 518,257,"E4FF",2 Then
            MoveTo 423, 360
            LeftClick 1
            Call ZDDL()
        End If
    End If
    IfColor 499,396,"CFC0B0",02 Then
        IfColor 495,407,"B8AFA5",2 Then
            MoveTo 492, 403
            LeftClick 1
            Call ZDDL()
        End If
    End If
    IfColor 414,381,"FFFFFF",2 Then
        IfColor 421,361,"FFFFFF",2 Then
            MoveTo 499, 439
            LeftClick 1
            Call ZDDL()
        End If
    End If
    MoveTo 500, 441
    LeftClick 1
    Rem k
    UnlockMouse
End Sub
Sub FH()
    KeyPress "Esc", 1
    Delay 800
    IfColor 537,427,"1B4F69",2 Then
        IfColor 553,425,"181C18",2 Then
            IfColor 554,422,"211C18",2 Then
                MoveTo 546, 427
                LeftClick 1
                Delay SJ
            End If
        End If
    End If
    IfColor 575,427,"1B4F69",2 Then
        IfColor 591,425,"181C18",2 Then
            IfColor 592,422,"211C18",2 Then
                MoveTo 584, 427
                LeftClick 1
                Delay SJ
            End If
        End If
    End If
    IfColor 1008,15,"1A80B9",2 Then
        IfColor 1014,4,"2B7297",2 Then
            IfColor 1003,7,"344E5F",2 Then
                MoveTo 1008, 11
                LeftClick 1
                Delay SJ
            End If
        End If
    End If
End Sub
Sub SR()
    SRZH=len(ZH)
    SRMM=len(MM)
    N=1
    For SRZH
        A=Mid(ZH,N,1)
        A=UCase(A)
        KeyPress ASC(A),1
        N=N+1
    EndFor 
    KeyPress "Tab", 1
    N=1
    For SRMM
        A=Mid(MM,N,1)
        A=UCase(A)
        KeyPress ASC(A),1
        N=N+1
    EndFor 
    KeyPress "Enter", 1