Files
Elite-Gaming-FiveM/resources/EasyDrift/client/module/modules/world.lua
T
Jacob ed1e52543b Added drifting script & server artefacts update.
+ Added EasyDrift.
+ Updated to latest artefacts.
2022-02-06 00:07:10 +00:00

83 lines
2.5 KiB
Lua

Modules.World = {}
function Modules.World.GetDistanceBetweenCoords(coords1, coords2)
local coords1 = vector3(coords1.x, coords1.y, coords1.z)
local coords2 = vector3(coords2.x, coords2.y, coords2.z)
return #(coords1 - coords2)
end
function Modules.World.GetPlayersServerIdsInZone(size)
local players = {}
local currentPosition = Modules.Player.GetPosition()
for k,v in pairs(GetActivePlayers()) do
local position = GetEntityCoords(GetPlayerPed(v))
if Modules.World.GetDistanceBetweenCoords(currentPosition, position) <= size then
table.insert(players, v)
end
end
return players
end
function Modules.World.LoadModel(modelName)
local model = GetHashKey(modelName)
if IsModelInCdimage(model) then
RequestModel(model)
while not HasModelLoaded(model) do
Wait(0)
end
return model
else
Modules.Log.Error("Model " .. modelName .. " not found")
return false
end
end
function Modules.World.CreatePed(modelName, position)
local model = Modules.World.LoadModel(modelName)
if model ~= false then
local ped = CreatePed(4, model, position.x, position.y, position.z, position.w, false, false)
SetEntityAsMissionEntity(ped, true, true)
return ped
else
return false
end
end
function Modules.World.CreateVehicle(modelName, position, networked)
local model = Modules.World.LoadModel(modelName)
if model ~= false then
local vehicle = CreateVehicle(model, position.x, position.y, position.z, position.w, networked, true)
SetEntityAsMissionEntity(vehicle, true, true)
return vehicle
else
return false
end
end
function Modules.World.CreateVehicleWithPlayerHeading(modelName, position, networked)
local model = Modules.World.LoadModel(modelName)
if model ~= false then
local vehicle = CreateVehicle(model, position.x, position.y, position.z, Modules.Player.GetHealth(), networked, true)
SetEntityAsMissionEntity(vehicle, true, true)
return vehicle
else
return false
end
end
function Modules.World.DrawText3D(x, y, z, text)
SetTextScale(0.35, 0.35)
SetTextFont(4)
SetTextProportional(1)
SetTextColour(255, 255, 255, 215)
SetTextEntry("STRING")
SetTextCentre(true)
AddTextComponentString(text)
SetDrawOrigin(x,y,z, 0)
DrawText(0.0, 0.0)
local factor = (string.len(text)) / 370
DrawRect(0.0, 0.0+0.0125, 0.017+ factor, 0.03, 0, 0, 0, 75)
ClearDrawOrigin()
end