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

Wysłany: 2018-09-30, 17:44


Pyrek24







Wiek: 25
Na forum: 3438 dni
Posty: 546
Nick w MP: Pyrek

Piwa: 10

Respekt: 50

Witam ot?? owa praca g?rnika nie daj? pieni?dzy pomo?e ktos?
KOD
local weapon_id 7
local category_animation "BASEBALL"
local digging_animation "bat_4"

str=""
local t=createElement("text")
setElementData(t,"name",str)
setElementPosition(t,-981.93, -1361.30116.80+4)

function aktualizujText()
local q=exports["ogrpg-db"]:dbGet("select * from job_top_gornik order by ilosc desc limit 10")
str=""
for i,v in ipairs(q) do
iii=i
local nick=exports["ogrpg-db"]:dbGet("select login,login2 from ogrpg_users where id=?"v["uid"])
for i2,v2 in ipairs(nick) do
if i2 1 then return end
if v2["login2"] == false then
str=""..str.."\n"..iii..". "..v2["login"].." - "..v["ilosc"].." wydobytych surowc?w"
else
str=""..str.."\n"..iii..". "..v2["login2"].." - "..v["ilosc"].." wydobytych surowc?w"
end
end
end
setElementData(t"name"str)
end
setTimer(aktualizujText100000)

function give_weapon()
giveWeapon(sourceweapon_id1)
setPedWeaponSlot(source1)
end
addEvent("kilof"trueaddEventHandler("kilof"getRootElement(), give_weapon)

function animation()
setPedAnimation(source"BASEBALL""Bat_4")
end
addEvent("animation"trueaddEventHandler("animation"getRootElement(), animation)

function end_job()
setPedAnimation(sourcefalse)
takeWeapon(sourceweapon_id)
end
addEvent("end_job"trueaddEventHandler("end_job"getRootElement(), end_job)

function koniec_animka()
setPedAnimation(sourcefalse)
end
addEvent("end_animation"trueaddEventHandler("end_animation"getRootElement(), koniec_animka)


addEvent("hajsikkopalnia",true)
addEventHandler("hajsikkopalnia",root,function(kwota)
givePlayerMoney(sourcekwota)
end)

local t=createElement("text")
setElementData(t,"scale",1.7)
setElementData(t,"name","Wejscie Do Kopalni")
setElementInterior(t,0)
setElementDimension(t,0)
setElementPosition(t,-989.07, -1380.37130.63)
createBlipAttachedTo (t46)

local t=createElement("text")
setElementData(t,"scale",1.7)
setElementData(t,"name","Wyjscie Z Kopalni")
setElementInterior(t,0)
setElementDimension(t,0)
setElementPosition(t,-981.63, -1361.31116.80)

door createMarker (-989.07, -1380.37130.63-1"cylinder"1.3255255255,0)
        setElementData(door"markery7"true)
setElementDimension(door0)
setElementInterior(door0)


addEventHandler("onMarkerHit"door, function(elmd)
    if getElementType(el) ~= "player" then return end
    if isPedInVehicle(elthen return end
    setElementDimension(el0)
    setElementInterior(el0)
    setElementPosition(el,  -978.13, -1361.11116.80)
end)


local job_marker createMarker(-997.14, -1375.71103.03-1"cylinder"1.32552552550)
        setElementData(job_marker"markery6"true)
local job_marker_cancel createMarker(-993.98, -1377.85130.67-1"cylinder"1.32552552550)
        setElementData(job_marker_cancel"markery3"true)
local time_freeze math.random(6000,9000)
local name_job "wydobywania surowc?w mineralnych"
local button_job "r"
local button_state "down"
local digging_animation "bat_4"
local swsh guiGetScreenSize()


local rozpoczecie createElement("text")
setElementData(rozpoczecie"name""Praca G?rnika\nAby rozpocz?c prace kliknij 'R'")
setElementPosition(rozpoczecie, -997.14, -1375.71103.03)

local anulowanie createElement("text")
setElementData(anulowanie"name""Aby zako?czy? prace, wci?nij 'R'!")
setElementPosition(anulowanie, -993.98, -1377.85130.67)


local points = {
    {-995.07, -1383.59103.03},  
    {-992.98, -1395.03103.03},
    {-1008.60, -1398.61103.10},
    {-1013.05, -1380.09103.10},
    {-1008.98, -1359.87103.10},
    {-1018.05, -1349.34103.10},
    {-1013.35, -1342.76103.11},
}

local nazwy = {
    "rudy ?elaza",
    "sztabki w?gla brunatnego",
    "sztabki w?gla kamiennego",
    "rudy z?ota",
    "rudy diamentu",
    "rudy szmaragdu",
    "rudy miedzi",
    "sztabki soli kamiennej",
    "sztabki granitu",
}

local objective
local draw
local draw 0
local element_type "player"

function isEventHandlerAddedsEventNamepElementAttachedTofunc )
    if typesEventName ) == 'string' and isElementpElementAttachedTo ) and typefunc ) == 'function' then
        local aAttachedFunctions getEventHandlerssEventNamepElementAttachedTo )
        if typeaAttachedFunctions ) == 'table' and #aAttachedFunctions > 0 then
            for iv in ipairsaAttachedFunctions ) do
                if == func then
                    return true
                end
            end
        end
    end
    return false
end

local function postep()
    local pasek interpolateBetween(000sw 0.429700, (getTickCount()-time)/time_freeze"InOutQuad")
    dxDrawText("Wykopujesz Rude..."sw 0.4480sh 0.7522sw 0.4407sh 0.2799tocolor(255255255255), 1.80"normalFont""left""top"falsefalsefalsetruefalse)
    dxDrawRectangle(sw 0.2855sh 0.8060sw 0.4297sh 0.0600tocolor(000170), false)
    dxDrawRectangle(sw 0.2855sh 0.8060paseksh 0.0600tocolor(2550100255), false)
end

local function hitmarker(playermd)
    if not md or getElementType(player) ~= element_type then return end
    if player ~= localPlayer then return end
    outputChatBox("Aby rozpoczac w kopalni, wci?nij klawisz '"..button_job.."'.")
end
addEventHandler("onClientMarkerHit"job_markerhitmarker)

local function startjob()
    if not isElementWithinMarker(localPlayerjob_markerthen return end
    if getElementData(localPlayer"player:miner") == true then exports["noti"]:noti("* Posiadasz aktywn? prac?!"25500true) return end
    if getPedOccupiedVehicle(localPlayer) == true then exports["noti"]:noti("* Nie mo?esz by? w poje?dzie!"25500false) return end
    setElementData(localPlayer"player:miner"true)
    outputChatBox("Rozpocz??e?[a?] Prace w kopalni udaj sie do punktu zaznaczonego na mapie i zniszcz ska?e")
    toggleControl("sprint"falsetoggleControl("jump"falsetoggleControl("crouch"falsetoggleControl("next_weapon"falsetoggleControl("previous_weapon"falsetoggleControl("fire"false)
    triggerServerEvent("kilof"localPlayer)
    job_stage(localPlayer)
end
bindKey(button_jobbutton_statestartjob)

local function canceljob()
    if not isElementWithinMarker(localPlayerjob_marker_cancelthen return end
    if getElementData(localPlayer"player:miner") == false then outputChatBox("Nie posiadasz aktywnej pracy!") return end
    if getPedOccupiedVehicle(localPlayer) == true then outputChatBox("Nie mo?esz by? w poje?dzie!") return end
    outputChatBox("Zako?czy?e?[a?] prace w kopalni teraz mozesz uda? si? do wyj?cia :D")
    toggleControl("sprint"truetoggleControl("jump"truetoggleControl("crouch"truetoggleControl("next_weapon"truetoggleControl("previous_weapon"true)
    if isElement(objective) and isElement(blip) and isElement(rocks) and isElement(textthen
    destroyElement(objective)
    destroyElement(blip)
    destroyElement(rocks)
    destroyElement(text)
    end
    if isEventHandlerAdded("onClientRender"rootpostepthen
    removeEventHandler("onClientRender"rootpostep)
    end
    triggerServerEvent("end_job"localPlayer)
    setElementData(localPlayer"player:miner"false)
end
bindKey(button_jobbutton_statecanceljob)

function job_stage(playermd)
    if (objective) and isElement(objectivethen
    destroyElement(objective)
    destroyElement(blip)
    destroyElement(rocks)
    objective nil
    end
    toggleControl("sprint"falsetoggleControl("jump"falsetoggleControl("crouch"falsetoggleControl("next_weapon"falsetoggleControl("previous_weapon"falsetoggleControl("fire"false)
    local losuj math.random(2#points)
    local miner points
    objective createMarker(miner[losuj][1], miner[losuj][2], miner[losuj][3]-0.95"cylinder"1.12552552550)
        setElementData(objective"markery3"true)
    rocks createObject(math.random(3930,3931), miner[losuj][1]+math.random(0.4,0.5), miner[losuj][2]+math.random(0.20.3), miner[losuj][3]-0.600math.random(0,90))
    blip createBlipAttachedTo(objective12)
    text createElement("text")
    setElementData(text"name""Ska?a")
    setElementPosition(textminer[losuj][1], miner[losuj][2], miner[losuj][3]+0.12)
    addEventHandler("onClientMarkerHit"objective, function(playermd)
    if not md or getElementType(player) ~= element_type then return end
    if player ~= localPlayer then return end
    if isPedInVehicle(playerthen outputChatBox("Nie mo?esz by? w poje?dzie!") return end
    local data setElementData(player"player:miner"true)
    if data then outputDebugString("Nadano elementdat? g?rnika dla u?ytkownika o nicku: "..getPlayerName(player).."."end
    setElementFrozen(playertrue)
    toggleAllControls(false)
    addEventHandler("onClientRender"rootpostep) 
    time getTickCount()
    setTimer(function()
    removeEventHandler("onClientRender"rootpostep)
    endtime_freeze1) 
    triggerServerEvent("animation"localPlayer)
    setTimer(function()
    setElementFrozen(playerfalse)
    toggleAllControls(true)
    setPedAnimation(playerdigging_animation)
    destroyElement(objective)
    destroyElement(blip)
    destroyElement(rocks)
    destroyElement(text)
    triggerServerEvent("end_animation"localPlayer)
    job_stage(localPlayer)
    wyplata(localPlayer)
    endtime_freeze1)
    end)
end

function wyplata()
        local kwota math.random(80,120)
        local premium getElementData(localPlayer,"player:premium")
        local random math.random(1#nazwy)
        if premium then
        kwota kwota
        triggerServerEvent("prace:wyplata:kopalnia",root,"kopalnia",kwota)
        exports["noti"]:noti("Za wydobycie "..nazwy[random].." otrzymujesz "..(kwota or "wyst?pi? b??d").." PLN."client)
        else
        kwota kwota
        triggerServerEvent("prace:wyplata:kopalnia",root,"kopalnia",kwota)
        exports["noti"]:noti("Za wydobycie "..nazwy[random].." otrzymujesz "..(kwota or "wyst?pi? b??d").." PLN."client)
        end
end

function onresourcestop()
    if isEventHandlerAdded("onClientRender"rootpostepthen
    removeEventHandler("onClientRender"rootpostep)
    end
    setElementData(localPlayer"player:miner"false)
    setElementFrozen(localPlayerfalse)
    toggleControl("sprint"true)
    toggleControl("jump"true)
    toggleControl("crouch"true)
    toggleControl("next_weapon"true)
    toggleControl("previous_weapon"true)
    toggleControl("fire"true)
end
addEventHandler("onClientResourceStop"resourceRootonresourcestop)

dooroff createMarker (-981.63, -1361.31116.80-1"cylinder"1.3255255255,0)
        setElementData(dooroff"markery8"true)
local function hitmarker3(playermd)
    if not md or getElementType(player) ~= element_type then return end
    if player ~= localPlayer then return end
    if isPedInVehicle(playerthen return end
    setElementDimension(player0)
    setElementInterior(player0)
    if isElement(objective) and isElement(blip) and isElement(rocks) and isElement(textthen
    destroyElement(objective)
    destroyElement(blip)
    destroyElement(rocks)
    destroyElement(text)
    end
    if isEventHandlerAdded("onClientRender"rootpostepthen
    removeEventHandler("onClientRender"rootpostep)
    end
    toggleControl("sprint"truetoggleControl("jump"truetoggleControl("crouch"truetoggleControl("next_weapon"truetoggleControl("previous_weapon"true)
    triggerServerEvent("end_job"localPlayer)
    setElementData(localPlayer"player:miner"false)
    setElementPosition(player, -995.23, -1378.78130.60)
        Timer(fadeCamera20001hitElementtrue1)
end
addEventHandler("onClientMarkerHit"dooroffhitmarker3)

local function hitmarker2(playermd)
    if not md or getElementType(player) ~= element_type then return end
    if player ~= localPlayer then return end
    outputChatBox("Aby zako?czy? prac? w kopalnij wci?nij klawisz '"..button_job.."'"25500true)
end
addEventHandler("onClientMarkerHit"job_marker_cancelhitmarker2)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2018-09-30, 17:47


Avenged

Młodszy Szkrypter






Wiek: 23
Na forum: 3510 dni
Posty: 654
Nick w MP: Avenged

Piwa: 1570

Respekt: 326,3
Respekt: 326,3Respekt: 326,3Respekt: 326,3

Po stronie servera trigger nazywa si? 'hajsikkopalnia'


addEvent("hajsikkopalnia",true)
addEventHandler("hajsikkopalnia",root,function(kwota)
givePlayerMoney(sourcekwota)
end)


Natomiast po stronie clienta trigger nazywa si? 'prace:wyplata:kopalnia'

        triggerServerEvent("prace:wyplata:kopalnia",root,"kopalnia",kwota)


Wi?c jak to ma dzia?a?.. ustaw nazwy trigger?w takie same

Podpis
LUA, JS, PHP



Zapraszam do skorzystania z moich usług: Klik

Postaw piwo autorowi tego posta
 

 
Wysłany: 2018-09-30, 21:55


DomineQ

lua mejster






Wiek: 22
Na forum: 3960 dni
Posty: 309
Nick w MP: EZ3N

Piwa: 5186

Respekt: 85,8

Powinno dzia?a?, mia?e? po prostu inn? nazwe triggera.


addEvent("prace:wyplata:kopalnia",true)
addEventHandler("prace:wyplata:kopalnia",root,function(kwota)
givePlayerMoney(sourcekwota)
end)

local t=createElement("text")
setElementData(t,"scale",1.7)
setElementData(t,"name","Wejscie Do Kopalni")
setElementInterior(t,0)
setElementDimension(t,0)
setElementPosition(t,-989.07, -1380.37130.63)
createBlipAttachedTo (t46)

local t=createElement("text")
setElementData(t,"scale",1.7)
setElementData(t,"name","Wyjscie Z Kopalni")
setElementInterior(t,0)
setElementDimension(t,0)
setElementPosition(t,-981.63, -1361.31116.80)

door createMarker (-989.07, -1380.37130.63-1"cylinder"1.3255255255,0)
        setElementData(door"markery7"true)
setElementDimension(door0)
setElementInterior(door0)


addEventHandler("onMarkerHit"door, function(elmd)
    if getElementType(el) ~= "player" then return end
    if isPedInVehicle(elthen return end
    setElementDimension(el0)
    setElementInterior(el0)
    setElementPosition(el,  -978.13, -1361.11116.80)
end)


Podpis
Postaw piwo autorowi tego posta
 

 
Wysłany: 2018-10-01, 18:33


DomineQ

lua mejster






Wiek: 22
Na forum: 3960 dni
Posty: 309
Nick w MP: EZ3N

Piwa: 5186

Respekt: 85,8

"Pyrek24" napisał/a:

Dzi?kuje ! Lecz daj? kase do banku a mo?na tak ?eby da?o do eq


Nie widz? tutaj nic co by robi?o, ?e got?wka wpada do banku, w triggerze wyra?nie jest givePlayerMoney u?yte, mo?e nie dowidz?.

Spr?buj zmieni? nazw? triggera z tej wyp?aty na inn? by? mo?e gdzie? indziej jest taki trigger.

Podpis
Postaw piwo autorowi tego posta
 

 
Tagi: praca :: nie :: daję :: pieniędzy
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA 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