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.