Dim Key, arrintCao, arrintx, lngIndex, pptx, ppty
Dim hwnd, strTitle, arrColor
arrintCao = Array(49, 50, 51, 52, 53, 81, 87, 69, 82, 84, 65)
arrintx = Array(113, 164, 215, 266, 317, 368, 419, 470, 521, 572, 623)
arrColor = Array("154B0A", "061555", "E5A92E", "BD5900", "1E3A0E", _
"B6A5A2", "185D10", "B9A8A5", "1C8407")
Rem start
Key = WaitKey
hwnd = Plugin.Window.MousePoint()
strTitle = Plugin.Window.GetText(hwnd)
If Not Left(strTitle, 6) = "植物大战僵尸" And Not LCase(Left(strTitle, 6)) _
= "plants" Then
'未到游戏画面
Goto start
End If
For lngIndex = 0 To UBound(arrColor)
IfColor 1, 1, arrColor(lngIndex), 0 Then
'未到开战画面
Goto start
End If
Next
pptx = Round(Plugin.Sys.GetScRX() / 800, 2)
ppty = Round(Plugin.Sys.GetScRY() / 600, 2)
For lngIndex = 0 To UBound(arrintCao)
If Key = arrintCao(lngIndex) Then
Call GetCursorPos(intx, inty)
Call Plugin.Bkgnd.LeftClick _
(hwnd, arrintx(lngIndex) * pptx, 40 * ppty)
Call Plugin.Bkgnd.LeftClick(hwnd, intx, inty)
Exit For
End If
Next
Goto start
植物大战僵尸
最新推荐文章于 2024-09-20 23:29:45 发布