Guest User

Untitled

a guest
Dec 16th, 2015
162
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.38 KB | None | 0 0
  1. Global $Paused
  2. Global $Stop
  3.  
  4. HotKeySet('{PAUSE}', 'HotKeyPressed')
  5.  
  6. Func HotKeyPressed()
  7. Switch @HotKeyPressed
  8. Case "{PAUSE}"
  9. $Stop = Not $Stop
  10. For $i = 0 To 9 Step 1
  11. HotKeySet($i)
  12. Next
  13. HotKeySet('-')
  14. HotKeySet('=')
  15. While $Stop
  16. Sleep(1000)
  17. WEnd
  18. For $i = 0 To 9 Step 1
  19. HotKeySet($i, 'HotKeyPressed')
  20. Next
  21. HotKeySet('-', 'HotKeyPressed')
  22. HotKeySet('=', 'HotKeyPressed')
  23.  
  24. Case "{ESC}"
  25. Exit
  26.  
  27. Case "1"
  28. _click(1180, 470)
  29. Case "2"
  30. _click(1280, 470)
  31. Case "3"
  32. _click(1180, 555)
  33. Case "4"
  34. _click(1280, 555)
  35. Case "5"
  36. _click(1230, 640)
  37. Case "6"
  38. _click(1530, 470)
  39. Case "7"
  40. _click(1630, 470)
  41. Case "8"
  42. _click(1530, 555)
  43. Case "9"
  44. _click(1630, 555)
  45. Case "0"
  46. _click(1580, 640)
  47. Case "-"
  48. _just_click('left', 1350, 520)
  49. Case "="
  50. _just_click('right', 800, 400)
  51. EndSwitch
  52. EndFunc
  53.  
  54. Func _click($x, $y)
  55. Opt("MouseClickDelay", 0)
  56. $Paused = Not $Paused
  57. While $Paused
  58. MouseClick('left', $x, $y, 2, 0)
  59. MouseClick('left', 1460, 750, 2, 0)
  60. WEnd
  61. EndFunc
  62.  
  63. Func _just_click($button, $x, $y)
  64. Opt("MouseClickDelay", 0)
  65. $Paused = Not $Paused
  66. While $Paused
  67. MouseClick($button, $x, $y, 2, 0)
  68. WEnd
  69. EndFunc
  70.  
  71. While 1
  72. Sleep(1000)
  73. WEnd
Advertisement
Add Comment
Please, Sign In to add comment