function carshop_updateVehicles( forceUpdate )
local blocking = { }
for key, value in ipairs( getElementsByType( \"player\" ) ) do
local x, y, z = getElementPosition( value )
table.insert(blocking, { x, y, z, getElementInterior( value ), getElementDimension( value ), true } )
end
for key, value in ipairs( getElementsByType( \"vehicle\" ) ) do
local x, y, z = getElementPosition( value )
table.insert(blocking, { x, y, z, getElementInterior( value ), getElementDimension( value ), false } )
end
for key, value in ipairs( shops ) do
if #value[\"spawnpoints\"] > 0 and #value[\"prices\"] > 0 then
local canPopulate = true
for k, v in ipairs( blocking ) do
if (v[6]) then
if (value[\"blippoint\"][4] == v[4] and value[\"blippoint\"][5] == v[5]) then
if getDistanceBetweenPoints3D( value[\"blippoint\"][1], value[\"blippoint\"][2], value[\"blippoint\"][3], v[1], v[2], v[3] ) < 150 then
canPopulate = false
break
end
end
end
end
if forceUpdate then
canPopulate = true
end
if canPopulate then
for k, v in ipairs( value[\"spawnpoints\"] ) do
local data = value[\"prices\"][ math.random( 1, #value[\"prices\"] ) ]
if v[\"vehicle\"] and isElement( v[\"vehicle\"] ) and data then
respawnVehicle( v[\"vehicle\"] )
local model = getVehicleModelFromName(data[1]) or tonumber(data[1])
if getElementModel(v.vehicle) == model or setElementModel(v.vehicle, model) then
local color1, color2 = getRandomVehicleColor(v.vehicle)
if color1 then
setVehicleColor( v.vehicle, color1, color2 or color1, color1, color2 or color1 )
end
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop:cost\", data[2], false)
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop:taxcost\", 2*(vehicleTaxes[getVehicleModelFromName(data[1])-399] or 25), false)
setElementFrozen(v[\"vehicle\"], false)
setVehicleVariant(v.vehicle, exports[\'vehicle-system\']:getRandomVariant(getElementModel(v.vehicle)))
setTimer(setElementFrozen, 1000, 1, v[\"vehicle\"], true)
else
outputDebugString(\"Carshop: Failed to spawn a \"..data[1])
end
else
local canPopulate2 = true
for _, va in ipairs( blocking ) do
if (v[4] == va[4] and v[5] == va[5]) then
local distance = getDistanceBetweenPoints3D( v[1], v[2], v[3], va[1], va[2], va[3] )
if distance < 4 then
canPopulate2 = false
break
end
end
end
if canPopulate2 then
local vehicle = createVehicle( getVehicleModelFromName(data[1]) or tonumber(data[1]), v[1], v[2], v[3], v[4], v[5], v[6] )
if not vehicle then
outputDebugString(\"failed to swawna \"..data[1])
--next
else
setElementInterior(vehicle, v[4])
setElementDimension(vehicle, v[5])
setVehicleLocked( vehicle, true )
setTimer(setElementFrozen, 1000, 1, vehicle, true )
setVehicleDamageProof( vehicle, true )
setVehicleVariant(vehicle, exports[\'vehicle-system\']:getRandomVariant(getElementModel(vehicle)))
v[\"vehicle\"] = vehicle
local x = v[1] - ( ( math.cos ( math.rad ( v[6] ) ) ) * 1.5 )
local y = v[2] - ( ( math.sin ( math.rad ( v[6] ) ) ) * 1.5 )
local tempPickup = createPickup(x, y, v[3], 3, 1239)
exports[\'anticheat-system\']:changeProtectedElementDataEx(tempPickup, \"carshop:parentCar\", v[\"vehicle\"], false)
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop:cost\", data[2], false)
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop\", true, false)
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop:childPickup\", tempPickup, false)
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop:taxcost\", 2*(vehicleTaxes[getVehicleModelFromName(data[1])-399] or 25), false)
--[[ Second hand: future use
exports[\'anticheat-system\']:changeProtectedElementDataEx(v[\"vehicle\"], \"carshop:secondhand\", data[3], false])
if (data[3]) then
end
--]]
end
end
end
end
else
for k, v in ipairs( value[\"spawnpoints\"] ) do
if v[\"vehicle\"] and isElement( v[\"vehicle\"] ) then
respawnVehicle( v[\"vehicle\"] )
end
end
end
end
end
end
function carshop_pickupUse(thePlayer)
local parentCar = getElementData(source, \"carshop:parentCar\")
if parentCar and isElement(parentCar) then
local costCar = getElementData(parentCar, \"carshop:cost\")
local costTax = getElementData(parentCar, \"carshop:taxcost\")
if costCar and costTax then
triggerClientEvent(thePlayer, \"carshop:showInfo\", parentCar, costCar, costTax)
end
cancelEvent()
end
end
addEventHandler(\"onPickupHit\", getResourceRootElement(), carshop_pickupUse)
function carshop_Initalize( )
carshop_updateVehicles( true )
setTimer( carshop_updateVehicles, 120000, 0, false )
end
addEventHandler( \"onResourceStart\", getResourceRootElement(), carshop_Initalize)
function carshop_blockEnterVehicle(thePlayer)
local isCarShop = getElementData(source, \"carshop\")
if (isCarShop) then
local costCar = getElementData(source, \"carshop:cost\")
local payByCash = true
local payByBank = true
if not exports.global:hasMoney(thePlayer, costCar) or costCar == 0 then
payByCash = false
end
local money = getElementData(thePlayer, \"bankmoney\") - costCar
if money < 0 or costCar == 0 then
payByBank = false
end
triggerClientEvent(thePlayer, \"carshop:buyCar\", source, costCar, payByCash, payByBank)
end
cancelEvent()
end
addEventHandler( \"onVehicleEnter\", getResourceRootElement(), carshop_blockEnterVehicle)
addEventHandler( \"onVehicleStartEnter\", getResourceRootElement(), carshop_blockEnterVehicle)
function carshop_buyVehicle(paymentMethod)
if client then
if getElementData(client, \"license.car\") == 1 then
local isCarshopVehicle = getElementData(source, \"carshop\")
if (isCarshopVehicle) then
if not exports.global:canPlayerBuyVehicle(client) then
outputChatBox(\"Nem lehet több járműved!\", client, 0, 255, 0)
return
end
local costCar = getElementData(source, \"carshop:cost\")
if (paymentMethod == \"cash\") then
if not exports.global:hasMoney(client, costCar) or costCar == 0 then
outputChatBox(\"Nincs elég pénzed..\", client, 0, 255, 0)
return
else
exports.global:takeMoney(client, costCar)
end
elseif (paymentMethod == \"bank\") then
local money = getElementData(client, \"bankmoney\") - costCar
if money < 0 or costCar == 0 then
outputChatBox(\"Nincs elég pénz a bankszámládon..\", client, 0, 255, 0)
else
exports[\'anticheat-system\']:changeProtectedElementDataEx(client, \"bankmoney\", money, false)
mysql:query_free(\"UPDATE characters SET bankmoney=\" .. mysql:escape_string((tonumber(money) or 0)) .. \" WHERE id=\" .. mysql:escape_string(getElementData( client, \"dbid\" )))
end
else
outputChatBox(\"No.\", client, 0, 255, 0)
return
end
local dbid = getElementData(client, \"account:character:id\")
local modelID = getElementModel(source)
local x, y, z = getElementPosition(source)
local rx, ry, rz = getElementRotation(source)
local col = { getVehicleColor(source) }
local color1 = toJSON( {col[1], col[2], col[3]} )
local color2 = toJSON( {col[4], col[5], col[6]} )
local color3 = toJSON( {col[7], col[8], col[9]} )
local color4 = toJSON( {col[10], col[11], col[12]} )
local letter1 = string.char(math.random(65,90))
local letter2 = string.char(math.random(65,90))
local var1, var2 = getVehicleVariant(source)
local plate = letter1 .. letter2 .. math.random(0, 9) .. \" \" .. math.random(1000, 9999)
local locked = 1
local insertid = mysql:query_insert_free(\"INSERT INTO vehicles SET model=\'\" .. mysql:escape_string(modelID) .. \"\', x=\'\" .. mysql:escape_string(x) .. \"\', y=\'\" .. mysql:escape_string(y) .. \"\', z=\'\" .. mysql:escape_string(z) .. \"\', rotx=\'\" .. mysql:escape_string(rx) .. \"\', roty=\'\" .. mysql:escape_string(ry) .. \"\', rotz=\'\" .. mysql:escape_string(rz) .. \"\', color1=\'\" .. mysql:escape_string(color1) .. \"\', color2=\'\" .. mysql:escape_string(color2) .. \"\', color3=\'\" .. mysql:escape_string(color3) .. \"\', color4=\'\" .. mysql:escape_string(color4) .. \"\', faction=\'-1\', owner=\'\" .. mysql:escape_string(dbid) .. \"\', plate=\'\" .. mysql:escape_string(plate) .. \"\', currx=\'\" .. mysql:escape_string(x) .. \"\', curry=\'\" .. mysql:escape_string(y) .. \"\', currz=\'\" .. mysql:escape_string(z) .. \"\', currrx=\'0\', currry=\'0\', currrz=\'\" .. mysql:escape_string(rz) .. \"\', locked=\'\" .. mysql:escape_string(locked) .. \"\',variant1=\"..var1..\",variant2=\"..var2)
if (insertid) then
exports.logs:dbLog(client, 6, \"ve\"..tostring(insertid), \"BOUGHTNEWCAR \".. costCar)
call( getResourceFromName( \"item-system\" ), \"deleteAll\", 3, insertid )
exports.global:giveItem( client, 3, insertid )
local tempPickup = getElementData(source,\"carshop:childPickup\")
if (isElement(tempPickup)) then
destroyElement(tempPickup)
end
destroyElement(source)
exports[\'vehicle-system\']:reloadVehicle(insertid)
outputChatBox(\"Gratulálok, megvetted a járművet!\", client)
outputChatBox(\"A \'/park\' paranccsal parkolhatod le a kívánt helyen,\", client)
outputChatBox(\"ha széthagyod valószínűleg törölve lesz.\", client)
end
end
else
outputChatBox(\"Jogosítványra van szükséged a vásárláshoz.\", client, 255, 0, 0)
return
end
end
end
addEvent(\"carshop:buyCar\", true)
addEventHandler(\"carshop:buyCar\", getRootElement(), carshop_buyVehicle)
local vehicleColors
function getRandomVehicleColor( vehicle )
if not vehicleColors then
vehicleColors = { }
local file = fileOpen( \"vehiclecolors.conf\", true )
while not fileIsEOF( file ) do
local line = fileReadLine( file )
if #line > 0 and line:sub( 1, 1 ) ~= \"#\" then
local model = tonumber( gettok( line, 1, string.byte(\' \') ) )
if not vehicleColors[ model ] then
vehicleColors[ model ] = { }
end
vehicleColors[ model ][ #vehicleColors[ model ] + 1 ] = {
tonumber( gettok( line, 2, string.byte(\' \') ) ),
tonumber( gettok( line, 3, string.byte(\' \') ) ) or nil,
}
end
end
fileClose( file )
end
local colors = vehicleColors[ getElementModel( vehicle ) ]
if colors then
return unpack( colors[ math.random( 1, #colors ) ] )
end
end
function fileReadLine( file )
local buffer = \"\"
local tmp
repeat
tmp = fileRead( file, 1 ) or nil
if tmp and tmp ~= \"\\r\" and tmp ~= \"\\n\" then
buffer = buffer .. tmp
end
until not tmp or tmp == \"\\n\" or tmp == \"\"
return buffer
end
function isForSale(vehicle)
if type(vehicle) == \"number\" then
elseif type(vehicle) == \"string\" then
vehicle = tonumber(vehicle)
elseif isElement(vehicle) and getElementType(vehicle) == \"vehicle\" then
vehicle = getElementModel(vehicle)
else
return false
end
for _, shop in ipairs(shops) do
for _, data in ipairs(shop.prices) do
if getVehicleModelFromName(data[1]) == vehicle then
return true
end
end
end
return false
end
-- verify all shop vehicles exist
addEventHandler(\"onResourceStart\", getResourceRootElement( getThisResource( ) ),
function( )
for _, shop in ipairs(shops) do
for _, data in ipairs(shop.prices) do
local model = getVehicleModelFromName(data[1]) or tonumber(data[1])
if not model or not getVehicleNameFromModel( model ) then
outputDebugString( \"Carshop: Invalid Car: \" .. data[1] )
end
end
end
end
)
function carGrid( thePlayer )
if exports.global:isPlayerAdmin(thePlayer) then
triggerClientEvent(thePlayer, \"carshop:cargrid\", thePlayer, shops)
end
end
addCommandHandler(\"listcarprices\", carGrid)
