LeftClick 1
    Call dianyi
End Sub
Sub dianyi
    Delay 100
    FindPic 0,0,650,500,"Attachment:\wms51.bmp",0.7,wz51X,wz51Y
    If wz51X > 0 And wz51Y > 0 Then 
        Goto womenswe
    End If
    Call dianyi
    Rem womenswe
    Delay 100
 
    Call 移动(wz51X+90, wz51Y+90)
    Delay 100
    LeftClick 1
    Delay 100  	
End Sub
Sub ditu
    Delay 300

    FindPic 0,0,650,500,"Attachment:\ditu.bmp",0.7,dituX,dituY
    If dituX > 0 And dituY > 0 Then 
        Goto dituk
    End If
    Call ckcl(d1ID,0,0)
    Delay 100
    KeyPress "Tab", 1
    Delay 200
    //   MessageBox "没找到"
    Delay 100
    Rem dituk
End Sub
Sub kais
    If jikai = "a" Then 
        Call 加血1
    ElseIf jikai = "b" Then
        Call 加血2
    ElseIf jikai = "c" Then
        Call 加血3  
    ElseIf jikai = "d" Then
        Call 加血4  
    ElseIf jikai = "e" Then
        Call 加血5
    End If
End Sub
Sub fenyao
    Delay 200
    Call ckcl(d1ID, 0, 0)
    Delay 200
    FindPic 0,0,650,500,"Attachment:\alg.bmp",0.8,algX,algY
    If algX > 0 And algY > 0 Then 
        Call zl
    End If
    Call feial	
End Sub
Sub feial
    Delay 100
    KeyDown "Alt", 1
    Delay 100
    KeyPress "E", 1
    Delay 100
    KeyUp "Alt", 1
    Delay 100
    FindPic 0,0,650,500,"Attachment:\fxf.bmp",0.8,fxfX,fxfY
    If fxfX > 0 And fxfY > 0 Then 
        Delay 100
        Call 移动(fxfX, fxfY)
        RightClick 1
        Delay 1000
        goto feis
    End If
    MessageBox "没有飞行符请确定后重新启动"
    EndScript
    Rem feis
    FindPic 0,0,650,500,"Attachment:\feial.bmp",0.8,feialX,feialY
    If feialX > 0 And feialY > 0 Then 
        Call 移动(feialX, feialY)
        Delay 100
        LeftClick 1
        Call zl
    End If
    Delay 100
    Goto feis 
End Sub
Sub chakan	
    For 3
        FindPic 0,0,650,500,"Attachment:\ssi.bmp",0.8,ssiX,ssiY
        If ssiX > 0 And ssiY > 0 Then 
            Delay 100
            goto dxx
        End If
    Next
    FindPic 0,0,650,500,"Attachment:\x.bmp",0.8,xxX,xxY
    If xxX > 0 And xxY > 0 Then 	
    End If
    Delay 100
    Call 移动(dtaX, dtaY)
    Delay 100
    LeftClick 1