Advertisement
Guest User

Untitled

a guest
Jul 16th, 2019
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.79 KB | None | 0 0
  1. toggle := false
  2. #MaxThreadsPerHotkey 2
  3.  
  4. #IfWinActive, Diablo III
  5. {
  6. *`::
  7. toggle := !toggle
  8. if toggle {
  9. SetScrollLockState, on
  10. } else {
  11. SetScrollLockState, off
  12. }
  13. counterA:=0
  14. while toggle {
  15. if WinActive("Diablo III") {
  16. ;PixelGetColor, color, 955, 64
  17. ;if (color = "0x1F4C72" || color = "0x7B706B") ; 0x1F4C72=Yellows 0x7B706B=blues
  18. ;{
  19. ; Send *{RButton}
  20. ;}
  21.  
  22. PixelSearch, , , 1381, 931, 1381, 931, 0x53531A, 10, Fast ; If resource about like 90%?
  23. if (ErrorLevel = 0)
  24. {
  25. PixelSearch, , , 936, 34, 973, 34, 0xFF6969, 0, Fast ;0x793232 ;?0xFF6969
  26. if (ErrorLevel = 0)
  27. {
  28. Send *{RButton}
  29. }
  30. else
  31. {
  32. ErrorLevel:= 0
  33. PixelSearch, , , 935, 34, 973, 34, 0x00FFFF, 0, Fast ; YELLOW
  34. if !ErrorLevel
  35. Send *{RButton}
  36. }
  37. }
  38. ErrorLevel:= 0
  39. if (!GetKeyState("Space") && !GetKeyState("F1") && !GetKeyState("1") && !GetKeyState("RButton"))
  40. {
  41. if (counterA > 1)
  42. {
  43. ControlClick,x960 y509,Diablo III,,L,,pos ; Clicking Waypoint
  44. counterA := 0
  45. }
  46. else
  47. {
  48. ControlClick,x960 y507,Diablo III,,L,,pos ; Clicking Waypoint
  49. counterA := counterA+1
  50. }
  51. ;ControlClick,x960 y508,Diablo III,,L,,pos ; Clicking Waypoint
  52.  
  53. ;ControlClick,x959 y507,Diablo III,,,,pos ; Clicking Waypoint
  54. ;ControlClick,x961 y508,Diablo III,,,,pos ; Clicking Waypoint
  55. ;ControlClick,x960 y507,Diablo III,,,,pos ; Clicking Waypoint
  56. }
  57. Send {F3}
  58.  
  59. } else {
  60. toggle := !toggle
  61. SetScrollLockState, off
  62. }
  63. }
  64. return
  65.  
  66. }
  67.  
  68. RandomSleep(min, max) {
  69. Random, rand, min, max
  70. Sleep rand
  71. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement