VB.NET Weapon-based configuration

**illusionisten** · 03-24-2016

To be blunt, this is complete slave work and will get on your nerves once you have a lot of features so I thought maybe I should release you from some of the work.

Grabbing weapon ID's:

Code:

    Public Function GetLocalBase()
    Return ReadInteger(Client + Offsets.LocalPlayer)
    End Function

    Public Sub Weapons()
        While (Not Exit_thread)
            Dim hActiveWeapon = ReadInteger(GetLocalBase() + &H2EE8)
            Dim wepEntity = ReadInteger(Client + Offsets.EntityList + ((hActiveWeapon And &HFFF) - 1) * &H10)
            Dim wepIndex = ReadInteger(wepEntity + Offsets.iItemDefinitionIndex)
            Select Case wepIndex
                Case WeaponID.Glock
                    Config.LoadGlock()
                Case WeaponID.P2000
                    Config.LoadP2000()
                Case WeaponID.USP
                    Config.LoadUSP()
                Case WeaponID.P250
                    Config.LoadP250()
                Case WeaponID.FiveSeven
                    Config.LoadFiveSeven()
                Case WeaponID.Tec9
                    Config.LoadTec9()
                Case WeaponID.CZ75
                    Config.LoadCZ75()
                Case WeaponID.Deagle
                    Config.LoadDeagle()
                Case WeaponID.Duals
                    Config.LoadDuals()
                Case WeaponID.Nova
                    Config.LoadNova()
                Case WeaponID.SawedOff
                    Config.LoadSawedOff()
                Case WeaponID.Mag7
                    Config.LoadMag7()
                Case WeaponID.XM1014
                    Config.LoadXM1014()
                Case WeaponID.MP7
                    Config.LoadMP7()
                Case WeaponID.MP9
                    Config.LoadMP9()
                Case WeaponID.UMP45
                    Config.LoadUMP45()
                Case WeaponID.P90
                    Config.LoadP90()
                Case WeaponID.Bizon
                    Config.LoadBizon()
                Case WeaponID.MAC10
                    Config.LoadMAC10()
                Case WeaponID.M249
                    Config.LoadM249()
                Case WeaponID.Negev
                    Config.LoadNegev()
                Case WeaponID.Famas
                    Config.LoadFamas()
                Case WeaponID.Galil
                    Config.LoadGalil()
                Case WeaponID.AK47
                    Config.LoadAK47()
                Case WeaponID.M4A4
                    Config.LoadM4A4()
                Case WeaponID.M4A1S
                    Config.LoadM4A1S()
                Case WeaponID.Krieg
                    Config.LoadKrieg()
                Case WeaponID.Bullpup
                    Config.LoadBullpup()
                Case WeaponID.Scout
                    Config.LoadScout()
                Case WeaponID.AWP
                    Config.LoadAWP()
                Case WeaponID.SCAR20
                    Config.LoadSCAR20()
                Case WeaponID.G3SG1
                    Config.LoadG3SG1()
            End Select
            If WeaponID.isKnife(wepIndex) = True Then
                Config.LoadKnives()
            Else
                If WeaponID.isNade(wepIndex) = True Then
                    Config.LoadNades()
                End If
            End If
            Threading.Thread.Sleep(20)
        End While
    End Sub

Class storing weapon ID's:

Code:

Public Class WeaponID
    'Pistols
    Public Const Glock As Integer = 4
    Public Const USP As Integer = 61
    Public Const P2000 As Integer = 32
    Public Const P250 As Integer = 36
    Public Const FiveSeven As Integer = 3
    Public Const Tec9 As Integer = 30
    Public Const CZ75 As Integer = 63
    Public Const Deagle As Integer = 1
    Public Const Duals As Integer = 2

    'Heavy
    Public Const Nova As Integer = 35
    Public Const SawedOff As Integer = 29
    Public Const Mag7 As Integer = 27
    Public Const XM1014 As Integer = 25
    Public Const M249 As Integer = 14
    Public Const Negev As Integer = 28


    'SMG's
    Public Const MP9 As Integer = 34
    Public Const MAC10 As Integer = 17
    Public Const MP7 As Integer = 33
    Public Const Bizon As Integer = 26
    Public Const UMP45 As Integer = 24
    Public Const P90 As Integer = 19

    'Rifles
    Public Const Famas As Integer = 10
    Public Const Galil As Integer = 13
    Public Const AK47 As Integer = 7
    Public Const M4A4 As Integer = 16
    Public Const M4A1S As Integer = 60
    Public Const Krieg As Integer = 39
    Public Const Bullpup As Integer = 8

    'Snipers
    Public Const Scout As Integer = 40
    Public Const AWP As Integer = 9
    Public Const SCAR20 As Integer = 38
    Public Const G3SG1 As Integer = 11

    Public Structure Knifes
        Const Karambit As Integer = 507
        Const Knife As Integer = 59
        Const KnifeCT As Integer = 42
        Const Zeus As Integer = 31
        Const Butterfly As Integer = 515
        Const ShadowDaggers As Integer = 516
        Const Huntsman As Integer = 509
        Const FlipKnife As Integer = 505
        Const Bayonet As Integer = 500
        Const M9Knife As Integer = 508
        Const Falchion As Integer = 512
        Const GutKnife As Integer = 506
    End Structure

    Public Structure Nades
        Const Grenade As Integer = 44
        Const SmokeNade As Integer = 45
        Const Flash As Integer = 43
        Const Decoy As Integer = 47
        Const Molotov As Integer = 46
        Const Incendiary As Integer = 48
        Const C4 As Integer = 49
    End Structure

    Public Shared Function isNade(WepID As Integer)
        If WepID = Nades.Grenade Or WepID = Nades.SmokeNade Or WepID = Nades.Flash Or WepID = Nades.Incendiary Or WepID = Nades.Molotov Or WepID = Nades.Decoy Or WepID = Nades.C4 Then
            Return True
        End If
        Return Nothing
    End Function

    Public Shared Function isKnife(WepID As Integer)
        If WepID = Knifes.KnifeCT Or WepID = Knifes.Knife Or WepID = Knifes.Zeus Or WepID <= 500 Then
            Return True
        End If
        Return Nothing
    End Function

End Class

Class handling your config:

Code:

Public Class Config
'Store settings
'Example: Public Aimbot_Active As Boolean
'             Glock_Aim_Active As Boolean

Public Sub LoadConfig(ConfigPath As String)
'Load your settings with your method of storing them, I prefer .INI files
End Sub

Public Sub LoadGlock()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadP2000()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadUSP()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadP250()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadFiveSeven()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadTec9()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadCZ75()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadDeagle()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadDuals()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadNova()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadSawedOff()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadMag7()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadXM1014()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadM249()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadNegev()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadFamas()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadGalil()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadAK47()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadM4A4()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadM4A1S()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadScout()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadAWP()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadSCAR20()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadG3SG1()
'Example:
'Aimbot_Active = Glock_Aimbot_Active
End Sub

Public Sub LoadKnives()
'Example:
'Aimbot_Active = False
'KnifeBot_Active = Knives_KnifeBot_Active
End Sub

Public Sub LoadNades()
'Example:
'Aimbot_Active = False
End Sub

My INI file is at 500 lines atm so meh, I was merely doing this to pass time until I get motivated enough to finish this boring shit.