Call altd
    ElseIf d2banj = "alt+a" Then
        Call alta
    End If
    Call ckclb(d3ID)
    Delay 300
    If d3anj = "alt+q" Then 
        Call altq
    ElseIf d3anj = "alt+d" Then
        Call altd
    ElseIf d3anj = "alt+a" Then
        Call alta
    End If
    If d3banj = "alt+q" Then 
        Call altq
    ElseIf d3banj = "alt+d" Then
        Call altd
    ElseIf d3banj = "alt+a" Then
        Call alta
    End If
    Call ckclb(d4ID)
    Delay 300
    If d4anj = "alt+q" Then 
        Call altq
    ElseIf d4anj = "alt+d" Then
        Call altd
    ElseIf d4anj = "alt+a" Then
        Call alta
    End If
    If d4banj = "alt+q" Then 
        Call altq
    ElseIf d4banj = "alt+d" Then
        Call altd
    ElseIf d4banj = "alt+a" Then
        Call alta
    End If
    
End Sub
Sub 在战斗
    Call ckclb(d1ID)
    Delay 300
    If d1anj = "alt+q" Then 
        KeyDown "Alt", 1
        Delay 50
        KeyDown "Q", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1anj = "alt+d" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "D", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1anj = "alt+a" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "A", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    End If
    If d1banj = "alt+q" Then 
        KeyDown "Alt", 1
        Delay 50
        KeyDown "Q", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1banj = "alt+d" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "B", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    ElseIf d1banj = "alt+a" Then
        KeyDown "Alt", 1
        Delay 50 
        KeyDown "A", 1
        Delay 50
        KeyUp "Alt", 1
        Delay 50
    End If
    Call ckclb(d2ID)
    If d2anj = "alt+q" Then 
        Call altq
    ElseIf d2anj = "alt+d" Then
        Call altd
    ElseIf d2anj = "alt+a" Then
        Call alta
    End If
    If d2banj = "alt+q" Then 
        Call altq
    ElseIf d2banj = "alt+d" Then
        Call altd
    ElseIf d2banj = "alt+a" Then
        Call alta
    End If