Tut_1_Interacting.vb

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

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

Public Class myBasicScript
    Inherits Script

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

    Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        If e.Key = Keys.NumPad9 Then
            Dim peds As Ped()
            Dim tmpPed As Ped

            peds = World.GetPeds(Player.Character.Position, 30)

            For Each tmpPed In peds
                If Exists(tmpPed) AndAlso (tmpPed <> Player.Character) AndAlso Not Exists(tmpPed.CurrentVehicle) Then
                    tmpPed.PreventRagdoll = False
                    tmpPed.ForceRagdoll(2000, True)
                End If
            Next

            For Each tmpPed In peds
                If Exists(tmpPed) AndAlso (tmpPed <> Player.Character) AndAlso Not Exists(tmpPed.CurrentVehicle) Then
                    tmpPed.ApplyForce(Vector3.Normalize(tmpPed.Position - Player.Character.Position) * 15 + Vector3.WorldUp * 2, Vector3.WorldNorth)
                End If
            Next


            For Each v As Vehicle In World.GetVehicles(Player.Character.Position, 30)
                If Exists(v) Then
                    v.ApplyForce(Vector3.Normalize(v.Position - Player.Character.Position) * 15 + Vector3.WorldUp * 10, Vector3.WorldNorth * 5)
                End If
            Next

            For Each o As GTA.Object In World.GetAllObjects
                If Exists(o) Then
                    o.Detach()
                    o.ApplyForce(Vector3.Normalize(o.Position - Player.Character.Position) * 15 + Vector3.WorldUp * 10, Vector3.WorldNorth * 5)
                End If
            Next
        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 e 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 msg(ByVal sMsg As String, ByVal time As Int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
    End Sub
End Class