local sw, sh = guiGetScreenSize() 
local zoom = 1920/sw

marker = createMarker(-2455.00879, -424.13968, 84.04877-1, "cylinder", 1, 255, 0, 0)

local t = dxCreateTexture("tlo.png")
local t2 = dxCreateTexture("pasek.png")

function mysz ( x, y, width, height )
    if ( not isCursorShowing( ) ) then
        return false
    end
    local sx, sy = guiGetScreenSize ( )
    local cx, cy = getCursorPosition ( )
    local cx, cy = ( cx * sx ), ( cy * sy )
    
    return ( ( cx >= x and cx <= x + width ) and ( cy >= y and cy <= y + height ) )
end



function isEventHandlerAdded( sEventName, pElementAttachedTo, func )
     if type( sEventName ) == 'string' and isElement( pElementAttachedTo ) and type( func ) == 'function' then
          local aAttachedFunctions = getEventHandlers( sEventName, pElementAttachedTo )
          if type( aAttachedFunctions ) == 'table' and #aAttachedFunctions > 0 then
               for i, v in ipairs( aAttachedFunctions ) do
                    if v == func then
                     return true
                end
           end
      end
     end
     return false
end



function gui()
    dxDrawImage(sw/2-1540/zoom, sh/2-800/zoom, 1920/zoom, 1080/zoom, t)
    dxDrawImage(sw/2-1540/zoom, sh/2-745/zoom, 1920/zoom, 1080/zoom, t2, 0, 0, 0, tocolor(255, 0, 0))
    dxDrawText("Kup czerwone", 310/zoom, 260/zoom, 83/zoom, 236/zoom, tocolor(255, 255, 255), 2)

    
    --dxDrawImage(sw/2-400/zoom, sh/2-600/zoom, 1920/zoom, 1080/zoom, t2)
end


bindKey("F3", "down", function()
if isElementWithinMarker(localPlayer, marker) and not isEventHandlerAdded("onClientRender", root, gui) then
addEventHandler("onClientRender", root, gui)
showCursor(true)
else
removeEventHandler("onClientRender", root, gui)
showCursor(false)
end
end)


addEventHandler("onClientClick", root, function(btn, state)
    local veh = getPedOccupiedVehicle(localPlayer)
        if veh then 
            if btn == "left" and state == "down" then
            if mysz(sw/2-1540/zoom, sh/2-800/zoom, 1920/zoom, 1080/zoom)then 
            setVehicleColor(veh, 255, 0, 0)
            end
        end 
    end 
end)