Add test_vehicles example

Author: Fernando-A-Rocha

.github/img/ss1.jpg

@@ -33,7 +33,7 @@ Get the [Latest Version](https://github.com/Fernando-A-Rocha/mta-add-models/rele
 
 ## Media
 
-![Screenshot 1](/.github/img/ss1.jpg)
+![Screenshot 1](/.github/img/ss1.png)
 
 ## Final Note
 

.github/img/ss1.png

@@ -0,0 +1,4 @@
+<meta>
+    <include resource="newmodels_azul" minversion="5.0.0"/>
+    <script src="s_vehicles.lua" type="server"/>
+</meta>

README.md

@@ -0,0 +1,44 @@
+-- Loads newmodels functions, which allow usage of custom model IDs "as if they were normal IDs"
+loadstring(exports.newmodels_azul:import())()
+
+-- Vehicle model, x,y,z, rx,ry,rz, interior,dimension
+local VEHICLE_SPAWNS = {
+    {525, -938.74, 1034.21, 23.59, 3.42, 2.85, 20.27, 0, 0},
+    {490, -941.95, 1043.03, 24.25, 355.90, 356.51, 199.00, 0, 0},
+    {-1, -951.79, 1069.05, 25.96, 356.28, 356.34, 204.01, 0, 0},
+    {-5, -944.88, 1051.90, 24.84, 355.97, 356.23, 198.86, 0, 0},
+}
+
+local function createVehicles()
+    for i, data in ipairs(VEHICLE_SPAWNS) do
+        local model, x, y, z, rx, ry, rz, interior, dimension = unpack(data)
+        local vehicle = createVehicle(model, x, y, z, rx, ry, rz)
+        if vehicle then
+            setElementInterior(vehicle, interior)
+            setElementDimension(vehicle, dimension)
+            print("#" .. i .. " - Created vehicle with ID " .. model .. " at " .. x .. ", " .. y .. ", " .. z)
+        end
+    end
+end
+addEventHandler("onResourceStart", resourceRoot, createVehicles, false)
+
+-- Outputs, for example:
+-- This vehicle has the custom model ID -1, which is based on the default model ID 490 (FBI Rancher)
+addCommandHandler("myvehicle", function(player)
+    local vehicle = getPedOccupiedVehicle(player)
+    if not vehicle then
+        outputChatBox("You are not in a vehicle", player, 255, 0, 0)
+        return
+    end
+    local model = getElementModel(vehicle)
+    local baseModel = getElementBaseModel(vehicle)
+    if model == baseModel then
+        outputChatBox("This vehicle has the default model ID " .. model .. " ("..(tostring(getVehicleNameFromModel(model)) or "")..")", player, 0, 255, 0)
+    else
+        if not baseModel then
+            outputChatBox("This vehicle has the custom model ID " .. model .. ", but the base model ID could not be determined", player, 255, 0, 0)
+            return
+        end
+        outputChatBox("This vehicle has the custom model ID " .. model .. ", which is based on the default model ID " .. baseModel .. " ("..(tostring(getVehicleNameFromModel(baseModel)) or "")..")", player, 0, 255, 0)
+    end
+end, false, false)

[examples]/test_vehicles/meta.xml

@@ -186,6 +186,24 @@ if not result then
     return
 end
 
+-- Save elementModels in root element data to restore on next startup
+addEventHandler("onResourceStop", resourceRoot, function()
+    if next(elementModels) then
+        setElementData(root, "newmodels_azul:elementModels_backup", elementModels, false)
+    end
+end, false)
+
+-- Restore elementModels from root element data on startup if any
+local elementModelsBackup = getElementData(root, "newmodels_azul:elementModels_backup")
+if type(elementModelsBackup) == "table" then
+    for element, id in pairs(elementModelsBackup) do
+        if isElement(element) then
+            elementModels[element] = id
+        end
+    end
+end
+
+
 addEventHandler("onPlayerResourceStart", root, function(res)
     if res == resource then
         triggerClientEvent(source, "newmodels_azul:receiveCustomModels", resourceRoot, customModels, elementModels)

[examples]/test_vehicles/s_vehicles.lua

@@ -143,7 +143,7 @@ end
 
 newmodelsUtils.setElementResource = function(element, theResource)
     if isElement(element) then
-        theResource = theResource or resource
+        if not isElement(theResource) then theResource = resource end
         if type(newmodelsUtils.resources[theResource]) ~= "table" then
             newmodelsUtils.resources[theResource] = {}
         end

newmodels_azul/scripts/core/server_logic.lua

@@ -33,7 +33,9 @@ function setElementCustomModel(element, id)
     end
     if not isClientsideScript then
         elementModels[element] = id -- Set serverside
-        triggerClientEvent(getElementsByType("player"), "newmodels_azul:setElementCustomModel", element, id)
+        setTimer(function()
+            triggerClientEvent(getElementsByType("player"), "newmodels_azul:setElementCustomModel", element, id)
+        end, 50, 1)
     else
         triggerEvent("newmodels_azul:setElementCustomModel", element, id)
     end