Sub 打怪
Delay 10
t6=now
//初始化时间
Rem 怪没死
KeyPressH 49,1
Delay 100
//----------------------------------
Gosub 时间技能
Delay 10
Gosub 锁怪时间
Delay 10
Gosub 红蓝检测
Delay 10
Gosub 组队交易检测
//---------------------------------
VBSCall FindColorEx(x-539,y+33,x-331,y+43,color(2),1,0.6,x1,y1)
If x1>0 and y1>0
//怪没死
Goto 怪没死
Else
Gosub 捡起东西
EndIf
Return 打怪
//*******************************************
// 放时间技能
//********************************************
Sub 时间技能
Delay 10
If DateDiff("s",t1,now)>=sj(0)
//< DateDiff 函数:返回两个日期之间的时间间隔>
//<"s":秒> <t1:时间变量> <now:当前系统日期和时间> <s(0):自定义时间变量>
KeyPressH 50 1
//按键2
Delay 100
t1=now
EndIf
If DateDiff("s",t2,now)>=sj(1)
KeyPressH 51 1
//按键3
Delay 100
t2=now
EndIf
If DateDiff("s",t3,now)>=sj(2)
//< DateDiff 函数:返回两个日期之间的时间间隔>
//<"s":秒> <t1:时间变量> <now:当前系统日期和时间> <s(0):自定义时间变量>
KeyPressH 52,1
//按键 4
Delay 100
t3=now
//重新定义时间变量
EndIf
If DateDiff("s",t4,now)>=sj(3)
KeyPressH 53 1
//按键5
Delay 100
t4=now
EndIf
If DateDiff("s",t5,now)>=sj(4)
KeyPressH 189 1
//按键-
Delay 100
t5=now
EndIf
Return 时间技能
//********************************
// 锁怪6秒超时换怪判断
//********************************
Sub 锁怪时间
Delay 10
If DateDiff("s",t6,now)>=6
//< DateDiff 函数:返回两个日期之间的时间间隔>
//<"s":秒> <t1:时间变量> <now:当前系统日期和时间> <s(0):自定义时间变量>
Delay 8
t6=now
//重新定义时间变量
VBSCall FindColorEx(x-361,y+33,x-331,y+43,color(2),1,0.6,x1,y1)
If x1>0 and y1>0
//还没打到怪,太远或卡或是BOSS,重新找怪
KeyPressH 9,1
//锁定下一个怪
EndIf
EndIf
Return 锁怪时间
//****************************************
// 捡拾东西
//****************************************
Sub 捡起东西
KeyPressH 54 3
//捡起东西
Delay 50
KeyPressH 54 3
//捡起东西
Delay 50
Return 捡起东西
//******************************************
// 组队+复活+交易
//******************************************
Sub 复活
If FH=0