//↑红色(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