fiauPMYG

1local baudata
2local numeros = 0
3resourceRootddd = getResourceRootElement(getThisResource()) 
4function createChestOnServerStart()
5	if not fileExists("databases/baus.db") then
6	local hg = fileCreate("databases/baus.db")
7		if hg then
8			fileClose(hg)
9		end
10		baudata = dbConnect( "sqlite", "databases/baus.db" )
11		dbQuery(database, "CREATE TABLE IF NOT EXISTS bau_obj(idbau FLOAT, modelobau FLOAT, posx FLOAT, posy FLOAT, posz FLOAT, posrx FLOAT, posry FLOAT, posrz FLOAT, itembau)")
12	else
13		baudata = dbConnect( "sqlite", "databases/baus.db" )
14		local qhg = dbQuery( baudata, "SELECT * FROM bau_obj" )
15		local resultpo = dbPoll( qhg, 10000 )
16			for i, bausT in ipairs(resultpo) do
17			local bau = createObject(bausT['modelobau'], bausT['posx'], bausT['posy'], bausT['posz'], bausT['posrx'], bausT['posry'], bausT['posrz'])
18			local xh,yh,zh = getElementPosition(bau)
19			bauCol = createColSphere(xh,yh,zh,2)
20			attachElements(bauCol, bau, 0, 0, 0)
21			setElementData(bauCol,"parent",bau)
22			setElementData(bau,"parent",bauCol)
23			setElementData(bau,"tentObjectToSave",true)
24			setElementData(bauCol,"vehicle",true)
25			setElementData(bauCol,"tent",true)
26			setElementData(bauCol,"MAX_Slots",1000)
27			for i, data in ipairs(vehicleDataTable) do 
28				setElementData(bauCol,data[1],bausT['itembau'])
29			end
30			numeros = numeros + 1
31		end
32	end
33end
34addEventHandler("onResourceStart", resourceRootddd, createChestOnServerStart)
35
36function saveChestOnServerStart ()
37	for i,allobjects in ipairs(getElementsByType("object")) do
38		if getElementData(allobjects,"tentObjectToSave") then
39			if allobjects then
40			local colisaobau = getElementData(allobjects,"parent")
41			local x,y,z = getElementPosition(allobjects)
42			local rx,ry,rz = getElementRotation(allobjects)
43			local modelo = getElementModel(allobjects)
44			for i, data in ipairs(vehicleDataTable) do 
45				itens = getElementData(colisaobau,data[1])
46			end
47			numeros = numeros + 1
48				dbExec(baudata, "INSERT INTO bau_obj VALUES (?,?,?,?,?,?,?,?,?)", numeros, modelo, x, y, z, rx, ry, rz, itens)
49			end
50		end
51	end		
52end
53addEventHandler("onResourceStop", resourceRootddd, saveChestOnServerStart)