Goto 杀怪中
    EndIf 
    Gosub 捡东西
Return 
//**********************************
Sub 捡东西
    For 6
        KeyDown pick,1
        Delay 64
        KeyUp pick,2
        Delay 8
    EndFor 
Return 
//*****************************
Sub 定位
    //防卡信号
    i=1
    MoveTo 62,384
    Delay 128
    Rem 继续定位
    //拣东西
    For 2
        KeyDown pick,1
        Delay 64
        KeyUp pick,2
        Delay 8
    EndFor 
    VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
    If xx1>0
        xx=xx1-cox:yy=yy1-1-coy
        If abs(xx)>1 or abs(yy)>2
            If abs(yy)>1
                If yy>0
                    KeyDown 87,1
                ElseIf yy<0
                    KeyDown 83,1
                EndIf 
            EndIf 
            For 2
                KeyDown pick,1
                Delay 64
                KeyUp pick,2
                Delay 8
            EndFor 
            KeyDown pick,1
            Delay 64
            KeyUp pick,2
            Delay 320
            If abs(xx)>1
                If xx>0
                    KeyDown 65,1
                ElseIf xx<0
                    KeyDown 68,1
                EndIf 
            EndIf 
            For 3
                KeyDown pick,1
                Delay 64
                KeyUp pick,2
                Delay 192
            EndFor 
            KeyUp 65,2
            KeyUp 68,2
            KeyUp 83,2
            KeyUp 87,2
            //防卡住
            xx2=xx1:yy2=yy1
            VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
            If xx2=xx1 and yy2=yy1
                If i=1
                    If yy>0
                        KeyDown 87,1
                    ElseIf yy<0
                        KeyDown 83,1
                    EndIf 
                    If xx>0
                        KeyPress 68,2
                    ElseIf xx<0
                        KeyPress 65,2
                    EndIf 
                    For 2
                        KeyDown pick,1
                        Delay 64
                        KeyUp pick,2
                        Delay 192
                    EndFor 
                ElseIf i=2
                    If xx>0
                        KeyDown 65,1
                    ElseIf xx<0
                        KeyDown 68,1
                    EndIf 
                    If yy>0
                        KeyPress 83,1
                    ElseIf yy<0
                        KeyPress 87,1
                    EndIf 
                    For 2
                        KeyDown pick,1
                        Delay 64