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: 25
Na forum: 3739 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: 3989 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(thePedToCheckthen
        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)*htocolor(255255255255), (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)*htocolor(255255255255), (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)*htocolor(21700255), (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)*htocolor(255255255255), (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)*htocolor(255255255255), (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)*htocolor(21700255), (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"rootblockShoot)

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"rootisRendering)
        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"rootisRendering)
        end
    end
end)

function onElementMoveUp() if option.selected 4 then option.selected=else option.selected=option.selected+1 end end
function onElementMoveDown() if option.selected 1 then option.selected=else option.selected=option.selected-1 end end
function onElementClicked() if option.selected 0 then triggerServerEvent("onDryerAction"localPlayervalueoption.selectedelementend end


Postaw piwo autorowi tego posta
 

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


Odważny

Początki LUA :P






Wiek: 25
Na forum: 3739 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: 3989 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: 25
Na forum: 3739 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: 3989 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: 3771 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: 4149 dni
Posty: 2268
Nick w MP: Marcineg

Piwa: 4662

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.563381195068true)
setSoundVolume(desusound,2.4)
setSoundMaxDistance(desusound140)
    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: 3771 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: 29
Na forum: 3731 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: 3881 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: 4107 dni
Posty: 551
Nick w MP: Nexisten

Piwa: 1479

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(veh62truefalsetruefalse)
setVehicleSirens(veh10.6, -2.5025520.40198.9198.9)
setVehicleSirens(veh2, -0.7, -2.5025520.40200200)
setVehicleSirens(veh301.10.225500200200)
setVehicleSirens(veh401.10.200255200200)
setVehicleSirens(veh50.6, -10.400255200200)
setVehicleSirens(veh6, -0.7, -10.425500200200)


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: 3764 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 (?, ?, ?, ?, ?, ?)'model0getElementData(plr,'player:uid'), 115mileage)
    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 (modelfrozenownedPlayerparkingfuelmileageVALUES (?, ?, ?, ?, ?, ?)


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"12550045)
addEventHandler("onMarkerHit"malyonPrzechowywalniaHit)

duzy createMarker( -2046.74,480.95,35.15-0.8"cylinder"9.507125575)
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 resultrows dbPoll (query, -1)
            triggerClientEvent(hitElement"showPrzechowywalniaGUI"rootresult or {})
            end
        end
    end
end

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

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

function onPrzechoVehExit(playerseat)
    if seat == 0 then
    local id getElementData(source"car_id")
        if id then
            if isElementWithinMarker(sourceduzythen
            timery[id] = setTimer(oddajPojazdDoPrzechowywalni50001sourceplayeridtrue)
            end
        end
    end
end
addEventHandler("onVehicleExit"getRootElement(), onPrzechoVehExit)

function oddajPojazdDoPrzechowywalni(vehplayeridbool)
    if isElement(vehthen
    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(playerthen
            if bool then
            outputChatBox("Tw?j pojazd "..getVehicleName(veh).." zosta? umieszczony w przechowywalni."player255255255true)
            else
            outputChatBox("Odda?e? pojazd "..getVehicleName(veh).." do przechowywalni."player255255255true)
            end
        end

        destroyElement(veh)
        end
    end
end

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

function onPrzechoVehEnter(playerseat)
    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: 27
Na forum: 3728 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: 3880 dni
Posty: 3191
Nick w MP: Emm

Piwa: 6162

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