UserVar xnc=28558112 设置血内存的位置
UserVar lnc=28558116 设置蓝内存的位置
UserVar ync=11732876 设置御灵血内存的位置
UserVar gnc=451453868  设置怪血内存的位置
UserVar bxz=1500 设置人物补血的下限
UserVar blz=2000 设置人物补蓝的下限
UserVar yxz=2500 设置御灵补血的下限
Dim xz,ys,gxh
gxh=1000
Plugin xj=Window.Foreground()
Plugin Window.Active(xj)
Plugin xj=Window.GetKeyFocusWnd()
Delay 300
KeyPressS 117,1
Delay 2000
KeyPressS 118,1
Delay 3500
KeyPressS 119,1
Delay 2000
t1=now
t2=now
t3=now
While true
    //条件无限循环
    Rem 战斗结束
    Delay 1000
    Gosub 补红补篮
    Gosub 辅助技能
    Gosub 战斗
EndWhile 
Sub 补红补篮
    Rem 检测红蓝
    Plugin xz=Memory.Read16Bit(xj,xnc)
    Plugin lz=Memory.Read16Bit(xj,lnc)
    Plugin yz=Memory.Read16Bit(xj,11732876)
    If xz<2000
        Plugin Bkgnd.LeftClick(xj,370,685)
    EndIf 
    If lz<2000
        Plugin Bkgnd.LeftClick(xj,405,685)
    EndIf 
    If xz<1500
        Plugin Bkgnd.LeftClick(xj,475,685)
    EndIf 
    If lz<1000
        Plugin Bkgnd.LeftClick(xj,510,685)
    EndIf 
    If yz<2500
        Plugin Bkgnd.LeftClick(xj,442,685)
    EndIf 
Return 补红补篮
Sub 战斗
    Delay 1000
    Plugin Bkgnd.LeftClick(xj,660,720)
    Delay 500
    Plugin gx=Memory.Read16Bit(xj,451453868)
    If gx>0
        If yz>2500
            Plugin Bkgnd.LeftClick(xj,515,720)
            Delay 50
        Else 
            Plugin Bkgnd.LeftClick(xj,442,685)
        EndIf 
        Plugin Bkgnd.LeftClick(xj,370,720)
        Delay 3000
        Plugin Bkgnd.LeftClick(xj,440,720)
        Delay 1000
        Rem 继续战斗
        Plugin Bkgnd.LeftClick(xj,405,720)
        Delay 2000
        Gosub 补红补篮
        Gosub 判断怪死活
        Plugin Bkgnd.LeftClick(xj,405,720)
        Delay 2000
        Gosub 补红补篮
        Gosub 判断怪死活
        Plugin Bkgnd.LeftClick(xj,440,720)
        Delay 1000
        Gosub 补红补篮
        Gosub 判断怪死活
        IfColor 720,33,2a3a47,2
            Goto 继续战斗
        EndIf 
    EndIf 
Return 战斗
Sub 辅助技能
    If DateDiff("s",t1,now)>=30
        //< DateDiff 函数：返回两个日期之间的时间间隔>
        //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
        Delay 10
        Plugin Bkgnd.LeftClick(xj,622,681)
        //按键 变量k(0) 1次
        Delay 1000
        t1=now
        Delay 1500
        //重新赋值日期时间到变量
    EndIf 
    If DateDiff("s",t2,now)>=1800
        Delay 10
        Plugin Bkgnd.LeftClick(xj,550,684)