植物大战僵尸

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