Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement