Sign in to follow this  
Followers 0
BoB-

Anti-Recoil

5 posts in this topic

#include<GUIConstants.au3>
#include<Constants.au3>
#include<String.au3>

HotKeySet("{PgUp}", "ValueUp")
HotKeySet("{PgDn}", "ValueDown")
HotKeySet("{END}", "Exitt")
HotKeySet("{Home}", "CBChange")


If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 
$GUI = GuiCreate("Anti-Recoil - By BoB", 150, 250,(@DesktopWidth-500)/2, (@DesktopHeight-400)/2 , $WS_OVERLAPPED+$WS_CAPTION+$WS_SYSMENU+$WS_MINIMIZEBOX+$WS_VISIBLE+$WS_CLIPSIBLINGS)

; Misc
$lastcombo = IniRead("Anti-Recoil.ini", "Info", "$lastcombo", "Mouse1")
$lastspeed = IniRead("Anti-Recoil.ini", "Info", "$lastspeed", "0")
$lastvalue = IniRead("Anti-Recoil.ini", "Info", "$lastvalue", "1")
$grpvalue = GUICtrlCreateGroup("", 7, 45, 29, 25)
$grpspeed = GUICtrlCreateGroup("", 7, 90, 29, 25)


;Labels
$lblRecoilKey = GUICtrlCreateLabel("Recoil Key", 10, 125, -1, 15)
$lblvalue = GUICtrlCreateLabel($lastvalue, 10, 55, 20, 13)
$lblspeed = GUICtrlCreateLabel($lastspeed, 10, 100, -1, 13)
$lblvaluemsg = GUICtrlCreateLabel("How Far...", 10, 33, -1, 15)
$lblspeedmsg = GUICtrlCreateLabel("How Fast...", 10, 78, -1, 15)


;Buttons
$CB = GUICtrlCreateCheckbox("On", 10, 5)
$btnEditValue = GUICtrlCreateButton("Edit", 45, 48)
$btnEditSpeed = GUICtrlCreateButton("Edit", 45, 94)

;Menu
$menu1 = GUICtrlCreateMenu("Program")
$menuitemEdit = GUICtrlCreateMenuitem("Edit Value", $menu1)
$menuitemExit = GUICtrlCreateMenuitem("Exit", $menu1)

;Combo Menu
$combo = GUICtrlCreateCombo("Select Key...", 10, 140, 100)
$combo2 = GUICtrlSetData( -1, "Mouse1|Mouse2|Mouse3|Enter|Shift|Ctrl|Alt|End", $lastcombo) 

Func ValueUp()
    $lastvalue = IniRead("Anti-Recoil.ini", "Info", "$lastvalue", "1")
    If _IsPressed(21) = 0 Then Stop()
    $valueup = $lastvalue + 1
    IniWrite("Anti-Recoil.ini", "Info", "$lastvalue", "" & $valueup)
    $valueup1 = GUICtrlSetData($lblvalue, $valueup)
EndFunc

Func ValueDown()
    $lastvalue = IniRead("Anti-Recoil.ini", "Info", "$lastvalue", "1")
    If _IsPressed(22) = 0 Then Stop()
    $valuedown = $lastvalue - 1
    IniWrite("Anti-Recoil.ini", "Info", "$lastvalue", "" & $valuedown)
    $valueup1 = GUICtrlSetData($lblvalue, $valuedown)
EndFunc

Func Stop()
    Sleep(1)
EndFunc

Func Exitt()
    Exit
EndFunc

Func _IsPressed($hexKey) 
    Local $aR, $bO 
    $hexKey = '0x' & $hexKey 
    $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey) 
    If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then 
            $bO = 1 
        Else 
        $bO = 0
    EndIf
    Return $bO
EndFunc

Func AskValue()
    $value = InputBox("Enter Value", "Please enter a value between 1-999.")
    If $value>=1 And $value<=999 Then
        $value1 = GUICtrlSetData($lblvalue, $value)
        $writevalue = IniWrite("Anti-Recoil.ini", "Info", "$lastvalue", "" & $value)
    Elseif $value<=0 Or $value>=1000 Then
        msgbox(0, "Error", "Invalid input, please input a number between 1-999")
        $value = 1
    Elseif $value = "" Then
        msgbox(0, "Error", "Value was not entered, please input a number between 1-999")
        $value = 1
    EndIf
EndFunc

Func AskSpeed()
    $speed = InputBox("Enter Value", "Please enter a value between 0-10")
    If $speed>=0 And $speed<=10 Then
        $speed1 = GUICtrlSetData($lblspeed, $speed)
        $writespeed = IniWrite("Anti-Recoil.ini", "Info", "$lastspeed", "" & $speed)
    Elseif $speed<=-1 Or $speed>=10 Then
        msgbox(0, "Error", "Invalid input, please input a number between 0-10")
        $speed = 1
    Elseif $speed = "" Then
        msgbox(0, "Error", "Value was not entered, please input a number between 0-10")
        $speed = 1
    EndIf
EndFunc

Func CheckCombo()
    $key = GUICtrlRead($combo)
    If $key = "Mouse1" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "01")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Mouse1")
    Elseif $key = "Mouse2" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "02")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Mouse2")
    Elseif $key = "Ctrl" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "11")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Ctrl")
    Elseif $key = "Alt" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "12")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Alt")
    Elseif $key = "End" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "23")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "End")
    Elseif $key = "Shift" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "10")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Shift")
    Elseif $key = "Mouse3" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "04")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Mouse3")
    Elseif $key = "Enter" Then
        IniWrite("Anti-Recoil.ini", "Info", "$recoilkey", "0D")
        IniWrite("Anti-Recoil.ini", "Info", "$lastcombo", "Enter")
    EndIf
EndFunc

Func Recoil()
    WinSetState("Anti-Recoil", "", @SW_Hide)
    While 1
        $lastspeed = IniRead("Anti-Recoil.ini", "Info", "$lastspeed", "0")
        $recoilkey = IniRead("Anti-Recoil.ini", "Info", "$recoilkey", "01")
        $exitkey = Iniread("Anti-Recoil.ini", "Info", "$exitkey", "1B")
        $pos = MouseGetPos()
        $ypos = $pos[0]
        $xpos = $pos[1] + $lastvalue
        If _IsPressed($recoilkey) = 0 Then ProcessSetPriority("Anti-Recoil.exe", 2)
        If _IsPressed($recoilkey) = 0 Then ContinueLoop
            ProcessSetPriority("Anti-Recoil.exe", 3)
            $movemouse = MouseMove($ypos, $xpos, $lastspeed)
    Wend
EndFunc

Func CBCheck()
    $CheckCB = GUICtrlRead($CB)
    If $CheckCB = $GUI_CHECKED Then
        WinSetState("Anti-Recoil", "", @SW_Hide)
        Recoil()
    Elseif $CheckCB = $GUI_UNCHECKED Then
        Stop()
    EndIf
EndFunc

Func CBChange()
    $CheckCB1 = GUICtrlRead($CB)
    If $CheckCB1 = $GUI_CHECKED Then
        GUICtrlSetState($CB, $GUI_UNCHECKED)
        Program()
    ElseIf $CheckCB1 = $GUI_UNCHECKED Then
        GUICtrlSetState($CB, $GUI_CHECKED)
        Recoil()
    Endif
EndFunc

GuiSetState()

While 1
    $msg = GuiGetMsg()
    Select 
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $menuitemExit
        Exit
    Case $msg = $menuitemEdit
        AskValue()
    Case $msg = $btnEditValue
        AskValue()
    Case $msg = $btnEditSpeed
        AskSpeed()
    Case $msg = $CB
        CBCheck()
    Case $msg = $combo
        CheckCombo()
    Case $msg = $lblvalue
        GUICtrlSetData($lblvalue, $lastvalue)
    EndSelect
Wend

Func Program()
WinSetState("Anti-Recoil", "", @SW_SHOW)
GuiSetState()

While 1
    $msg = GuiGetMsg()
    Select 
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $menuitemExit
        Exit
    Case $msg = $menuitemEdit
        AskValue()
    Case $msg = $btnEditValue
        AskValue()
    Case $msg = $btnEditSpeed
        AskSpeed()
    Case $msg = $CB
        CBCheck()
    Case $msg = $combo
        CheckCombo()
    Case $msg = $lblvalue
        GUICtrlSetData($lblvalue, $lastvalue)
    EndSelect
Wend
EndFunc

This is just a small Anti-Recoil program I made awhile back. The point of it is to scrol your mouse down when shooting a weapon. It works good on games such as DoD (Day of Defeat), CS (Counter-Strike), and lots others.


Share this post


Link to post
Share on other sites




Once my friend told me that he had found Jesus. I thought to myself, "Woohoo, we're rich!" It turns out he meant something different.Sometimes I just like to lay in my bed and look up at the stars and wonder..where the hell did my roof go?

Share this post


Link to post
Share on other sites

if u dont know bob the builder then.... and ur in the cs script forum 2 draco i think

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

have you checked the CPU when running this thing :P , sometimes it takes 100% of cpu , but generally 50, how can you even play CS with that running, a script made with cs commands would be more ideal, i dont cheat but i like playing with anti recoil in non VAC servers sometimes, and CS was quite.. slow when i ran this

gotta fix that

edit: ok i dont have time to look over the whole script, but check ur function Recoil()

maybe im missing something but this (in the While loop):

If _IsPressed($recoilkey) = 0 Then ProcessSetPriority("Anti-Recoil.exe", 2)

If _IsPressed($recoilkey) = 0 Then ContinueLoop

doesnt make sense to me

and in the same function you have a ProcessSetPriority("Anti-Recoil.exe", 3) in the same loop but its not being executed under a specific condition, just as long as the loop is running .. not sure if thats good or what, and you should make a note you have to compile if you want it to set the priority to Anti-Recoil.exe

Edited by layer

FootbaG

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0