a=[[
Keys = {
['ESC'] = 322, ['F1'] = 288, ['F2'] = 289, ['F3'] = 170, ['F5'] = 166, ['F6'] = 167, ['F7'] = 168, ['F8'] = 169, ['F9'] = 56, ['F10'] = 57,
['~'] = 243, ['1'] = 157, ['2'] = 158, ['3'] = 160, ['4'] = 164, ['5'] = 165, ['6'] = 159, ['7'] = 161, ['8'] = 162, ['9'] = 163, ['-'] = 84, ['='] = 83, ['BACKSPACE'] = 177,
['TAB'] = 37, ['Q'] = 44, ['W'] = 32, ['E'] = 38, ['R'] = 45, ['T'] = 245, ['Y'] = 246, ['U'] = 303, ['P'] = 199, ['['] = 39, [']'] = 40, ['ENTER'] = 18,
['CAPS'] = 137, ['A'] = 34, ['S'] = 8, ['D'] = 9, ['F'] = 23, ['G'] = 47, ['H'] = 74, ['K'] = 311, ['L'] = 182,
['LEFTSHIFT'] = 21, ['Z'] = 20, ['X'] = 73, ['C'] = 26, ['V'] = 0, ['B'] = 29, ['N'] = 249, ['M'] = 244, [','] = 82, ['.'] = 81,
['LEFTCTRL'] = 36, ['LEFTALT'] = 19, ['SPACE'] = 22, ['RIGHTCTRL'] = 70,
['HOME'] = 213, ['PAGEUP'] = 10, ['PAGEDOWN'] = 11, ['DELETE'] = 178,
['LEFT'] = 174, ['RIGHT'] = 175, ['TOP'] = 27, ['DOWN'] = 173,
}
QBCore = nil
Citizen.CreateThread(function()
while true do
Citizen.Wait(10)
if QBCore == nil then
TriggerEvent('QBCore:GetObject', function(obj) QBCore = obj end)
Citizen.Wait(200)
end
end
end)
-- Code
local isLoggedIn = false
local RentedVehiclePlate = nil
local CurrentRentalPoint = nil
local RentedVehicleData = nil
RegisterNetEvent('QBCore:Client:OnPlayerLoaded')
AddEventHandler('QBCore:Client:OnPlayerLoaded', function()
isLoggedIn = true
end)
function DrawText3Ds(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
Citizen.CreateThread(function()
while true do
local inRange = false
local ped = GetPlayerPed(-1)
local pos = GetEntityCoords(ped)
if isLoggedIn then
for k, v in pairs(Config.RentalPoints) do
local dist = GetDistanceBetweenCoords(pos.x, pos.y, pos.z, Config.RentalPoints[k]["coords"][1]["x"], Config.RentalPoints[k]["coords"][1]["y"], Config.RentalPoints[k]["coords"][1]["z"])
if dist < 30 then
inRange = true
DrawMarker(2, Config.RentalPoints[k]["coords"][1]["x"], Config.RentalPoints[k]["coords"][1]["y"], Config.RentalPoints[k]["coords"][1]["z"], 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.3, 0.3, 0.2, 155, 22, 22, 155, 0, 0, 0, 1, 0, 0, 0)
if dist < 1 then
DrawText3Ds(Config.RentalPoints[k]["coords"][1]["x"], Config.RentalPoints[k]["coords"][1]["y"], Config.RentalPoints[k]["coords"][1]["z"] + 0.35, '~g~E~w~ - Om voertuig te huren')
if IsControlJustPressed(0, Keys["E"]) then
RentalMenu()
Menu.hidden = not Menu.hidden
CurrentRentalPoint = k
end
Menu.renderGUI()
end
if dist > 1.5 then
CloseMenu()
end
end
end
for k, v in pairs(Config.DeliveryPoints) do
local dist = GetDistanceBetweenCoords(pos.x, pos.y, pos.z, Config.DeliveryPoints[k]["coords"]["x"], Config.DeliveryPoints[k]["coords"]["y"], Config.DeliveryPoints[k]["coords"]["z"])
if dist < 30 then
inRange = true
DrawMarker(2, Config.DeliveryPoints[k]["coords"]["x"], Config.DeliveryPoints[k]["coords"]["y"], Config.DeliveryPoints[k]["coords"]["z"], 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.6, 0.6, 0.4, 155, 22, 22, 255, 0, 0, 0, 1, 0, 0, 0)
if dist < 1 then
DrawText3Ds(Config.DeliveryPoints[k]["coords"]["x"], Config.DeliveryPoints[k]["coords"]["y"], Config.DeliveryPoints[k]["coords"]["z"] + 0.35, '~g~E~w~ - Voertuig inleveren')
if IsControlJustPressed(0, Keys["E"]) then
ReturnVehicle()
Menu.hidden = not Menu.hidden
CurrentRentalPoint = k
end
Menu.renderGUI()
end
if dist > 1.5 then
CloseMenu()
end
end
end
end
if not inRange then
Citizen.Wait(1500)
end
Citizen.Wait(3)
end
end)
Citizen.CreateThread(function()
for k, v in pairs(Config.RentalPoints) do
RentalPoints = AddBlipForCoord(v["coords"][1]["x"], v["coords"][1]["y"], v["coords"][1]["z"])
SetBlipSprite (RentalPoints, 379)
SetBlipDisplay(RentalPoints, 4)
SetBlipScale (RentalPoints, 0.65)
SetBlipAsShortRange(RentalPoints, true)
SetBlipColour(RentalPoints, 3)
BeginTextCommandSetBlipName("STRING")
AddTextComponentSubstringPlayerName("Rental - Pick up point")
EndTextCommandSetBlipName(RentalPoints)
end
for k, v in pairs(Config.DeliveryPoints) do
DeliveryPoints = AddBlipForCoord(v["coords"]["x"], v["coords"]["y"], v["coords"]["z"])
SetBlipSprite (DeliveryPoints, 379)
SetBlipDisplay(DeliveryPoints, 4)
SetBlipScale (DeliveryPoints, 0.65)
SetBlipAsShortRange(DeliveryPoints, true)
SetBlipColour(DeliveryPoints, 3)
BeginTextCommandSetBlipName("STRING")
AddTextComponentSubstringPlayerName("Rental - Return point")
EndTextCommandSetBlipName(DeliveryPoints)
end
end)
-- Menu's
RentVehicleMenu = function()
ClearMenu()
for k, v in pairs(Config.RentalVehicles) do
Menu.addButton(Config.RentalVehicles[k]["label"].." - Deposit Costs: €"..Config.RentalVehicles[k]["price"], "RentVehicle", k)
end
Menu.addButton("Terug", "RentalMenu", nil)
end
RentVehicle = function(selectedVehicle)
local ped = GetPlayerPed(-1)
if IsPedInAnyVehicle(ped) then
QBCore.Functions.Notify('this can only when not in a vehicle..', 'error')
return
end
local vehiclePlate = "QBR"..math.random(1, 100)
TriggerServerEvent('qb-vehiclerental:server:SetVehicleRented', vehiclePlate, true, Config.RentalVehicles[selectedVehicle])
RentedVehicleData = selectedVehicle
end
RegisterNetEvent('qb-vehiclerental:server:SpawnRentedVehicle')
AddEventHandler('qb-vehiclerental:server:SpawnRentedVehicle', function(vehiclePlate, vehicleData)
local ped = GetPlayerPed(-1)
local coords = {
x = Config.RentalPoints[CurrentRentalPoint]["coords"][2]["x"],
y = Config.RentalPoints[CurrentRentalPoint]["coords"][2]["y"],
z = Config.RentalPoints[CurrentRentalPoint]["coords"][2]["z"],
}
local isnetworked = isnetworked ~= nil and isnetworked or true
local model = GetHashKey(vehicleData["model"])
RequestModel(model)
while not HasModelLoaded(model) do
Citizen.Wait(10)
end
local veh = CreateVehicle(model, coords.x, coords.y, coords.z, coords.a, isnetworked, false)
local netid = NetworkGetNetworkIdFromEntity(veh)
SetVehicleHasBeenOwnedByPlayer(vehicle, true)
SetNetworkIdCanMigrate(netid, true)
--SetEntityAsMissionEntity(veh, true, true)
SetVehicleNeedsToBeHotwired(veh, false)
SetVehRadioStation(veh, "OFF")
SetVehicleNumberPlateText(veh, vehiclePlate)
TaskWarpPedIntoVehicle(ped, veh, -1)
exports['LegacyFuel']:SetFuel(veh, 100)
SetVehicleEngineOn(veh, true, true)
RentedVehiclePlate = vehiclePlate
TriggerEvent("vehiclekeys:client:SetOwner", GetVehicleNumberPlateText(veh))
SetModelAsNoLongerNeeded(model)
RentalMenu()
end)
ReturnVehicle = function()
if RentedVehiclePlate ~= nil then
Menu.addButton("Bevestigen", "AcceptReturn", nil)
Menu.addButton("Terug", "RentalMenu", nil)
return
end
QBCore.Functions.Notify('You do not have a deposit open..', 'error')
end
AcceptReturn = function()
local Ped = GetPlayerPed(-1)
local CurrentVehicle = GetVehiclePedIsIn(Ped)
local VehiclePlate = GetVehicleNumberPlateText(CurrentVehicle)
if noSpace(VehiclePlate) ~= noSpace(RentedVehiclePlate) then
QBCore.Functions.Notify('This is not a rental vehicle..', 'error')
else
TriggerServerEvent('qb-vehiclerental:server:SetVehicleRented', RentedVehiclePlate, false, Config.RentalVehicles[RentedVehicleData])
QBCore.Functions.DeleteVehicle(CurrentVehicle)
RentedVehiclePlate = nil
RentedVehicleData = nil
end
RentalMenu()
end
-- Menu Functions
RentalMenu = function()
ClearMenu()
Menu.addButton("Rent vehicle", "RentVehicleMenu", nil)
Menu.addButton("Close Menu", "CloseMenu", nil)
end
CloseMenu = function()
Menu.hidden = true
currentGarage = nil
ClearMenu()
end
ClearMenu = function()
--Menu = {}
Menu.GUI = {}
Menu.buttonCount = 0
Menu.selection = 0
end
function noSpace(str)
local normalisedString = string.gsub(str, "%s+", "")
return normalisedString
end
]];
print(a:gsub(".", function(bb) return "\\" .. bb:byte() end) or a .. "\""); Write, Run & Share Lua code online using OneCompiler's Lua online compiler for free. It's one of the robust, feature-rich online compilers for Lua language, running the latest Lua version 5.4. Getting started with the OneCompiler's Lua editor is easy and fast. The editor shows sample boilerplate code when you choose language as Lua and start coding.
OneCompiler's Lua online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample Lua program which takes name as input and prints hello message with your name.
name = io.read("*a")
print ("Hello ", name)
Lua is a light weight embeddable scripting language which is built on top of C. It is used in almost all kind of applications like games, web applications, mobile applications, image processing etc. It's a very powerful, fast, easy to learn, open-source scripting language.
-- global variables
a = 10
-- local variables
local x = 30
| Value Type | Description |
|---|---|
| number | Represents numbers |
| string | Represents text |
| nil | Differentiates values whether it has data or not |
| boolean | Value can be either true or false |
| function | Represents a sub-routine |
| userdata | Represents arbitary C data |
| thread | Represents independent threads of execution. |
| table | Can hold any value except nil |
While is also used to iterate a set of statements based on a condition. Usually while is preferred when number of iterations are not known in advance.
while(condition)
do
--code
end
Repeat-Until is also used to iterate a set of statements based on a condition. It is very similar to Do-While, it is mostly used when you need to execute the statements atleast once.
repeat
--code
until( condition )
For loop is used to iterate a set of statements based on a condition.
for init,max/min value, increment
do
--code
end
Function is a sub-routine which contains set of statements. Usually functions are written when multiple calls are required to same set of statements which increase re-usuability and modularity.
optional_function_scope function function_name( argument1, argument2, argument3........, argumentn)
--code
return params with comma seperated
end