Delay 100

    VBSCall FindPic(3,22,640,480,"c:\gujias\鼠标.bmp",0.7,x1,y1)

    If x1>0

        VBS at=zx-x1

        VBS bt=zy-y1

        If at>35 or at<-35

            If at>35

                at=35

            EndIf 

            If at<-35

                at=-35

            EndIf 

        EndIf 

        If bt>35 or bt<-35

            If bt>35

                bt=35

            EndIf 

            If bt<-35

                bt=-35

            EndIf 

        EndIf 

    EndIf 

    MoveR at,bt

    Delay 100

    For 2

        VBSCall FindPic(3,22,640,480,"c:\gujias\鼠标.bmp",0.7,x1,y1)

        If x1>0

            a1=zx-x1

            b1=zy-y1

            MoveR a1,b1

            Delay 80

        EndIf 

    EndFor 

Return 天鼠1

Sub 坐标

    Plugin zhix1=Maple.ElmChar(Chars,1,0,39,88,7,9,0,&hf8fcf8,&h282828)

    Plugin zhix2=Maple.ElmChar(Chars,1,0,39+7,88,7,9,0,&hf8fcf8,&h282828)

    Plugin zhix3=Maple.ElmChar(Chars,1,0,39+14,88,7,9,0,&hf8fcf8,&h282828)

    gx=zhix1&zhix2&zhix3

    If gx<=0

        Plugin zhix1=Maple.ElmChar(Chars_s,1,0,41,88,7,9,0,&hf8fcf8,&h282828)

        Plugin zhix2=Maple.ElmChar(Chars_s,1,0,41+8,88,7,9,0,&hf8fcf8,&h282828)

        Plugin zhix3=Maple.ElmChar(Chars_s,1,0,41+16,88,7,9,0,&hf8fcf8,&h282828)

        gx=zhix1&zhix2&zhix3

    EndIf 

    Plugin zhiy1=Maple.ElmChar(Chars,1,0,80,88,7,9,0,&hf8fcf8,&h282828)

    Plugin zhiy2=Maple.ElmChar(Chars,1,0,80+7,88,7,9,0,&hf8fcf8,&h282828)

    Plugin zhiy3=Maple.ElmChar(Chars,1,0,80+14,88,7,9,0,&hf8fcf8,&h282828)

    gy=zhiy1&zhiy2&zhiy3

    If gy<=0