SHARE
TWEET

Untitled

a guest Jan 16th, 2015 171 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System
  2. Imports GTA
  3. Imports System.Drawing
  4. Imports System.Windows.Forms
  5.  
  6. Public Class myBasicScript
  7.     Inherits Script
  8.  
  9.     Public Sub New()
  10.         Me.Interval = 100
  11.     End Sub
  12.  
  13.     Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
  14.         Dim peds As Ped()
  15.         Dim tmpPed As Ped
  16.         Dim AnimSet As AnimationSet
  17.         peds = World.GetPeds(Player.Character.Position, 30)
  18.  
  19.         AnimSet = New AnimationSet("injured")
  20.  
  21.         For Each tmpPed In peds
  22.             If Exists(tmpPed) AndAlso (tmpPed <> Player.Character) AndAlso Not Exists(tmpPed.CurrentVehicle) Then
  23.  
  24.                 If tmpPed.Animation.isPlaying(AnimSet, "inj_rside_idle") AndAlso tmpPed.isRagdoll = False Then
  25.                     tmpPed.PreventRagdoll = False
  26.                     tmpPed.isRagdoll = True
  27.                 End If
  28.  
  29.             End If
  30.  
  31.         Next
  32.  
  33.         For Each tmpPed In peds
  34.             If Exists(tmpPed) AndAlso (tmpPed <> Player.Character) AndAlso Not Exists(tmpPed.CurrentVehicle) Then
  35.  
  36.                 If tmpPed.Animation.isPlaying(AnimSet, "inj_back_idle") Then
  37.                     tmpPed.PreventRagdoll = False
  38.                     tmpPed.isRagdoll = True
  39.                     End If
  40.  
  41.                 End If
  42.  
  43.             ' End If
  44.  
  45.  
  46.         Next
  47.     End Sub
  48. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top