GR's Flames only

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports GTA

Public Class flamesOnly
    Inherits Script

    private bOn as boolean = false
    Private flameH1, flame1, flame2, flame3, flame4 As int32

    Public Sub New()
        Me.Interval = 100
    End Sub

    Private Sub Flames
        if not bOn then exit sub

        Native.Function.Call("STOP_PTFX", flame1)
        Native.Function.Call("STOP_PTFX", flame2)
        Native.Function.Call("STOP_PTFX", flame3)
        Native.Function.Call("STOP_PTFX", flame4)
        Native.Function.Call("STOP_PTFX", flameH1)

        'press F6 to start/stop the effect

        ' *The original is commented
        ' you should change Y value, change with steps of 0.1 or 0.05 +/-
        '                                                                                                           Z offset
        '                                                                                                           |
        '                                                                                                           |    X  Y offset      Angle
        '                                                                                                           |    |  |              |
        '                                                                                                           \/   \/ \/             \/
        'flame1 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, 0, 90.0, 0, 105.0, Bone.head, 0.15)
        'flame2 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, 0, 90.0, 0, 95.0, Bone.head, 0.15)
        'flame3 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, 0, 90.0, 0, 90.0, Bone.head, 0.15)
        'flame4 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, 0, 90.0, 0, 85.0, Bone.head, 0.15)
        'flameH1 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "ambient_fire_generic", Player.Character, 0.05, 0, 0, 90.0, 0, 90.0, Bone.head, 0.5)

        'This is the modified, i think that should fix the position, Y original = 0, modified = -0.08
        flame1 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, -0.08, 90.0, 0, 105.0, Bone.head, 0.15)
        flame2 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, -0.08, 90.0, 0, 95.0, Bone.head, 0.15)
        flame3 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, -0.08, 90.0, 0, 90.0, Bone.head, 0.15)
        flame4 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "shot_directed_flame", Player.Character, -0.3, 0, -0.08, 90.0, 0, 85.0, Bone.head, 0.15)
        flameH1 = Native.Function.Call(Of int32)("START_PTFX_ON_PED_BONE", "ambient_fire_generic", Player.Character, 0.05, 0, -0.08, 90.0, 0, 90.0, Bone.head, 0.5)

        '* disable the effect each time you will reload the scripts with reloadscripts command
        '** after a lot of tests the flames can disappear, in this case you should restart the game
    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        Flames
    end sub

    Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        if e.key = keys.f6 then
            bOn = not bon

            if bon then
                player.character.makeproofto(false, true, false, false, false)
            else
                Native.Function.Call("STOP_PTFX", flame1)
                Native.Function.Call("STOP_PTFX", flame2)
                Native.Function.Call("STOP_PTFX", flame3)
                Native.Function.Call("STOP_PTFX", flame4)
                Native.Function.Call("STOP_PTFX", flameH1)

                wait(500)

                player.character.makeproofto(false, false, false, false, false)
            end if
        end if
    end sub
End Class