Sub 打普通BOSS
Call 异常判断()
Call Plugin.Bkgnd.KeyPress(hwnd, 123)
Delay 200
Call Plugin.Bkgnd.KeyPress(hwnd, 90)
Rem AA
Color0 = Plugin.Bkgnd.GetPixelColor(hwnd, 436, 61)
If Color0 = "D6D6D6" Then
Call 打怪()
Goto AA
End If
Call Plugin.Bkgnd.KeyPress(hwnd, 123)
Call 异常判断()
End Sub
Sub 打程远志判断
Call Plugin.Bkgnd.KeyPress(hwnd, 123)
Call Plugin.Bkgnd.KeyPress(hwnd, 90)
Delay 50
timeStart = Now
Rem A
Color0 = Plugin.BkgndColor.GetPixelColor(hwnd, 576, 30) //1638515
Color1 = Plugin.BkgndColor.GetPixelColor(hwnd, 436, 61) //14079702
diffADate0 = DateDiff("s", timeStart, Now)
If Color0 = 1638515 And diffADate0 > czyjzjh Then
Goto B
ElseIf Color1 = 14079702 Then
Call 打怪()
Goto A
ElseIf Color1 <> 14079702 Then
Delay 2000
Color2 = Plugin.BkgndColor.GetPixelColor(hwnd, 436, 61) //1638515
If Color2 = 14079702 Then
Goto A
ElseIf Color2 <> 14079702 Then
Goto B
End If
End If
Rem B
Call Plugin.Bkgnd.KeyPress(hwnd, 123)
Call 异常判断()
End Sub
Sub 打怪
If zhiye = 0 Then
Call 武将出招()
ElseIf zhiye = 1 Then
Call 刺客出招()
ElseIf zhiye = 2 Then
Call 谋士出招()
ElseIf zhiye = 3 Then
Call 方士出招()
End If
Delay 1500
Call 异常判断()
End Sub
Function 查找技能所在坐标(Flag, key)
intXJn0 = - 1
intYJn0 = - 1
If key = "000" Then
TracePrint "技能没使用"
ElseIf key = "1" Then
intXJn0 = 158
intYJn0 = 576
ElseIf key = "2" Then
intXJn0 = 192
intYJn0 = 576
ElseIf key = "3" Then
intXJn0 = 229
intYJn0 = 576
ElseIf key = "4" Then
intXJn0 = 256
intYJn0 = 576
ElseIf key = "5" Then
intXJn0 = 291
intYJn0 = 576
ElseIf key = "6" Then
intXJn0 = 326
intYJn0 = 576
ElseIf key = "7" Then
intXJn0 = 361
intYJn0 = 576
ElseIf key = "8" Then
intXJn0 = 396
intYJn0 = 576
ElseIf key = "9" Then
intXJn0 = 431
intYJn0 = 576
ElseIf key = "0" Then
intXJn0 = 474
intYJn0 = 576
ElseIf key = "11" Then
intXJn0 = 158
intYJn0 = 537
ElseIf key = "22" Then
intXJn0 = 192
intYJn0 = 537
ElseIf key = "33" Then