SoundsDemo.vb

Imports System
Imports System.Windows.Forms
Imports GTA
Imports System.IO

Public Class SoundsDemo
    Inherits Script
    private bSOn as boolean = false
    Private l As Int32 = 0
    Private linhas As String()
    Private effect As Int32
    private coef as int16 = 1
    private effectSize as double = 1.0
    private sFilter as string = ""
    private xRot, yRot, zRot as double
    private bRadians as boolean
    private soundID as int32 = 0
    private actualSound as string = ""
    private actualSoundBack as string = ""
    private soundPos as vector3
    dim f As File

    Public Sub New()
        Me.Interval = 100

        linhas = f.ReadAllLines(".\scripts\sounds.txt")
        f.WriteAllLines(".\scripts\sounds.txt.back", linhas)
    End Sub

    private sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
        if e.command = "sd" then
            bSOn = not bSOn

            if bSOn then
                msg("SoundsDemo ON", 3000)
            else
                msg("SoundsDemo OFF", 3000)
            end if
        end if

        if e.command = "sfilter" then
            if not bSOn then exit sub

            if e.parameterCount = 0 then
                game.console.print("Sound filter: " & sFilter)
            else
                sFilter = e.parameter(0).tolower
                l = 0
            end if
        end if
    end sub

    Private Sub msg(ByVal smsg As String, ByVal duracao As int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", smsg, duracao, 1)
    End Sub

    Private Function findLinePos
        For c As Int32 = 0 to linhas.length - 1
            If linhas(c) = actualSoundBack then Return c
        next

        Return 0
    End Function

    Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        if not bSOn then exit sub

        If e.Key = Keys.Right Then nextL()

        If e.Key = Keys.Left Then priorL()

        if e.key = keys.back then
            actualSound = actualSound.substring(0, actualSound.length - 1)

            playEffect(false, actualSound)
        end if

        if e.key = keys.numpad9 then
            linhas(findLinePos) = actualSound

            f.WriteAllLines(".\scripts\sounds.txt", linhas)

            msg("saving...", 1000)
        end if

        if e.key = keys.numpad0 then
            coef = 0

            playEffect(false, actualSound)

            msg("Replay: " & actualSound, 5000)
        end if
        if e.key = keys.numpad1 then
            native.function.call("stop_sound", soundID)
        end if
    End Sub

    private sub playEffect(optional bNavigating as boolean = true, optional sTmpString as string = "")
        if not bSOn then exit sub

        Dim sTmp As String

        if sTmpString = "" then
            sTmp = lerLinha
        else
            sTmp = sTmpString
        end if

        If sTmp.Length > 0 Then
            if not bNavigating then
                soundPos = player.character.position

                native.function.call("stop_sound", soundID)
                native.function.call(of int32)("release_sound_id", soundID)
                soundID = native.function.call(of int32)("get_sound_id")

                native.function.call("PLAY_SOUND_FROM_position", soundID, sTmp, soundPos.x, soundPos.y, soundPos.z)
            end if

            actualSound = sTmp

            if sTmpString = "" then actualSoundBack = sTmp

            msg(sTmp, 5000)
        End If
    end sub

    Private Function lerLinha
        if not bSOn then exit function

        Dim sTmp As String

        sTmp = ""

        While sTmp = ""
            l += coef

            If l < 0 Then
                l = 0
                Exit While
            End If

            If l > linhas.Length - 1 Then
                l = linhas.Length - 1
                Exit While
            End If

            sTmp = linhas(l)

            If (sTmp.Trim.Length > 0) andalso ((sfilter = "") orelse ((sfilter <> "") andalso sTmp.tolower.contains(sfilter.tolower))) then
                Exit While
            else
                sTmp = ""
            End If
        End While

        Return sTmp.Trim
    End Function

    Private Sub nextL()
        coef = 1

        playEffect(false)
    End Sub

    Private Sub priorL()
        coef = -1

        playEffect(false)
    End Sub

    Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles mybase.PerFrameDrawing
        if bSon then
            e.graphics.drawtext("Sounds demo - Use left/right to navigate, press numpad0 to play and numpad1 to stop", 10, 10)
            e.graphics.drawtext("Sound: " & actualSound, 10, 35)
            e.graphics.drawtext("Distance from sound: " & soundPos.distanceto(player.character.position).tostring, 10, 60)
            e.graphics.drawtext("Filter: " & sFilter, 10, 90)
            e.graphics.drawtext("* Use backspace to remove last character from sound string and retest the sound", 10, 135)
            e.graphics.drawtext("* if its correct, press numpad9 to save the file sounds.txt", 10, 165)
        end if
    end sub
End Class