Delay 100
    ContinueThread 线程DC 
    Rem dxx
    Call zhangou
End Sub
Sub altq
    KeyDown "Alt", 1
    Delay 500 
    KeyDown "Q", 1
    Delay 500
    KeyUp "Alt", 1
    Delay 500	
End Sub
Sub alta
    KeyDown "Alt", 1
    Delay 500 
    KeyDown "A", 1
    Delay 500
    KeyUp "Alt", 1
    Delay 500	
End Sub
Sub altd
    Delay 300
    KeyDown "Alt", 1
    Delay 500 
    KeyDown "d", 1
    Delay 500
    KeyUp "Alt", 1
    Delay 500	
End Sub
Sub fashu	
    Rem fash
    i = 0	
    While i=0
        FindPic 0,0,650,500,"Attachment:\fas.bmp",0.8,fasX,fasY
        If fasX > 0 And fasY > 0 Then 
            i = 1
        End If
    Wend
    If jikai = "a" Then 
        Call zhandoua
    ElseIf jikai = "b" Then
        Call zhandoub 
    ElseIf jikai = "c" Then
        Call zhandouc    
    ElseIf jikai = "d" Then
        Call zhandoud     
    ElseIf jikai = "e" Then
        Call 在战斗
    End If
    Goto fash
End Sub
Sub zhandoua
    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	
End Sub