Call 找妖
    Delay 100
    KeyPress "Tab", 1
    Call ditu
    Delay 100
    i = 0	
    While i=0
        FindPic 0,0,650,500,"Attachment:\lu4.bmp",0.8,lu4X,lu4Y
        If lu4X > 0 And lu4Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu4X, lu4Y)
    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:\lu5.bmp",0.8,lu5X,lu5Y
        If lu5X > 0 And lu5Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu5X, lu5Y)
    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:\lu6.bmp",0.8,lu6X,lu6Y
        If lu6X > 0 And lu6Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu6X, lu6Y)
    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:\lu7.bmp",0.8,lu7X,lu7Y
        If lu7X > 0 And lu7Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu7X, lu7Y)
    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:\lu8.bmp",0.8,lu8X,lu8Y
        If lu8X > 0 And lu8Y > 0 Then 
            i = 1
        End If
    Wend
    Call 移动(lu8X, lu8Y)
    Delay 100
    Delay 100
    LeftClick 1