GTAONLINE.PL :: PROŚBY O PRZEROBIENIE SKRYPTU

Niestety nie dzia?a

[ Dodano: 2015-07-04, 19:42 ]

Kod:

sx,sy = guiGetScreenSize()

local punktyTankowania = {

    {-2029.52, 156.77, 28.84},

    {-2023.89, 156.69, 28.84},

    {-2405.73, 975.74, 45.30},

    {-2416.30, 974.97, 45.30},

    {-2640.45, 1375.09, 7.15},

    {-1675.46,413.69,7.21},

    {-1328.36,2677.03,50.09},

    {612.50,1694.81,7.03},

    {2115.18,919.53,10.85},

    {1383.09,460.70,20.12},

    {1004.86,-939.32,42.22},

}

for i,v in ipairs(punktyTankowania) do

    zpwp_marker = createMarker(v[1], v[2], v[3]-1.0, "cylinder", 4, 0, 0, 0, 0)

    setElementData(zpwp_marker, "stacja_benzynowa", true)

end

zpwp_okno = guiCreateWindow(199/1280*sx, 191/720*sy, 872/1280*sx, 294/720*sy, "Stacja benzynowa", false)

guiWindowSetSizable(zpwp_okno, false)

guiSetVisible(zpwp_okno, false)

zpwp_warning = guiCreateLabel(17/1280*sx, 18/720*sy, 845/1280*sx, 16/720*sy, "", false, zpwp_okno)

guiLabelSetColor(zpwp_warning, 183, 0, 0)

guiLabelSetHorizontalAlign(zpwp_warning, "center", false)    

zpwp_info = guiCreateLabel(211/1280*sx, 81/720*sy, 477/1280*sx, 15/720*sy, "Stacja wita, poni?ej jest przedstawiony cennik paliwa, cennik mo?e ulec zmianie.", false, zpwp_okno)

guiSetFont(zpwp_info, "default-bold-small")

zpwp_stan_l = guiCreateLabel(17/1280*sx, 48/720*sy, 111/1280*sx, 15/720*sy, "Obecny stan paliwa:", false, zpwp_okno)

guiSetFont(zpwp_stan_l, "default-bold-small")

zpwp_stan = guiCreateProgressBar(154/1280*sx, 38/720*sy, 708/1280*sx, 30/720*sy, false, zpwp_okno)

guiProgressBarSetProgress(zpwp_stan, 0)

zpwp_cena = guiCreateLabel(365/1280*sx, 106/720*sy, 143/1280*sx, 16/720*sy, "Cena za jeden litr: 5 Z?", false, zpwp_okno)

zpwp_ilosc = guiCreateLabel(318/1280*sx, 132/720*sy, 208/1280*sx, 15/720*sy, "Wpisz ile liter paliwa, chcesz zakupi?:", false, zpwp_okno)

zpwp_ilosc_e = guiCreateEdit(536/1280*sx, 127/720*sy, 40/1280*sx, 26/720*sy, "", false, zpwp_okno)

zpwp_zakup = guiCreateButton(27/1280*sx, 171/720*sy, 820/1280*sx, 113/720*sy, "TANKUJ", false, zpwp_okno)

addEventHandler("onClientMarkerHit", resourceRoot, function(el, md)

    if not getElementData(source, "stacja_benzynowa") then return end

    if el ~= localPlayer then return end

    if guiGetVisible(zpwp_okno) == false then

        local pojazd = getPedOccupiedVehicle(el)

        if not pojazd then return end

        local paliwo = getElementData(pojazd, "pojazd_paliwo" )

        showCursor(true, false)

        guiSetVisible(zpwp_okno, true)

        guiProgressBarSetProgress(zpwp_stan, paliwo)

    end

end)

addEventHandler("onClientMarkerLeave", resourceRoot, function(el, md)

    if not getElementData(source, "stacja_benzynowa") then return end

    if el ~= localPlayer then return end

    if guiGetVisible(zpwp_okno) == true then

        showCursor(false)

        guiSetVisible(zpwp_okno, false)

    end

end)

addEventHandler("onClientGUIClick", zpwp_zakup, function()

    local pojazd = getPedOccupiedVehicle(localPlayer)

    if not pojazd then return end -- nie powinno si? wydarzy?

    local stan = getElementData(pojazd, "pojazd_paliwo")

    if not stan then return end -- nie powinno si? wydarzy?

    if not tonumber(guiGetText(zpwp_ilosc_e)) then return end

    local ile = stan + guiGetText(zpwp_ilosc_e)

    local koszt = guiGetText(zpwp_ilosc_e) * 5

    if ile < stan then

        setTimer(guiSetText, 2000, 1, zpwp_warning, "")

        guiSetText(zpwp_warning, "Poda?e? z?? warto?? paliwa.")

        return

    end

    if ile < 101 then

        if getPlayerMoney(localPlayer) > koszt then

            showCursor(false)

            guiSetVisible(zpwp_okno, false)

            outputChatBox("* Pojazd zosta? zatankowany...")

            setElementData(pojazd, "pojazd_paliwo", tonumber(ile))

            triggerServerEvent("takePlayerMoney", localPlayer, koszt)

        else

            setTimer(guiSetText, 2000, 1, zpwp_warning, "")

            guiSetText(zpwp_warning, "Nie posiadasz wystarczaj?cej ilo?ci pieni?dzy.")

        end

    else

        setTimer(guiSetText, 2000, 1, zpwp_warning, "")

        guiSetText(zpwp_warning, "Maxymalnie pojazd mo?e mie? 100% litr?w paliwa")

    end

end)

Kod nie zabiera pieni?dzy za tankowanie, kto? przerobi? (Kod nie jest m?j)

[ Dodano: 2015-07-06, 17:17 ]

Kod:

addCommandHandler ( "podkrec", function(plr,cmd,ilosc )

local accName = getAccountName ( getPlayerAccount ( plr ) )

if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Admin" ) ) then

auto = getPedOccupiedVehicle ( plr )

id = getElementModel ( auto )

if not ilosc then return end

if ilosc == "20" then

handlingTable = getOriginalHandling ( id )

wartosc = handlingTable ["maxVelocity"]

wartosc1 = handlingTable ["engineAcceleration"]

setVehicleHandling ( auto, "maxVelocity", tonumber(wartosc)+tonumber(50))

setVehicleHandling ( auto, "engineAcceleration", tonumber(wartosc1)+tonumber(20))

end

if ilosc == "10" then

handlingTable = getOriginalHandling ( id )

wartosc = handlingTable ["maxVelocity"]

wartosc1 = handlingTable ["engineAcceleration"]

setVehicleHandling ( auto, "maxVelocity", tonumber(wartosc)+tonumber(25))

setVehicleHandling ( auto, "engineAcceleration", tonumber(wartosc1)+tonumber(10))

end

if ilosc == "30" then

handlingTable = getOriginalHandling ( id )

wartosc = handlingTable ["maxVelocity"]

wartosc1 = handlingTable ["engineAcceleration"]

setVehicleHandling ( auto, "maxVelocity", tonumber(wartosc)+tonumber(75))

setVehicleHandling ( auto, "engineAcceleration", tonumber(wartosc1)+tonumber(30))

end

end

end)

M?g?by kto? mi przerobi? ten kod aby dotyczy? Pojazdu Policyjnego SF i jego vmax wynosi?by 180 i ?eby mia? szybsze przy?pieszenie. Kod nie jest m?j tylko Shuffle.