diablo3autoit

;use at your own risk
;desktop resolution 1360x768, ingame resolution 1280x768 and fullscreen windowed
;set active quest to act 4 quest 1 otherwise you may spawn in a different location

HotKeySet("{DELETE}","terminate")

Func terminate()
    MsgBox(0,"Done","Done")
    Exit 0
EndFunc

While 1
    WinActivate("Diablo III")

    $x_offset = 0;Random(-5,5)
    $y_offset = 0;Random(-5,5)

    If PixelGetColor(100,300) = 3540224 Then   ;character selection screen
        MouseClick("left",Random(65,265),Random(285,315),1,10)
    ElseIf PixelGetColor(430,750) = 6822669 Then   ;in game
        MouseClick("left",185 + $x_offset,230 + $y_offset,1,10)
        Sleep(Random(3000,5000))
        MouseClick("left",140 + $x_offset,350 + $y_offset,1,10)
        Sleep(Random(3000,5000))
        MouseClick("left",Random(617,622),Random(350,355),1,10)
        Sleep(Random(1500,2500))
        ;MouseClick("left",Random(745,750),Random(350,355),1,10)
        ;Sleep(Random(1500,2500))
        ;MouseClick("left",Random(617,622),Random(350,355),1,10)
        ;Sleep(Random(1500,2500))
        ;MouseClick("left",Random(745,750),Random(350,355),1,10)
        ;Sleep(Random(1500,2500))
        Send("{ESC}")
        Sleep(Random(750,1250))
        MouseClick("left",Random(570,790),Random(400,425),1,10)
    EndIf

    Sleep(Random(3000,5000))
Wend