Advertisement
Guest User

Untitled

a guest
Mar 21st, 2019
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.24 KB | None | 0 0
  1. ;/ ----------------------------------------------------------------------------
  2. ; Script Version Version: 1.0
  3. ; Author: 4573216
  4. ; Script Function: QuakeLive Aim Automatronamaton
  5. ;/ ----------------------------------------------------------------------------
  6. #Persistent
  7. #KeyHistory, 0
  8. #NoEnv
  9. #HotKeyInterval 1
  10. #MaxHotkeysPerInterval 127
  11. #InstallKeybdHook
  12. #UseHook
  13. #SingleInstance, Force
  14. SetKeyDelay,-1, 8
  15. SetControlDelay, -1
  16. SetMouseDelay, -1
  17. SetWinDelay,-1
  18. SendMode, InputThenPlay
  19. SetBatchLines,-1
  20. ListLines, Off
  21. CoordMode, Pixel, Screen, RGB
  22. CoordMode, Mouse, Screen
  23. PID := DllCall("GetCurrentProcessId")
  24. Process, Priority, %PID%, Normal
  25.  
  26. ColVn := 0.1
  27. ZeroX := 960
  28. ZeroY := 540
  29. CFovX := 30
  30. CFovY := 30
  31. Mousegetpos, AimPixelX, AimPixelY
  32. ScanL := AimPixelX - CFovX
  33. ScanR := AimPixelX + CFovX
  34. ScanT := AimPixelY - CFovY
  35. ScanB := AimPixelY + CFovY
  36. Loop {
  37. GetKeyState, Mouse2, LButton, P
  38.  
  39. PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x443B32, ColVn, fast RGB ;beige
  40. if errorlevel = 0
  41. {
  42. GoSub GetAimOffset
  43. GoSub GetAimMoves
  44. GoSub MouseMoves
  45. }
  46. PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x413728, ColVn, fast RGB ;gign
  47. if errorlevel = 0
  48. {
  49. GoSub GetAimOffset
  50. GoSub GetAimMoves
  51. GoSub MouseMoves
  52. }
  53. PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x42392F, ColVn, fast RGB ;polizei
  54. if errorlevel = 0
  55. {
  56. GoSub GetAimOffset
  57. GoSub GetAimMoves
  58. GoSub MouseMoves
  59. }
  60. PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x2A2B34, ColVn, fast RGB ;sas
  61. if errorlevel = 0
  62. {
  63. GoSub GetAimOffset
  64. GoSub GetAimMoves
  65. GoSub MouseMoves
  66. }
  67. PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x0A0705, ColVn, fast RGB ;vert
  68. if errorlevel = 0
  69. {
  70. GoSub GetAimOffset
  71. GoSub GetAimMoves
  72. GoSub MouseMoves
  73. }
  74. }
  75. GetAimOffset:
  76. AimX := AimPixelX - ZeroX
  77. If ( AimX > 0 ) {
  78. DirX := 1
  79. }
  80. If ( AimX < 0 ) {
  81. DirX := -1
  82. }
  83. If ( AimY > 0 ) {
  84. DirY := 1
  85. }
  86. If ( AimY < 0 ) {
  87. DirY := 1
  88. }
  89. AimOffsetX := AimX * DirX
  90. Return
  91.  
  92. GetAimMoves:
  93. RootX := Ceil(( AimOffsetX ** ( 1 / 2 )))
  94. MoveX := RootX * DirX
  95. Return
  96.  
  97. MouseMoves:
  98. If ( Mouse2 == "D" ) {
  99. DllCall("mouse_event", uint, 1, int, MoveX, int, 0, uint, 0, int, 0)
  100. }
  101. Return
  102.  
  103. INS::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement