Zaloguj się by uzyskać pełen dostęp. Nie masz jeszcze konta? Założ je już teraz w kilka sekund.

Wysłany: 2016-08-24, 17:20


Troyson







Wiek: 29
Na forum: 3590 dni
Posty: 12
Nick w MP: Troy



Respekt: 50

Witam.
Mam problem z kodem, a dok?adniej nie wiem jak dopisa? do tego kodu (tak aby dzia?a?) ?eby zrespienie auta kosztowa?o 1000$, prubowa?em po tym fragm?ci kodu
Kod:


addEvent("spawncar1",true)
addEventHandler("spawncar1",getRootElement(),
function()
if not (isGuestAccount(getPlayerAccount(client))) then
if not (isPedInVehicle(client)) then


Wklei? taki oto kod:


Kod:


local money = getPlayerMoney(client)
if money >= 500 then
takePlayerMoney(client,500)


Ale niestety mi to nie dzia?a?o :/
Pomo?e mi kto??
(Np. nw dopisze ten fragm?t tak aby dzia?a?o?)


OTO TEN KOD Z KT?RYM MAM PROBLEM
Kod:


addEvent("spawncar1",true)
addEventHandler("spawncar1",getRootElement(),
function()
if not (isGuestAccount(getPlayerAccount(client))) then
if not (isPedInVehicle(client)) then
local x,y,z = getElementPosition(client)
if (getElementData(client,"mycar1")) and (getElementData(client,"mycar1")~= nil) --[[and (getElementType(getElementData(client,"mycar1")) =="vehicle")]] then
local vehicle = getElementData(client,"mycar1")
destroyElement(vehicle)
removeElementData(client,"mycar1")
--local x,y,z = getElementPosition(vehicle)
--setElementPosition(vehicle,x,y,z)
outputChatBox("Vehicle destroyed",client)
--[[ local vehicle = getElementData(client,"mybik1")
destroyElement(vehicle)
removeElementData(client,"mybik1")
outputChatBox("Vehicle destroyed",client)]]

elseif not (getElementData(client,"mycar1")) then
local account = getPlayerAccount(client)
local name = getAccountName(account)
local playercar = executeSQLQuery("SELECT Model,Paintjob,Color,Upgrade0,Upgrade1,Upgrade2,Upgrade3,Upgrade4,Upgrade5,Upgrade6,Upgrade7,Upgrade8,Upgrade9,Upgrade10,Upgrade11,Upgrade12,Upgrade13,Upgrade14,Upgrade15,Upgrade16 FROM carslot1 WHERE PlayerName = ?",name)
if (playercar) then

if #playercar > 0 then
local x,y,z = getElementPosition(client)
local vehicle = createVehicle(playercar[1].Model,x + 5,y +2,z)
setVehiclePaintjob(vehicle,playercar[1].Paintjob)
setElementData(vehicle,"vehicleOwner","mycar1")
setElementData (vehicle,"mycar1",getPlayerName(source))
setElementData (client, "mycar1", vehicle)
setElementData(vehicle,"VOwner",getPlayerName(client))
outputChatBox ("Car spawned.", source, 255, 0, 0)
addVehicleUpgrade(vehicle, playercar[1].Upgrade0)
addVehicleUpgrade(vehicle, playercar[1].Upgrade1)
addVehicleUpgrade(vehicle, playercar[1].Upgrade2)
addVehicleUpgrade(vehicle, playercar[1].Upgrade3)
addVehicleUpgrade(vehicle, playercar[1].Upgrade4)
addVehicleUpgrade(vehicle, playercar[1].Upgrade5)
addVehicleUpgrade(vehicle, playercar[1].Upgrade6)
addVehicleUpgrade(vehicle, playercar[1].Upgrade7)
addVehicleUpgrade(vehicle, playercar[1].Upgrade8)
addVehicleUpgrade(vehicle, playercar[1].Upgrade9)
addVehicleUpgrade(vehicle, playercar[1].Upgrade10)
addVehicleUpgrade(vehicle, playercar[1].Upgrade11)
addVehicleUpgrade(vehicle, playercar[1].Upgrade12)
addVehicleUpgrade(vehicle, playercar[1].Upgrade13)
addVehicleUpgrade(vehicle, playercar[1].Upgrade14)
addVehicleUpgrade(vehicle, playercar[1].Upgrade15)
addVehicleUpgrade(vehicle, playercar[1].Upgrade16)
local col1 = gettok (playercar[1].Color, 1, string.byte(',') )
local col2 = gettok (playercar[1].Color, 2, string.byte(',') )
local col3 = gettok (playercar[1].Color, 3, string.byte(',') )
local col4 = gettok (playercar[1].Color, 4, string.byte(',') )
local col5 = gettok (playercar[1].Color, 5, string.byte(',') )
local col6 = gettok (playercar[1].Color, 6, string.byte(',') )
outputChatBox(col1)
if col1 then
setVehicleColor(vehicle, tonumber(col1), tonumber(col2), tonumber(col3), tonumber(col4), tonumber(col5), tonumber(col6))
end
else
outputChatBox("Najpierw kup pojazd przed jego przywo?aniem!",client)
end
end
end
else
outputChatBox("Najpierw musisz wyj?? z pojazdu w kt?rym siedzisz!",client)
end
else
outputChatBox("Najpierw musisz si? zalogowa?!",client)
end
end)


Ostatnio zmieniony przez Troyson 2016-08-24, 17:22, w całości zmieniany 1 raz  
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-08-24, 22:19


MeeShuffle

Programista/Grafik






Wiek: 32
Na forum: 4394 dni
Posty: 2758
Nick w MP: Shuffle

Piwa: 8575

Respekt: 535,3
Respekt: 535,3

Spr?buj :)

addEvent("spawncar1",true)
addEventHandler("spawncar1",getRootElement(),
function()
if not getPlayerMoney(client)<1000 then return end
takePlayerMoney(client,1000)
if not (isGuestAccount(getPlayerAccount(client))) then
if not (isPedInVehicle(client)) then
local x,y,getElementPosition(client)
if (getElementData(client,"mycar1")) and (getElementData(client,"mycar1")~= nil) --[[and (getElementType(getElementData(client,"mycar1")) =="vehicle")]] then
local vehicle getElementData(client,"mycar1")
destroyElement(vehicle)
removeElementData(client,"mycar1")
--local x,y,getElementPosition(vehicle)
--setElementPosition(vehicle,x,y,z)
outputChatBox("Vehicle destroyed",client)
--[[ local vehicle getElementData(client,"mybik1")
destroyElement(vehicle)
removeElementData(client,"mybik1")
outputChatBox("Vehicle destroyed",client)]]

elseif not (getElementData(client,"mycar1")) then
local account getPlayerAccount(client)
local name getAccountName(account)
local playercar executeSQLQuery("SELECT Model,Paintjob,Color,Upgrade0,Upgrade1,Upgrade2,Upgrade3,Upgrade4,Upgrade5,Upgrade6,Upgrade7,Upgrade8,Upgrade9,Upgrade10,Upgrade11,Upgrade12,Upgrade13,Upgrade14,Upgrade15,Upgrade16 FROM carslot1 WHERE PlayerName = ?",name)
if (playercarthen

if #playercar > 0 then
local x,y,getElementPosition(client)
local vehicle createVehicle(playercar[1].Model,5,+2,z)
setVehiclePaintjob(vehicle,playercar[1].Paintjob)
setElementData(vehicle,"vehicleOwner","mycar1")
setElementData (vehicle,"mycar1",getPlayerName(source))
setElementData (client"mycar1"vehicle)
setElementData(vehicle,"VOwner",getPlayerName(client))
outputChatBox ("Car spawned."source25500)
addVehicleUpgrade(vehicleplayercar[1].Upgrade0)
addVehicleUpgrade(vehicleplayercar[1].Upgrade1)
addVehicleUpgrade(vehicleplayercar[1].Upgrade2)
addVehicleUpgrade(vehicleplayercar[1].Upgrade3)
addVehicleUpgrade(vehicleplayercar[1].Upgrade4)
addVehicleUpgrade(vehicleplayercar[1].Upgrade5)
addVehicleUpgrade(vehicleplayercar[1].Upgrade6)
addVehicleUpgrade(vehicleplayercar[1].Upgrade7)
addVehicleUpgrade(vehicleplayercar[1].Upgrade8)
addVehicleUpgrade(vehicleplayercar[1].Upgrade9)
addVehicleUpgrade(vehicleplayercar[1].Upgrade10)
addVehicleUpgrade(vehicleplayercar[1].Upgrade11)
addVehicleUpgrade(vehicleplayercar[1].Upgrade12)
addVehicleUpgrade(vehicleplayercar[1].Upgrade13)
addVehicleUpgrade(vehicleplayercar[1].Upgrade14)
addVehicleUpgrade(vehicleplayercar[1].Upgrade15)
addVehicleUpgrade(vehicleplayercar[1].Upgrade16)
local col1 gettok (playercar[1].Color1string.byte(',') )
local col2 gettok (playercar[1].Color2string.byte(',') )
local col3 gettok (playercar[1].Color3string.byte(',') )
local col4 gettok (playercar[1].Color4string.byte(',') )
local col5 gettok (playercar[1].Color5string.byte(',') )
local col6 gettok (playercar[1].Color6string.byte(',') )
outputChatBox(col1)
if col1 then
setVehicleColor(vehicletonumber(col1), tonumber(col2), tonumber(col3), tonumber(col4), tonumber(col5), tonumber(col6))
end
else
outputChatBox("Najpierw kup pojazd przed jego przywo?aniem!",client)
end
end
end
else
outputChatBox("Najpierw musisz wyj?? z pojazdu w kt?rym siedzisz!",client)
end
else
outputChatBox("Najpierw musisz si? zalogowa?!",client)
end
end


Podpis

https://shufflecode.pl
Static Codes and Graphics - Join our discord!
Postaw piwo autorowi tego posta
 

 
Tagi: pomoż.e :: ktoś :: tym :: skryptem?
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Pomoż.e mi ktoś z tym skryptem? Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Dodaj temat do Ulubionych
Wersja do druku