SimpleBulletTimeEffect.vb

'http://www.facebook.com/GtaIVScripting
'https://www.youtube.com/user/GTAScripting

Imports System ' basic imports
Imports GTA ' basic imports
Imports System.Windows.Forms ' needed to have access to "keys" enumeration, for example
Imports System.Drawing ' needed to handle colors referencing the color name, ex: myCar.color = System.Drawing.Color.Black

Public Class BasicScript
    Inherits Script

    Public Sub New()
        Me.interval = 10

        player.character.weapons.uzi.ammo = 1000
    End Sub

    private sub msg(sMsg as string, time as int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
    end sub

    Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
    End Sub
    Private Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
    end sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        if game.isGameKeyPressed(GameKey.Aim) then
            native.function.call("SET_CHAR_ALL_ANIMS_SPEED", player.character, 5.0)
            game.timescale = 0.2
        else
            native.function.call("SET_CHAR_ALL_ANIMS_SPEED", player.character, 1.0)
            game.timescale = 1.0
        end if
    end sub
End Class