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

Wysłany: 2021-02-16, 11:31


Mat81018







Wiek: 36
Na forum: 2392 dni
Posty: 26
Nick w MP: Mata

Piwa: 4

Respekt: 50

Przerobi mi kto? kod z sweeper?w ?e nie respi pojazd?w tylko to zbieranie dzia?a w ka?dym poje?dzie o modelu ID 574?

Skrypt jest z pystories

local money 35 -- ile dostajesz za 1 kg
local score -- Reputacji ile dostajesz
createBlip(-1869.34,-136.15,11.9046,2,0,0,0,0,0,275)

local code="Sweepers" -- kod pracy
local jobOnline=true -- czy praca w??czona
local jobVehicles = { -- pozycjpojazd?w 574
{574,-1866.33,-128.86,11.8700180},
{574,-1862.51,-129.03,11.8700180},
{574,-1859.69,-129.46,11.8800180},
{574,-1856.85,-129.76,11.8800180},
{574,-1853.35,-129.46,11.8800180},
{574,-1850.30,-129.69,11.8800180},
{574,-1848.99,-143.99,11.87},
{574,-1851.79,-143.86,11.87},
{574,-1855.47,-143.68,11.87},
{574,-1859.69,-143.65,11.87},
{574,-1864.00,-144.18,11.87},
{574,-1868.02,-144.05,11.87},
{574,-1872.58,-143.90,11.87},
{574,-1881.97,-170.71,11.92},
{574,-1882.21,-166.68,11.88},
{574,-1882.51,-161.52,11.86},
{574,-1889.33,-176.13,12.10},
{574,-1889.19,-171.96,12.00},
{574,-1889.09,-167.15,11.90},
{574,-1889.13,-162.02,11.87},
{574,-1889.03,-157.45,11.86},
{574,-1888.94,-152.32,11.85},
{574,-1887.55,-144.78,11.87},
{574,-1885.54,-138.93,11.85},
{574,-1855.48,-168.75,9.15,0,0,180},
{574,-1852.82,-168.94,9.19,0,0,180},
{574,-1848.65,-168.84,9.19,0,0,180},
{574,-1872.79,-178.17,9.31,0,0,270},
{574,-1866.68,-178.09,9.29,0,0,270},
{574,-1859.87,-178.06,9.30,0,0,270},
{574,-1852.22,-178.08,9.36,0,0,270},
}

local jobMarker createMarker(-1877.19,-151.71,11.90-0.90,"cylinder",6,255,255,25520)
local text createElement("text")
setElementData(text,"name""Punkt rozladowania")
setElementPosition(text,-1877.19,-151.71,11.90+0.2)
for i,v in ipairs(jobVehicles) do
    local veh=createVehicle(v[1], v[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9], v[10], v[11], v[12], v[13])
    setVehicleRespawnPosition(vehv[2], v[3], v[4], v[5], v[6], v[7], v[8], v[9], v[10], v[11], v[12], v[13])
    setElementData(veh,"vehicle:desc","Czyszczenie ulic")
    setElementData(veh,"vehicle:mileage"math.random(1000,50000))
    setElementData(veh,"vehicle:fuel",100)
    setElementData(veh,"vehicle:job",code)
    setVehicleDamageProof(vehtrue)
    toggleVehicleRespawn(vehtrue)
    setVehicleIdleRespawnDelay(veh10000)
    setElementFrozen(veh,true)
    removeVehicleSirens(veh)
    setVehicleHeadLightColorveh0,0,255 )
    addVehicleSirens(veh22truetruefalsetrue)
    setVehicleSirens(veh1, -0.30.41.32552550104.691.8)
    setVehicleSirens(veh20.30.41.32552550104.691.8)
end



addEventHandler("onVehicleStartEnter"resourceRoot, function(plr,seat)
    if seat ~= 0 then return end
    if jobOnline == false then
        outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFPraca jest wy??czona."plr255255,255,true)
        cancelEvent()
        return
    end
    if getElementData(plr,"player:job"then
        outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFPosiadasz aktywn? prac?!"plr255255,255,true)
        cancelEvent()
        return
    end
end)

addEventHandler("onVehicleExit"resourceRoot, function(plr,seat)
    if seat ~= 0 then return end
    setElementData(source,"vehicle:desc","Czyszczenie ulic")
    setElementData(plr,"player:job",false)
  toggleControl plr"brake_reverse"true )
end)

addEventHandler("onVehicleEnter"resourceRoot, function(plr,seat)
    if seat ~= 0 then return end
    setElementFrozen(source,false)
    setVehicleDamageProof(sourcefalse)
    setElementData(source,"vehicle:trash",0)
    setElementData(plr,"player:job",code)
    outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFRozpocz??e?(a?) prac?!"plr,255,255,255,true)
    outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFPosprz?taj ulice miasta!"plr,255,255,255,true)
    if not getElementData(plr"player:premium"then
    outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFPami?taj ?e maksymalne zape?nienie zbiornika to 200 kg!"plr255255255,true)
    else
    outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFPami?taj ?e minimalnie mo?esz odda? 10kg ?mieci!"plr255255255,true)
    end
--    toggleControl plr"brake_reverse"false )
end)

addEventHandler("onVehicleRespawn"resourceRoot, function()
    veh=source
    setElementData(veh,"vehicle:desc","Czyszczenie ulic")
    setElementData(veh,"vehicle:mileage"math.random(1000,50000))
    setElementData(veh,"vehicle:fuel",100)
    setElementData(veh,"vehicle:job",code)
    setElementData(source,"vehicle:trash",0)
    setElementFrozen(veh,true)
    setVehicleDamageProof(vehtrue)
    setVehicleOverrideLights veh)
    removeVehicleSirens(veh)
    addVehicleSirens(veh22truetruefalsetrue)
    setVehicleSirens(veh1, -0.30.41.32552550104.691.8)
    setVehicleSirens(veh20.30.41.32552550104.691.8)
end)


addEventHandler("onResourceStop"resourceRoot, function()
    for i,v in ipairs(getElementsByType("player")) do
        if getElementData(v"player:job")==code then
            setElementData(v"player:job"false)
            toggleControl v"brake_reverse"true )
        end
    end
end,false,"high")

function RGBToHex(redgreenbluealpha)
    if((red or red 255 or green or green 255 or blue or blue 255) or (alpha and (alpha or alpha 255))) then
        return nil
    end
    if(alphathen
        return string.format("#%.2X%.2X%.2X%.2X"red,green,blue,alpha)
    else
        return string.format("#%.2X%.2X%.2X"red,green,blue)
    end
end

addEventHandler("onMarkerHit",resourceRoot,function(element,md)
    if source ~= jobMarker then return end
    local type getElementType(element)
    if type == "player" then
    if not getPedOccupiedVehicle(elementthen return end
    if getElementData(getPedOccupiedVehicle(element),"vehicle:trash") and getElementData(getPedOccupiedVehicle(element),"vehicle:trash") >= 10 then
        local cash getElementData(getPedOccupiedVehicle(element),"vehicle:trash")*money
        local cash math.floor(cash)
        local m cash
        local vt getElementData(getPedOccupiedVehicle(element),"vehicle:trash")
        setElementData(getPedOccupiedVehicle(element),"vehicle:trash",0)
        setElementData(getPedOccupiedVehicle(element),"vehicle:desc","Czyszczenie ulic")
            if getElementData(element,"player:premium"then
            local m cash *2
            local m math.floor(m)
            outputChatBox("[#00FFFFInformacja PREMIUM#ffffff]#00FFFFRozladowa?e? zbiornik ?mieci. Wynagrodzenie kt?re dostajesz za "..vt.."KG kwot?("..m.."PLN) ",element,0,160,0,true)
            givePlayerMoney(element,m)
            else
            outputChatBox("[#00FFFFInformacja#ffffff]#00FFFFRozladowa?e? zbiornik ?mieci. Wynagrodzenie kt?re dostajesz za "..vt.."KG ktwot? "..m.."PLN",element,0,160,0,true)
            givePlayerMoney(element,m)
            end
    end
    end
end)
addEventHandler("onElementDestroy"resourceRoot, function()
    local type getElementType(source)
    if type == "vehicle" then
    cancelEvent()
    end
end)




Ostatnio zmieniony przez Wilq 2021-02-17, 08:50, w całości zmieniany 1 raz  
Postaw piwo autorowi tego posta
 

 
Wysłany: 2021-02-16, 11:50


_jvneczek







Wiek: 22
Na forum: 4326 dni
Posty: 1513
Nick w MP: _jvneczek

Piwa: 3949

Respekt: 337,5
Respekt: 337,5Respekt: 337,5Respekt: 337,5

Kod w [lua][/lua]


addEventHandler("onVehicleEnter"resourceRoot, function(plr,seat)
if seat ~= 0 then return end
setElementFrozen(source,false)
setVehicleDamageProof(sourcefalse)
setElementData(source,"vehicle:trash",0)
setElementData(plr,"player:job",code)

zr?b sprawdzanie pod model sweepera i zamiast tworzy? pojazdy, mo?esz usun?? kod od tworzenia pojazdu i po prostu sprawdzaj przy wsiadaniu do sweepera i nadawaj to co nadaje w kodzie wy?ej.

Postaw piwo autorowi tego posta
 

 
Tagi: sweeoery
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Sweeoery Odpowiedz do tematu

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
Dodaj temat do Ulubionych
Wersja do druku