sbwz=Split(XY,"|")
    x1=Clng(sbwz(0))+2: y1=Clng(sbwz(1))+11
    If x1>0 and y1>0 Then
        a=zx-x1
        b=zy-y1
        Goto OK
    End if
    mz=1
    MoveTo zzx ,zzy
    Delay 150
    Rem OK
    If htt=10 Then
        Goto NO
    End if
    If h=6 Then
        MoveTo 300 ,300
        Delay 500
        htt=htt+1
        h=0
        Goto py
    End if
    If mz=1 Then
        h=h+1
        Goto py
    Else
        If Abs(a)>n or Abs(b)>n Then
            MoveR a,b
            Delay 100
            h=h+1
            Goto py
        End if
    End if
    Rem NO
End Sub
//战斗子程序 会自动按且仅会按alt+a进行攻击 可以替换代码使用法术攻击
//战斗完毕后会判断人物血量 少于大约75%的时候自动打开背包使用背包的
//第一个位置的加血要（只会使用第一个位置的加血药 如果用完会导致脚本死循环 请暂停）
Sub 战斗()
    Rem dajia
    //寻找是否存在怪物的代码 请别按出最右边的人物菜单
    FindPic 0,0,1024,768,"Attachment:\dajia.bmp",0.9,djx,djy
    If djx > 0 And djy > 0 Then 
    //如果找到 则按alt+a 
        KeyDown 18, 1
        KeyPress 65, 1
        KeyUp 18, 1
        Delay 500
        KeyDown 18, 1
        KeyPress 65, 1
        KeyUp 18, 1
      //回到是否存在怪物的判断上
        Goto dajia
    End If
    Delay 500
    //如果怪物被打败 则会判断人物血量
    FindPic 0,0,1024,768,"Attachment:\zhandou.bmp",0.9,zdx,zdy
    If zdx > 0 And zdy > 0 Then 
        Goto dajia
    Else 
        Rem aaaa
        
        FindPic 0,0,1024,768,"Attachment:\xuetiao.bmp",0.9,cxx,cxy
        If cxx > 0 And cxy > 0 Then 
            gc=GetPixelColor(cxx+45,cxy)
            If gc = "8084A8" Then 
            //进行加血操作
                Call 鼠标移动(cxx-350,cxy+110)
                FindPic 0,0,1024,768,"Attachment:\djxn.bmp",0.9,djx,djy
                If djx > 0 And djy > 0 Then
                    call 鼠标移动(djx+59,djy+103)
                    Delay 500
                    RightClick 1
                    Delay 2000
                    KeyDown 18, 1
                    KeyPress 69, 1
                    KeyUp 18, 1
                    Delay 1000
                    //循环判断人物血量
                    Goto aaaa
                Else 
                    KeyDown 18, 1
                    KeyPress 69, 1
                    KeyUp 18, 1
                    Delay 2000
                    Goto aaaa
                End If
            End If
        End if
    End If
End Sub