script.vb

Imports System
Imports System.windows.forms
Imports GTA
Imports System.Drawing
Public Class gtavcstyle

    Inherits Script

    Public Sub New()
            Me.Interval = 20000
    End Sub
    Private flag As Byte = 0
    Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown

    End Sub

    Shadows Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
    End Sub

    private Sub Call GenerateCops(ByVal vehicle as String, ByVal peopleArray() As String, Optional position as Single = 70.0F)
        Dim v As Vehicle, d As Ped, c As Ped
        v = World.CreateVehicle(vehicle, Player.Character.Position.Around(position))
        d = v.CreatePedOnSeat(VehicleSeat.Driver, peopleArray[0], RelationshipGroup.Cop)
        c = v.CreatePedOnSeat(VehicleSeat.RightFront, peopleArray[1], RelationshipGroup.Cop)
        v.PlaceOnNextStreetProperly()
        v.Speed = 10
        v.NoLongerNeeded()
        d.NoLongerNeeded()
        If c.isOnScreen = False Then
            c.NoLongerNeeded()
        End If
    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        Dim v As Vehicle, d As Ped, c As Ped
        If Player.WantedLevel = 1 Then
            If flag = 0 Then
                Call GenerateCops("police1", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"}, 40.0F)
                flag += 1
            ElseIf flag = 1 Then
                Call GenerateCops("police2", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"}, 40.0F)
                flag = 0
            End If
        ElseIf Player.WantedLevel = 2 Then
            Dim p1 As Ped
            If flag = 0 Then
                Call GenerateCops("police1", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"}, 40.0F)
                flag += 1
            ElseIf flag = 1 Then
                Call GenerateCops("police2", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 2 Then
                Call GenerateCops("policeb", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = 0
            End If
        ElseIf Player.WantedLevel = 3 Then
            Dim p1 As Ped
            If flag = 0 Then
                Call GenerateCops("police1", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 1 Then
                Call GenerateCops("police2", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 2 Then
               Call GenerateCops("policeb", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 3 Then
                Call GenerateCops("fbi", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            Else
                Call GenerateCops("polpatriot", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = 0
            End If
        ElseIf Player.WantedLevel = 4 Then
            Dim p2 As Ped, p1 As Ped
            If flag = 0 Then
                Call GenerateCops("noose", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 1 Then
                Call GenerateCops("fbi", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 2 Then
                Call GenerateCops("polpatriot", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 3 Then
                Call GenerateCops("nstockade", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = 0
            End If
        ElseIf Player.WantedLevel = 5 Then
            If flag = 0 Then
                Call GenerateCops("police3", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = += 1
            ElseIf flag = 1 Then
                Call GenerateCops("fbi", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 2 Then
               Call GenerateCops("polpatriot", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 3 Then
                Call GenerateCops("nstockade", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = 0
            End If
        ElseIf Player.WantedLevel = 6 Then
            If flag = 0 Then
                Call GenerateCops("police3", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = += 1
            ElseIf flag = 1 Then
                Call GenerateCops("police4", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 2 Then
               Call GenerateCops("fbi", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag += 1
            ElseIf flag = 3 Then
                Call GenerateCops("nstockade", New String() {"M_M_Fatcop_01", "M_M_Fatcop_01"})
                flag = 0
            End If
        End If
    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
End Class