Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;/ ----------------------------------------------------------------------------
- ; Script Version Version: 1.0
- ; Author: 4573216
- ; Script Function: QuakeLive Aim Automatronamaton
- ;/ ----------------------------------------------------------------------------
- #Persistent
- #KeyHistory, 0
- #NoEnv
- #HotKeyInterval 1
- #MaxHotkeysPerInterval 127
- #InstallKeybdHook
- #UseHook
- #SingleInstance, Force
- SetKeyDelay,-1, 8
- SetControlDelay, -1
- SetMouseDelay, -1
- SetWinDelay,-1
- SendMode, InputThenPlay
- SetBatchLines,-1
- ListLines, Off
- CoordMode, Pixel, Screen, RGB
- CoordMode, Mouse, Screen
- PID := DllCall("GetCurrentProcessId")
- Process, Priority, %PID%, Normal
- ColVn := 0.1
- ZeroX := 960
- ZeroY := 540
- CFovX := 30
- CFovY := 30
- Mousegetpos, AimPixelX, AimPixelY
- ScanL := AimPixelX - CFovX
- ScanR := AimPixelX + CFovX
- ScanT := AimPixelY - CFovY
- ScanB := AimPixelY + CFovY
- Loop {
- GetKeyState, Mouse2, LButton, P
- PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x443B32, ColVn, fast RGB ;beige
- if errorlevel = 0
- {
- GoSub GetAimOffset
- GoSub GetAimMoves
- GoSub MouseMoves
- }
- PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x413728, ColVn, fast RGB ;gign
- if errorlevel = 0
- {
- GoSub GetAimOffset
- GoSub GetAimMoves
- GoSub MouseMoves
- }
- PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x42392F, ColVn, fast RGB ;polizei
- if errorlevel = 0
- {
- GoSub GetAimOffset
- GoSub GetAimMoves
- GoSub MouseMoves
- }
- PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x2A2B34, ColVn, fast RGB ;sas
- if errorlevel = 0
- {
- GoSub GetAimOffset
- GoSub GetAimMoves
- GoSub MouseMoves
- }
- PixelSearch, AimPixelX, AimPixelY, ScanL, ScanT, ScanR, ScanB, 0x0A0705, ColVn, fast RGB ;vert
- if errorlevel = 0
- {
- GoSub GetAimOffset
- GoSub GetAimMoves
- GoSub MouseMoves
- }
- }
- GetAimOffset:
- AimX := AimPixelX - ZeroX
- If ( AimX > 0 ) {
- DirX := 1
- }
- If ( AimX < 0 ) {
- DirX := -1
- }
- If ( AimY > 0 ) {
- DirY := 1
- }
- If ( AimY < 0 ) {
- DirY := 1
- }
- AimOffsetX := AimX * DirX
- Return
- GetAimMoves:
- RootX := Ceil(( AimOffsetX ** ( 1 / 2 )))
- MoveX := RootX * DirX
- Return
- MouseMoves:
- If ( Mouse2 == "D" ) {
- DllCall("mouse_event", uint, 1, int, MoveX, int, 0, uint, 0, int, 0)
- }
- Return
- INS::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement