Import window.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
qx=s(0)
qy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
dim ho,la,bh,bl,a,b,c,d,xa,ya,xb,yb,xc,yc,xd,yd,xe,ye,gj,m,n
UserVar gj=DropList{是|否}=否 人物是否使用技能攻击
UserVar ho=50 血量<hong%时,自动吃红。
UserVar la=50 蓝量<lan%时,自动吃蓝。
UserVar bh=50 BB血量<hong%时,自动吃红。
UserVar bl=50 BB蓝量<lan%时,自动吃蓝。
a=qx+120+((206-120)*ho)/100
b=qx+120+((206-120)*la)/100
c=qx+97+((182-97)*bh)/100
d=qx+97+((182-97)*bl)/100
Rem 开始
Rem 看红
Rem 看蓝
Plugin Window.Active(win)
Delay 32
//循环小延时,防止出现CPU使用率过高,脚本卡
VBSCall FindColorEx(120+qx,65+qy,206+qx,73+qy,"0c03ed",2,0.8,xa,ya)
Delay 32
VBSCall FindColorEx(120+qx,83+qy,206+qx,91+qy,"e41c00",2,0.9,xb,yb)
Delay 32
VBSCall FindColorEx(97+qx,127+qy,182+qx,134+qy,"0c03ed",2,0.8,xc,yc)
Delay 32
VBSCall FindColorEx(97+qx,144+qy,182+qx,151+qy,"e41c00",2,0.9,xd,yd)
Delay 32
Rem 人物加血
If xa<=a
IfColor 759,10,a27c00,0
//如果有小地图
MoveTo 60+qx,37+qy
Delay 500
KeyPress 112,1
Delay 500
LeftClick 1
Delay 2000
EndIf
Delay 32
IfColor 628+qx,305+qy,205086,2
//战斗图标
MoveTo 60+qx,37+qy
Delay 500
KeyPress 112,1
Delay 500
LeftClick 1
Delay 500
Rem 攻
Delay 500
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
EndIf
Delay 32
EndIf
Rem 人物加血结束
Delay 32
Rem 人物加蓝
If xb<=b
IfColor 759+qx,10+qy,a27c00,0
//如果有小地图
MoveTo 60+qx,37+qy
Delay 500
KeyPress 113,1
Delay 500
LeftClick 1
Delay 2000
EndIf
Delay 32
IfColor 628+qx,305+qy,205086,2
//战斗图标
MoveTo 60+qx,37+qy
Delay 500
KeyPress 113,1
Delay 500
LeftClick 1
Delay 1000
Rem 攻
Delay 500
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
EndIf
Delay 32
EndIf
Rem 人物加蓝结束
Delay 32
Rem bb加血
If xc<=c
IfColor 145+qx,125+qy,90909,0
//BB技能栏
IfColor 759+qx,10+qy,a27c00,0
//如果有小地图