[VB.NET]How to make a GTA 4 script

[visitor]

Hi!

I know GTA 4 is not popular because of its system requirements but it's cool that with VB I can make custom scripts like: if you press G then Niko sits on the passenger seat of a vehicle. So its kinda cool.

What you need:
GTA 4 1.0.2 (not works with 1.0.3 yet )
An ASI loader ||| Virus scan
scripthookdotnet ||| Virus scan

What to do:

1. Install GTA 4 and patch it to 1.0.2
2. Copy dsound.dll from IVAsiLoader.rar to the root directory
3. Copy scripthookdotnet.zip's contents to root directory
4. Open VisualStudio
5. Create a Class Library project
6. Use these settings:

The scripthookdotnet.dll can be found at GTA's root folder \scripts\for Developers\bin\ folder
Now here's the code:

Imports System
Imports System.Windows.Forms
Imports GTA

Public Class PassengerScript
    Inherits Script
    Private inVehicle As Boolean = False
    Private pedDriver As Ped
    Private veh As Vehicle

    Private Sub PassengerScript_KeyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles Me.KeyUp
        If e.Key = Keys.G Then
            If Player.Character.isInVehicle Then inVehicle = True

            Select Case inVehicle
                Case True
                    If Not Player.LastVehicle.GetPedOnSeat(VehicleSeat.Driver) = Player.Character Then
                        Player.Character.Task.LeaveVehicle()
                        inVehicle = False
                    End If
                Case False
                    If World.GetClosestVehicle(Player.Character.Position, 5.0F) = Nothing Then
                        Game.DisplayText("Get closer to a vehicle")
                    Else
                        veh = World.GetClosestVehicle(Player.Character.Position, 5.0F)
                        If veh.GetPedOnSeat(VehicleSeat.Driver) = Nothing Then
                            Player.Character.Task.EnterVehicle(veh, VehicleSeat.AnyPassengerSeat)
                        Else
                            pedDriver = veh.GetPedOnSeat(VehicleSeat.Driver)
                            pedDriver.ChangeRelationship(RelationshipGroup.Player, Relationship.Respect)
                            Player.Character.Task.EnterVehicle(veh, VehicleSeat.AnyPassengerSeat)
                        End If
                        inVehicle = True
                    End If
            End Select
        End If
    End Sub
End Class

Compile it, put the dll in scripts folder and enjoy it

[Mitron]

Pretty cool actually ^^ i dont play GTA 4 but its a fun thing for the players

[visitor]

yes. and you can make all kind of cheats too. and you can spawn bodyguards and every stuff. but it gets boring after a time

[Mitron]

haha ye too much cheat = too easy ^^ btw do you have msn ??

[visitor]

i completed the story without any cheat, and that was enjoyable. i wanted to make the 100% without cheat(/scrpts ) but its boring and now i make scripts.
and PM sent