I pretty much used PVZ Hotkeys to learn AutoIt 3, and it’s really nice, and it turned me to AutoHotKeys, which is able to give me bunny hopping, and rapid pistol.

Anyway, here’s the link to the current project’s page: http://forums.steampowered.com/forums/showthread.php?t=927299

Here’s a better post. It also has 2 new buttons.

http://rapidshare.com/files/260881507/Plants_Vs._Zombies_Hotkeys_AutoIt__Gir489_.rar

Here’s my version. It works on my computer, and it disables mouse input, so slamming the mouse arround won’t effect the click event.

AutoItSetOption(“MouseCoordMode”, 0)
$registered = false
Dim $keys[10][2]

While 1
If WinActive(“Plants vs. Zombies”) Then
RegisterKeys()
Else
UnregisterKeys()
EndIf
Sleep(100)
WEnd

Func SelectPlant()
If WinActive(“Plants vs. Zombies”) Then
BlockInput(1)
$slot = @HotKeyPressed
$slot -= 1;
If $slot == -1 Then
$slot = 9
EndIf
BlockInput(1)
$currentPosition = MouseGetPos()
MouseClick(“primary”, $keys[$slot][0], $keys[$slot][1], 1, 0)
MouseMove($currentPosition[0], $currentPosition[1], 0)
BlockInput(0)
EndIf
EndFunc

Func RegisterKeys()
If NOT $registered Then
$i = 0
$x = 190
$y = 70
While $i < 10
$keys[$i][0] = $x
$keys[$i][1] = $y
HotKeySet($i, "SelectPlant")
$x += 80
$i += 1
WEnd
$registered = true
EndIf
EndFunc

Func UnregisterKeys()
If $registered Then
$i = 0
While $i < 10
HotKeySet($i);
$i += 1;
WEnd
$registered = false
EndIf
EndFunc