Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

PLVLZK - HOST

By: a guest on Jun 21st, 2012  |  syntax: AutoIt  |  size: 0.88 KB  |  hits: 25  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ;~ #include <GUIConstantsEx.au3>
  2. #include <WindowsConstants.au3>
  3.  
  4. HotKeySet("{END}", "Terminate")
  5. HotKeySet('{F2}', 'Pause')
  6.  
  7. Global $Paused
  8.  
  9. ;bot starts paused. press space to start.
  10. Pause()
  11.  
  12. While 1
  13.    If WinExists("Diablo III") Then
  14.           Sleep(1000)
  15.           ControlClick("Diablo III", "", "", "left", 1, 245, 417)
  16.           Sleep(5000)
  17.           ControlClick("Diablo III", "", "", "left", 1, 1250, 1025)
  18.           Sleep(1000)
  19.           ControlClick("Diablo III", "", "", "left", 1, 950, 580)
  20.           Sleep(1000)
  21.           ControlClick("Diablo III", "", "", "left", 1, 850, 630)
  22.           Sleep(2000)
  23.    Else
  24.           ToolTip('Diablo III pas lancé! Fermeture...', 0, 0)
  25.           Sleep(5000)
  26.           Exit 0
  27.    EndIf
  28. WEnd
  29.  
  30. Func Pause()
  31.         $Paused = Not $Paused
  32.         While $Paused
  33.                 Sleep(100)
  34.                 ToolTip('Paused... (Press F2 to run it)', 0, 0)
  35.         WEnd
  36.         ToolTip("")
  37.  EndFunc   ;==>Pause
  38.  
  39. Func Terminate()
  40.         Exit 0
  41. EndFunc   ;==>Terminate
create a new version of this paste RAW Paste Data