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

Wysłany: 2015-08-03, 15:36


vicuuus







Wiek: 25
Na forum: 4006 dni
Posty: 63

Piwa: 11

Respekt: 70,3

Cze?? prosz? o przerobienie sryptu: http://hostuje.net/file.p...7f55493d43da776 tak by usun?? ten panel wyboru spawnu ... Daje :piwo: i R*

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-04, 13:41


Vxen







Wiek: 27
Na forum: 4087 dni
Posty: 293

Piwa: 1299

Respekt: 130,5
Respekt: 130,5

A mog? przerobi? inny panel podobny do tego logowania... Chcesz?

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-06, 14:52


marcin778

Krytyk serwerów MTA






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

Piwa: 4662

Respekt: 1436,8
Respekt: 1436,8

Cze??! szukam kogo? kto mi pomo?e mianowicie kto by mi ten skrypt przerobi??

http://przeklej.org/file/5TQYow/ftapanel.zip

ten skrypt mianowicie tak aby ranga "Wlasciciel" te? mog?a go u?ywa? pod f4 Wlasciciel i Admin

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

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

 
Wysłany: 2015-08-06, 15:30


Kamilos50







Wiek: 24
Na forum: 4574 dni
Posty: 3
Nick w MP: Kamilos



Respekt: 50

Ostrzeżeń: 100%
Witam prosz? o przerobienie mojego kodu nie wiem jak to zrobi?.
To jest oto kod na ID-system ale nadaje ID-1 ka?demu a 2,3...itd nie chce da?.
Postanowi?em skr?ci? jak si? da.
Za pomoc daje piwko i respekt.

addEventHandler ( 'onClientResourceStart', resourceRoot,

function ( )
for i,v in ipairs ( getElementsByType ( 'player' ) ) do
setElementData ( v, 'data.playerID', i )
end
exports.scoreboard:scoreboardAddColumn ( 'data.playerID', 80, 'ID' )
end
)

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-06, 16:16


vicuuus







Wiek: 25
Na forum: 4006 dni
Posty: 63

Piwa: 11

Respekt: 70,3

Vxen je?eli by? m?g? to tak :D

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-06, 17:03


Fanciak

BOT






Wiek: 25
Na forum: 4447 dni
Posty: 728
Nick w MP: Fanciak

Piwa: 1572

Respekt: 500
Respekt: 500

Kamilos50, po tym kodzie nic nie zdzialamy. Daj wiecej.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-08, 14:43


Toporek







Wiek: 41
Na forum: 3977 dni
Posty: 37
Nick w MP: spejson

Piwa: 1

Respekt: 50

Witam,mog?bym prosi? o przeobienie skryptu na kontener/armabox na mod dayz?
Chce,zeby kontener by? oznaczony na mapie +,znika? po np.10min i zeby by?o napisane na globalu/na srodku dla kazdego,ze armybox zosta? zrespiony.Thx
Link do skryptu z community:
http://community.multithe...etails&id=11857

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-08, 15:37


luki123luki123

Place Game






Wiek: 28
Na forum: 5275 dni
Posty: 1948
Nick w MP: LuKiO

Piwa: 6101

Respekt: 611
Respekt: 611Respekt: 611


function tentdayz(thePlayer)
accountname getAccountName(getPlayerAccount(thePlayer))
if not isObjectInACLGroup("user." .. accountnameaclGetGroup("Admin")) then
return outputChatBox"Nie jeste? Administatorem"thePlayer end
local xygetElementPosition(thePlayer)
    
tent createObject(3243xy+4z-1)
if not tent then return end

setObjectScale(tent0.5)
tentCol createColSphere(yz,  4)
Blip createBlipxy+4z-141 )

setTimer ( function()
    destroyElementtent)
    destroyElementtentCol)
    destroyElementBlip)
end1000*60*10)

    setElementData(tentCol"parent"tent)
    setElementData(tent"parent"tentCol)
    setElementData(tentCol"tent"true)
    setElementData(tentCol"vehicle"true)
    setElementData(tentCol"MAX_Slots"40000)
    setElementData(tentCol"M4"999)
    setElementData(tentCol"M4 Mag"999)
    setElementData(tentCol"PDW"999)
    setElementData(tentCol"Mp5"999)
    setElementData(tentCol"Mp5 Mag"999)
    setElementData(tentCol"Winchester 1866"999)
    setElementData(tentCol"1866 slug"999)
    setElementData(tentCol"Tent"999)
    setElementData(tentCol"Hatchat"999)
    setElementData(tentCol"Hunting Knife"999)
    setElementData(tentCol"Wirefence"999)
    setElementData(tentCol"Lee Enfield"999)
    setElementData(tentCol"Lee Enfield Mag"999)
    setElementData(tentCol"CZ 550"999)
    setElementData(tentCol"CZ 550 Mag"999)
    setElementData(tentCol"AK-47"999)
    setElementData(tentCol"AK Mag"999)
    setElementData(tentCol"Pizza"999)
    setElementData(tentCol"Milk"999)
    setElementData(tentCol"Coyote Backpack"999)
    setElementData(tentCol"Cooked Meat"999)
    setElementData(tentCol"Soda Bottle"999)
    setElementData(tentCol"Medic Kit"999)
    setElementData(tentCol"Morphine"999)
    setElementData(tentCol"Full Gas Canister"999)
    setElementData(tentCol"Engine"999)
    setElementData(tentCol"Tire"999)
    setElementData(tentCol"Tank Parts"999)
    setElementData(tentCol"Ghillie Suit"999)
    setElementData(tentCol"Map"999)
    setElementData(tentCol"GPS"999)
    setElementData(tentCol"Toolbox"999)
    setElementData(tentCol"Watch"999)
    setElementData(tentCol"M9 SD"999)
    setElementData(tentCol"M9 SD Mag"999)
    setElementData(tentCol"Grenade"999)
    setElementData(tentCol"O.S Pack"999)
    setElementData(tentCol"Camouflage Clothing"999)
    setElementData(tentCol"Civilian Clothing"999)
end
addCommandHandler("armabox"tentdayz)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-08, 16:00


Toporek







Wiek: 41
Na forum: 3977 dni
Posty: 37
Nick w MP: spejson

Piwa: 1

Respekt: 50

u,wielkie thx,dodasz jeszcze funkcje,zeby nie da?o sie go usunac?

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-09, 12:25


marcin778

Krytyk serwerów MTA






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

Piwa: 4662

Respekt: 1436,8
Respekt: 1436,8

Witajcie,mam pro?b?

Czy m?g?by mi kto? przerobi? ten kod tak aby wszyscy widzieli ten film kt?ry w??czy admin a nie ?e ka?dy widzi sw?j a drugi gracz nie widzi


local cWindow guiCreateWindow(337177816762"CINEMA"false)
local browser guiCreateBrowser(00800600falsefalsefalsecWindow)

local theBrowser guiGetBrowser(browser)
addEventHandler("onClientBrowserCreated"theBrowser, 
    function()
        loadBrowserURL(source"http://www.youtube.com")
    end
)


CINEMA = {
    button = {},
    window = {},
    edit = {}
}
addEventHandler("onClientResourceStart"resourceRoot,
    function()
        guiWindowSetSizable(cWindowfalse)
        guiSetProperty(cWindow"CaptionColour""FF0309FB")
        guiSetVisible(cWindow,false)



        CINEMA.button[1] = guiCreateButton(960838835"GET URL"falsecWindow)
        guiSetFont(CINEMA.button[1], "default-bold-small")
        guiSetProperty(CINEMA.button[1], "NormalTextColour""FFFF0000")
        CINEMA.button[2] = guiCreateButton(42760838135"PUT VIDEO IN CINEMA"falsecWindow)
        guiSetFont(CINEMA.button[2], "default-bold-small")
        guiSetProperty(CINEMA.button[2], "NormalTextColour""FFFF0000")
        CINEMA.button[3] = guiCreateButton(1065338835"CLOSE"falsecWindow)
        guiSetFont(CINEMA.button[3], "default-bold-small")
        guiSetProperty(CINEMA.button[3], "NormalTextColour""FFFF0000")
        CINEMA.button[4] = guiCreateButton(42565438334"VIEW VIDEO IN FULL SCREEN MODE"falsecWindow)
        guiSetFont(CINEMA.button[4], "default-bold-small")
        guiSetProperty(CINEMA.button[4], "NormalTextColour""FFFF0000")
        CINEMA.edit[1] = guiCreateEdit(1170079652""falsecWindow)
        guiEditSetReadOnly(CINEMA.edit[1], true)    
    end
)


function geturl()
if source == CINEMA.button[1then
guiSetText(CINEMA.edit[1],getBrowserURL(theBrowser))
end
end
addEventHandler("onClientGUIClick",root,geturl)


function dxDrawImage3D(x,y,z,w,h,m,c,r,...)
        local lxlylz x+wy+h, (z+tonumber(or 0)) or z
    return dxDrawMaterialLine3D(x,y,zlxlylzmh, ...)
end
 
 
local screenWidthscreenHeight guiGetScreenSize()
 
local webBrowser createBrowser(screenWidthscreenHeightfalsefalse)

function webBrowserRender()
local x110.71024.15
dxDrawMaterialLine3D(xy23.25xy14.75webBrowser18.2tocolor(255255255255), xy+119)
end

function fullscreen()
local URLs string.sub(guiGetText(CINEMA.edit[1]),"33")
if source == CINEMA.button[4then
loadBrowserURL(webBrowser"https://www.youtube.com/embed/"..URLs.."?autoplay=1&iv_load_policy=3&enablejsapi=1&fs=0&theme=light")
end
end
addEventHandler("onClientGUIClick",root,fullscreen)

function brow()
    if source == CINEMA.button[2then
        loadBrowserURL(webBrowserguiGetText(CINEMA.edit[1]))
        addEventHandler("onClientPreRender"rootwebBrowserRender)
    end
end
addEventHandler("onClientBrowserCreated"webBrowserbrow)
addEventHandler("onClientGUIClick",root,brow)

function url()
guiSetVisible(cWindow,true)
showCursortrue )
guiSetInputEnabledtrue )
end
addCommandHandler("cinema",url)

function closeman()
if source == CINEMA.button[3then
guiSetVisible(cWindow,false)
showCursorfalse )
guiSetInputEnabledfalse )
end 
end
addEventHandler("onClientGUIClick",root,closeman)


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

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

 
Wysłany: 2015-08-09, 21:14


DaxRel69







Wiek: 30
Na forum: 4108 dni
Posty: 171
Nick w MP: DaxRel

Piwa: 4368

Respekt: 71,5

Ostrzeżeń: 60%
Przerobi mi kto? ten kod by tylko na Globalu mogli pisa? RCON,Administrator,Moderator?

Kod:

function RGBToHex(red, green, blue, alpha)
if((red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255))) then
return nil
end
if(alpha) then
return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha)
else
return string.format("#%.2X%.2X%.2X", red,green,blue)
end
end



function onChat(message,messagetype)

if isGuestAccount(getPlayerAccount(source)) then
outputChatBox("Najpierw wejd? do gry.", source, 255, 000, 000)
return end

if messagetype == 0 then
cancelEvent()
local x, y, z = getElementPosition(source)
local chatCol = createColSphere(x,y,z,20)
local chatRadius = getElementsWithinColShape(chatCol)
local r, g, b = getPlayerNametagColor(source)
for key, value in ipairs(chatRadius) do
outputChatBox(getPlayerName(source).."#FFFFFF: "..message,value,r,g,b,true)
end
outputServerLog("LOCAL "..getPlayerName(source)..": "..message)
-- if not isPedInVehicle(source) then
--local talktime = string.len(message)*200

-- setPedAnimation(source,"ped","IDLE_chat",0,true,false,true,true)
--setTimer(function () setPedAnimation(source,nil, nil, nil)end,talktime,1)
--end




elseif messagetype == 1 then
cancelEvent()
local x, y, z = getElementPosition(source)
local chatCol = createColSphere(x,y,z,30)
local chatRadius = getElementsWithinColShape(chatCol)
for key, value in ipairs(chatRadius) do
outputChatBox("#FF5555*"..getPlayerName(source).." "..message,value,0,0,0,true)
outputServerLog("ME *"..getPlayerName(source).." "..message)
end
end
end



addEventHandler("onPlayerChat",getRootElement(),onChat)

function global(psource,command,...)
if isGuestAccount(getPlayerAccount(psource)) then
outputChatBox("Najpierw wejd? do gry.", psource, 255, 000, 000)
return end

local tekst = table.concat({...}," ")
r,g,b = getPlayerNametagColor(psource)
outputChatBox("#FF0000[Global] "..RGBToHex(r,g,b)..getPlayerName(psource).."#FFFFFF: "..tekst,getRootElement(),r,g,b,true)
outputServerLog("GLOBAL "..getPlayerName(psource)..": "..tekst)
end

addCommandHandler("global",global)


addEventHandler("onPlayerLogin",getRootElement(),function ()
bindKey(source,"u","down","chatbox","global")
end)


addEventHandler("onResourceStart", root,
function ( )
for k,v in ipairs(getElementsByType("player", root)) do
unbindKey(v, "u", "down", "chatbox", "global")
bindKey(v, "u","down","chatbox","global")
end
end)


Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-11, 21:52


marcin778

Krytyk serwerów MTA






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

Piwa: 4662

Respekt: 1436,8
Respekt: 1436,8

[spoiler]
Witam!

czy kto? m?g?by mi przerobi? albo wyt?umaczyc dlaczego dostaje taki wysyp na konsoli i skrypt nie dzia?a

restart Info_Bot
[2015-08-11 21] restart: Requested by Console
[2015-08-11 21] restart: Resource restarting...
[2015-08-11 21] Stopping Info_Bot
[2015-08-11 21] Starting Info_Bot
[2015-08-11 21] WARNING: Script 'Info_Bot/info.lua' is not encoded in UTF-8. Loading as ANSI...
[2015-08-11 21] SCRIPT ERROR: Info_Bot/info.lua:1: unexpected symbol near '?'
[2015-08-11 21] ERROR: Loading script failed: Info_Bot/info.lua:1: unexpected symbol near '?'
[2015-08-11 21] Info_Bot restarted successfully


tutaj kod kt?ry w razie czego przerobi?

local messages = [

                                                          "#00ff00[Kontakt]#ff0000Skype:Marcin.Pawlicki34",
                                                          "#00ff00[INFO]#ff00ffG??wnym wlascicielem jest Marcin",
                                                          "#ff0000[Administracja]#00ff00Naszymi administratorami sa:Marcin,Niventill,NerQ",
                                                          "##00ff00[PSDZ]#467389W sprawie kupna rangi do Marcina",

                                              }
local r,g,255,255,0
local stime 60

setTimer(
     function()
           local msg messages[math.random[1,#messages]
           outputChatBoxmsggetRootElement(), rgbtrue )
     end,
    stime*1000,0
)
                




Daje piwko i repke :piwo: :piwo: :piwo: :piwo: :piwo:


Nie aktualne! mo?na usun?? :-)

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

-- obecnie
-- obecnie
-- dawniej
-- dawniej
-- dawniej
Ostatnio zmieniony przez #404 2015-08-11, 22:38, w całości zmieniany 1 raz  
Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-15, 16:15


NoNi3zle

Uczeń LUA






Wiek: 24
Na forum: 4179 dni
Posty: 42
Nick w MP: NoNi3zle

Piwa: 78

Respekt: 60

Poprosze aby przerobi? ten skrypt tak, ?e mo?e z niego korzysta? tylko osoba z rang? admin http://community.multithe...etails&id=11727

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-16, 01:37


Trador232







Wiek: 26
Na forum: 3950 dni
Posty: 6
Nick w MP: TradoR

Piwa: 1

Respekt: 50

Prosz? o zamian? Team'u "Police" na grup? ACL "Police" w pliku shieldc.lua
- Chodzi mi o to, ?eby mo?na by?o korzysta? z tego b?d?c tylko w grupie Police a nie Team'ie
Oto skrypt:
https://community.multitheftauto.com/index.php?p=resources&s=details&id=11354

Plik lub ca?y gotowy kod z pliku shieldc.lua prosz? o wys?anie na PW.

Z g?ry dzi?kuj? za pomoc :)

Postaw piwo autorowi tego posta
 

 
Wysłany: 2015-08-16, 19:48


NoNi3zle

Uczeń LUA






Wiek: 24
Na forum: 4179 dni
Posty: 42
Nick w MP: NoNi3zle

Piwa: 78

Respekt: 60

"Trador232" napisał/a:

Prosz? o zamian? Team'u "Police" na grup? ACL "Police" w pliku shieldc.lua
- Chodzi mi o to, ?eby mo?na by?o korzysta? z tego b?d?c tylko w grupie Police a nie Team'ie
Oto skrypt:
https://community.multitheftauto.com/index.php?p=resources&s=details&id=11354

Plik lub ca?y gotowy kod z pliku shieldc.lua prosz? o wys?anie na PW.

Z g?ry dzi?kuj? za pomoc :)


Licze na piwko.

-- Create the shield change the model 
function clientshieldstartertheResource )
    if ( theResource == getThisResource() ) then
        local txd_shield engineLoadTXD("riot_shield.txd")
        engineImportTXD(txd_shield,1631)
        local col_shield engineLoadCOL("riot_shield.col")
        local dff_shield engineLoadDFF("riot_shield.dff"1631 )
        engineReplaceCOL(col_shield,1631)
        engineReplaceModel(dff_shield,1631)
    end
end
addEventHandler("onClientResourceStart"rootclientshieldstarter)

function shieldingyet ()
    if isObjectInACLGroup "user." .. playerNameaclGetGroup "Police" ) ) then
    local currenttask getPedSimplestTask (localPlayer)
    if shieldon ~= 1 then
        if currenttask == "TASK_SIMPLE_PLAYER_ON_FOOT" and getControlState("jump") == true and getControlState("aim_weapon") == true then
            currentweapon getPedWeapon (localPlayer)
            shieldon 1
            triggerServerEvent ("shieldup"localPlayerlocalPlayer )
        end
    elseif shieldon == 1 then
        if currenttask ~= "TASK_SIMPLE_PLAYER_ON_FOOT" or getControlState("jump") == false or getControlState("aim_weapon") == false then
            shieldon 0
            triggerServerEvent ("shielddown"localPlayercurrentweapon )
        end
    end
end
end

function shieldLeggDamageControl attackerweaponbodypart )
    if ( bodypart == or  bodypart == ) and ( shieldon == then
        cancelEvent()
    end
end
addEventHandler "onClientPlayerDamage"localPlayershieldLeggDamageControl )

function shieldtimerkeykeyState )
    if isObjectInACLGroup "user." .. playerNameaclGetGroup "Police" ) ) then
        local theWeapon getPedWeapon (localPlayer)
        if ( theWeapon == then
            if keyState == "down" then
                blockcheck setTimer shieldingyet3000localPlayer )
            else
                if blockcheck then
                    killTimer(blockcheck)
                    blockcheck nil
                    if shieldon == 1 then
                        shieldon 0
                        triggerServerEvent ("shielddown"localPlayercurrentweapon )
                    end
                end
            end
        end
    end
end
bindKey "jump""both"shieldtimer )


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