//------------------------------------------------------------------------------
//-------------------------------- [ 声明变量 ] --------------------------------
//------------------------------------------------------------------------------
dim color(2)
dim ys,a,t1,t2,t3,i,key,x,y,mx,my
//----------------------------------------------------------------- [ 定义变量 ]
UserVar ys=1100 设置技能冷却时间
color(0)="00FFFF":color(1)="40BEC0":color(2)="8080 80"
t1=-1:t2=-1:t3=-1
key=115
//------------------------------------------------------------------------------
//-------------------------------- [ 主 程 序 ] --------------------------------
//------------------------------------------------------------------------------
Rem 『主程序』
i=0:a=0
Gosub 捡物
Delay 10
Gosub BUFF
Delay 10
//------------------------------------------------------------- [ 区域找怪颜色 ]
For 3
VBSCall FindCenterColor(10,80,1010,670,color(i),x,y)
//区域找怪名字颜色
If x>=10 and y>=80
s=0
VBSCall SetCursorPos(x+10,y+8)
Delay 100
Gosub 打怪
Else
a=a+1
If a>=3
//如果三种颜色都没找到
IfColor 21 671 000000 1
IfColor 1 686 000000 1
//如果聊天框没打开
KeyDownH 39 1
Delay 500
KeyUpH 39 1
//旋转屏幕
EndIf
EndIf
EndIf
EndIf
i=i+1
Delay 10
EndFor
Delay 50
Goto 『主程序』
//------------------------------------------------------------------------------
//-------------------------------- [ 子 程 序 ] --------------------------------
//----------------------------------------------------------- [ 自动打怪子程序 ]
Sub 打怪
VBSCall FindColorEx(x-60,y-30,x+60,y,"3737C5",0,0.6,mx,my)
//鼠标移到怪身上后 查找该区域是否出现怪血条颜色
VBSCall Shape=GetCursorShape(0)
//获取鼠标特征码
If mx>=0 and my>=0 or Shape=1439279395
Delay 50
LeftClick 1
EndIf
Delay 300
Rem run
IfColor 384 42 1E42EA 2
IfColor 384 44 0993FB 2
//如果怪血条存在
Delay 10
KeyPressH key 1
Delay 10
key=key-1
Gosub 捡物
If key<113
key=115
EndIf
Delay ys
Goto run
EndIf
EndIf
Return 打怪
//--------------------------------------------------------------- [ 捡物子程序 ]
Sub 捡物
For 5
KeyPressH 121 1
Delay 20
EndFor
Return 捡物
//----------------------------------------------------------- [ 辅助技能子程序 ]
Sub BUFF
If datediff("s",t1,now)>=110 or t1=-1
//以此为例 110是技能持续时间 可以自己修改
Delay 50
KeyPressH 118 1
Delay 2000
t1=now
EndIf
If datediff("s",t2,now)>=370 or t2=-1
Delay 50
KeyPressH 119 1
Delay 2000
t2=now
EndIf
If datediff("s",t3,now)>=290 or t3=-1
Delay 50
KeyPressH 120 1
Delay 2000
t3=now
EndIf
Return BUFF
__________________________________________________ ______________-
(auto+hp)
__________________________________________________ ______________
UserVar hp=70 设置自动补红百分比
hpx=int((229-58)/100*hp+58)
While true
IfColor hpx 46 4A4A4A 2
Delay 100
KeyPressH 53 1
EndIf
Delay 10
EndWhile
__________________________________________________ _______________
anyone can convert it into english version?????
im noob to use Qmacro
anyone can teach me ?????
1st script is for hunting
2nd is for auto hp
 |
