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

Wysłany: 2016-07-04, 12:50


Janusz_GRA

NO NAME






Wiek: 26
Na forum: 3716 dni
Posty: 223
Nick w MP: michalMonster

Piwa: 175

Respekt: 85,8

Witam mam problem z prac? kuriera, gdy do jedziemy do punktu to na chacie pisze ?e Zarobi?e? 35 ale nie daje nam pieni?dzy. Za pomoc stawiam :piwo: i R*

Link do pracy: http://www113.zippyshare.com/v/5WWHkert/file.html

zone = {}
table.insert(zone,1,createColSphere(-2170,-213,35.2,2))
table.insert(zone,2,createColSphere(-2170.89,-219.99,34.84,2))


miejscarozladunku = {
{2101.75,2671.19,10.81},  ---- tu dodajemy miejsca poprostu skopiuj linijke i wstaw podmieniajac kordy x,y,;) 
{2264.12,2738.32,10.82},
{2483.38,1946.33,10.17},
{1705.82,997.99,10.82},
{777.88,1879.80,4.96},
}

controlTable = {  "forwards""backwards""left""right""jump""sprint""enter_exit", } --- blokada przyciskow ze wzgledu isetElementFrozen buguje przy attachu :3

money 35  --- ilosc pieniedzy jakie dostajemy za 1 paczke





--Auto ma byc 1
vehiclePos = {
{499,1461.88979.0910.654.20.1358.5},
}


addEvent("kurier:start",true)
addEventHandler("kurier:start",resourceRoot,function(plr)
if not plr then return end
if not getElementData(plr,"job:vehicle"then

  
outputChatBox("*Zaczales prace kuriera",plr)
setElementData(plr,"player:job",true)

--auto
local v vehiclePos
local rol math.random(1,#vehiclePos)
local checkzone getElementsWithinColShape zone[rol], "vehicle" )
if #checkzone ~= 0 then outputChatBox("*Parking zajety poczekaj!",plr,255,0,0) return end
car createVehicle(v[rol][1], v[rol][2], v[rol][3], v[rol][4], v[rol][5], v[rol][6],v[rol][7])
setElementFrozen(cartrue)
setElementData(car"vehicle:fuel"100)
setElementData(car"vehicle:mileage"math.random(1000090000))
setElementData(car,"vehicle:pack",0)
setElementData(car"vehicle:desc","Za?adowano [0/5] skrzy?")
setElementData(car,"vehicle:destination",false)
setElementData(plr,"job:vehicle",car)
setElementData(car,"job:vehicle",plr)
setVehicleEngineState(carfalse)
addEventHandler "onPlayerQuit"plr, function() if isElement(carthen destroyElement(carend end)
addEventHandler("onVehicleStartEnter",car,function(g,s,j) if ~= plr then cancelEvent() end end)
end
if getElementData(plr,"job:object"then outputChatBox("Posiadasz juz skrzynke",plr,255,0,0) return end
setElementData(plr,"job:anim",setPedAnimation plr"CARRY""crry_prtial"1,true ))
setElementData(plr,"job:object",createObject(1271000))
skrzynia getElementData(plr,"job:object")
attachElements skrzyniaplr00.80.5)
local veh getElementData(plr,"job:vehicle")
local x,y,getElementPosition(veh)
local cel createMarker(x-5yz"checkpoint"1.425500,255,plr)
attachElements(cel,veh,0,-5,0)
addEventHandler "onPlayerQuit"plr, function() if isElement(skrzyniathen destroyElement(skrzyniaend end)
    addEventHandler("onMarkerHit"cel, function(elmd)
    if not md or getElementType(el) ~= "player" then return end

            if getPedOccupiedVehicle(elthen
            outputChatBox("* Nie mo?esz tego od?o?y? b?d?c w poje?dzie!",el)
                return
            end
            local vehe getElementData(el,"job:vehicle")
            if not vehe then return end
            if getElementData(vehe,"vehicle:pack") > 4 then
                setElementFrozen(elfalse)
                outputChatBox("* Za malo miejsca.",el,255,0,0)
                setElementData(el,"job:anim",false)
                destroyElement(getElementData(el,"job:object"))
                destroyElement(cel)
                return
            end
            for u,s in ipairs(controlTable) do
             toggleControl(el,s,false)
            end
            outputChatBox("* K?adziesz Skrzynie Poczekaj (5 sekund)",el)
            setTimer(function()
                for u,s in ipairs(controlTable) do
                toggleControl(el,s,true)
                end
                outputChatBox("* Wlozyles skrzynk?.",el)
                destroyElement(getElementData(el,"job:object"))
                setElementData(el,"job:object",false)
                destroyElement(cel)
                setElementData(vehe"vehicle:pack"tonumber(getElementData(vehe,"vehicle:pack"))+1)
                setElementData(vehe"vehicle:desc","Za?adowano ["..tonumber(getElementData(vehe,"vehicle:pack")).."/5] skrzy?")
                setTimer(setPedAnimation,5000,1,el)
            end50001)
        end)
end)

addEventHandler("onVehicleStartEnter",resourceRoot,function(gracz,s,j)
if getElementData(gracz,"job:object"then outputChatBox("*Nie mozesz wej?? z skrzynk?!",gracz,255,0,0); cancelEvent() return end
if getElementData(source,"vehicle:destination"then return end
local losuj math.random(2#miejscarozladunku)
local miejsce createMarker(miejscarozladunku[losuj][1], miejscarozladunku[losuj][2], miejscarozladunku[losuj][3]-1"checkpoint"3.002550,255,gracz)
local blip createBlip(miejscarozladunku[losuj][1], miejscarozladunku[losuj][2], miejscarozladunku[losuj][3], 41,2,255,0,0,255,1,9999,gracz)
setElementData(source,"vehicle:destination",{miejsce,blip})
addEventHandler("onMarkerHit"miejsce, function(elmd)
    if not md or getElementType(el) ~= "vehicle" then return end
    local plr getVehicleOccupant(el,0)
    if getElementData(el,"vehicle:pack") == false then outputChatBox("*Brak Paczek!",plr) return end
    local paczki getElementData(el,"vehicle:pack")
    setElementData(el,"vehicle:pack",false)
    local pieniadze paczki*money
    triggerEvent("givePlayerMoney",plr,pieniadze/2)
    outputChatBox("* Zarobiles "..pieniadze.." za rozwiezienie "..paczki.." paczek",plr)
    destroyElement(blip)
    destroyElement(miejsce)
    setElementData(el,"vehicle:destination",false)
    setElementData(el"vehicle:desc",false)
end)
end)

addEventHandler("onVehicleExit",resourceRoot,function(gracz,s,j)
if getElementData(source,"vehicle:destination"then
 for u,s in ipairs(getElementData(source,"vehicle:destination")) do
destroyElement(s)
end
end
destroyElement(source)
setElementData(gracz,"job:vehicle",false)
end)


addEventHandler("onResourceStop",resourceRoot,function() 
local players getElementsByType "player" ) 
for theKey,thePlayer in ipairs(players) do
setElementData(thePlayer,"job:object",false)
setElementData(thePlayer,"job:vehicle",false)
end
end)


local praca createMarker(1466.08,969.54,10.82-1"cylinder"225500,150)
local t createElement('text')
setElementPosition(t,1466.08,969.54,10.82)
setElementData(t,'name',"Praca Dorywcza kurier")
createBlip(1466.08,969.54,10.8246,2,0,0,0,0,0,275)

local t createElement('text')
setElementPosition(t,1461.58,981.05,10.82)
setElementData(t,'name',"Nie parkowa?, respi sie pojazd kuriera!")


addEventHandler("onClientMarkerHit"praca, function(elmd)
    if not md or getElementType(el) ~= "player" then return end
    if el ~= localPlayer then return end
    outputChatBox("* Aby rozpocz?? prac? wci?nij 'E'")
end)

bindKey("e""down", function()
    if not isElementWithinMarker(localPlayerpracathen return end
    
    triggerServerEvent("kurier:start"resourceRoot,localPlayer)
end


Ostatnio zmieniony przez Janusz_GRA 2016-07-04, 13:21, w całości zmieniany 2 razy  
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-04, 13:15


marcin778

Krytyk serwerów MTA






Wiek: 24
Na forum: 4149 dni
Posty: 2268
Nick w MP: Marcineg

Piwa: 4662

Respekt: 1436,8
Respekt: 1436,8

Wstaw kod a nie dajesz link do tej pracy.

Podpis
Moje prace: https://www.youtube.com/c...MuaWGHPp1mhlGnw

-- obecnie
-- obecnie
-- dawniej
-- dawniej
-- dawniej
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-04, 13:20


Dexnes_

Tiger






Wiek: 26
Na forum: 4401 dni
Posty: 620
Nick w MP: Dexnes

Piwa: 1394

Respekt: 390
Respekt: 390Respekt: 390Respekt: 390Respekt: 390

Teraz b?dziesz dostawa? nale?ne pieni?dze :

Server.lua


addEvent("kurier:start",true)
addEventHandler("kurier:start",resourceRoot,function(plr)
if not plr then return end
if not getElementData(plr,"job:vehicle"then

  
outputChatBox("*Zaczales prace kuriera",plr)
setElementData(plr,"player:job",true)

--auto
local v vehiclePos
local rol math.random(1,#vehiclePos)
local checkzone getElementsWithinColShape zone[rol], "vehicle" )
if #checkzone ~= 0 then outputChatBox("*Parking zajety poczekaj!",plr,255,0,0) return end
car createVehicle(v[rol][1], v[rol][2], v[rol][3], v[rol][4], v[rol][5], v[rol][6],v[rol][7])
setElementFrozen(cartrue)
setElementData(car"vehicle:fuel"100)
setElementData(car"vehicle:mileage"math.random(1000090000))
setElementData(car,"vehicle:pack",0)
setElementData(car"vehicle:desc","Za?adowano [0/5] skrzy?")
setElementData(car,"vehicle:destination",false)
setElementData(plr,"job:vehicle",car)
setElementData(car,"job:vehicle",plr)
setVehicleEngineState(carfalse)
addEventHandler "onPlayerQuit"plr, function() if isElement(carthen destroyElement(carend end)
addEventHandler("onVehicleStartEnter",car,function(g,s,j) if ~= plr then cancelEvent() end end)
end
if getElementData(plr,"job:object"then outputChatBox("Posiadasz juz skrzynke",plr,255,0,0) return end
setElementData(plr,"job:anim",setPedAnimation plr"CARRY""crry_prtial"1,true ))
setElementData(plr,"job:object",createObject(1271000))
skrzynia getElementData(plr,"job:object")
attachElements skrzyniaplr00.80.5)
local veh getElementData(plr,"job:vehicle")
local x,y,getElementPosition(veh)
local cel createMarker(x-5yz"checkpoint"1.425500,255,plr)
attachElements(cel,veh,0,-5,0)
addEventHandler "onPlayerQuit"plr, function() if isElement(skrzyniathen destroyElement(skrzyniaend end)
    addEventHandler("onMarkerHit"cel, function(elmd)
    if not md or getElementType(el) ~= "player" then return end

            if getPedOccupiedVehicle(elthen
            outputChatBox("* Nie mo?esz tego od?o?y? b?d?c w poje?dzie!",el)
                return
            end
            local vehe getElementData(el,"job:vehicle")
            if not vehe then return end
            if getElementData(vehe,"vehicle:pack") > 4 then
                setElementFrozen(elfalse)
                outputChatBox("* Za malo miejsca.",el,255,0,0)
                setElementData(el,"job:anim",false)
                destroyElement(getElementData(el,"job:object"))
                destroyElement(cel)
                return
            end
            for u,s in ipairs(controlTable) do
             toggleControl(el,s,false)
            end
            outputChatBox("* K?adziesz Skrzynie Poczekaj (5 sekund)",el)
            setTimer(function()
                for u,s in ipairs(controlTable) do
                toggleControl(el,s,true)
                end
                outputChatBox("* Wlozyles skrzynk?.",el)
                destroyElement(getElementData(el,"job:object"))
                setElementData(el,"job:object",false)
                destroyElement(cel)
                setElementData(vehe"vehicle:pack"tonumber(getElementData(vehe,"vehicle:pack"))+1)
                setElementData(vehe"vehicle:desc","Za?adowano ["..tonumber(getElementData(vehe,"vehicle:pack")).."/5] skrzy?")
                setTimer(setPedAnimation,5000,1,el)
            end50001)
        end)
end)

addEventHandler("onVehicleStartEnter",resourceRoot,function(gracz,s,j)
if getElementData(gracz,"job:object"then outputChatBox("*Nie mozesz wej?? z skrzynk?!",gracz,255,0,0); cancelEvent() return end
if getElementData(source,"vehicle:destination"then return end
local losuj math.random(2#miejscarozladunku)
local miejsce createMarker(miejscarozladunku[losuj][1], miejscarozladunku[losuj][2], miejscarozladunku[losuj][3]-1"checkpoint"3.002550,255,gracz)
local blip createBlip(miejscarozladunku[losuj][1], miejscarozladunku[losuj][2], miejscarozladunku[losuj][3], 41,2,255,0,0,255,1,9999,gracz)
setElementData(source,"vehicle:destination",{miejsce,blip})
addEventHandler("onMarkerHit"miejsce, function(elmd)
    if not md or getElementType(el) ~= "vehicle" then return end
    local plr getVehicleOccupant(el,0)
    if getElementData(el,"vehicle:pack") == false then outputChatBox("*Brak Paczek!",plr) return end
    local paczki getElementData(el,"vehicle:pack")
    setElementData(el,"vehicle:pack",false)
    local pieniadze paczki*money
    givePlayerMoney plrpieniadze) 
    outputChatBox("* Zarobiles "..pieniadze.." za rozwiezienie "..paczki.." paczek",plr)
    destroyElement(blip)
    destroyElement(miejsce)
    setElementData(el,"vehicle:destination",false)
    setElementData(el"vehicle:desc",false)
end)
end)

addEventHandler("onVehicleExit",resourceRoot,function(gracz,s,j)
if getElementData(source,"vehicle:destination"then
 for u,s in ipairs(getElementData(source,"vehicle:destination")) do
destroyElement(s)
end
end
destroyElement(source)
setElementData(gracz,"job:vehicle",false)
end)


addEventHandler("onResourceStop",resourceRoot,function() 
local players getElementsByType "player" ) 
for theKey,thePlayer in ipairs(players) do
setElementData(thePlayer,"job:object",false)
setElementData(thePlayer,"job:vehicle",false)
end
end)


Podmie? tylko plik server.lua

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-07-04, 13:32


Janusz_GRA

NO NAME






Wiek: 26
Na forum: 3716 dni
Posty: 223
Nick w MP: michalMonster

Piwa: 175

Respekt: 85,8

BlackGamePL, Dzi?ki dzia?a

Podpis
Jeśli nie możesz czegoś zrobić dobrze, przynajmniej spraw, żeby wyglądało dobrze.
Postaw piwo autorowi tego posta
 

 
Tagi: praca
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Praca Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi

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