dim hong,hong1,hong2,lan
dim FH,Z,zu,n,a,f
dim color(3),sj(5)
dim t1,t2,t3,t4,t5,t6
a=0:f=0
t1=now:t2=now:t3=now:t4=now:t5=now
color(0)="00B00C":color(1)="D9B600":color(2)="1929B7"
//color(0):人物血颜色,color(1):为蓝颜色,color(2):怪血颜色
UserVar hong=70 血量<hong%时，自动吃红
UserVar hong1=50 血量<hong1%时,自动吃大红
UserVar hong2=20 血量<hong2%时,自动逃跑
UserVar lan=30 蓝量<lan%时，自动吃蓝
UserVar sj(0)=1 技能2间隔时间(秒)
UserVar sj(1)=2 技能3间隔时间(秒)
UserVar sj(2)=3 技能4间隔时间(秒)
UserVar sj(3)=4 技能5间隔时间(秒)
UserVar sj(4)=60 状态技能-间隔时间(秒)
UserVar n=5 复活n次后,脚本停止执行
UserVar Z=1 Z=1时自动走动,Z=0时不走动
UserVar FH=0 FH=0副本复活,FH=1野外复活
UserVar zu=0 zu=1同意组队,zu=0拒绝组队
//*******************************************
//       主程序
//*******************************************
VBSCall FindPic(798,0,1023,200,"Attachment:\奇迹定位点.bmp",0.6,x,y)
//定位,找到x,y坐标
While 1
    Rem 开始
    Delay 32
    Gosub 红蓝检测
    Delay 10
    Gosub 怪检测
    Delay 10
EndWhile 
//***************************************
Rem 结束脚本
EndScript 
//****************************************
//          怪检测
//****************************************
Sub 怪检测
    Delay 10
    VBSCall FindColorEx(x-539,y+33,x-331,y+43,color(2),1,0.6,x1,y1)
    If x1>0 and y1>0
        //找到怪,攻击
        a=0
        //再初始化
        Gosub 打怪
    Else 
        a=a+1
        KeyPressH 9,1
        Delay 10
        //-------------------
        Gosub 捡起东西
        //------------------
        If a>=5
            a=0
            //再初始化
            Gosub 移动和找怪
        EndIf 
    EndIf 
Return 怪检测
//****************************************
//          红蓝检测
//****************************************
Sub 红蓝检测
    IfColor hong/100*((x-676)-(x-885))+(x-885),y+11,color(0),2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的颜色值。
        Delay 10
    Else 
        Gosub 补红
    EndIf 
    //--------------------------------------
    IfColor lan/100*((x-676)-(x-885))+(x-885),y+23,color(1),2
        //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
        //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的颜色值。
        Delay 10
    Else 
        Gosub 补蓝
    EndIf 
    Delay 32
Return 红蓝检测
//****************************************
//          组队+复活+交易检测
//****************************************
Sub 复活检测
    IfColor 10/100*((x-676)-(x-885))+(x-885),y+11,color(0),2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的颜色值。
        Delay 10
    Else 
        Gosub 复活
    EndIf 
Return 复活检测
//----------------------------------------
Sub 组队交易检测
    IfColor x-400,y+294,110F10,0
        Gosub 组队交易
    EndIf