GTAONLINE.PL :: SZUKAM SKRYPTU/MODELU

Witam pomo?e kto? w dodaniu gie?dy bo mi nie dzia?a nie wiem czemu pomo?e kto? doda? ?
daje :piwo:

kod:

gielda_c.lua

Cytat:

window = guiCreateWindow(1054, 380, 226, 427, "Gielda", false)
guiWindowSetSizable(window, false)

button = guiCreateButton(9, 308, 207, 109, "Zatwierdz", false, window)
label = guiCreateLabel(60, 55, 113, 49, " Wprowadz Cene", false, window)
edit = guiCreateEdit(9, 104, 207, 96, "", false, window)

guiSetVisible(window, false)

e_marker = createMarker(x, y, z, "cylinder", 5.0, 255, 0, 0, 130) -- Marker w kt?rym si? ustawia cen? itd.
l_marker = createMarker(x, y, z, "cylinder", 6.0, 255, 255, 255, 0) -- Niewidzialny marker, najlepiej znalezc miejsce na gielde tak, aby byla tylko 1 mozliwosc wyjechania z tej gieldy
-- i tam dac ten marker

function showGui(he, md)
if getElementType(he) ~= "vehicle" then return end
if not md then return end
guiSetVisible(window, true)
showCursor(true)
end
addEventHandler("onClientMarkerHit", e_marker, showGui)

function hideGui(l, m)
guiSetVisible(window, false)
showCursor(false)
end
addEventHandler("onClientMarkerLeave", l_marker, hideGui)

function setDescription(btn)
if btn == "left" then
local cena = guiGetText(edit)
if not tonumber(cena) then return end
if cena > 999999 then return end-- wieksza od 999,999
-- ustawiamy
-- vopis
-- pojazdu
-- zgodny
-- z nasza
-- element dat?
guiSetVisible(window, false)
showCursor(false)
end
end
addEventHandler("onClientGUIClick", button, setDescription)

gielda_s.lua

Cytat:

local marker = createMarker(x, y, z, "cylinder", 3.0, 255, 0, 0, 125) -- marker sprzeda?y
local marker_b = createMarker(x, y, z, "cylinder", 5.0, 0, 150, 0, 125) -- marker kupna

local function searchVehFromID ( id ) -- Uzupelnic sobie swoimi element datami
for _,v in ipairs ( getElementsByType ( "vehicle" ) ) do
if getElementData ( v, "id" ) == tonumber ( id ) then
return v
end
end
return false
end

local function isOwner ( auto, plr )
if getElementData ( auto, "owner" ) == getPlayerName ( plr ) then
return true
end
return false
end

timer = {}

local function sendOffer ( gracz, pojazd, plr, cena )
name = getVehicleName ( pojazd )
id = getElementData ( pojazd, "id" ) or "Brak"
setElementData ( gracz, "Oferta", true )
setElementData ( gracz, "Pojazd", name )
setElementData ( gracz, "ID", id )
setElementData ( gracz, "Oferujacy", getPlayerName ( plr ) )
setElementData ( gracz, "Cena", cena )
outputChatBox ( "Gracz "..getElementData ( gracz, "Oferujacy" ).." wysla? Ci ofert? sprzeda?y pojazdu "..name.." ( ID "..id.." ) w cenie "..string.format ( "%0.2f", cena ).." z?", gracz, 255, 255, 255 )
outputChatBox ( "Wpisz /przyjmij, aby kupi?. Masz 15 sek na reakcj?.", gracz, 255, 255, 255 )
timer[1] = setTimer ( setElementData, 15000, 1, gracz, "Oferta", false )
timer[2] = setTimer ( setElementData, 15000, 1, gracz, "Pojazd", false )
timer[3] = setTimer ( setElementData, 15000, 1, gracz, "ID", false )
timer[4] = setTimer ( setElementData, 15000, 1, gracz, "Oferujacy", false )
timer[5] = setTimer ( setElementData, 15000, 1, gracz, "Cena", false )
timer[6] = setTimer ( outputChatBox, 15000, 1, "Oferta wygas?a.", gracz, 255, 255, 255 )
timer[7] = setTimer ( outputChatBox, 15000, 1, "Oferta wygas?a.", plr, 255, 255, 255 )
end

addCommandHandler ( "przyjmij", function ( plr, cmd )
if not isElementWithinMarker(plr, marker_b) then return end
if not getElementData ( plr, "Oferta" ) then
return outputChatBox ( "Nie dosta?e? oferty kupna pojazdu b?d? oferta wygas?a", plr, 255, 255, 255 ) end
id = tonumber ( getElementData ( plr, "ID" ) )
name = getElementData ( plr, "Pojazd" )
oferujacy = getElementData ( plr, "Oferujacy" )
cena = tonumber ( getElementData ( plr, "Cena" ) )
pojazd = searchVehFromID ( id )
if not pojazd then
return outputChatBox ( "Nie znaleziono pojazdu o ID "..id.."", plr, 255, 255, 255 ) end
if tonumber ( getPlayerMoney ( plr ) ) < cena *100 then
return outputChatBox ( "Nie posiadasz "..string.format ( "%0.2f", cena ).." z? na zakup tego pojazdu", plr, 255, 255, 255 ) end
setElementData ( pojazd, "owner", getPlayerName ( plr ) )
outputChatBox ( "Kupi?e? pojazd "..name.." ( ID "..id.." ) od gracza "..oferujacy.."", plr, 0, 255, 0 )
outputChatBox ( "Gracz "..getPlayerName ( plr ).." przyj?? ofert? kupna pojazdu!", getPlayerFromName ( oferujacy ), 0, 255, 0 )
setElementData ( plr, "Oferta", false )
setElementData ( plr, "Pojazd", false )
setElementData ( plr, "ID", false )
setElementData ( plr, "Oferujacy", false )
setElementData ( plr, "Cena", false )
takePlayerMoney ( plr, cena*100 )
for k,_ in ipairs ( timer ) do
if isTimer ( timer[k] ) then
killTimer ( timer[k] )
end
end
end)

addCommandHandler ( "auto.sprzedaj", function ( plr, cmd, id, gracz, cena )
if not isElementWithinMarker(plr, marker) or not isElementWithinMarker(gracz, marker_b) then return end
if not id or not gracz or not cena or id == nil or gracz == nil or cena == nil then
return outputChatBox ( "[U?ycie] /auto.sprzedaj [ID_Pojazdu] [Cz???_Nicku_Gracza] [Cena]", plr, 255, 255, 255 ) end
id = tonumber ( id )
auto = searchVehFromID ( id )
if not auto then
return outputChatBox ( "Nie znaleziono pojazdu o ID "..id.."", plr ) end
if not isOwner ( auto, plr ) then
return outputChatBox ( "Pojazd "..getVehicleName ( auto ).." nie jest Tw?j", plr ) end
kupujacy = exports["GTAO_Gamemode"]:partNick ( plr, gracz ) -- Przerobcie sobie pod swoja funkcje od ID graczy lub po prostu getPlayerFromName powinno zadzialac
if not kupujacy then return end
sendOffer ( kupujacy, auto, plr, cena )
outputChatBox ( "Wys?ano ofert? sprzeda?y pojazdy do gracza "..getPlayerName ( kupujacy ).."!", plr, 255, 255, 255 )
end)