Need help with car generator-like code

[Ub-Oh]

I tried to create a code for Scripthook.net that creates cars when player is near the location of the car and creates again when player takes it. I don't have any coding knowledge but I wrote something with help from tutorials (the code doesn't work).

 

 

 

using System;

using System.Windows.Forms;

using GTA;

namespace AdmiralsScriptCS

{

public class AdmiralsScript : Script

{

public AdmiralsScript()

{

//set interval

Interval = 2000;

//bind tick event

this.Tick += new EventHandler(testTick);

}

Vector3 A1Pos = new Vector3 (1441.0f, -770.2f, 3.3f);

public void testTick(object sender, EventArgs e)

{

Vehicle[] a = World.GetVehicles(A1Pos, 10);

bool checks = (Player.Character.Position.DistanceTo(A1Pos) < 100);

if (checks == true)

{

foreach (Vehicle b in a)

{

if (!(Exists (b)))

{

World.CreateVehicle(new Model("ADMIRAL"), new Vector3(1441.0f, -770.2f, 3.3f));

}

}

}

}

}

}

 

I wanted to make it check if player is in range 50<player<100 and if he is, check if there are any vehicles in the place the car will be created and create the car if there isn't any. The car should be flagged as no longer needed to despawn after player leaves it.

Can somebody help me with this? Or write a new code from scratch? The code doesn't necessarily need to be in C#. It would be good if you can show how to apply it to different cars in different locations.

Edited August 25, 2017 by Ub-Oh

[Ub-Oh]

Well, after almost a year after I tried this again and it works now. But the code changed to VB.NET. Using "New Vector3" everytime for the same coordinate doesn't seem right but that thing took enough time already.

 

 

Imports System

Imports System.Drawing

Imports System.Windows.Forms

Imports GTA

Public Class injection

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

If (Player.Character.Position.DistanceTo(New Vector3(1441.0F, -770.2F, 4.3F)) < 60) AndAlso (Player.Character.Position.DistanceTo(New Vector3(1441.0F, -770.2F, 4.3F)) > 40) AndAlso Not (World.isPositionBlockedByMissionEntity(New Vector3(1441.0F, -770.2F, 4.3F), 3)) Then

World.CreateVehicle(New Model("ADMIRAL"), New Vector3(1441.0F, -770.2F, 4.3F))

End If

End Sub

End Class

 

Edited May 12, 2018 by Ub-Oh