ESX = nil
local PlayerData = {}
local bomba, rob_status = false, true
local timer = GetGameTimer()
local prev_timer = 0
local stand = {}



Citizen.CreateThread(function()
	while ESX == nil do
		TriggerEvent('esx:getShburasi45aredObjburasi45ect', function(obj) ESX = obj end)
		Citizen.Wait(0)
	end
	
	while ESX.GetPlayerData().job == nil do
		Citizen.Wait(10)
	end

	PlayerData = ESX.GetPlayerData()

	-- BLIP
	blip = AddBlipForCoord(-624.963, -232.908, 38.057)
	SetBlipSprite(blip, 439)
	SetBlipDisplay(blip, 4)
	SetBlipScale(blip, 0.7)
	SetBlipColour(blip, 5)
	SetBlipAsShortRange(blip, true)
	BeginTextCommandSetBlipName("STRING")
	AddTextComponentString(Config.Lang['blip'])
	EndTextCommandSetBlipName(blip)
end)

RegisterNetEvent('esx:setJob')
AddEventHandler('esx:setJob', function(job)
	PlayerData.job = job
end)

Citizen.CreateThread(function ()
	while true do
		local w = 2000
		local d = #(GetEntityCoords(PlayerPedId()) - vector3(Config.AirVent[1],Config.AirVent[2],Config.AirVent[3]))
		if d <= Config.AirVentDist and not bomba then
			w = 5
			if d > 1 and d <= Config.AirVentDist then
				DrawText3D(Config.AirVent[1],Config.AirVent[2],Config.AirVent[3], Config.Lang['air_vent'])
			elseif d <= 1 then
				DrawText3D(Config.AirVent[1],Config.AirVent[2],Config.AirVent[3], Config.Lang['plant_gas'])
			end
			if IsControlJustPressed(0,38) and d < 1 then
				ESX.TriggerServerCallback('av_vangelico:cooldown',function(cooldown)
					if cooldown then
						ESX.ShowNotification(Config.Lang['cooldown'])
					else
						bomba = true
						TriggerEvent('av_vangelico:bomba')
						TriggerServerEvent("av_vangelico:timer")
					end
				end)
			end
		end
		Citizen.Wait(w)
	end
end)

Citizen.CreateThread(function ()
	while true do	
		local w = 500
		local p = PlayerPedId()
		local c = GetEntityCoords(p)
		local b = false
		
		if not rob_status then
			
			-- temp work around for only being able to do vangelico robbery once otherwise u need to restart the script... but im moving this server side in the future
			--  so this will be irrelevant when i do... but its a temp fix for now
			if timer == prev_timer then
				prev_timer = timer
				timer = GetGameTimer()
				
			end

			w = 5
			for i = 1, #stand do
				local s = stand[i]
				if GetDistanceBetweenCoords(c, s.x, s.y, s.z, true) < 1 and not s.broken then 				
					DrawText3D(s.x, s.y, s.z,Config.Lang['break'])
					if GetDistanceBetweenCoords(c, s.x, s.y, s.z, true) < 1 then
						if IsControlJustPressed(0, 38) then				
							if Config.WeaponsWL then
								local wp = GetSelectedPedWeapon(p)
								b = hasWeapon(wp)
								if b then
									s.broken = true 
									-- update the server and tell it that this cabnet has been smashed
									TriggerServerEvent("av_vangelico:smash_counter",s.x,s.y,s.z,s.broken)
									--- i probs should add a server client trigger for this so its synced with other players but eh works for now
									PlaySoundFromCoord(-1, "Glass_Smash", s.x, s.y, s.z, "", 0, 0, 0)

									-- request the animation dictionary
									if not HasNamedPtfxAssetLoaded("scr_jewelheist") then
									RequestNamedPtfxAsset("scr_jewelheist")
									end
									-- wait till dictionary is loaded and before we continue otherwise we will have issues with anims not playing
									while not HasNamedPtfxAssetLoaded("scr_jewelheist") do
									Citizen.Wait(0)
									end
									SetPtfxAssetNextCall("scr_jewelheist")
									StartParticleFxLoopedAtCoord("scr_jewel_cab_smash", s.x, s.y, s.z, 0.0, 0.0, 0.0, 1.0, false, false, false, false)
									anim("missheist_jewel") 
									-- added a calc to calculate peds actual z location 
									calc_z = s.z-1.46
									-- set the ped to head towards the stand before playing animation
									SetEntityCoords(p, s.ax,s.ay,calc_z)
    								SetEntityHeading(p, s.h)
									-- set animation and lock it to x y and z with 8 second blend in and 3 second blend out
									TaskPlayAnim(p, "missheist_jewel", "smash_case", 8.0, 3.0, -1, 2, 0, 0, 0, 0 ) 
									-- wait for the animation to finish
									Citizen.Wait(6000)
									-- clear the animation task if its not fully finished
									ClearPedTasksImmediately(p)
									-- trigger server event to give items
									TriggerServerEvent('av_vangelico:yarrak')
								else
									-- if user doesnt have weapon then give them this error (only if stated in config to use weapon)
									ESX.ShowNotification(Config.Lang['needs_weapon'])									
								end
							else
								s.broken = true 
								PlaySoundFromCoord(-1, "Glass_Smash", s.x, s.y, s.z, "", 0, 0, 0)
								if not HasNamedPtfxAssetLoaded("scr_jewelheist") then
									RequestNamedPtfxAsset("scr_jewelheist")
								end
								while not HasNamedPtfxAssetLoaded("scr_jewelheist") do
									Citizen.Wait(0)
								end
								SetPtfxAssetNextCall("scr_jewelheist")
								StartParticleFxLoopedAtCoord("scr_jewel_cab_smash", s.x, s.y, s.z, 0.0, 0.0, 0.0, 1.0, false, false, false, false)
								anim("missheist_jewel") 
								TaskPlayAnim(p, "missheist_jewel", "smash_case", 8.0, 1.0, -1, 2, 0, 0, 0, 0 ) 
								Citizen.Wait(5000)
								ClearPedTasksImmediately(p)
								TriggerServerEvent('av_vangelico:yarrak')
							end
						end
					end
				end
			end
			
			
			-- probs should move this server side, will update in the future
			if GetGameTimer() - timer > Config.RobTime*1000*60 then
				
				rob_status = true
				bomba = false
				-- temp fix to be able to do robbery after doing it once, set prev timer to current timer so we know to create a new timer next time the thread is run
				prev_timer = timer
				-- tell server the robbery is done
				TriggerServerEvent("av_vangelico:timer",rob_status,bomba)
			end
		else
			w = 1000
		end
		Citizen.Wait(w)
	end
end)



--- net event for being triggered when timer has run out
RegisterNetEvent('av_vangelico:change_timer_status')
AddEventHandler('av_vangelico:change_timer_status', function(rob_status_server,bomba_server)
	

	-- updates the current status's to original values
	rob_status = rob_status_server
	bomba = bomba_server

end)

-- net event for breakable units(stands)
RegisterNetEvent('av_vangelico:breakable_units')
AddEventHandler('av_vangelico:breakable_units', function(stand_server)
	-- take table from server and put it in table for client
	stand = stand_server

end)


-- net event to set status of robbery (owning client shouldnt care about this but other clients will need to know)
RegisterNetEvent('av_vangelico:statusUpdate')
AddEventHandler('av_vangelico:statusUpdate', function(status)
rob_status = status

end)

RegisterNetEvent('av_vangelico:bomba')
AddEventHandler('av_vangelico:bomba', function()
	local p = PlayerPedId()
	ESX.Streaming.RequestAnimDict('anim@heists@ornate_bank@thermal_charge', function(dict)
		if HasAnimDictLoaded('anim@heists@ornate_bank@thermal_charge') then
			-- set ped position before doing scene so it actually looks correct
			SetEntityCoords(p, -635.89,-213.86,52.55)
    		SetEntityHeading(p, 32.45)
			
            local fwd, _, _, pos = GetEntityMatrix(p)
            local np = (fwd * 0.8) + pos            
            SetEntityCoords(p, np.xy, np.z - 1)
            local rot, pos = GetEntityRotation(p), GetEntityCoords(p)
            SetPedComponentVariation(p, 5, -1, 0, 0)
            local b = CreateObject(GetHashKey("hei_p_m_bag_var22_arm_s"), pos.x, pos.y, pos.z,  true,  true, false)
            local sc = NetworkCreateSynchronisedScene(pos.x, pos.y, pos.z, rot.x, rot.y, rot.z, 2, 0, 0, 1065353216, 0, 1.3)
            SetEntityCollision(b, 0, 1)
            NetworkAddPedToSynchronisedScene(p, sc, "anim@heists@ornate_bank@thermal_charge", "thermal_charge", 1.5, -4.0, 1, 16, 1148846080, 0)
            NetworkAddEntityToSynchronisedScene(b, sc, "anim@heists@ornate_bank@thermal_charge", "bag_thermal_charge", 4.0, -8.0, 1)
            NetworkStartSynchronisedScene(sc)
            Citizen.Wait(1500)
            pos = GetEntityCoords(p)
            prop = CreateObject(GetHashKey("hei_prop_heist_thermite"), pos.x, pos.y, pos.z + 0.2, 1, 1, 1)
            SetEntityCollision(prop, 0, 1)
            AttachEntityToEntity(prop, p, GetPedBoneIndex(p, 28422), 0, 0, 0, 0, 0, 180.0, 1, 1, 0, 1, 1, 1)
            Citizen.Wait(4000)
            ESX.Game.DeleteObject(b)
            SetPedComponentVariation(p, 5, 45, 0, 0)
            DetachEntity(prop, 1, 1)
            FreezeEntityPosition(prop, 1)
            SetEntityCollision(prop, 0, 1)
            pCoords = GetEntityCoords(prop)
            TriggerServerEvent('av_vangelico:effect', prop)
			Citizen.Wait(4000)
			NetworkStopSynchronisedScene(sc)
			DeleteObject(prop)
			rob_status = false
			ESX.ShowNotification(Config.Lang['started'])
			TriggerServerEvent('av_vangelico:gas')
        end
    end)
end)

RegisterNetEvent('av_vangelico:bombaFx')
AddEventHandler('av_vangelico:bombaFx', function(entity)
	ESX.Streaming.RequestNamedPtfxAsset('scr_ornate_heist', function()
		if HasNamedPtfxAssetLoaded('scr_ornate_heist') then
			SetPtfxAssetNextCall("scr_ornate_heist")
            explosiveEffect = StartParticleFxLoopedOnEntity("scr_heist_ornate_thermal_burn", entity, 0.0, 2.0, 0.0, 0.0, 0.0, 0.0, 2.0, 0.0, 0, 0, 0)
			Citizen.Wait(4000)
			StopParticleFxLooped(explosiveEffect, 0)
		end
    end)
end)

RegisterNetEvent('av_vangelico:smoke')
AddEventHandler('av_vangelico:smoke', function()
	if #(GetEntityCoords(PlayerPedId()) - vector3(-632.39, -238.26, 38.07)) < 300 then
		local counter = 0
		local particleEffects = {}
		RequestNamedPtfxAsset('core')
		while not HasNamedPtfxAssetLoaded('core') do
			Citizen.Wait(1)
		end
		while true do 
			counter = counter + 1			
			if counter <= Config.GasTime * 4 then
				--[[
					original orange looking particle effect if you want to use just replace exp_grd_grenade_smoke with veh_respray_smoke 
				StartParticleFxLoopedAtCoord("veh_respray_smoke", -621.85, -230.71, 38.05, 0.0, 0.0, 0.0, 10.0, false, false, false, 0)	

			
				i use multiple particles to give more smoke coverage without it going out the doors, you can remove all if you want and only have one
				i also replaced the default orange one with a more white smoke

			]]

			-- tell to request dictionary for next partical spawn
			UseParticleFxAssetNextCall('core')
			-- store the particle being created and insert it into a table for removal later
			local particle = StartParticleFxLoopedAtCoord("exp_grd_grenade_smoke", -621.85, -230.71, 37.05, 0.0, 0.0, 0.0, 2.0, false, false, false, 0)
			table.insert(particleEffects, 1, particle)
			Citizen.Wait(1000)
			
			-- this is repeat code didnt seem the point in running a loop 4 times but feel free to change to a loop if you want
			UseParticleFxAssetNextCall('core')
			local particle = StartParticleFxLoopedAtCoord("exp_grd_grenade_smoke", -624.45, -227.78, 37.05, 0.0, 0.0, 0.0, 2.0, false, false, false, 0)
			table.insert(particleEffects, 1, particle)
			Citizen.Wait(1000)
			
			
			Citizen.Wait(4000)
			else
				-- loop through the table or particles and stop the effect
				for _,particle in pairs(particleEffects) do
                    -- Stopping each particle effect.
                    StopParticleFxLooped(particle, true)
                end
				
				break
			end
		end
	end
end)

RegisterNetEvent('av_vangelico:notify')
AddEventHandler('av_vangelico:notify', function()
	if PlayerData.job.name == Config.PoliceJobName or PlayerData.job.name == 'sheriff' or PlayerData.job.name == 'fib' then
		ESX.ShowNotification(Config.Lang['police'])
		blipRobbery = AddBlipForCoord(-632.39, -238.26, 38.07)
		SetBlipSprite(blipRobbery, 161)
		SetBlipScale(blipRobbery, 2.0)
		SetBlipColour(blipRobbery, 3)
		PulseBlip(blipRobbery)
		Wait(60000)
		RemoveBlip(blipRobbery)
	end
end)

function anim(dict)  
    while (not HasAnimDictLoaded(dict)) do
        RequestAnimDict(dict)
        Citizen.Wait(5)
    end
end

function hasWeapon(weapon)	
	for i = 1, #Config.Weapons do
		if weapon == Config.Weapons[i] then
			return true
		end
	end
	return false
end

function 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

Lua online compiler

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.

Taking inputs (stdin)

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)

About Lua

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.

Syntax help

Variables

  • By default all the variables declared are global variables
  • If the variables are explicitly mentioned as local then they are local variables.
  • Lua is a dynamically typed language and hence only the values will have types not the variables.

Examples

-- global variables
a = 10

-- local variables

local x = 30
Value TypeDescription
numberRepresents numbers
stringRepresents text
nilDifferentiates values whether it has data or not
booleanValue can be either true or false
functionRepresents a sub-routine
userdataRepresents arbitary C data
threadRepresents independent threads of execution.
tableCan hold any value except nil

Loops

1. While:

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

2. Repeat-Until:

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 )

3. For:

For loop is used to iterate a set of statements based on a condition.

for init,max/min value, increment
do
   --code
end

Functions

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