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

Wysłany: 2016-03-25, 20:31


Odważny

Początki LUA :P






Wiek: 26
Na forum: 3880 dni
Posty: 140
Nick w MP: ReseT_

Piwa: 166

Respekt: 50

demoniskoxd, hmm... mo?e to te? by? przyczyna jakie? DB3 w twoim anty-biciu je?eli pozwolisz poka?esz sw?j kod na anty-bicie?

Podpis
, pomogłem Ci? Wynagrodź mnie :piwo: :P
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-25, 20:36


demoniskoxd







Wiek: 30
Na forum: 4130 dni
Posty: 79
Nick w MP: Francesco

Piwa: 1

Respekt: 50

Odwa?ny,
Kod odnosz?cy si? do antybicia jest wbudowany w suszark? administratora kt?r? posiadam
Poni?ej podam kod odpowiadaj?cy za t? funkcje

local w,h = guiGetScreenSize()

local vehicle={}
vehicle.id=nil
vehicle.speed=nil
vehicle.driver=nil

local option={}
value=nil
element=nil
option.selected=0
option.actived=false

option["vehicle"]={
    "Akcja: Napraw pojazd",
    "Akcja: Oddaj do przechowalni",
    "Akcja: Przenie? pojazd",
    "Akcja: Zatankuj pojazd",
}

option["player"]={
    "Akcja: Przenie? do siebie",
    "Akcja: Ulecz gracza",
    "Akcja: Przenie? do niego",
    "Akcja: Wyrzu? gracza",
    "Akcja: Zabij Gracza",
    "Akcja: Teleportuj Gracza do FC",
}

function isPedAiming ( thePedToCheck )
    if isElement(thePedToCheck) then
        if getElementType(thePedToCheck) == "player" or getElementType(thePedToCheck) == "ped" then
            if getPedTask(thePedToCheck, "secondary", 0) == "TASK_SIMPLE_USE_GUN" then
                return true
            end
        end
    end
    return false
end

function isRendering()
    if option.actived == true then
        if not element then return end
        local vx,vy,vz=getElementVelocity(element)
        mathSpeed=(vx^2+vy^2+vz^2)^0.5*1.8*100
        if mathSpeed < 0 then return end
        if value == "vehicle" then
            local vid=getElementData(element,"vehicle:id") or "brak"
            local driver=getElementData(element,"vehicle:driver") or "brak"
            dxDrawText(string.format("%.02f", mathSpeed).." km/h", (296/1280)*w, (0/720)*h, (2865/2280)*w, (610/720)*h, tocolor(255, 255, 255, 255), (2.00/1280)*w, (2.00/720)*h, "pricedown", "center", "center", false)
            dxDrawText("ID: "..vid.."\n\nOstatni kierowca: "..driver, (297/1280)*w, (0/720)*h, (1595/1280)*w, (720/720)*h, tocolor(255, 255, 255, 255), (1.00/1280)*w, (1.00/720)*h, "default-bold", "center", "center", false)
            if getElementData(localPlayer,"player:faction") ~= 5 then
            dxDrawText(option[value][option.selected] or "Akcja: brak", (688/1280)*w, (0/720)*h, (1187/1280)*w, (799/720)*h, tocolor(217, 0, 0, 255), (1.00/1280)*w, (1.00/720)*h, "sans", "center", "center", false)
            end
          end
        if value == "player" then
            local id=getElementData(element,"id") or "b??d"
            local uid=getElementData(element,"player:uid") or "b??d"
            local ogp=getElementData(element,"player:ogp") or "b??d"
            local faction=getElementData(element,"player:faction") or "b??d"
            dxDrawText("UID: "..uid, (296/1280)*w, (0/720)*h, (2920/2280)*w, (620/720)*h, tocolor(255, 255, 255, 255), (2.00/1280)*w, (2.00/720)*h, "clear", "center", "center", false)
            dxDrawText(getPlayerName(element).." ("..id..")\n\nFrakcja (ID): "..faction, (486/1280)*w, (0/720)*h, (2580/2280)*w, (700/720)*h, tocolor(255, 255, 255, 255), (1.00/1280)*w, (1.00/720)*h, "default-bold", "center", "center", false)
            if getElementData(localPlayer,"player:faction") ~= 5 then
            dxDrawText(option[value][option.selected] or "Akcja: brak", (1288/2280)*w, (0/720)*h, (2150/2280)*w, (780/720)*h, tocolor(217, 0, 0, 255), (1.00/1280)*w, (1.00/720)*h, "sans", "center", "center", false)
            end
        end
    end
end

function blockShoot()
    if getPedWeapon(localPlayer) == 22 then
        toggleControl("fire", false)
                toggleControl("aim_weapon", true)
                toggleControl("action", false)
    else
        toggleControl("fire", false)
    end
end

addEventHandler("onClientRender", root, blockShoot)

addEventHandler("onClientPlayerTarget",root, function(el)
    if isPedAiming(localPlayer) and el and getPedWeapon(localPlayer) == 22 then
        if not option.actived  then
            if getElementType(el) == "vehicle" then
                value="vehicle"
                element=el
                option.actived=true
            elseif getElementType(el) == "player" then
                value="player"
                element=el
                option.actived=true
            else return end
            bindKey("mouse1", "down", onElementClicked)
            bindKey("mouse_wheel_down", "down", onElementMoveDown)
            bindKey("mouse_wheel_up", "down", onElementMoveUp)
            addEventHandler("onClientHUDRender", root, isRendering)
        end
    else
        if option.actived then
            vehicle.el=nil
            option.actived=false
            unbindKey("mouse1", "down", onElementClicked)
            unbindKey("mouse_wheel_down", "down", onElementMoveDown)
            unbindKey("mouse_wheel_up", "down", onElementMoveUp)
            removeEventHandler("onClientHUDRender", root, isRendering)
        end
    end
end)

function onElementMoveUp() if option.selected > 4 then option.selected=1 else option.selected=option.selected+1 end end
function onElementMoveDown() if option.selected < 1 then option.selected=6 else option.selected=option.selected-1 end end
function onElementClicked() if option.selected > 0 then triggerServerEvent("onDryerAction", localPlayer, value, option.selected, element) end end


Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-25, 20:55


Odważny

Początki LUA :P






Wiek: 26
Na forum: 3880 dni
Posty: 140
Nick w MP: ReseT_

Piwa: 166

Respekt: 50

demoniskoxd, Ja mam taki kod na antybicie:

function disableFireForPlayer (thePlayer)
toggleControl (source,"fire",false)
toggleControl (source,"action",false)
end
addEventHandler("onPlayerLogin", getRootElement(), disableFireForPlayer)


U siebie masz linijk?:
toggleControl("fire", false)
                toggleControl("aim_weapon", true)
                toggleControl("action", false)

2 linijk? usu? i wtedy sprawd? ;)
A tak przy okazji gdy masz w??czony /dmon to mo?esz celowa? / strzela? z bro?? Czy wgl ca?e jest zablokowane?

Podpis
, pomogłem Ci? Wynagrodź mnie :piwo: :P
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-25, 21:36


demoniskoxd







Wiek: 30
Na forum: 4130 dni
Posty: 79
Nick w MP: Francesco

Piwa: 1

Respekt: 50

Odwa?ny,
Jak mam wlaczony /dmon to nie moge nic ani celowac ani uderzac z piesci

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-25, 21:37


Odważny

Początki LUA :P






Wiek: 26
Na forum: 3880 dni
Posty: 140
Nick w MP: ReseT_

Piwa: 166

Respekt: 50

demoniskoxd, Sprawd? to co Ci wy?ej wys?a?em.

Podpis
, pomogłem Ci? Wynagrodź mnie :piwo: :P
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-25, 21:56


demoniskoxd







Wiek: 30
Na forum: 4130 dni
Posty: 79
Nick w MP: Francesco

Piwa: 1

Respekt: 50

Odwa?ny,
Nadal nic .... Ja ju? nie mam poj?cia czym to mo?e by? spowodowane :/

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-26, 21:43


DaxLerXD







Wiek: 25
Na forum: 3912 dni
Posty: 4
Nick w MP: DaxLer

Piwa: 1

Respekt: 50

Witam, mam problem. Mam panel logowania w ktorym leci muzyka i mam ustawion? muzyk? na spawnie. I mam taki problem, ?e te dzwi?ki si? zlewaj? i s? dwie melodie. Prosz? aby kto? mi przerobi? skrypt z muzyk? na spawnie aby dopiero si? w??cza?a po logowaniu ;)

http://www75.zippyshare.com/v/sYeh9Sua/file.html

Z g?ry dzi?ki.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-26, 21:46


marcin778

Krytyk serwerów MTA






Wiek: 24
Na forum: 4290 dni
Posty: 2268
Nick w MP: Marcineg

Piwa: 4661

Respekt: 1436,8
Respekt: 1436,8

demoniskoxd, Poniewa? w konsoli serwera jest ustawione na 'false'. To naci?nij F8 i kolejno wpisz crun toggleControl("fire",true) lub zr?b reinstall serwera. Pomo?e :)

[ Dodano: 2016-03-26, 21:48 ]
DaxLerXD,

-- The sound loops independently
addEventHandler( "onPlayerLogin", getRootElement),
    function()
local desusound =playSound3D("http://acdn.smcloud.net/t042-1.mp3.pls",-19.054019927979,1178.5465087891,19.563381195068, true)
setSoundVolume(desusound,2.4)
setSoundMaxDistance(desusound, 140)
    end
               )
spr?buj.

Podpis
Moje prace: https://www.youtube.com/c...MuaWGHPp1mhlGnw

-- obecnie
-- obecnie
-- dawniej
-- dawniej
-- dawniej
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-03-26, 21:53


DaxLerXD







Wiek: 25
Na forum: 3912 dni
Posty: 4
Nick w MP: DaxLer

Piwa: 1

Respekt: 50

ok zobacze

[ Dodano: 2016-03-26, 21:53 ]
ale w sensie mam nowy skrypt napisa? czy doda? w nast?pnych linijkach?

[ Dodano: 2016-03-26, 22:01 ]
marcin778, Nie dzia?a pomo?esz to zrobi? inaczej?

[ Dodano: 2016-03-26, 23:16 ]
Witam, mam problem. Mam panel logowania w ktorym leci muzyka i mam ustawion? muzyk? na spawnie. I mam taki problem, ?e te dzwi?ki si? zlewaj? i s? dwie melodie. Prosz? aby kto? mi przerobi? skrypt z muzyk? na spawnie aby dopiero si? w??cza?a po logowaniu ;)

http://www75.zippyshare.com/v/sYeh9Sua/file.html

Z g?ry dzi?ki.

[ Dodano: 2016-03-27, 11:53 ]
@ref
Pomo?e kto??

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-04-18, 09:10


Bakomiasty







Wiek: 30
Na forum: 3872 dni
Posty: 5

Piwa: 209

Respekt: 60

Witam mam problem bo gdy u?ywam interakcji pojazdu chowa mi si? radar problem polega w tym ?e pasa?erowi tak samo si? pojawia i gdy nawet nie jeste?my w aucie te? si? chowa radar pod Shift'em.

 
bindKey("lshift", "both", function(key,state)
    if state == "down" then
        pokazinterakcje(true)
                showPlayerHudComponent("radar",false)
        setElementData(localPlayer,"wybor",1)
    elseif state == "up" then
        wybierz()
        pokazinterakcje(false)
                showPlayerHudComponent("radar",true)
    end
end)


Prosz? stosowa? znaczniki lua/code ///Emm

Ostatnio zmieniony przez Emm 2016-04-18, 10:41, w całości zmieniany 1 raz  
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-04-22, 08:07


GabWas







Wiek: 24
Na forum: 4022 dni
Posty: 289
Nick w MP: GabWas

Piwa: 65

Respekt: 231,5
Respekt: 231,5Respekt: 231,5

"Bakomiasty" napisał/a:

Witam mam problem bo gdy u?ywam interakcji pojazdu chowa mi si? radar problem polega w tym ?e pasa?erowi tak samo si? pojawia i gdy nawet nie jeste?my w aucie te? si? chowa radar pod Shift'em.

 
bindKey("lshift", "both", function(key,state)
    if state == "down" then
        pokazinterakcje(true)
                showPlayerHudComponent("radar",false)
        setElementData(localPlayer,"wybor",1)
    elseif state == "up" then
        wybierz()
        pokazinterakcje(false)
                showPlayerHudComponent("radar",true)
    end
end)


Prosz? stosowa? znaczniki lua/code ///Emm


Proponuj? zrobi? skrypt po stronie server. Mog?o to by by? co? takiego:
function pokazywanieInterakcji(plr,key,state)
    if state == "down" then
        pokazinterakcje(true)
        setPlayerHudComponentVisible(plr,"radar",false)
        setElementData(plr,"wybor",1)
    elseif state == "up" then
        wybierz()
        pokazinterakcje(false)
        setPlayerHudComponentVisible(plr,"radar",true)
    end
end

function interakcjaPojazduBind(plr,seat)
    if seat=0 then --je?eli zaj?te zosta?o miejsce kierowcy
        bindKey(plr, "lshift", "both", pokazywanieInterakcji)
    end
end
addEventHandler("onVehicleEnter", getRootElement(), interakcjaPojazduBind)

function interakcjaPojazduUnbind(plr,seat)
    if seat=0 then
        unbindKey(plr, "lshift", "both", pokazywanieInterakcji)
    end
end
addEventHandler("onVehicleExit", getRootElement(), interakcjaPojazduUnbind)


Mo?e nie dzia?a?, bo nie wiem jak wygl?da skrypt na t? interakcj?. Licz? na :piwo: lub R* :roll:

Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-04-23, 15:57


Nexisten

Moderator






Wiek: 22
Na forum: 4248 dni
Posty: 552
Nick w MP: Nexisten

Piwa: 1486

Respekt: 287,3
Respekt: 287,3Respekt: 287,3Respekt: 287,3

Zrobi mi ktos aby to bylo w kazdym infernusie zeby nie musial co chwile ich robic? Tutaj kod, chodzi o syreny


removeVehicleSirens(veh)
addVehicleSirens(veh, 6, 2, true, false, true, false)
setVehicleSirens(veh, 1, 0.6, -2.5, 0, 255, 20.4, 0, 198.9, 198.9)
setVehicleSirens(veh, 2, -0.7, -2.5, 0, 255, 20.4, 0, 200, 200)
setVehicleSirens(veh, 3, 0, 1.1, 0.2, 255, 0, 0, 200, 200)
setVehicleSirens(veh, 4, 0, 1.1, 0.2, 0, 0, 255, 200, 200)
setVehicleSirens(veh, 5, 0.6, -1, 0.4, 0, 0, 255, 200, 200)
setVehicleSirens(veh, 6, -0.7, -1, 0.4, 255, 0, 0, 200, 200)


Prosz? stosowa? znaczniki lua/code //Emm

Ostatnio zmieniony przez Emm 2016-04-23, 16:10, w całości zmieniany 1 raz  
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-04-23, 20:24


Dawid3k

Początkujący Mapper






Wiek: 27
Na forum: 3905 dni
Posty: 32
Nick w MP: Dawid3k

Piwa: 332

Respekt: 55,8

Witam mam problem z pewnym systemem pojazd?w

 exports['DB']:setRekord('INSERT INTO og_vehicles (model, frozen, ownedPlayer, parking, fuel, mileage) VALUES (?, ?, ?, ?, ?, ?)', model, 0, getElementData(plr,'player:uid'), 1, 15, mileage)
    outputChatBox('* Zakupi?e? sw?j pojazd, id? na do niebieskiego samochodu na mapie i odbierz go.', plr,255,255,255,true)


Chodzi o to ?e mam inn? przechowywanie i nie wiem jak ustawi? aby kupiony pojazd dawa?o do mojej przechowywali (tamta nie dzia?a)


Wiem ?e tu musz? zmieni? z mojej przechowalni
INSERT INTO og_vehicles (model, frozen, ownedPlayer, parking, fuel, mileage) VALUES (?, ?, ?, ?, ?, ?)


ale problem jest taki ?e w mojej przechowywali nie ma nic podobnego.


kod przechowywani
handler = dbConnect("DB", "przechowywalnia.db")
dbExec(handler, "CREATE TABLE IF NOT EXISTS `przechowywalnia` (`id` INTEGER, `model` INTEGER, `wlasciciel` INTEGER)")

function onStartPrzechowywalnia()

local maly = createMarker( -2059.83,462.26,35.17-0.9, "cylinder", 1, 255, 0, 0, 45)
addEventHandler("onMarkerHit", maly, onPrzechowywalniaHit)

duzy = createMarker( -2046.74,480.95,35.15-0.8, "cylinder", 9.5, 0, 71, 255, 75)
end
addEventHandler("onResourceStart", getResourceRootElement(getThisResource()), onStartPrzechowywalnia)

function onPrzechowywalniaHit(hitElement)
    if getElementType(hitElement) == "player" then
    local acc = getPlayerAccount(hitElement)
        if acc then
        local veh = getPedOccupiedVehicle(hitElement)
            if not veh then
            local login = getAccountName(acc)
            local query = dbQuery(handler, "SELECT * FROM przechowywalnia WHERE wlasciciel='"..login.."'")
            local result, rows = dbPoll (query, -1)
            triggerClientEvent(hitElement, "showPrzechowywalniaGUI", root, result or {})
            end
        end
    end
end

addEvent("onPrzywrocPojazdZPrzechowywalni", true)
addEventHandler("onPrzywrocPojazdZPrzechowywalni", getRootElement(),
function(id)
local query = dbQuery(handler, "SELECT * FROM przechowywalnia WHERE id='"..id.."'")
local result, rows = dbPoll (query, -1)
    if #result > 0 then
    dbExec(handler, "DELETE FROM przechowywalnia WHERE id='"..id.."'")
    
    --tworze pojazd
    local x, y, z = getElementPosition(duzy)
    local zrob = exports.YNLSystemPojazdow:stworzPojazd(id, x, y, z)
        if zrob then
        warpPedIntoVehicle(source, zrob)
        else
        outputChatBox("Podane auto nie istnieje.", source, 255, 255, 255, true)
        end
    else
    outputChatBox("Podane auto nie istnieje ju? w przechowywalni.", source, 255, 255, 255, true)
    end
end)

function czyPojazdJestWPrzechowywalni(id)
local query = dbQuery(handler, "SELECT * FROM przechowywalnia WHERE id='"..id.."'")
local result, rows = dbPoll (query, -1)
    if #result > 0 then
    return true
    else
    return false
    end
end
--##
timery = {}

function onPrzechoVehExit(player, seat)
    if seat == 0 then
    local id = getElementData(source, "car_id")
        if id then
            if isElementWithinMarker(source, duzy) then
            timery[id] = setTimer(oddajPojazdDoPrzechowywalni, 5000, 1, source, player, id, true)
            end
        end
    end
end
addEventHandler("onVehicleExit", getRootElement(), onPrzechoVehExit)

function oddajPojazdDoPrzechowywalni(veh, player, id, bool)
    if isElement(veh) then
    local acc = getPlayerAccount(player)
        if acc then
        local wlasciciel = getElementData(veh, "car_owner")
        local model = getElementModel(veh)
        dbExec(handler, "INSERT INTO przechowywalnia VALUES('"..id.."', '"..model.."', '"..wlasciciel.."')")
        
        if isElement(player) then
            if bool then
            outputChatBox("Tw?j pojazd "..getVehicleName(veh).." zosta? umieszczony w przechowywalni.", player, 255, 255, 255, true)
            else
            outputChatBox("Odda?e? pojazd "..getVehicleName(veh).." do przechowywalni.", player, 255, 255, 255, true)
            end
        end

        destroyElement(veh)
        end
    end
end

function komendaDlaAdmina(player)
local acc = getPlayerAccount(player)
    if acc then
    local login = getAccountName(acc)
    if isObjectInACLGroup ( "user." .. login, aclGetGroup ( "P" )) then 
        local veh = getPedOccupiedVehicle(player)
            if veh then
            local id = getElementData(veh, "car_id")
                if id then
                oddajPojazdDoPrzechowywalni(veh, player, id)
                end
            end
        end
    end
end
addCommandHandler("oddajauto", komendaDlaAdmina)

function onPrzechoVehEnter(player, seat)
    if seat == 0 then
    local id = getElementData(source, "car_id")
        if id then
            if isTimer(timery[id]) then
            killTimer(timery[id])
            end
        end
    end
end


Podpis
Kontakt ze mną GG: 50723244
Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-04-27, 17:50


bester







Wiek: 28
Na forum: 3869 dni
Posty: 5
Nick w MP: TheBest

Piwa: 14

Respekt: 50

Ostrzeżeń: 100%
Prosi?bym o dodanie do tego kodu, ?eby pojazd powy?ej 50K przebiegu nie odpala?.

Kod:

local lu=getTickCount()

local function naliczPrzebieg(veh)
local przebieg=getElementData(veh,"przebieg") or 0
if (getTickCount()-lu>250) then
lu=getTickCount()
local vx,vy,vz=getElementVelocity(veh)
local spd=((vx^2 + vy^2 + vz^2)^(0.5)/10)
if (spd>0) then
przebieg=przebieg+(spd)/3
setElementData(veh, "przebieg", przebieg)
end
end

end

function updatePrzebieg()
local v=getPedOccupiedVehicle(localPlayer)
if (not v) then return end
if (not getVehicleEngineState(v)) then return end
if (getVehicleController(v)~=localPlayer) then return end
naliczPrzebieg(v)
sprawdzpebieg(v)
end

addEventHandler("onClientRender", root, updatePrzebieg)



Postaw piwo autorowi tego posta
 

 
Wysłany: 2016-04-27, 18:21


Emm

***** ***






Wiek: 32
Na forum: 4021 dni
Posty: 3191
Nick w MP: Emm

Piwa: 6171

Respekt: 1580
Respekt: 1580Respekt: 1580


   Administrator: Admin ma zawsze rację | REGULAMIN FORUM | REKLAMA/VIP | .
if przebieg >= 50000 then return end

Dodaj to przy odpalaniu pojazdu, je?eli nie masz to zdefiniuj przebieg pobieraj?c elementdat? tak jak masz wy?ej.

Podpis

Użytkownik: 20.10.2015r
GTAO Member: 06.03.2016r
Support-Team: 20.01.2016r
Moderator: 30.03.2016r
Mod-Team: 08.10.2016r
Vice Admin: 04.05.2018r
Administrator: 03.05.2022r


! Koniecznie zapoznaj się z regulaminem forum.
Pamiętaj, aby zawsze go przestrzegać, nie mniej ważne są również regulaminy działów, w których się wypowiadasz!
Zamiast zakładać temat po kilka razy, bo jest usuwany przez Administrację, przejrzyj regulamin i napisz poprawnie temat!
Sprawy z administracją możesz załatwiać anonimowo w tym dziale.
Najważniejsze informacje od Administracji możesz przeczytać tutaj oraz tutaj.
Postaw piwo autorowi tego posta
 

 
Tagi: prośby :: przerobienie :: skryptu
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA » Zasoby do MTA » PROŚBY O PRZEROBIENIE SKRYPTU Odpowiedz do tematu

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