//<"s":秒> <t1:时间变量> <now:当前系统日期和时间> <s(0):自定义时间变量> KeyPressH 50 1 //按键2 Delay 100 t(1)=now //重新定义时间变量 EndIf If DateDiff("s",t(2),now)>=s(1) KeyPressH 51 1 //按键3 Delay 100 t(2)=now EndIf If DateDiff("s",t(3),now)>=s(2) KeyPressH 112,1 //按键 F1 Delay 100 t(3)=now EndIf If DateDiff("s",t(4),now)>=s(3) KeyPressH 113 1 //按键F2 Delay 100 t(4)=now EndIf If DateDiff("s",t(5),now)>=s(4) KeyPressH 114 1 //按键F3 Delay 100 t(5)=now EndIf Return 时间技能 //******************************************************* // 复活并回到挂机点 //******************************************************* Sub 复活 Delay 10 t(10)=now //初始化 VBSCall FindPic(0,0,1023,767,"死亡回城.BMP",0.8,x2,y2) If x2>0 and y2>0 //检测死亡回城键 Delay 1000 MoveTo x2+45,y2+9 Delay 1000 LeftDoubleClick 1 Delay 5000 i=i+1 //复活次数累加 If i>=FH Goto 脚本结束 EndIf //------------------------ Gosub 挂机点 //跑回挂机点 EndIf Return 复活 Sub 挂机点 Delay 10 //------------------- Gosub 死亡检测 //------------------ VBSCall FindPic(x-32,y-29,x+167,y+189,"Attachment:\标记位置.BMP",0.9,x6,y6) If x6>0 and y6>0 Delay 10 MoveTo x6+4,y6+4 Delay 500 LeftClick 1 //打开标记位置 Delay 500 VBSCall FindPic(0,0,1023,767,"Attachment:\目标地点.BMP",0.8,x3,y3) If x3>0 and y3>0 //挂机点检测 MoveTo x3+28,y3-73 Delay 500 LeftClick 1 Delay 800 IfColor x3+28,y3-73,B49881,2 //判断有没有设置挂机点,如有则回到挂机点 Rem 跑路时间 MoveTo x3+28,y3-73 Delay 500 RightClick 2 Delay 500 IfColor 50/100*((x-616)-(x-733))+(x-733),y+11,color(0),2 //在跑回挂机点的过程中判断是否要加血 Delay 10 Else KeyPressH 53,1 //补红小红 Delay 200 IfColor 30/100*((x-616)-(x-733))+(x-733),y+11,color(0),2 //血少于30%检测 Delay 10 Else KeyPressH 118,1 //加大红保护 Delay 200 EndIf EndIf