How can I prevent this system from spawn many vehicles?

[Kid_Buu]

I have this function:

Code Select Expand

function onPlayerHealthChange( player, lastHP, newHP )
{
if ( lastHP > newHP )
{
if ( player.Pos.z <= GetWaterLevel() )
{
local vehicle = CreateVehicle( 6400, player.Pos, player.Angle, 1, 2);
player.Vehicle = vehicle;
return true;
}
}
}
Because this function spawn many vehicles. How to prevent this?

[NicusorN5]

Use an array.

Code Select Expand

swimming <- array(100,false)

Code Select Expand

function onPlayerHealthChange( player, lastHP, newHP )
{
if ( lastHP > newHP )
{
if ( (player.Pos.z <= GetWaterLevel()) && (swimming[player.ID] == false))
{
local vehicle = CreateVehicle( 6400, player.Pos, player.Angle, 1, 2);
player.Vehicle = vehicle;
swimming[player.ID] = true
return true;
}
}
}

You will need to remove the vehicle when the players exits it.