SHARE
TWEET

Untitled

a guest Mar 21st, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top