Delay 10

        Else 

            KeyPressS 115,1		//F4

            Delay 200

        EndIf 

    EndWhile 

Return 

//****************************************

//          捡物品线程

//****************************************

Sub ThreadGetThing

    Delay 2000

    While 1

        Delay 100

        VBSCall Call FindPic(0,110,1000,650,"Attachment:\物品箱1.bmp",0.8,x3,y3)

        If x3>=0 and y3>=0

            //有物品箱

            MoveToS x3,y3

            Delay 100

            RightClickS 1

        EndIf 

        Delay 100

        VBSCall Call FindPic(0,110,1000,650,"Attachment:\物品箱2.bmp",0.6,x03,y03)

        If x03>=0 and y03>=0

            //有物品箱

            MoveToS x03+20,y03+20

            Delay 100

            RightClickS 1

        EndIf 

        Delay 100

        VBSCall Call FindPic(0,110,1000,650,"Attachment:\物品箱.bmp",0.6,x003,y003)

        If x003>=0 and y003>=0

            //有物品箱

            MoveToS x003+20,y003+20

            Delay 100

            RightClickS 1

        EndIf 

    EndWhile 

Return 

//****************************************

//          怪检测

//****************************************

Sub 怪检测

    //找怪

    VBSCall Call FindPic(260,0,950,350,"Attachment:\定怪星.bmp",0.8,x2,y2)

    If x2>=0 and y2>=0

        //有怪

        IfColor x2+24, y2+4, color(2), 2

            //二星怪

            KeyPressH 192,1