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

Public Class myBasicScript
    Inherits Script

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

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        Dim peds As Ped()
        Dim tmpPed As Ped
        Dim AnimSet As AnimationSet
        peds = World.GetPeds(Player.Character.Position, 30)

        AnimSet = New AnimationSet("injured")

        For Each tmpPed In peds
            If Exists(tmpPed) AndAlso (tmpPed <> Player.Character) AndAlso Not Exists(tmpPed.CurrentVehicle) Then

                If tmpPed.Animation.isPlaying(AnimSet, "inj_rside_idle") AndAlso tmpPed.isRagdoll = False Then
                    tmpPed.PreventRagdoll = False
                    tmpPed.isRagdoll = True
                End If

            End If

        Next

        For Each tmpPed In peds
            If Exists(tmpPed) AndAlso (tmpPed <> Player.Character) AndAlso Not Exists(tmpPed.CurrentVehicle) Then

                If tmpPed.Animation.isPlaying(AnimSet, "inj_back_idle") Then
                    tmpPed.PreventRagdoll = False
                    tmpPed.isRagdoll = True
                    End If

                End If

            ' End If


        Next
    End Sub
End Class