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

//    定义和初始化变量

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

VBS dim hong,hong1,lan

//定义数组

VBS dim sj(8),s(8),color(3)

//color(0):人物血颜色,color(1):为蓝颜色,color(2):怪血颜色

VBS color(0)="110576":color(1)="774008":color(2)="2E7FA7"

UserVar hong=60 红量<hong%时，自动吃小红

UserVar hong1=30 红量<hong1%时，自动吃大红

UserVar lan=20 蓝量<lan%时，自动吃蓝

//初始化技能时间

VBS dim i,m,r,t1,t2,t3,t4,t5,katime,katime2

VBS i=0:m=0:r=0

VBS t1=now:t2=now:t3=now:t4=now:t5=now:katime=now:katime2=now

UserVar sj(0)=2 技能1间隔时间(秒)

Gosub [判断时间]

UserVar sj(1)=2 技能2间隔时间(秒)

Gosub [判断时间]

UserVar sj(2)=3 技能3间隔时间(秒)

Gosub [判断时间]

UserVar sj(3)=5 技能4间隔时间(秒)

Gosub [判断时间]

UserVar sj(4)=5 技能5间隔时间(秒)

Gosub [判断时间]

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

//    主程序开始

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

PutAttachment .\plugin *.dll

Plugin hwnd = Window.Foreground()

Plugin Window.Move(hwnd, 0, 0)

//6.30版之后支持从.附件中直接读图片信息找图，不需要再释放到硬盘上

VBSCall FindPic(0,0,1023,767,"Attachment:\NN.bmp",0.8,x01,y01)

If x01>=0 and y01>=0

    //复位方向

    MoveToS x01+11,y01+10

    Delay 100

    LeftClickS 2

EndIf 

Delay 500

VBSCall FindPic(0,0,1023,767,"Attachment:\定位点.bmp",0.8,x,y)

Delay 300

//取得定位点(x,y)这个坐标点

SetEnvironmentVar "threadx",CStr(x)

SetEnvironmentVar "thready",CStr(y)

//同步标志

SetEnvironmentVar "KeyFlg","0"

//红蓝检测线程

BeginThread "Threadcheckhonglan"

//捡物品线程