//↑红色(R)、绿色(G)、蓝色(B) Call Plugin.Color.ColorToHSL(hcolor, H, S, L) //↑色调(H)、饱和度(S)、亮度(L) If R > 100 and G>100 and B > 100 and S < 15 Then Goto 下一个 End If Delay 50 //↓测黑色 hcolor = GetPixelColor(Lx + 264, Ty + 35) Call Plugin.Color.ColorToRGB(hcolor, R, G, B) //↑红色(R)、绿色(G)、蓝色(B) Call Plugin.Color.ColorToHSL(hcolor, H, S, L) //↑色调(H)、饱和度(S)、亮度(L) If R < 13 and G<13 and B < 5 and S > 230 and L < 10 Then Goto 怪未死 Else Goto 下一个 End If Dim wrongn wrongn = 0 //↑记录测怪血条左端红色点失误次数 Rem 怪未死 If pkboss = 1 Then If DateDiff("s", tf1, now) >= sf1 Then KeyDown "Alt", 1 Delay 49 KeyPress "1", 1 Delay 51 KeyUp "Alt", 1 tf1=now Delay 100 End If Else If DateDiff("s", tf1, now) >= sf1 Then KeyPress "F1", 1 tf1=now Delay 100 End If End If Delay 100 If follow = 1 Then //↓如果follow=1,则启用近攻跟随,否则停用ALT1技能 If DateDiff("s", talt1, now) >= salt1 Then Dim tgsys tgsys = now Rem 反复跟 KeyDown "Alt", 1 Delay 49 KeyPress "1", 1 Delay 51 KeyUp "Alt", 1 talt1=now Delay 500 //↑近攻跟随移动过程中耗用时间(秒) If DateDiff("s", tgsys, now) <= gsys Then goto 反复跟 //↑gsys:近攻跟随移动过程中耗用时间(秒) End If End If End If Delay 100 If pkms = 0 Then //↑打怪模式,此处只用F1攻 Goto 辨别 End If If DateDiff("s", tf2, now) >= sf2 Then KeyPress "F2", 1 tf2=now Delay 100 End If Delay 100 If DateDiff("s", tf3, now) >= sf3 Then KeyPress "F3", 1 tf3=now Delay 100 End If Delay 100 If DateDiff("s", tf4, now) >= sf4 Then KeyPress "F4", 1 tf4=now Delay 100 End If Delay 100 If DateDiff("s", tf5, now) >= sf5 Then KeyPress "F5", 1 tf5=now Delay 100 End If Delay 100 If melee =1 Then //↑此处F6只用普通攻击技,不用大群 If DateDiff("s", tf6, now) >= sf6 Then KeyPress "F6", 1 tf6=now Delay 100 End If End If If melee = 2 Then //↑此处F6群攻技能(拖放) If DateDiff("s", tf6, now) >= sf6 Then