s-side
local strefyNapraw={
--Doherty
warsztatIdlewoodStanowsko11={
cuboid={1086.34, -1185.75, 18.31, 9.80, 5.50, 5.20 },-- cuboid w ktorym musi znalezc sie pojazd
mpos={1083.26, -1188.37, 18.31-0.3}, -- pozycja markera w ktorym gracz bedzie stal aby naprawiac
faction_id=3, -- id frakcji ktora ma do tego dostep
},
--Doherty
warsztatIdlewoodStanowsko12={
cuboid={-2056.72, 168.30, 28.00, 9.80, 5.50, 5.20 },-- cuboid w ktorym musi znalezc sie pojazd
mpos={-2050.12, 167.96, 28.00-0.3}, -- pozycja markera w ktorym gracz bedzie stal aby naprawiac
faction_id=3, -- id frakcji ktora ma do tego dostep
},
}
for i,v in pairs(strefyNapraw) do
v.cs=createColCuboid(unpack(v.cuboid))
css=createColCuboid( 1086.34, -1185.75, 18.31, 9.80, 5.50, 5.20)
v.marker=createMarker(v.mpos[1], v.mpos[2], v.mpos[3], "cylinder", 1.10, 100,0,0,200)
setElementData(v.marker,"cs",v.cs)
setElementData(v.marker,"faction_id",v.faction_id)
end
-- triggerServerEvent("naprawaElementu", resourceRoot, naprawiany_pojazd, czesc, koszt)
addEvent("naprawaElementu", true)
addEventHandler("naprawaElementu", resourceRoot, function(pojazd, czesc, koszt)
outputDebugString("Naprawa elementu " .. czesc .. " za " .. koszt)
takePlayerMoney( client, koszt )
if koszt>getPlayerMoney(client) then
return
end
if (czesc==-1) then
-- setElementHealth(pojazd, 1000)
local vps={}
local vds={}
local vls={}
for i=0,6 do vps[i]=getVehiclePanelState(pojazd,i) end
for i=0,3 do vds[i]=getVehicleDoorState(pojazd,i) end
for i=0,3 do vls[i]=getVehicleLightState(pojazd,i) end
fixVehicle(pojazd)
for i=0,6 do setVehiclePanelState(pojazd, i, vps[i]) end
for i=0,3 do setVehicleDoorState(pojazd, i, vds[i]) end
for i=0,3 do setVehicleLightState(pojazd, i, vls[i]) end
triggerClientEvent(client, "refreshVehicleData", resourceRoot, pojazd)
elseif czesc>=0 and czesc<=6 then
setVehiclePanelState(pojazd, czesc, 0)
triggerClientEvent(client, "refreshVehicleData", resourceRoot, pojazd)
elseif czesc>=10 and czesc<20 then
local drzwi=czesc-10
setVehicleDoorState(pojazd, drzwi, 0)
triggerClientEvent(client, "refreshVehicleData", resourceRoot, pojazd)
elseif czesc>=20 then
local swiatlo=czesc-20
setVehicleLightState(pojazd, swiatlo, 0)
triggerClientEvent(client, "refreshVehicleData", resourceRoot, pojazd)
end
end)
--[[
@author Lukasz Biegaj <wielebny@bestplay.pl>
@author RacheT <rachet@pylife.pl>
@author karer <karer.programmer@gmail.com>
@copyright 2011-2013 Lukasz Biegaj <wielebny@bestplay.pl>
@license Dual GPLv2/MIT
@package MTA-XyzzyRP
@link https://github.com/lpiob/MTA-XyzzyRP GitHub
]]--
local punkty_brania_kol={
-- {-2042.60,162.87,28.84-0.9,1.5, faction_id=3}, --idlewood
}
local warsztatyid = {
[3]=true,
}
for i,v in ipairs(punkty_brania_kol) do
v.marker=createMarker(v[1],v[2],v[3],"cylinder", v[4], 0,0,0,100)
setElementData(v.marker, "braniekola", true)
setElementData(v.marker, "faction:id", v.faction_id)
end
local function czyPracownikWarsztatu(gracz)
local lfid=getElementData(gracz,"faction:id") or -1
if not warsztatyid[lfid] then return false end
return true
end
local function najblizszeKolo(gracz,pojazd)
-- easy peasy
local xg,yg,zg=getElementPosition(gracz)
local najblizszeKolo=nil
local najblizszeDist=1000
local x,y,z=getElementPosition(pojazd)
local _,_,rz=getElementRotation(pojazd)
for i=1,4 do
local rrz=math.rad(rz+45+(i-1)*90)
local x= x + (1 * math.sin(-rrz))
local y= y + (1 * math.cos(-rrz))
if not najblizszeKolo or getDistanceBetweenPoints2D(x,y,xg,yg)<najblizszeDist then
najblizszeDist=getDistanceBetweenPoints2D(x,y,xg,yg)
najblizszeKolo=i
end
end
-- ugly
if not najblizszeKolo then return nil end
if najblizszeKolo==4 then return 3
elseif najblizszeKolo==3 then return 4 end
return najblizszeKolo
end
local function zalozKolo(plr)
local x,y,z=getElementPosition(plr)
local _,_,rz=getElementRotation(plr)
local rrz=math.rad(rz)
local x= x + (1.5 * math.sin(-rrz))
local y= y + (1.5 * math.cos(-rrz))
local cs=createColSphere(x,y,z,2.5)
local pojazdy=getElementsWithinColShape(cs,"vehicle")
destroyElement(cs)
if (#pojazdy~=1) then
return false
end
-- okreslamy, kolo ktorego kola jest gracz
local k1,k2,k3,k4=getVehicleWheelStates(pojazdy[1])
if (k1==0) and (k2==0) and (k3==0) and (k4==0) then return end
local kolo=najblizszeKolo(plr,pojazdy[1])
if not kolo then return end
setPedAnimation(plr, "MISC", "pickup_box", 1, false, false, true, true)
toggleControl(plr, "forward", false)
setTimer(setPedAnimationProgress, 600, 1, plr, "pickup_box", 0.5)
setElementData(plr, "blockSettingAnimation", true) --blokujemy ENTER
if kolo==1 then
k1=0
elseif kolo==2 then
k2=0
elseif kolo==3 then
k3=0
elseif kolo==4 then
k4=0
end
setTimer(setPedAnimation, 9000, 1, plr, "ped", "phone_in")
setTimer(setPedAnimation, 9300, 1, plr)
setTimer(setVehicleWheelStates, 9000, 1, pojazdy[1], k1, k2, k3, k4)
setTimer(setElementData, 9000, 1, plr, "blockSettingAnimation", true)
setTimer(toggleControl, 9000, 1, plr, "forward", true)
zabierzKolo(plr,9000)
end
c-side
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,"pojazd_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,"pojazd_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
--if getElementModel(el) ~= 50 then return end
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])
showCursor(true)
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)
showCursor(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)
showCursor(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)
Piwa: 7
