BeginThread "ThreadGetThing"

While 1

    Rem 开始

    Delay 100

    Gosub 怪检测

EndWhile 

//循环执行主程序

Rem 脚本结束

EndScript 

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

//   主程序结束

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

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

//          红蓝检测线程

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

Sub Threadcheckhonglan

    VBS dim xx,yy

    Delay 1000

    xx = GetEnvironmentVar("threadx")

    yy = GetEnvironmentVar("thready")

    VBSCall FindPic(0,0,1023,767,"Attachment:\宠物.bmp",0.8,x02,y02)

    Delay 500

    //取得宠物点(x02,y02)这个坐标点

    While 1

        Delay 100

        IfColor hong/100*((xx-567)-(xx-716))+(xx-716), yy-11, "110576", 2

            //人物血量少于hong%时,自动补血

            Delay 10

        Else 

            KeyPressS 112,1		//F1

            Delay 200

            IfColor hong1/100*((xx-567)-(xx-716))+(xx-716), yy-11, "110576", 2

                //人物血量少于hong1%时,自动补大血

                Delay 10

            Else 

                KeyPressS 113,1		//F2

                Delay 200

            EndIf 

        EndIf 

        //-------------------------------------------------------

        Delay 10

        IfColor lan/100*((xx-582)-(xx-716))+(xx-716), yy-4, "774008", 2

            //蓝少于lan%时,自动补蓝

            Delay 10

        Else 

            KeyPressS 114,1		//F3

            Delay 200

        EndIf 

        IfColor x02-58, y02+4, "100AF0", 2

            //宠物血少于50%时,自动补血