local w_m={}
--utils
function math.round(number, decimals, method)
decimals = decimals or 0
local factor = 10 ^ decimals
if (method == "ceil" or method == "floor") then return math[method](number * factor) / factor
else return tonumber(("%."..decimals.."f"):format(number)) end
end
function string:split(sep)
local sep, fields = sep or ":", {}
local pattern = string.format("([^%s]+)", sep)
self:gsub(pattern, function(c) fields[#fields+1] = c end)
return fields
end
w_m.wnd = guiCreateWindow(0.1469,0.1667,0.7344,0.675,"Panel mechanika",true)
w_m.btn_napraw = guiCreateButton(0.0277,0.8395,0.3064,0.1327,"Napraw",true,w_m.wnd)
w_m.btn_zamknij = guiCreateButton(0.3427,0.8395,0.3064,0.1327,"Zamknij",true,w_m.wnd)
w_m.lbl_info = guiCreateLabel(0.6, 0.8395, 0.35, 0.1327, "", true, w_m.wnd)
w_m.lbl_costinfo = guiCreateLabel(0.6, 0.8395, 0.35, 0.1327, "", true, w_m.wnd)
guiLabelSetHorizontalAlign(w_m.lbl_info, "center", true)
guiLabelSetVerticalAlign(w_m.lbl_info, "center")
w_m.grid = guiCreateGridList(0.0298,0.0895,0.9383,0.7191,true,w_m.wnd)
guiGridListSetSelectionMode(w_m.grid,1)
guiGridListSetSortingEnabled(w_m.grid,false)
w_m.grid_nazwa = guiGridListAddColumn ( w_m.grid, "Nazwa cz??ci", 0.3 )
w_m.grid_stan = guiGridListAddColumn ( w_m.grid, "Stan cz??ci", 0.3 )
w_m.grid_koszt = guiGridListAddColumn ( w_m.grid, "Koszt naprawy", 0.3 )
guiSetVisible(w_m.wnd,false)
local naprawiany_pojazd=nil
local function kosztNaprawySilnika(v)
local vhp=1000-getElementHealth(v)
local cenapojazdu=getVehicleHandling(v).monetary or 10000
local przebieg=(10000-math.min(getElementData(v,"przebieg") or 5000,9999))/10000
return vhp/1000*cenapojazdu*przebieg*0.002 -- it's that simple
end
local function kosztNaprawyElementu(v)
local cenapojazdu=getVehicleHandling(v).monetary or 10000
local przebieg=(10000-math.min(getElementData(v,"przebieg") or 5000,9999))/10000
return cenapojazdu*przebieg*0.002 -- it's that simple
end
local panele={
[0]="Karoseria lewy prz?d",
[1]="Karoseria prawy prz?d",
[2]="Karoseria lewy ty?",
[3]="Karoseria prawy ty?",
[4]="Szyba przednia",
[5]="Zderzak z przodu",
[6]="Zderzak z ty?u"
}
local stanyPaneli={
[0]="100%",
[1]="66%",
[2]="33%",
[3]="0%",
}
local nazwyDrzwi={
[0]="Maska",
[1]="Baga?nik",
[2]="Drzwi lewy prz?d",
[3]="Drzwi prawy prz?d",
[4]="Drzwi lewy ty?",
[5]="Drzwi prawy ty?"
}
local nazwySwiatel={
[0]="?wiat?o lewy prz?d",
[1]="?wiat?o prawy prz?d",
[2]="?wiat?o lewy ty?",
[3]="?wiat?o prawy ty?"
}
local function fillVehicleData(v)
guiGridListClear(w_m.grid)
do
if getElementHealth(v) ~= 1000 then
local row=guiGridListAddRow(w_m.grid)
guiGridListSetItemText(w_m.grid,row, 1, "Silnik",false,false)
guiGridListSetItemData(w_m.grid,row, 1, -1)
guiGridListSetItemText(w_m.grid,row, 2, math.round(getElementHealth(v)/10).."%", false, true)
guiGridListSetItemText(w_m.grid,row, 3, math.round(math.abs(kosztNaprawySilnika(v))+2).."$", false, true)
end
end
for i,panel in pairs(panele) do
local stan = getVehiclePanelState(v, i)
if stan ~= 0 then
local koszt=kosztNaprawyElementu(v)*(getVehiclePanelState(v,i))/6
local row=guiGridListAddRow(w_m.grid)
guiGridListSetItemText(w_m.grid,row, 1, panel,false,false)
guiGridListSetItemData(w_m.grid,row, 1, i)
local stan=stanyPaneli[getVehiclePanelState(v,i)]
guiGridListSetItemText(w_m.grid,row, 2, stan, false, true)
guiGridListSetItemText(w_m.grid,row, 3, math.round(koszt+2).."$", false, true)
end
end
-- drzwi
for i=0,5 do
local stan=getVehicleDoorState(v, i)
if stan==2 or stan==3 or stan==4 then
local koszt=kosztNaprawyElementu(v)*2/6
local row=guiGridListAddRow(w_m.grid)
guiGridListSetItemText(w_m.grid,row, 1, nazwyDrzwi[i],false,false)
guiGridListSetItemData(w_m.grid,row, 1, i+10)
guiGridListSetItemText(w_m.grid,row, 2, "0%", false, true)
guiGridListSetItemText(w_m.grid,row, 3, math.round(koszt+2).."$", false, true)
end
end
for i=0,3 do
local stan=getVehicleLightState(v, i)
if stan==1 then
local koszt=kosztNaprawyElementu(v)*2/6
local row=guiGridListAddRow(w_m.grid)
guiGridListSetItemText(w_m.grid,row, 1, nazwySwiatel[i],false,false)
guiGridListSetItemData(w_m.grid,row, 1, i+20)
guiGridListSetItemText(w_m.grid,row, 2, "0%", false, true)
guiGridListSetItemText(w_m.grid,row, 3, math.round(koszt+2).."$", false, true)
end
end
end
addEventHandler("onClientMarkerHit", resourceRoot, function(el,md)
if not md or el~=localPlayer then return end
local cs=getElementData(source, "cs")
if not cs then return end
if getElementData(source, "braniekola") then return end
local fid=getElementData(source, "faction_id")
local lfid=getElementData(el, "faction:id") or -1
if fid~=lfid then return end -- gracz nie jest pracownikiem]]--
local pojazdy=getElementsWithinColShape(cs,"vehicle")
if #pojazdy<1 then
outputChatBox("Na stanowisku naprawczym nie ma ?adnego pojazdu.")
return
end
if #pojazdy>1 then
outputChatBox("Na stanowisku naprawczym jest zbyt du?o pojazd?w.")
return
end
allCost = setTimer(function(plr)
end, 1000, 0, el)
fillVehicleData(pojazdy[1])
guiSetEnabled(w_m.btn_napraw, false)
guiSetText(w_m.lbl_info,"")
guiSetVisible(w_m.wnd, true)
guiSetText(w_m.btn_napraw, string.format("Napraw (%s)", getVehicleName(pojazdy[1])) )
naprawiany_pojazd=pojazdy[1]
end)
addEventHandler("onClientMarkerLeave", resourceRoot, function(el,md)
if el~=localPlayer then return end
guiSetVisible(w_m.wnd, false)
naprawiany_pojazd=nil
if allCost and isTimer(allCost) then killTimer(allCost) end
end)
addEventHandler("onClientGUIClick", w_m.btn_zamknij, function()
guiSetVisible(w_m.wnd, false)
naprawiany_pojazd=nil
if allCost and isTimer(allCost) then killTimer(allCost) end
end, false)
addEventHandler("onClientGUIClick", w_m.grid, function()
guiSetText(w_m.lbl_info,"")
selectedRow= guiGridListGetSelectedItem ( w_m.grid) or -1
if (selectedRow<0) then
guiSetEnabled(w_m.btn_napraw,false)
return
end
local multirepair = {}
local rows = guiGridListGetSelectedItems(w_m.grid)
for k,v in ipairs(rows) do
if (k/3 == math.round(k/3)) then --kazde 3 wyniki sa takie same, pomijamy je
table.insert(multirepair,v)
end
end
totalkoszt = 0
for k,v in ipairs(multirepair) do
local koszt = guiGridListGetItemText(w_m.grid, v.row, 3)
local koszt = koszt:split("$")
local koszt = tonumber(koszt[1])
totalkoszt = totalkoszt+koszt
end
guiSetText(w_m.lbl_info, string.format("W sumie do zap?aty: %s$",totalkoszt))
guiSetEnabled(w_m.btn_napraw, true)
end)
local napraw_lu=getTickCount()
addEventHandler("onClientGUIClick", w_m.btn_napraw, function()
if getTickCount()-napraw_lu<1000 then return end
if not naprawiany_pojazd or not isElement(naprawiany_pojazd) then return end
selectedRow= guiGridListGetSelectedItem ( w_m.grid) or -1
if selectedRow<0 then return end
local rows = guiGridListGetSelectedItems(w_m.grid)
local multirepair = {}
--musimy sprawdzic, czy gracz zaznaczyl KILKA rowow, czy JEDEN //karer - takie male udogodnienie
for k,v in ipairs(rows) do
if (k/3 == math.round(k/3)) then --kazde 3 wyniki sa takie same, pomijamy je
table.insert(multirepair,v)
end
end
guiSetText(w_m.lbl_info,"")
if #multirepair == 1 then
local koszt = guiGridListGetItemText(w_m.grid, selectedRow, 3)
local koszt = koszt:split("$")
local koszt = tonumber(koszt[1])
if not koszt then return end
if koszt<=0 then
guiSetText(w_m.lbl_info,"Ta cz??? jest sprawna.")
return
end
-- if koszt>getPlayerMoney(localPlayer) then
-- guiSetText(w_m.lbl_info,"Nie masz tyle got?wki!")
-- return
-- end
local czesc=guiGridListGetItemData(w_m.grid, selectedRow, 1) -- numer panelu lub -1==silnik
napraw_lu=getTickCount()
triggerServerEvent("naprawaElementu", resourceRoot, naprawiany_pojazd, czesc, koszt)
elseif #multirepair > 1 then
for i,v in ipairs(multirepair) do
local selectedRow = v.row
local koszt = guiGridListGetItemText(w_m.grid, selectedRow, 3)
local koszt = koszt:split("$")
local koszt = tonumber(koszt[1])
if not koszt then return end
if koszt<=0 then
break
end
-- if koszt>getPlayerMoney(localPlayer) then
-- guiSetText(w_m.lbl_info,"Nie masz tyle got?wki!")
-- return
-- end
local czesc=guiGridListGetItemData(w_m.grid, selectedRow, 1) -- numer panelu lub -1==silnik
napraw_lu=getTickCount()
triggerServerEvent("naprawaElementu", resourceRoot, naprawiany_pojazd, czesc, koszt)
end
else
outputDebugScript("lss-naprawapojazdow> inna wartosc countRows, should't happen.")
end
end, false)
-- triggerClientEvent(client, "refreshVehicleData", resourceRoot, pojazd)
addEvent("refreshVehicleData", true)
addEventHandler("refreshVehicleData", resourceRoot, function(pojazd)
naprawiany_pojazd=pojazd
fillVehicleData(pojazd)
end)