Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'https://www.youtube.com/user/GTAScripting
- 'http://gtaxscripting.blogspot.com/
- 'http://www.facebook.com/GtaIVScripting
- 'https://twitter.com/julionib
- Imports System
- Imports GTA
- Imports System.Drawing
- Imports System.Windows.Forms
- Public Class ScriptDevelopment
- Inherits Script
- Private soundID As Int32
- Private externalSound As System.Media.SoundPlayer
- Public Sub New()
- Me.Interval = 10
- soundID = Native.Function.Call(Of Int32)("GET_SOUND_ID")
- externalSound = New System.Media.SoundPlayer
- externalSound.SoundLocation = ".\Scripts\myExternalSound.wav"
- externalSound.Load()
- End Sub
- Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
- If e.Key = Keys.NumPad0 Then
- For Each o As GTA.Object In World.GetAllObjects
- If Exists(o) AndAlso (o.Position.DistanceTo(Player.Character.Position) < 5) Then
- Native.Function.Call("PLAY_SOUND_FROM_OBJECT", soundID, "GENERAL_WEAPONS_ROCKET_LOOP", o)
- o.AttachBlip()
- msg("Playing sound from object...", 2000)
- Exit For
- End If
- Next
- End If
- If e.Key = Keys.NumPad1 Then
- Native.Function.Call("PLAY_SOUND_FROM_PED", soundID, "GENERAL_WEAPONS_ROCKET_LOOP", Player.Character)
- msg("Playing sound from ped...", 2000)
- End If
- If e.Key = Keys.NumPad2 Then
- Dim tmpPos As Vector3 = Player.Character.Position.Around(5)
- Native.Function.Call("PLAY_SOUND_FROM_POSITION", soundID, "GENERAL_WEAPONS_ROCKET_LOOP", tmpPos.X, tmpPos.Y, tmpPos.Z)
- msg("Playing sound from position...", 2000)
- End If
- If e.Key = Keys.NumPad3 Then
- If Not Exists(Player.Character.CurrentVehicle) Then
- msg("Enter in an vehicle first...", 2000)
- Exit Sub
- End If
- Native.Function.Call("PLAY_SOUND_FROM_VEHICLE", soundID, "GENERAL_WEAPONS_ROCKET_LOOP", Player.Character.CurrentVehicle)
- msg("Playing sound from vehicle...", 2000)
- End If
- If e.Key = Keys.NumPad4 Then
- Native.Function.Call("PLAY_SOUND_FRONTEND", soundID, "GENERAL_WEAPONS_ROCKET_LOOP")
- msg("Playing sound ''FRONTEND''...", 2000)
- End If
- If e.Key = Keys.Back Then
- Native.Function.Call("stop_sound", soundID)
- msg("Stopping sound...", 2000)
- End If
- If e.Key = Keys.Delete Then
- Native.Function.Call("release_sound_id", soundID)
- msg("Releasing sound ID...", 2000)
- soundID = -1
- End If
- If e.Key = Keys.Add Then
- externalSound.Play()
- End If
- End Sub
- Shadows 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 ev As EventArgs) Handles MyBase.Tick
- 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 Function intervalFix() As Double
- Return Me.Interval * (Game.FPS / 25)
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement