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-

Link to comment

Share on other sites

Snipz

Link to comment

Share on other sites

BoB-

Link to comment

Share on other sites

camper

Link to comment

Share on other sites

layer

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta