GTAONLINE.PL :: Wszystkie auta się zapisują

Zaloguj się by uzyskać pełen dostęp. Nie masz jeszcze konta? Założ je już teraz w kilka sekund.

GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Wszystkie auta się zapisują Poprzedni temat Następny temat

Idź do strony: « 1 2 3 4 5 6 7 8 »

Wysłany: 2016-07-06, 16:33

luki123luki123
Place Game

Wiek: 28
Na forum: 5416 dni
Posty: 1948
Nick w MP: LuKiO

Piwa: 6103

Respekt: 611
Respekt: 611

GamerHD11, hmm ?adnego b??du ?

Podpis

Moje skrypty:

System bram
System języków
Panel Logowania
Praca sprawacza
Panel Lidera
Płynna zmiana wartości

Wysłany: 2016-07-06, 16:34

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3


To nie ma znaczenia, zostaw to veh:id, bo to jest tylko do zapisu.

Wysłany: 2016-07-06, 16:34

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50


Luki nie ma ?adnego b?edu Jacob to nwm bo mi si? wydaj? ?e my inaczej myslimy, bo te zapisane id to jest tak jak na pylu no wiesz id auta, a nie numer kolejnosci czy cos takiego

Wysłany: 2016-07-06, 16:53

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3

W takim razie usu? tabele raz jeszcze i uruchom to.

local conn = dbConnect ( "sqlite", "db.db" )

addEventHandler ( "onResourceStart", resourceRoot, function ()
    if conn then
        dbExec ( conn, "CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q = dbQuery ( conn, "SELECT * FROM OP_Vehicles")
        local result = dbPoll ( q, -1 )
        if #result > 0 then
            for _,v in pairs ( result ) do
                local auto = createVehicle ( v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor ( auto, v["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto, "vehid", v["id"])
                setElementData (auto, "owner", v["owner"])
                setElementData (auto, "przebieg", v["przebieg"])
                setElementData (auto, "paliwo", v["paliwo"])
                setElementData (auto, "bak", v["bak"])        
                for i= 0, 9 do
                    addVehicleUpgrade(auto, v["t"..i..""])
                end    
                for is = 13,16 do
                    addVehicleUpgrade(auto, v["t"..is..""])
                end
                setVehiclePaintjob(auto, v["paintjob"])
                setVehicleVariant(auto, v["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(auto, v["hr"], v["hg"], v["hb"])
                setVehiclePlateText(auto, v["tablica"])
                setVehicleHandling(auto, "engineAcceleration", v["acceler"])
                setVehicleHandling(auto, "maxVelocity", v["vmax"])
                setVehicleOverrideLights(auto, 1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc = getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..acc, aclGetGroup("Admin")) then
        for _,v in ipairs ( getElementsByType ( "vehicle") ) do
            if getElementData(v, "prywatne") then
                local pojazdID = getElementModel ( v )
                local c1,c2,c3,c4 = getVehicleColor ( v )
                local x,y,z = getElementPosition ( v )
                local rotx, roty, rotz = getElementRotation ( v )
                local owner = getElementData(v, "owner")
                local przebieg = getElementData(v, "przebieg")
                local paliwo = getElementData(v, "paliwo")
                local bak = getElementData(v, "bak")
                local t0 = getVehicleUpgradeOnSlot(v, 0)
                local t1 = getVehicleUpgradeOnSlot(v, 1)
                local t2 = getVehicleUpgradeOnSlot(v, 2)
                local t3 = getVehicleUpgradeOnSlot(v, 3)
                local t4 = getVehicleUpgradeOnSlot(v, 4)
                local t5 = getVehicleUpgradeOnSlot(v, 5)
                local t6 = getVehicleUpgradeOnSlot(v, 6)
                local t7 = getVehicleUpgradeOnSlot(v, 7)
                local t8 = getVehicleUpgradeOnSlot(v, 8)
                local t9 = getVehicleUpgradeOnSlot(v, 9)
                local t13 = getVehicleUpgradeOnSlot(v, 13)
                local t14 = getVehicleUpgradeOnSlot(v, 14)
                local t15 = getVehicleUpgradeOnSlot(v, 15)
                local t16 = getVehicleUpgradeOnSlot(v, 16)
                local felgi = getVehicleUpgradeOnSlot(v, 12)
                local paintjob = getVehiclePaintjob(v)
                local hr, hg, hb = getVehicleHeadLightColor(v)
                local tablica = getVehiclePlateText(v)
                local wariant1, wariant2 = getVehicleVariant(v)
                local vmax = getVehicleHandling(v).maxVelocity
                local acceler = getVehicleHandling(v).engineAcceleration
                local id = getElementData(v, "vehid")
                
                if ( id ) then
                    local q = dbPoll(dbQuery(conn, "SELECT * FROM OP_Vehicles WHERE id=?", id), -1)
                    if #q > 0 then
                        dbExec ( conn, "UPDATE OP_Vehicles SET model=?, posx=?, posy=?, posz=?, rotx=?, roty=?, rotz=?, color1=?, color2=?, color3=?, color4=?, owner=?, przebieg=?, paliwo=?, bak=?, paintjob=?, hr=?, hg=?, hb=?, felgi=?, t0=?, t1=?, t2=?, t3=?, t4=?, t5=?, t6=?, t7=?, t8=?, t9=?, t13=?, t14=?, t15=?, t16=?, tablica=?, wariant1=?, wariant2=?, vmax=?, acceler=? WHERE id=?", pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler, id)
                    else
                        dbExec ( conn, "INSERT INTO OP_Vehicles (id, model, posx, posy, posz, rotx, roty, rotz, color1, color2, color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", id, pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) 
                    end
                end
            end
        end
        outputChatBox("* Zapis zako?czony!", plr, 255, 255, 255)
    end
end)

[ Dodano: 2016-07-06, 16:54 ]
Tylko pytanie, czy to ID z salonu jest unikalne? Bo je?li nie to te pojazdy b?d? si? nadpisywa?.

Wysłany: 2016-07-06, 16:57

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50

Nie dzia?a a co do pytania id z salonu jest poprostu robione na setElementDat? i na taki kod

function vehID()
local vehid = 1
for i, v in ipairs(getElementsByType("vehicle")) do
if not getElementData(v, "vehid") == nil or not getElementData(v, "vehid") == false then
vehid = vehid +1
end
end
return vehid
end

setElementData(vehicle, "vehid", vehID())

Wysłany: 2016-07-06, 17:00

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3

Czyli s? unikalne. Teraz

local conn = dbConnect ( "sqlite", "db.db" )

addEventHandler ( "onResourceStart", resourceRoot, function ()
    if conn then
        dbExec ( conn, "CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q = dbQuery ( conn, "SELECT * FROM OP_Vehicles")
        local result = dbPoll ( q, -1 )
        if #result > 0 then
            for _,v in pairs ( result ) do
                local auto = createVehicle ( v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor ( auto, v["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto, "vehid", v["id"])
                setElementData (auto, "owner", v["owner"])
                setElementData (auto, "przebieg", v["przebieg"])
                setElementData (auto, "paliwo", v["paliwo"])
                setElementData (auto, "bak", v["bak"])        
                for i= 0, 9 do
                    addVehicleUpgrade(auto, v["t"..i..""])
                end    
                for is = 13,16 do
                    addVehicleUpgrade(auto, v["t"..is..""])
                end
                setVehiclePaintjob(auto, v["paintjob"])
                setVehicleVariant(auto, v["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(auto, v["hr"], v["hg"], v["hb"])
                setVehiclePlateText(auto, v["tablica"])
                setVehicleHandling(auto, "engineAcceleration", v["acceler"])
                setVehicleHandling(auto, "maxVelocity", v["vmax"])
                setVehicleOverrideLights(auto, 1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc = getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..acc, aclGetGroup("Admin")) then
        for _,v in ipairs ( getElementsByType ( "vehicle") ) do
            if getElementData(v, "prywatne") then
                local pojazdID = getElementModel ( v )
                local c1,c2,c3,c4 = getVehicleColor ( v )
                local x,y,z = getElementPosition ( v )
                local rotx, roty, rotz = getElementRotation ( v )
                local owner = getElementData(v, "owner")
                local przebieg = getElementData(v, "przebieg")
                local paliwo = getElementData(v, "paliwo")
                local bak = getElementData(v, "bak")
                local t0 = getVehicleUpgradeOnSlot(v, 0)
                local t1 = getVehicleUpgradeOnSlot(v, 1)
                local t2 = getVehicleUpgradeOnSlot(v, 2)
                local t3 = getVehicleUpgradeOnSlot(v, 3)
                local t4 = getVehicleUpgradeOnSlot(v, 4)
                local t5 = getVehicleUpgradeOnSlot(v, 5)
                local t6 = getVehicleUpgradeOnSlot(v, 6)
                local t7 = getVehicleUpgradeOnSlot(v, 7)
                local t8 = getVehicleUpgradeOnSlot(v, 8)
                local t9 = getVehicleUpgradeOnSlot(v, 9)
                local t13 = getVehicleUpgradeOnSlot(v, 13)
                local t14 = getVehicleUpgradeOnSlot(v, 14)
                local t15 = getVehicleUpgradeOnSlot(v, 15)
                local t16 = getVehicleUpgradeOnSlot(v, 16)
                local felgi = getVehicleUpgradeOnSlot(v, 12)
                local paintjob = getVehiclePaintjob(v)
                local hr, hg, hb = getVehicleHeadLightColor(v)
                local tablica = getVehiclePlateText(v)
                local wariant1, wariant2 = getVehicleVariant(v)
                local vmax = getVehicleHandling(v).maxVelocity
                local acceler = getVehicleHandling(v).engineAcceleration
                local id = getElementData(v, "vehid")
                
                if ( id ) then
                    local q = dbPoll(dbQuery(conn, "SELECT * FROM OP_Vehicles WHERE id=?", id), -1)
                    if #q > 0 then
                        dbExec ( conn, "UPDATE OP_Vehicles SET model=?, posx=?, posy=?, posz=?, rotx=?, roty=?, rotz=?, color1=?, color2=?, color3=?, color4=?, owner=?, przebieg=?, paliwo=?, bak=?, paintjob=?, hr=?, hg=?, hb=?, felgi=?, t0=?, t1=?, t2=?, t3=?, t4=?, t5=?, t6=?, t7=?, t8=?, t9=?, t13=?, t14=?, t15=?, t16=?, tablica=?, wariant1=?, wariant2=?, vmax=?, acceler=? WHERE id=?", pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler, id)
                    else
                        dbExec ( conn, "INSERT INTO OP_Vehicles (id, model, posx, posy, posz, rotx, roty, rotz, color1, color2, color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", id, pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) 
                    end
                end
            end
        end
        outputChatBox("* Zapis zako?czony!", plr, 255, 255, 255)
    end
end)

Wysłany: 2016-07-06, 17:02

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50


Teraz dzia?a ale tylko zapis, update nie dzia?a czyli tak jak wczesniej i nie ma nic w DB

Wysłany: 2016-07-06, 17:04

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3


Dziwne w takim razie... A w bazie danych normalnie si? zapisuje? Daj zrzut z ekrany bazy danych.

Wysłany: 2016-07-06, 17:11

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50


Kliknij ?eby si? powi?kszy?o

Wysłany: 2016-07-06, 17:13

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3

Okej, a sprawd? czy wyskakuje "test" po zapisie.

local conn = dbConnect ( "sqlite", "db.db" )

addEventHandler ( "onResourceStart", resourceRoot, function ()
    if conn then
        dbExec ( conn, "CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q = dbQuery ( conn, "SELECT * FROM OP_Vehicles")
        local result = dbPoll ( q, -1 )
        if #result > 0 then
            for _,v in pairs ( result ) do
                local auto = createVehicle ( v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor ( auto, v["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto, "vehid", v["id"])
                setElementData (auto, "owner", v["owner"])
                setElementData (auto, "przebieg", v["przebieg"])
                setElementData (auto, "paliwo", v["paliwo"])
                setElementData (auto, "bak", v["bak"])        
                for i= 0, 9 do
                    addVehicleUpgrade(auto, v["t"..i..""])
                end    
                for is = 13,16 do
                    addVehicleUpgrade(auto, v["t"..is..""])
                end
                setVehiclePaintjob(auto, v["paintjob"])
                setVehicleVariant(auto, v["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(auto, v["hr"], v["hg"], v["hb"])
                setVehiclePlateText(auto, v["tablica"])
                setVehicleHandling(auto, "engineAcceleration", v["acceler"])
                setVehicleHandling(auto, "maxVelocity", v["vmax"])
                setVehicleOverrideLights(auto, 1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc = getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..acc, aclGetGroup("Admin")) then
        for _,v in ipairs ( getElementsByType ( "vehicle") ) do
            if getElementData(v, "prywatne") then
                local pojazdID = getElementModel ( v )
                local c1,c2,c3,c4 = getVehicleColor ( v )
                local x,y,z = getElementPosition ( v )
                local rotx, roty, rotz = getElementRotation ( v )
                local owner = getElementData(v, "owner")
                local przebieg = getElementData(v, "przebieg")
                local paliwo = getElementData(v, "paliwo")
                local bak = getElementData(v, "bak")
                local t0 = getVehicleUpgradeOnSlot(v, 0)
                local t1 = getVehicleUpgradeOnSlot(v, 1)
                local t2 = getVehicleUpgradeOnSlot(v, 2)
                local t3 = getVehicleUpgradeOnSlot(v, 3)
                local t4 = getVehicleUpgradeOnSlot(v, 4)
                local t5 = getVehicleUpgradeOnSlot(v, 5)
                local t6 = getVehicleUpgradeOnSlot(v, 6)
                local t7 = getVehicleUpgradeOnSlot(v, 7)
                local t8 = getVehicleUpgradeOnSlot(v, 8)
                local t9 = getVehicleUpgradeOnSlot(v, 9)
                local t13 = getVehicleUpgradeOnSlot(v, 13)
                local t14 = getVehicleUpgradeOnSlot(v, 14)
                local t15 = getVehicleUpgradeOnSlot(v, 15)
                local t16 = getVehicleUpgradeOnSlot(v, 16)
                local felgi = getVehicleUpgradeOnSlot(v, 12)
                local paintjob = getVehiclePaintjob(v)
                local hr, hg, hb = getVehicleHeadLightColor(v)
                local tablica = getVehiclePlateText(v)
                local wariant1, wariant2 = getVehicleVariant(v)
                local vmax = getVehicleHandling(v).maxVelocity
                local acceler = getVehicleHandling(v).engineAcceleration
                local id = getElementData(v, "vehid")
                
                if ( id ) then
                    local q = dbPoll(dbQuery(conn, "SELECT * FROM OP_Vehicles WHERE id=?", id), -1)
                    if #q > 0 then
                        outputChatBox("test")
                        dbExec ( conn, "UPDATE OP_Vehicles SET model=?, posx=?, posy=?, posz=?, rotx=?, roty=?, rotz=?, color1=?, color2=?, color3=?, color4=?, owner=?, przebieg=?, paliwo=?, bak=?, paintjob=?, hr=?, hg=?, hb=?, felgi=?, t0=?, t1=?, t2=?, t3=?, t4=?, t5=?, t6=?, t7=?, t8=?, t9=?, t13=?, t14=?, t15=?, t16=?, tablica=?, wariant1=?, wariant2=?, vmax=?, acceler=? WHERE id=?", pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler, id)
                    else
                        dbExec ( conn, "INSERT INTO OP_Vehicles (id, model, posx, posy, posz, rotx, roty, rotz, color1, color2, color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", id, pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) 
                    end
                end
            end
        end
        outputChatBox("* Zapis zako?czony!", plr, 255, 255, 255)
    end
end)

Wysłany: 2016-07-06, 17:14

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50


Nie wyskakuje napis test

Wysłany: 2016-07-06, 17:16

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3

A b??d?w nie ma?

Teraz co wyskakuje?

local conn = dbConnect ( "sqlite", "db.db" )

addEventHandler ( "onResourceStart", resourceRoot, function ()
    if conn then
        dbExec ( conn, "CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q = dbQuery ( conn, "SELECT * FROM OP_Vehicles")
        local result = dbPoll ( q, -1 )
        if #result > 0 then
            for _,v in pairs ( result ) do
                local auto = createVehicle ( v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor ( auto, v["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto, "vehid", v["id"])
                setElementData (auto, "owner", v["owner"])
                setElementData (auto, "przebieg", v["przebieg"])
                setElementData (auto, "paliwo", v["paliwo"])
                setElementData (auto, "bak", v["bak"])        
                for i= 0, 9 do
                    addVehicleUpgrade(auto, v["t"..i..""])
                end    
                for is = 13,16 do
                    addVehicleUpgrade(auto, v["t"..is..""])
                end
                setVehiclePaintjob(auto, v["paintjob"])
                setVehicleVariant(auto, v["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(auto, v["hr"], v["hg"], v["hb"])
                setVehiclePlateText(auto, v["tablica"])
                setVehicleHandling(auto, "engineAcceleration", v["acceler"])
                setVehicleHandling(auto, "maxVelocity", v["vmax"])
                setVehicleOverrideLights(auto, 1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc = getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..acc, aclGetGroup("Admin")) then
        for _,v in ipairs ( getElementsByType ( "vehicle") ) do
            if getElementData(v, "prywatne") then
                local pojazdID = getElementModel ( v )
                local c1,c2,c3,c4 = getVehicleColor ( v )
                local x,y,z = getElementPosition ( v )
                local rotx, roty, rotz = getElementRotation ( v )
                local owner = getElementData(v, "owner")
                local przebieg = getElementData(v, "przebieg")
                local paliwo = getElementData(v, "paliwo")
                local bak = getElementData(v, "bak")
                local t0 = getVehicleUpgradeOnSlot(v, 0)
                local t1 = getVehicleUpgradeOnSlot(v, 1)
                local t2 = getVehicleUpgradeOnSlot(v, 2)
                local t3 = getVehicleUpgradeOnSlot(v, 3)
                local t4 = getVehicleUpgradeOnSlot(v, 4)
                local t5 = getVehicleUpgradeOnSlot(v, 5)
                local t6 = getVehicleUpgradeOnSlot(v, 6)
                local t7 = getVehicleUpgradeOnSlot(v, 7)
                local t8 = getVehicleUpgradeOnSlot(v, 8)
                local t9 = getVehicleUpgradeOnSlot(v, 9)
                local t13 = getVehicleUpgradeOnSlot(v, 13)
                local t14 = getVehicleUpgradeOnSlot(v, 14)
                local t15 = getVehicleUpgradeOnSlot(v, 15)
                local t16 = getVehicleUpgradeOnSlot(v, 16)
                local felgi = getVehicleUpgradeOnSlot(v, 12)
                local paintjob = getVehiclePaintjob(v)
                local hr, hg, hb = getVehicleHeadLightColor(v)
                local tablica = getVehiclePlateText(v)
                local wariant1, wariant2 = getVehicleVariant(v)
                local vmax = getVehicleHandling(v).maxVelocity
                local acceler = getVehicleHandling(v).engineAcceleration
                local id = getElementData(v, "vehid")
                
                if ( id ) then
                    local q = dbPoll(dbQuery(conn, "SELECT * FROM OP_Vehicles WHERE id=?", id), -1)
                    outputChatBox(#q)
                    if #q > 0 then
                        dbExec ( conn, "UPDATE OP_Vehicles SET model=?, posx=?, posy=?, posz=?, rotx=?, roty=?, rotz=?, color1=?, color2=?, color3=?, color4=?, owner=?, przebieg=?, paliwo=?, bak=?, paintjob=?, hr=?, hg=?, hb=?, felgi=?, t0=?, t1=?, t2=?, t3=?, t4=?, t5=?, t6=?, t7=?, t8=?, t9=?, t13=?, t14=?, t15=?, t16=?, tablica=?, wariant1=?, wariant2=?, vmax=?, acceler=? WHERE id=?", pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler, id)
                    else
                        dbExec ( conn, "INSERT INTO OP_Vehicles (id, model, posx, posy, posz, rotx, roty, rotz, color1, color2, color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", id, pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) 
                    end
                end
            end
        end
        outputChatBox("* Zapis zako?czony!", plr, 255, 255, 255)
    end
end)

Wysłany: 2016-07-06, 17:18

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50


wyskakuje liczba 0, a jak zapisuje drugi raz to nic nie wyskakuje oczywicie napis te?

Wysłany: 2016-07-06, 17:21

Jacob
Głupiomądry

Wiek: 28
Na forum: 5643 dni
Posty: 967
Nick w MP: Jacob

Piwa: 786

Respekt: 212,3
Respekt: 212,3

Dziwne, bo powinno pokazywa? 1, bo takie ID ju? jest zapisane w bazie...

[ Dodano: 2016-07-06, 17:24 ]

local conn = dbConnect ( "sqlite", "db.db" )

addEventHandler ( "onResourceStart", resourceRoot, function ()
    if conn then
        dbExec ( conn, "CREATE TABLE IF NOT EXISTS OP_Vehicles(id INTEGER, model INTEGER, posx FLOAT, posy FLOAT, posz FLOAT, rotx FLOAT, roty FLOAT, rotz FLOAT, color1 INTEGER, color2 INTEGER, color3 INTEGER, color4 INTEGER, owner VARCHAR, przebieg FLOAT, paliwo FLOAT, bak FLOAT, paintjob INTEGER, hr INTEGER, hg INTEGER, hb INTEGER, felgi INTEGER, t0 INTEGER, t1 INTEGER, t2 INTEGER, t3 INTEGER, t4 INTEGER, t5 INTEGER, t6 INTEGER, t7 INTEGER, t8 INTEGER, t9 INTEGER, t13 INTEGER, t14 INTEGER, t15 INTEGER, t16 INTEGER, tablica TEXT, wariant1 INTEGER, wariant2 INTEGER, vmax FLOAT, acceler FLOAT )" )
        local q = dbQuery ( conn, "SELECT * FROM OP_Vehicles")
        local result = dbPoll ( q, -1 )
        if #result > 0 then
            for _,v in pairs ( result ) do
                local auto = createVehicle ( v["model"], v["posx"], v["posy"], v["posz"], v["rotx"], v["roty"], v["rotz"] )
                setVehicleColor ( auto, v["color1"], v["color2"], v["color3"], v["color4"] )
                setElementData (auto, "vehid", v["id"])
                setElementData (auto, "owner", v["owner"])
                setElementData (auto, "przebieg", v["przebieg"])
                setElementData (auto, "paliwo", v["paliwo"])
                setElementData (auto, "bak", v["bak"])        
                for i= 0, 9 do
                    addVehicleUpgrade(auto, v["t"..i..""])
                end    
                for is = 13,16 do
                    addVehicleUpgrade(auto, v["t"..is..""])
                end
                setVehiclePaintjob(auto, v["paintjob"])
                setVehicleVariant(auto, v["wariant1"], v["wariant2"])
                setVehicleHeadLightColor(auto, v["hr"], v["hg"], v["hb"])
                setVehiclePlateText(auto, v["tablica"])
                setVehicleHandling(auto, "engineAcceleration", v["acceler"])
                setVehicleHandling(auto, "maxVelocity", v["vmax"])
                setVehicleOverrideLights(auto, 1)
            end
        end
        dbFree(q)
    end
end)



addCommandHandler("zapisz", function ( plr )
    acc = getAccountName(getPlayerAccount(plr))
    if isObjectInACLGroup("user." ..acc, aclGetGroup("Admin")) then
        for _,v in ipairs ( getElementsByType ( "vehicle") ) do
            if getElementData(v, "prywatne") then
                local pojazdID = getElementModel ( v )
                local c1,c2,c3,c4 = getVehicleColor ( v )
                local x,y,z = getElementPosition ( v )
                local rotx, roty, rotz = getElementRotation ( v )
                local owner = getElementData(v, "owner")
                local przebieg = getElementData(v, "przebieg")
                local paliwo = getElementData(v, "paliwo")
                local bak = getElementData(v, "bak")
                local t0 = getVehicleUpgradeOnSlot(v, 0)
                local t1 = getVehicleUpgradeOnSlot(v, 1)
                local t2 = getVehicleUpgradeOnSlot(v, 2)
                local t3 = getVehicleUpgradeOnSlot(v, 3)
                local t4 = getVehicleUpgradeOnSlot(v, 4)
                local t5 = getVehicleUpgradeOnSlot(v, 5)
                local t6 = getVehicleUpgradeOnSlot(v, 6)
                local t7 = getVehicleUpgradeOnSlot(v, 7)
                local t8 = getVehicleUpgradeOnSlot(v, 8)
                local t9 = getVehicleUpgradeOnSlot(v, 9)
                local t13 = getVehicleUpgradeOnSlot(v, 13)
                local t14 = getVehicleUpgradeOnSlot(v, 14)
                local t15 = getVehicleUpgradeOnSlot(v, 15)
                local t16 = getVehicleUpgradeOnSlot(v, 16)
                local felgi = getVehicleUpgradeOnSlot(v, 12)
                local paintjob = getVehiclePaintjob(v)
                local hr, hg, hb = getVehicleHeadLightColor(v)
                local tablica = getVehiclePlateText(v)
                local wariant1, wariant2 = getVehicleVariant(v)
                local vmax = getVehicleHandling(v).maxVelocity
                local acceler = getVehicleHandling(v).engineAcceleration
                local id = getElementData(v, "vehid")
                
                outputChatBox("id: ".. id)
                if ( id ) then
                    local q = dbPoll(dbQuery(conn, "SELECT * FROM OP_Vehicles WHERE id=?", id), -1)
                    outputChatBox(#q)
                    if #q > 0 then
                        dbExec ( conn, "UPDATE OP_Vehicles SET model=?, posx=?, posy=?, posz=?, rotx=?, roty=?, rotz=?, color1=?, color2=?, color3=?, color4=?, owner=?, przebieg=?, paliwo=?, bak=?, paintjob=?, hr=?, hg=?, hb=?, felgi=?, t0=?, t1=?, t2=?, t3=?, t4=?, t5=?, t6=?, t7=?, t8=?, t9=?, t13=?, t14=?, t15=?, t16=?, tablica=?, wariant1=?, wariant2=?, vmax=?, acceler=? WHERE id=?", pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler, id)
                    else
                        dbExec ( conn, "INSERT INTO OP_Vehicles (id, model, posx, posy, posz, rotx, roty, rotz, color1, color2, color3, color4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", id, pojazdID, x, y, z, rotx, roty, rotz, c1, c2, c3, c4, owner, przebieg, paliwo, bak, paintjob, hr, hg, hb, felgi, t0, t1, t2, t3, t4, t5, t6, t7, t8, t9, t13, t14, t15, t16, tablica, wariant1, wariant2, vmax, acceler) 
                    end
                end
            end
        end
        outputChatBox("* Zapis zako?czony!", plr, 255, 255, 255)
    end
end)

Powiedz co wyskakuje.

Wysłany: 2016-07-06, 17:32

GamerHD11

Wiek: 24
Na forum: 4402 dni
Posty: 259
Nick w MP: SzokoHD

Piwa: 23

Respekt: 50


Powiem tak kupi?em auto, zapisa?em je, zrestartowa?em skrypt i pojawi?o si? (Wyskoczy?o 0 i ID:1), potem odjecha?em troch? do przodu zapisa?em i si? z updatowa?o(Wyskoczy?o 1 i ID:1), kupi?em kolejne auto zapisa?em je i spoko ale potem ju? ?adne auto si? nie updatowa?o Teraz chyba tylko jedno auto si? zapisuje, a nie wszystkie

Tagi: wszystkie :: auta :: się :: zapisują

Anonymous

Na forum: 245 dni
Posty: 1

Anonymous Koniecznie zajrzyj na:

Skocz do:

Wyświetl posty z ostatnich:

GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Wszystkie auta się zapisują

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

Idź do strony: « 1 2 3 4 5 6 7 8 »

Dodaj temat do Ulubionych
Wersja do druku

Zaloguj Zarejestruj