Call zhandouc    
        ElseIf jikai = "d" Then
            Call zhandoud     
        ElseIf jikai = "e" Then
            Call 在战斗
        End If
    End If
    Goto xuh
    Rem ddxi	
End Sub    
Sub zl
    线程DC = BeginThread(fashu)
    Delay 100
    //     线程DC = BeginThread(paotu)
    Rem zlks
    //    Call ckcl(d1ID, 0, 0)
    Delay 100
    //    Delay 500
    KeyPress "Tab", 1
    Call ditu
    Delay 100
    i = 0	
    While i=0
        FindPic 0,0,650,500,"Attachment:\nve.bmp",0.8,nveX,nveY
        If nveX > 0 And nveY > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(nveX, nveY)
    Delay 100
    Delay 10
    LeftClick 1
    Delay 100    
    MoveTo 50, 150
    Delay 100
    KeyPress "Tab", 1
    Delay 5000
    Call 找妖
    Delay 100
    KeyPress "Tab", 1
    Call ditu
    Delay 100
    i = 0	
    While i=0
        FindPic 0,0,650,500,"Attachment:\lu1.bmp",0.8,lu1X,lu1Y
        If lu1X > 0 And lu1Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu1X, lu1Y)
    Delay 100
    Delay 100
    LeftClick 1
    Delay 100
    MoveTo 50, 150
    Delay 100
    KeyPress "Tab", 1
    Delay 5000
    Call 找妖
    Delay 100
    KeyPress "Tab", 1
    Call ditu
    Delay 100
    i = 0	
    While i=0
        FindPic 0,0,650,500,"Attachment:\lu2.bmp",0.8,lu2X,lu2Y
        If lu2X > 0 And lu2Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu2X, lu2Y)
    Delay 100
    Delay 100
    LeftClick 1
    Delay 100
    MoveTo 50, 150
    Delay 100
    KeyPress "Tab", 1
    Delay 5000
    Call 找妖
    Delay 100
    KeyPress "Tab", 1
    Call ditu
    Delay 100
    i = 0	
    While i=0
        FindPic 0,0,650,500,"Attachment:\lu3.bmp",0.8,lu3X,lu3Y
        If lu3X > 0 And lu3Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu3X, lu3Y)
    Delay 100
    Delay 100
    LeftClick 1
    Delay 100
    MoveTo 50, 150
    Delay 100
    KeyPress "Tab", 1
    Delay 5000