BasicScript5.vb

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

    private myFX as int32

    Public Sub New()
        Me.interval = 10

        player.character.makeproofto(false, true, false, false, false)
    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
        if (e.key = keys.d1) then
            myFX = native.function.call(of int32)("START_PTFX_ON_PED_BONE", "ambient_fire_generic", player.character, 0, 0, 0, 0, 0, 0, Bone.Neck, 3.0)
        end if

        if e.key = keys.d2 then
            native.function.call("STOP_PTFX", myFX)
        end if
    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
    end sub
End Class