MoveTo shx-50 shy+27*2
        EndIf 
        If dian>(3+1/3)*2 and dian<=10
            MoveTo shx-50 shy+27*3
        EndIf 
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo zx-400 zy
        IfColor zx-663-53,zy-28-452,22ffff,1
            Delay 200
            m=m+1
        Else 
            Delay 200
            VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\hit.bmp",0.7,x,y)
            Delay 200
            If x>0 and y>0
                Goto 过神医结束
            Else 
                Delay 200
                KeyDown 18,1
                Delay 200
                KeyPress 87,1
                Delay 200
                KeyUp 18,1
                Delay 200
                Goto 过神医结束
            EndIf 
        EndIf 
    EndWhile 
    fight=1
    VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\hit.bmp",0.7,x,y)
    Delay 200
    If x>0 and y>0
        Delay 200
        KeyDown 18,1
        Delay 200
        KeyPress 87,1
        Delay 200
        KeyUp 18,1
        Delay 200
    EndIf 
    Delay 800
    KeyDown 18,1
    Delay 200
    KeyPress 82,1
    Delay 800
    KeyPress 82,1
    Delay 200
    KeyUp 18,1
    Delay 1000
    KeyDown 18,1
    Delay 200
    KeyPress 79,1
    Delay 200
    KeyUp 18,1
    Delay 800
    MoveTo zx-663+312,zy-28-215
    //选择角色按纽的坐标
    Delay 200
    LeftClick 1
    Rem 检测是否已进入角色选择界面
    Delay 200
    IfColor zx-663+303,zy-28-35,66ccee,2
        Delay 200
        IfColor zx-663+305,zy-28-34,55ccee,2
            Delay 500
            KeyPress 13,1
        EndIf 
    Else 
        Delay 200
        Goto 检测是否已进入角色选择界面
    EndIf 
    Rem 检测是否进入游戏
    IfColor zx-663+303,zy-28-35,66ccee,1
        Delay 800
        MoveTo zx-663+312,zy-28-210+100
        //选择角色按纽的坐标
    Else 
        Goto 检测是否进入游戏
    EndIf 
    Delay 800
    LeftClick 1
    Goto s
    Rem 过神医结束
    If fight=1
        fight=0
        Gosub 回挂机点
    EndIf 
Return 过神医
Sub 检测背包
    MoveTo zx zy
    Rem ckbb
    VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\物品.bmp",0.7,bx,by)
    If bx>0 and by>0
        MoveTo bx+17,by+42
        Delay 500
        LeftClick 1
        Delay 100
        IfColor bx+100,by+236,000000,1