QuickSilver Script Source Code - GTA IV

'http://gtabkmodding.blogspot.in/
'https://www.facebook.com/GTABKModding
'https://www.youtube.com/c/BKModdingForGTA

'QuickSilver script by GTA BK Modding

'Scripting, Ideas and Testing By
'GTA BK Modding(Me) :)

'QuickSilver Model By
'Sweet3d (http://gtaivpedworkshop.blogspot.in/)

'QuickSilver Retexture By
'Fanta Vy (https://www.youtube.com/channel/UCRTcjRrUodFz93c4QezDN5A)

'Requested By
'GTA Daman and Diu Stories (https://www.facebook.com/GTADDS)

'Note: I grouped all the declared variables so it may be easy for the reader to understand
'This was a complex code and i made it as simple as possible ;)

'Thanks Rockstar for this amazing game

Imports System
Imports GTA
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Collections.Generic
Imports System.IO
'Imports SlimDX.XInput
Imports System.Text

Public Class QuickSilver
    Inherits Script
    'Booleans
    Public QuickSilverOn As Boolean = False
    Public QuickSilverEnemy As Boolean = False
    Private EffectsEnabled As Boolean = False
    Private EnemyEnableWeapons As Boolean = False
    Public UseQuickSilverModel As Boolean = False
    Public DecisionTaken As Boolean = False
    Public TimeScaleOn As Boolean = False
    Public TimeScaleZero As Boolean = False
    Public EnemyTimeScale As Boolean = False
    'End Booleans
    'Generals
    Private iniFile As String
    Private QuickSilver As Int32
    Private Speed As Int32
    Private bTimeScale As Int32
    Private bTimeScaleIncrease As Int32
    Private bTimeScaleDecrease As Int32
    Private EnemySpawnKey As Int32
    Private Group As Group = Player.Group
    Shared TRandom As Random = New Random(System.DateTime.Now.Millisecond)
    Shared TRandom2 As Random = New Random(System.DateTime.Now.Second)
    Public TimeAux As Date
    Private EffectsID As Int32
    Dim rndAnim As New Random()
    'End Generals
    'Peds
    Public PedModel As Model = "m_y_cowboy_01"
    Public allyPed As Ped = Nothing
    Public enemyPed As Ped = Nothing
    'End Peds
    'Doubles
    Private TimeScale As Double
    Private PlayerSpeedValue As Double
    Private EnemySpeedValue As Double
    Private timeWaitSearchTargets As Double = 0
    Private targetAuxRoll As Double = 0
    Private Decide As Double = 0
    Private Decide2 As Double = 0
    'End Doubles
    'Vector3s
    Private RunDir As Vector3
    Private enemyForce As Vector3
    Private tmpPos As Vector3
    Private EnemyKickForce As Vector3
    'End Vector3s

    Public Sub New()
        Me.Interval = 10
        Native.Function.Call("REQUEST_MODEL", 3721179013)
        Native.Function.Call("REQUEST_MODEL", 1862763509)
        If Settings.GetValueString("QuickSilverKey", "Main") = "" Then Settings.SetValue("QuickSilverKey", "Main", Keys.M)
        If Settings.GetValueString("UseQuickSilverModel", "Main", "") = "" Then Settings.SetValue("UseQuickSilverModel", "Main", "1")
        If Settings.GetValueString("EnemySpawnKey", "Main", "") = "" Then Settings.SetValue("EnemySpawnKey", "Main", Keys.PageDown)
        If Settings.GetValueString("Speed", "General", "") = "" Then Settings.SetValue("Speed", "General", 8)
        If Settings.GetValueString("bTimeScale", "General", "") = "" Then Settings.SetValue("bTimeScale", "General", Keys.R)
        If Settings.GetValueString("bTimeScaleIncrease", "General", "") = "" Then Settings.SetValue("bTimeScaleIncrease", "General", Keys.E)
        If Settings.GetValueString("bTimeScaleDecrease", "General", "") = "" Then Settings.SetValue("bTimeScaleDecrease", "General", Keys.Q)
        If Settings.GetValueString("EffectsEnabled", "General", "") = "" Then Settings.SetValue("EffectsEnabled", "General", "1")
        If Settings.GetValueString("EnemyEnableWeapons", "General", "") = "" Then Settings.SetValue("EnemyEnableWeapons", "General", "1")
        Settings.Save()
        QuickSilver = Settings.GetValueKey("QuickSilverKey", "Main", Keys.M)
        UseQuickSilverModel = Settings.GetValueKey("UseQuickSilverModel", "Main", "1") = "1"
        EnemySpawnKey = Settings.GetValueKey("EnemySpawnKey", "Main", Keys.PageDown)
        Speed = Settings.GetValueKey("Speed", "General", 8)
        bTimeScale = Settings.GetValueKey("bTimeScale", "General", Keys.R)
        bTimeScaleIncrease = Settings.GetValueKey("bTimeScaleIncrease", "General", Keys.E)
        bTimeScaleDecrease = Settings.GetValueKey("bTimeScaleDecrease", "General", Keys.Q)
        EffectsEnabled = Settings.GetValueString("EffectsEnabled", "General", "1") = "1"
        EnemyEnableWeapons = Settings.GetValueString("EnemyEnableWeapons", "General", "1") = "1"
        TimeScale = 0.2
        EnemySpeedValue = 1.75F
    End Sub

    Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        If e.Key = QuickSilver Then
            QuickSilverOn = Not QuickSilverOn
            If QuickSilverOn Then
                If UseQuickSilverModel Then
                    Player.Model = New Model("m_y_cowboy_01")
                End If
                Player.NeverGetsTired = True
                Native.Function.Call("SET_CHAR_DEFAULT_COMPONENT_VARIATION", Player.Character, True)
                msg("Quicksilver!!!", 2000)
            Else
                If UseQuickSilverModel Then
                    Player.Model = New Model("m_y_cowboy_01")
                End If
                Player.Character.Task.ClearAllImmediately()
                Player.NeverGetsTired = False
                Native.Function.Call("SET_CHAR_DEFAULT_COMPONENT_VARIATION", Player.Character, True)
                Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", Player.Character, 1.0)
                Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", Player.Character, 1.0)
                Native.Function.Call("Set_Char_Climb_Anim_Rate", Player.Character, 1.0)
                Game.TimeScale = 1.0
                TimeScale = Nothing
                msg("Niko!!!", 2000)
            End If
        End If
        If e.Key = EnemySpawnKey Then
            QuickSilverEnemy = Not QuickSilverEnemy
            If QuickSilverEnemy Then
                EnemyEvent()
            End If
        End If
        If QuickSilverOn Then
            If e.Key = bTimeScale Then
                TimeScaleOn = Not TimeScaleOn
            End If
        End If
    End Sub

    Private Sub EnemyEvent()
        If QuickSilverEnemy Then
            msg("Creating New enemy", 2000)
            tmpPos = World.GetNextPositionOnPavement(Player.Character.Position.Around(50))
            If tmpPos.DistanceTo(Player.Character.Position) > 50 Then tmpPos = Player.Character.Position.Around(50)
            If Exists(enemyPed) Then enemyPed.Delete()
            Wait(100)
            enemyPed = World.CreatePed(PedModel, tmpPos.ToGround)
            If Exists(enemyPed) Then
                enemyPed.AttachBlip()
                enemyPed.AttachBlip.Color = BlipColor.Cyan
                enemyPed.BecomeMissionCharacter()
                enemyPed.CurrentRoom = Player.Character.CurrentRoom
                enemyPed.SetPathfinding(True, True, True)
                enemyPed.AlwaysDiesOnLowHealth = False
                enemyPed.Enemy = True
                enemyPed.WillDoDrivebys = True
                enemyPed.PriorityTargetForEnemies = True
                enemyPed.CanSwitchWeapons = True
                enemyPed.DuckWhenAimedAtByGroupMember = True
                enemyPed.WillFlyThroughWindscreen = True
                enemyPed.Accuracy = 100
                enemyPed.StartKillingSpree(alsoAttackPlayer:=True)
                enemyPed.Task.FightAgainst(Player.Character)
                enemyPed.MaxHealth = 18000
                enemyPed.Armor = 18000
                enemyPed.Health = 18000
                enemyPed.MakeProofTo(False, True, False, False, False)
                If Not EnemyEnableWeapons Then
                    enemyPed.Weapons.RemoveAll()
                Else
                    enemyPed.Weapons.MP5.Ammo = 300
                    enemyPed.Weapons.MP5.Select()
                    If enemyPed.Weapons.MP5.Ammo = 0 Then
                        enemyPed.Weapons.RocketLauncher.Ammo = 50
                        enemyPed.Weapons.Grenades.Ammo = 50
                        enemyPed.Weapons.AssaultRifle_M4.Ammo = 600
                        enemyPed.Weapons.DesertEagle.Ammo = 1500
                        enemyPed.Weapons.BarettaShotgun.Ammo = 80
                    End If
                End If
            End If
        End If
    End Sub

    Shadows Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
    End Sub

    Public Sub Effects(ByVal EffectsPed As Ped)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.Spine, 0.25)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.LeftArmRoll, 0.25)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.RightArmRoll, 0.25)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.LeftFoot, 0.25)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.RightFoot, 0.25)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.RightHand, 0.25)
        Native.Function.Call("TRIGGER_PTFX_ON_PED_BONE", "qub_sm_explode_blue", EffectsPed, 0, 0, 0, 0, 0, 0, Bone.LeftHand, 0.25)
    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        If TimeScaleOn Then
            If TimeScale = 0 Then
                TimeScaleZero = Not TimeScaleZero
            End If
        End If
        If QuickSilverOn Then
            If Player.Character.isInAir = False AndAlso Player.Character.isRagdoll = False Then
                If Game.isGameKeyPressed(GameKey.Sprint) Then
                    PlayerSpeedValue = 1.75F
                    If (Game.isGameKeyPressed(GameKey.MoveForward) OrElse Game.isGameKeyPressed(GameKey.MoveLeft) OrElse Game.isGameKeyPressed(GameKey.MoveRight)) Then
                        RunDir.X = Player.Character.Direction.X * Speed '8
                        RunDir.Y = Player.Character.Direction.Y * Speed '8
                        RunDir.Z = Player.Character.Direction.Z

                        Player.Character.ApplyForce(RunDir)
                    End If
                    Native.Function.Call("set_char_all_anims_speed", Player.Character, PlayerSpeedValue)
                    If EffectsEnabled Then
                        Effects(Player.Character)
                    End If
                Else
                    If Player.Character.isInMeleeCombat Then
                        PlayerSpeedValue = 2.0F
                    Else
                        PlayerSpeedValue = 1.1F
                    End If
                    Speed -= 0.5
                    If Speed < 0 Then Speed = 0
                End If
            End If
            If TimeScaleOn Then
                Game.TimeScale = TimeScale
                msg("TimeScale: " & TimeScale.ToString, 2000)
                If TimeScale = 0.2 Then
                    Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", Player.Character, 5.0F)
                    Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", Player.Character, 5.0F)
                    Native.Function.Call("Set_Char_Climb_Anim_Rate", Player.Character, 5.0F)
                End If
                If Game.isKeyPressed(bTimeScaleIncrease) Then
                    TimeScale += 0.1
                    If TimeScale > 1.0 Then TimeScale = 1.0
                ElseIf Game.isKeyPressed(bTimeScaleDecrease) Then
                    TimeScale -= 0.1
                    If TimeScale < 0 Then TimeScale = 0
                End If
                If TimeScaleZero Then
                    Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", Player.Character, 10.0F)
                    Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", Player.Character, 10.0F)
                    Native.Function.Call("Set_Char_Climb_Anim_Rate", Player.Character, 10.0F)
                End If
            Else
                Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", Player.Character, PlayerSpeedValue)
                Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", Player.Character, PlayerSpeedValue)
                Native.Function.Call("Set_Char_Climb_Anim_Rate", Player.Character, PlayerSpeedValue)
                Game.TimeScale = 1.0
                TimeScale = 0.2
            End If
        End If
        If QuickSilverOn Then
            Player.MaxHealth = 100
            Player.Character.MaxHealth = 100
            Player.Character.Health = 100
            Player.MaxArmor = 100
            Player.Character.Armor = 100
            Dim Armor As Integer = Player.Character.Armor
            Dim Health As Integer = Player.Character.Health
            If (Player.Character.isAlive AndAlso Armor < 100) Then
                Player.Character.Armor += 0.5
            End If
            If (Player.Character.isAlive AndAlso Armor < Health) Then
                Player.Character.Health += 0.5
            End If
        End If
    End Sub

    Private Sub Enemy_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        If QuickSilverEnemy Then
            If Exists(enemyPed) Then
                If enemyPed.isIdle Then
                    enemyPed.StartKillingSpree(alsoAttackPlayer:=True)
                    enemyPed.Task.FightAgainst(Player.Character)
                End If
            End If
        End If
        If TimeScaleOn Then
            If TimeScale = 0 Then
                TimeScaleZero = Not TimeScaleZero
            End If
        End If
        If QuickSilverEnemy Then
            If Exists(enemyPed) Then
                If enemyPed.isDead AndAlso Not enemyPed.isAlive Then
                    If enemyPed.AttachBlip.Exists Then
                        enemyPed.AttachBlip.Delete()
                    End If
                End If
                If EffectsEnabled Then
                    If enemyPed.isAlive Then
                        Effects(enemyPed)
                    End If
                End If
                Decide = TRandom.Next(200, 400)
                If Decide <= 225 Then
                    DecisionTaken = True
                Else
                    DecisionTaken = False
                End If
                Dim AllPeds As Ped() = Nothing
                AllPeds = World.GetAllPeds
                If Exists(AllPeds) Then
                    For Each p As Ped In AllPeds
                        If Exists(p) AndAlso (p <> enemyPed) AndAlso (enemyPed.isAlive) AndAlso Not (enemyPed.isDead) AndAlso (p.isAlive) AndAlso Not Exists(p.CurrentVehicle) Then
                            If enemyPed.Position.DistanceTo(p.Position) < 2.0 Then
                                If DecisionTaken Then
                                    enemyPed.PreventRagdoll = True
                                    enemyPed.isRagdoll = False
                                    Dim MeleeAnimSet As AnimationSet
                                    Dim MeleeAnimName1 As String = "lowblow_r"
                                    Dim MeleeAnimName2 As String = "lowblow_l"
                                    MeleeAnimSet = New AnimationSet("melee_player_unarmed")

                                    Native.Function.Call("REQUEST_ANIMS", MeleeAnimSet.Name)

                                    If rndAnim.Next(0, 2) >= 1 Then
                                        enemyPed.Animation.Play(MeleeAnimSet, MeleeAnimName1, 8.0)
                                    Else
                                        enemyPed.Animation.Play(MeleeAnimSet, MeleeAnimName2, 8.0)
                                    End If
                                    If enemyPed.Animation.isPlaying(MeleeAnimSet, MeleeAnimName1) OrElse
                                     enemyPed.Animation.isPlaying(MeleeAnimSet, MeleeAnimName2) Then
                                        If (p.Position.DistanceTo(enemyPed.GetBonePosition(Bone.RightHand)) OrElse p.Position.DistanceTo(enemyPed.GetBonePosition(Bone.LeftHand))) < 1.0 Then
                                            enemyPed.Heading = Helper.DirectionToHeading(p.Position - enemyPed.Position)
                                            enemyPed.ApplyForce(Vector3.Normalize(p.Position - enemyPed.Position) * Speed)
                                            enemyForce.X = enemyPed.Direction.X * Speed '8
                                            enemyForce.Y = enemyPed.Direction.Y * Speed '8
                                            enemyForce.Z = enemyPed.Direction.Z

                                            p.ApplyForce(enemyForce)
                                            p.PreventRagdoll = False
                                            p.ForceRagdoll(2000, False)
                                            Native.Function.Call("damage_char", p, 20, 0)
                                        End If
                                    End If
                                    Wait(100)
                                    If p.Position.DistanceTo(enemyPed.Position) > 5.0 Then
                                        enemyPed.PreventRagdoll = False
                                    End If
                                    enemyPed.StartKillingSpree(alsoAttackPlayer:=True)
                                    enemyPed.Task.FightAgainst(Player.Character)
                                End If
                            End If
                        End If
                    Next
                End If
            End If
        End If
        If QuickSilverEnemy Then
            If Exists(enemyPed) Then
                If TimeScaleOn Then
                    Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", enemyPed, 5.0F)
                    Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", enemyPed, 5.0F)
                    Native.Function.Call("Set_Char_Climb_Anim_Rate", enemyPed, 5.0F)
                    If TimeScaleZero Then
                        Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", enemyPed, 10.0F)
                        Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", enemyPed, 10.0F)
                        Native.Function.Call("Set_Char_Climb_Anim_Rate", enemyPed, 10.0F)
                    End If
                Else
                    Native.Function.Call("SET_CHAR_ALL_ANIMS_SPEED", enemyPed, EnemySpeedValue)
                    Native.Function.Call("Set_Char_Move_Anim_Speed_Multiplier", enemyPed, EnemySpeedValue)
                    Native.Function.Call("Set_Char_Climb_Anim_Rate", enemyPed, EnemySpeedValue)
                End If
            End If
        End If
    End Sub

    Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
    End Sub

    Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing
    End Sub

    Private Sub msg(ByVal sMsg As String, ByVal time As Int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
    End Sub
    Private Declare Auto Function GetPrivateProfileString Lib "Kernel32" _
         (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Private Declare Auto Function WritePrivateProfileString Lib "Kernel32" _
        (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

    Private Function ReadINI(ByVal key_name As String, ByVal section_name As String, ByVal default_value As String) As String
        Const MAX_LENGTH As Integer = 500
        Dim string_builder As New StringBuilder(MAX_LENGTH)

        GetPrivateProfileString(section_name, key_name, default_value, string_builder, MAX_LENGTH, iniFile)

        Return string_builder.ToString()
    End Function

    Private Sub WriteINI(ByVal key_name As String, ByVal section_name As String, ByVal value As String)
        WritePrivateProfileString(section_name, key_name, value, iniFile)
    End Sub

    Private Sub checkIniExists()
        If Not File.Exists(iniFile) Then
            File.CreateText(iniFile).Dispose()

            Wait(100)
        End If
    End Sub

    Private Function Read_INI_String(opt As String, categoy As String, def As String) As String
        If ReadINI(opt, categoy, "") = "" Then WriteINI(opt, categoy, def)

        Return ReadINI(opt, categoy, def)
    End Function
End Class