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)