Anti-Recoil

BoB- · January 4, 2006

#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.

Snipz · January 4, 2006

I though I new you

http://vd.thedataprojects.net/forum/

BoB- · January 4, 2006

Yep .

camper · August 27, 2006

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

layer · August 27, 2006

have you checked the CPU when running this thing , 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 August 27, 2006 by layer

Sign In

Anti-Recoil

Recommended Posts

BoB-

Snipz

BoB-

camper

layer

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta