Play Diablo3 with WASD! range benefit with kiting! : Diablo 3 Bots | Diablo 3 Hacks

What this is
###############This is the AutoIT version of the script and probably works good enough, while being easy to understand.Especially as a easy level AutoIT script.*So far tested on 1920×1080 window mode.
###############
HOWTO:
###############

1) Remove keybindings for W , A , S , D in your D3 Settings.

2) Bind Middle Mouse Button (MouseWheel Click) to “Movement” in your D3 Settings.

3) Enjoy WASD movement ingame.

*If something does not work, you can either adjust the values in the source yourself, or give feedback here. If something does not work, its most likely easy to fix it yourself in the sourcecode (as the script itself is easy level).

Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         TheOnlyOne

 Script Function:
   Play with WASD to move.

 Credits to http://code.google.com/p/diablo-iii-wasd/ for good alternate control ideas for d3

#ce ----------------------------------------------------------------------------

;~ #RequireAdmin

#include <Misc.au3>
_Singleton(@ScriptName)

OnAutoItExitRegister ( "_exit" )

AutoItSetOption ( "MouseCoordMode", 2)

Global $winTitle = "Diablo III"
Global $hWnd = WinGetHandle($winTitle)

Global $user32dll = DllOpen("user32.dll")

;~ HotKeySet("{ESC}", "_exit")
Func _exit()
   DllClose($user32dll)
   Exit 0
EndFunc

Global $up_key = 57 ;W
Global $left_key = 41 ;A
Global $down_key = 53 ;S
Global $right_key = 44 ;D

Global $up_pressed
Global $down_pressed
Global $left_pressed
Global $right_pressed

Global $doMove = false

Global $clientSize = WinGetClientSize($winTitle)
Global $Middle_Of_Win_X = $clientSize[0] / 2
Global $Middle_Of_Win_Y = $clientSize[1] / 2 - 32

Func _checkPressedKeys()
   $up_pressed = _IsPressed($up_key, $user32dll)
   $down_pressed = _IsPressed($down_key, $user32dll)
   $left_pressed = _IsPressed($left_key, $user32dll)
   $right_pressed = _IsPressed($right_key, $user32dll)

   if ($up_pressed OR $down_pressed OR $left_pressed OR $right_pressed) Then
      if ($doMove == false) Then
         $doMove = true
      EndIf
   Else
      if ($doMove == true) Then
         $doMove = false
      EndIf
   EndIf
EndFunc

Func _doMove()
   local $x = $Middle_Of_Win_X
   local $y = $Middle_Of_Win_Y

   if ($up_pressed) Then
      $y = $y -10
   EndIf
   if ($down_pressed) Then
      $y = $y +10
   EndIf

   if ($left_pressed) Then
      $x = $x -14
   EndIf
   if ($right_pressed) Then
      $x = $x +14
   EndIf

   ControlClick($winTitle, "", $hWnd, "middle", 1, $x, $y)

EndFunc

while WinExists($winTitle)

   if (WinActive($winTitle)) Then
      _checkPressedKeys()

      if ($doMove == true) Then
            _doMove()
      EndIf
   EndIf

WEnd