dim hong,hong1,lan,N,H,a,b
dim sj(8),s(8),color(3),t(15)
//定义数组
dim i,m,r,j,FH,BJ
i=0:m=0:r=0:j=1
Gosub 初始化时间
//初始化时间
color(0)="0000F8":color(1)="D56D22":color(2)="0505F8"
//color(0):人物血颜色,color(1):为蓝颜色,color(2):怪血颜色
UserVar hong=60 红量<hong%时，自动吃小红
UserVar hong1=35 红量<hong1%时，自动吃大红
UserVar lan=20 蓝量<lan%时，自动吃蓝
UserVar sj(0)=2 技能2间隔时间(秒)
Gosub [判断时间]
UserVar sj(1)=2 技能3间隔时间(秒)
Gosub [判断时间]
UserVar sj(2)=5 技能F１间隔时间(秒)
Gosub [判断时间]
UserVar sj(3)=6 技能F２间隔时间(秒)
Gosub [判断时间]
UserVar sj(4)=1200 技能F３间隔时间(秒)
Gosub [判断时间]
UserVar H=1 H=1开启少血打坐功能,H=0不开启
UserVar FH=3 复活第FH次数后挂机脚本停止运行
UserVar BJ=25 挂机半径设置(值为:0--40,为0时关闭这功能)
//******************************************
//    主程序开始
//******************************************
PutAttachment \script
VBSCall FindPic(0,0,1023,767,"Attachment:\定位点.BMP",0.8,x,y)
Delay 500
//取得定位点(x,y)这个坐标点
Gosub 放大地图
Delay 10
Gosub 挂机点
Delay 10
While 1
    Rem 开始
    Delay 32
    //------------------------------------------
    Gosub 死亡检测
    Delay 10
    Gosub 红蓝检测
    Delay 10
    Gosub 怪检测
    //------------------------------------------
EndWhile 
//循环执行主程序
//---------------------------------------------　[复活次数过多,结束脚本]
Rem 脚本结束
//MessageBox 复活次数超过FH次,脚本停止运行
EndScript 
//***********************************************
//   主程序结束
//***********************************************
Sub 死亡检测
    IfColor 3/100*((x-616)-(x-733))+(x-733),y+11,color(0),2
        //人物最低血量检测
        Delay 10
    Else 
        Gosub 复活
    EndIf 
EndIf 
Return 死亡检测
//***********************************************
Sub 状态技能检测
    Delay 10
    If DateDiff("s",t(7),now)>=10
        t(7)=now
        //初始化时间量
        IfColor x-35,y-3,54BAFF,2
            //检测这个技能有没有放
            Delay 10
        Else 
            KeyPressH 114,1
            //放状态技能
            Delay 1000
        EndIf 
    EndIf 
Return 状态技能检测
//****************************************
//          红蓝检测
//****************************************
Sub 红蓝检测
    Delay 10
    IfColor hong/100*((x-616)-(x-733))+(x-733),y+11,color(0),2
        //人物血量少于hong%时,自动补血
        Delay 10
    Else 
        Gosub 补红打坐
    EndIf 
    //-------------------------------------------------------
    Delay 10
    IfColor lan/100*((x-616)-(x-733))+(x-733),y+29,color(1),2
        //蓝少于lan%时,自动补蓝
        Delay 10
    Else 
        Gosub 补蓝
    EndIf 
Return 红蓝检测