Advertisement
julioCCs

fillCars.vb

Mar 4th, 2013
226
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 3.63 KB | None | 0 0
  1. 'http://gtaxscripting.blogspot.com/
  2. 'http://www.facebook.com/GtaIVScripting
  3. 'https://www.youtube.com/user/GTAScripting
  4.  
  5. Imports System
  6. Imports GTA
  7. Imports System.Drawing
  8. Imports System.Windows.Forms
  9.  
  10. Public Class fill_cars_sample
  11.     Inherits Script
  12.  
  13.     Private BSOn As Boolean = False
  14.     Private TRandom As Random = New Random()
  15.  
  16.     Private Class myPeds
  17.         Public p As Ped = Nothing
  18.     End Class
  19.  
  20.     Private myPedsList As New List(Of myPeds)
  21.     Private tmpMyPed As myPeds = Nothing
  22.  
  23.     Public Sub New()
  24.         Me.Interval = 2000
  25.     End Sub
  26.  
  27.     Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
  28.         If e.Key = Keys.NumPad0 Then
  29.             BSOn = Not BSOn
  30.  
  31.             If BSOn Then
  32.                 msg("Script ON...", 3000)
  33.             Else
  34.                 msg("Script OFF...", 3000)
  35.             End If
  36.         End If
  37.     End Sub
  38.  
  39.     Shadows Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
  40.     End Sub
  41.  
  42.     Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
  43.         If BSOn Then
  44.             Dim tmpPed As Ped = Nothing
  45.  
  46.             For Each v As Vehicle In World.GetVehicles(Player.Character.Position, 100)
  47.                 If Exists(v) _
  48.                    AndAlso (v <> Player.Character.CurrentVehicle) _
  49.                    AndAlso (v.EngineRunning OrElse v.Model.isBoat OrElse v.Model.isHelicopter) _
  50.                    AndAlso Not v.Metadata.isFilled _
  51.                    AndAlso (v.Position.DistanceTo(Player.Character.Position) > 50) Then
  52.  
  53.                     tmpPed = v.GetPedOnSeat(VehicleSeat.Driver)
  54.  
  55.                     If Exists(tmpPed) AndAlso (TRandom.Next(1, 100) Mod 2 = 0) AndAlso (tmpPed.PedType <> PedType.Cop) AndAlso (tmpPed.PedType <> PedType.Fireman) AndAlso (tmpPed.PedType <> PedType.Paramedic) Then
  56.                         v.Metadata.isFilled = True
  57.  
  58.                         While v.GetFreePassengerSeat() <> VehicleSeat.None
  59.                             Try
  60.                                 tmpPed = v.CreatePedOnSeat(v.GetFreePassengerSeat)
  61.  
  62.                                 If Exists(tmpPed) Then
  63.                                     tmpPed.Task.ClearAll()
  64.                                     tmpPed.Task.CruiseWithVehicle(v, v.Speed, True)
  65.                                     'tmpPed.AttachBlip()
  66.  
  67.                                     tmpMyPed = New myPeds
  68.                                     tmpMyPed.p = tmpPed
  69.                                     myPedsList.Add(tmpMyPed)
  70.                                 End If
  71.                             Catch
  72.                             End Try
  73.                         End While
  74.                     End If
  75.  
  76.                 End If
  77.             Next
  78.  
  79.             Try
  80.                 For c As Int16 = myPedsList.Count - 1 To 0 Step -1
  81.                     If Exists(myPedsList(c).p) AndAlso (myPedsList(c).p.Position.DistanceTo(Player.Character.Position) > 300) Then
  82.                         myPedsList(c).p.Delete()
  83.                         myPedsList.RemoveAt(c)
  84.                     End If
  85.                 Next
  86.             Catch
  87.             End Try
  88.         End If
  89.     End Sub
  90.  
  91.     Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
  92.     End Sub
  93.  
  94.     Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing
  95.     End Sub
  96.  
  97.     Private Sub msg(ByVal sMsg As String, ByVal time As Int32)
  98.         Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
  99.     End Sub
  100. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement