marker = createMarker(-145.853515625, 1165.5009765625, 19.795249938965, "cylinder", 0, 0, 0, 0, 130)

 function addwheels ( sourcePlayer, command )
 if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(sourcePlayer)), aclGetGroup ( "Mechanik_FC" ) ) then
     if isElementWithinMarker(sourcePlayer,marker) then
        theVehicle = getPlayerOccupiedVehicle ( sourcePlayer )
        if ( theVehicle ) then 
            addVehicleUpgrade ( theVehicle, 1098 ) 
            takePlayerMoney(sourcePlayer,3420)
            outputChatBox ( "Zamontowano czesc w pojezdzie.", source, 255, 255, 255, true )
        end
     end
  end
end
addCommandHandler ( "dodaj.1098", addwheels )
 
function remwheels ( sourcePlayer, command )
 if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(sourcePlayer)), aclGetGroup ( "Mechanik_FC" ) ) then
     if isElementWithinMarker(sourcePlayer,marker) then
        theVehicle = getPlayerOccupiedVehicle ( sourcePlayer )
        if ( theVehicle ) then
            removeVehicleUpgrade ( theVehicle, 1098 )
            givePlayerMoney(sourcePlayer,3249)
            outputChatBox ( "Zdemontowano Czesc w pojezdzie.", source, 255, 255, 255, true )
        end
     end
  end
end
addCommandHandler ( "usun.1098", remwheels ) 

local function hasVehUpgrade(veh, upgrade)
    for k,v in pairs (getVehicleUpgrades(veh)) do
        if v == upgrade then
        return v or false
        end
    end
end

function remwheels ( sourcePlayer, command )
 if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(sourcePlayer)), aclGetGroup ( "Mechanik_FC" ) ) then
     if isElementWithinMarker(sourcePlayer,marker) then
        theVehicle = getPlayerOccupiedVehicle ( sourcePlayer )
        if ( theVehicle ) then
            if hasVehUpgrade(theVehicle, 1098) ~= false then
            removeVehicleUpgrade ( theVehicle, 1098 )
            givePlayerMoney(sourcePlayer,3249)
            outputChatBox ( "Zdemontowano Czesc w pojezdzie.", source, 255, 255, 255, true )
            end
        end
     end
  end
end
addCommandHandler ( "usun.1098", remwheels )