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
    Delay 100
    Goto zlks
End Sub
Sub zhandous
    FindPic 0,0,650,500,"Attachment:\fas.bmp",0.8,kdX,kdY
    If kdX > 0 And kdY > 0 Then 
        If kdx > 0 Then 
            Call zhandoucz
        Else 
            MessageBox "战斗窗口不正常"	
        End If
    End If
End Sub
Sub kaida
    FindPic 0,0,650,500,"Attachment:\kaida.bmp",0.8,kdX,kdY
    If kdX > 0 And kdY > 0 Then 
        Delay 100
        Call 移动(kdX,kdY)
        LeftClick 1
        Delay 100
    End If	
End Sub
Sub 关闭1
    FindPic 0,0,650,500,"Attachment:\x.bmp",0.9,xx1X,xx1Y
    If xx1X > 0 And xx1Y > 0 Then 
        Delay 100
        Call 移动(xx1X, xx1Y)
        Delay 100
        LeftClick 1
        Delay 100
    End If
End Sub
Sub 关闭
    FindPic 0,0,650,500,"Attachment:\x.bmp",0.8,xxX,xxY
    If xxX > 0 And xxY > 0 Then 
        Delay 100
        Call 移动(xxX, xxY)
        Delay 100
        LeftClick 1
        Delay 100
    End If
End Sub
Sub OnScriptExit()
    //释放用LoadBMP命令载入到内存中的图片数据
    Call Plugin.FindPicture5_04.FreeBMP(HandleArray)
End Sub
Sub ssi1
    FindPic 0,0,650,500,"Attachment:\ssi.bmp",0.6,ssi1X,ssi1Y
    If ssi1X > 0 And ssi1Y > 0 Then 
        Goto ssr
    End If
    Call 关闭1
    Goto meiyoussi
    Rem ssr
    Delay 200
    Call 移动(ssi1X+1,ssi1Y+28)
    Delay 200
    LeftClick 1
    Delay 200
    Call jinrzd
    Rem meiyoussi
End Sub
Sub ssi
    Delay 100
    For 3
        FindPic 0,0,650,500,"Attachment:\ssi.bmp",0.6,ssiX,ssiY
        If ssiX > 0 And ssiY > 0 Then 
            Goto ssrd
        End If
    Next
    Call 关闭
    Rem ssrd
    Delay 200