Jump to content

[AJUDA] PAINEL DE TAGS

AngelGabriel66

By AngelGabriel66
in Programação em Lua

Recommended Posts

AngelGabriel66 Vic

AngelGabriel66

Posted
  • Author
Posted
Eae pessoal sou novo aqui no fórum, quera a ajuda de vocês para completar esse script ( http://pastebin.com/gfhJuXih )

Ele serve pra dar tags é muito bom pra gangues e corporações. ( NÃO SEI NADA DE SCRIPT ;-;)

@AngelGabriel66, não damos suporte para roteiro roubado., aqui você não será ajudado!

Eu já sabia que você diria isso, eu queria que alguém criasse um similar ou diferente porém com o mesmo objetivo. :D

Link to comment
AngelGabriel66 Vic

AngelGabriel66

Posted
  • Author
Posted
Em outras palavras: você quer que alguém termine esse script que foi descompilado. Eu não acho que alguém aqui fará.

Eu particulamente só ajudaria alguém que está se esforçando.

Amigo, odeio que falem que estou copiando tal servidor sabe por isso queria pegar a mesma ideia desse script descompilado e fazer um pouco diferente com o mesmo objetivo. E sim eu estou me esforçando pra CARA***. Fico 13 horas no computador 9 horas são destinadas a configurar resources (scritps, texturas etc..) Estou fazendo um ''mini'' projeto que seria juntar todos os modos de jogo em um só. Como no GTA 5 que tem corrida, parkour, mata-mata. Até o nome do servidor vai ser Brasil Modo GTA5 :P, o servidor vai ter objetivo para o player (jogador) não ficar com tédio andar pelo mapa so matando etc..

>DESCULPA O TEXTO TODO CHEIO DE ERROS DE PORTUGUÊS, FIZ COM PRESSA<

Link to comment
#RooTs Jacker

#RooTs

Posted
Posted
Amigo, odeio que falem que estou copiando tal servidor sabe por isso queria pegar a mesma ideia desse script descompilado e fazer um pouco diferente com o mesmo objetivo. E sim eu estou me esforçando pra CARA***. Fico 13 horas no computador 9 horas são destinadas a configurar resources (scritps, texturas etc..) Estou fazendo um ''mini'' projeto que seria juntar todos os modos de jogo em um só. Como no GTA 5 que tem corrida, parkour, mata-mata. Até o nome do servidor vai ser Brasil Modo GTA5 :P, o servidor vai ter objetivo para o player (jogador) não ficar com tédio andar pelo mapa so matando etc..

>DESCULPA O TEXTO TODO CHEIO DE ERROS DE PORTUGUÊS, FIZ COM PRESSA<

Eu não acho necessário dar continuidade neste tema, já que foi detectado o furto desde roteiro. DNL291, por favor fechar este tópico..

Link to comment
  • 2 weeks later...
AngelGabriel66 Vic

AngelGabriel66

Posted
  • Author
Posted
Em outras palavras: você quer que alguém termine esse script que foi descompilado. Eu não acho que alguém aqui fará.

Eu particulamente só ajudaria alguém que está se esforçando.

Aee mano :D, achei um painel de dar tag perfeito, mas falta algumas coisas a tag fica duplicada, tipo fica com a tag de jogador e a tag que vc deu a ele, pode me ajudar por favor? Quando adicionar a tag em alguem automaticamente vai pra ACL de alguma gangue ou corporaçao ficaria ótimo :D. Edit: Nao fica falando que eu roubei etc eu peguei do site de mods do MTA!!! 

addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        local screenW, screenH = guiGetScreenSize() 
        Font = guiCreateFont ( "s/mobily.ttf", 28) 
        Window = guiCreateStaticImage((screenW - 490) / 2, (screenH - 611) / 2, 490, 611, "s/PlayerTags.png", false) 
        guiSetVisible(Window ,false) 
        PlayerGrid = guiCreateGridList(29, 80, 247, 450, false, Window) 
        guiGridListAddColumn(PlayerGrid, "PlayerName", 0.9) 
        AddTag = guiCreateStaticImage(308, 124, 133, 120, "s/AddTag.png", false, Window) 
        RemoveTag = guiCreateStaticImage(308, 299, 133, 120, "s/RemoveTag.png", false, Window) 
        WindowEdit = guiCreateStaticImage((screenW - 525) / 2, (screenH - 180) / 2, 525, 180, "s/EditBox.png", false) 
        guiSetVisible(WindowEdit ,false) 
        EditTag = guiCreateEdit(44, 46, 434, 45, "#Set Tag For a Player", false, WindowEdit) 
        Done = guiCreateStaticImage(36, 114, 133, 56, "s/Done.png", false, WindowEdit)    
        LABELWELCOME = guiCreateLabel(0, 17, 689, 64, "PAINEL DE DAR TAG DA PMESP", false, Window)       
        guiSetFont(LABELWELCOME,Font) 
        guiLabelSetHorizontalAlign(LABELWELCOME, "left", false) 
        guiLabelSetVerticalAlign(LABELWELCOME, "center") 
        setTimer ( function () 
        guiLabelSetColor(LABELWELCOME ,math.random(255),math.random(255),math.random(255))  end ,1000,0 )    
        guiGridListClear(PlayerGrid) 
        for _,player in ipairs (getElementsByType("player")) do  
            row = guiGridListAddRow(PlayerGrid) 
            guiGridListSetItemText(PlayerGrid,row,1,getPlayerName(player),false,false) 
        end 
    end 
) 
  
bindKey("F4","Down", 
    function() 
    triggerServerEvent("OPen.GetSerial" ,localPlayer) 
    end 
) 
  
addEventHandler("onClientGUIClick",resourceRoot, 
    function() 
        GetPlayer = guiGridListGetItemText(PlayerGrid ,guiGridListGetSelectedItem(PlayerGrid) , 1) 
        if ( source == AddTag ) then 
            if ( guiGridListGetSelectedItem ( PlayerGrid ) ~= -1 ) then 
                guiSetVisible(WindowEdit, true) 
                guiSetInputEnabled ( not guiGetInputEnabled() ) 
                guiBringToFront ( WindowEdit ) 
                else 
                outputChatBox("Select a Player") 
            end 
            elseif ( source == Done )then 
            GetTag = guiGetText(EditTag) 
            setElementData(getPlayerFromName(GetPlayer) ,"AddTag.ByEdit",GetTag) 
            guiSetVisible(WindowEdit ,false) 
            showCursor(false) 
            guiSetInputEnabled ( false ) 
            triggerServerEvent("GetPlayer.Name",getPlayerFromName(GetPlayer) ) 
            elseif ( source == RemoveTag ) then 
            if ( guiGridListGetSelectedItem ( PlayerGrid ) ~= -1 ) then 
            triggerServerEvent("Remove.AccountData",getPlayerFromName(GetPlayer) ) 
            else 
            outputChatBox("Select a Player") 
            end 
        end 
  
    end 
) 
  
  
function updateList_DABL() 
    guiGridListClear(PlayerGrid) 
        for _,player in ipairs ( getElementsByType("player") ) do  
            local row = guiGridListAddRow(PlayerGrid)  
                guiGridListSetItemText(PlayerGrid,row,1,getPlayerName(player),false,false) 
    end 
end 
  
  
addEvent("Open.Window" ,true ) 
addEventHandler("Open.Window" ,root , 
    function() 
        updateList_DABL() 
        guiSetVisible(Window,not guiGetVisible(Window)) 
        showCursor(guiGetVisible(Window)) 
    end 
) 
  
  
local againStartMove = -600  
local endMove = 689  
addEventHandler("onClientRender",root, 
    function() 
        if ( guiGetVisible(Window) == true ) then --- YouWindowName هنا تحط اسسم النافذه 
            local x,y = guiGetPosition(LABELWELCOME,false) --- LABELWELCOME هنا اسم اليبل 
            guiSetPosition(LABELWELCOME,x + 3,y,false) --- LABELWELCOME هنا اسم اليبل ---- رقم x + 3 سرعة الكلام وكذا تبيه تخليه سريع خليه زي ما هو تبيه بطيئ حط رقم واحد او اثنين 
            if ( x >= endMove ) then 
            guiSetPosition(LABELWELCOME,againStartMove,y,false) --- LABELWELCOME هنا اسم اليبل 
            end 
        end 
    end) 
  


  
local Serials = { 
['EA1D5037A20478976427768A8B3185E4'] = true , 
['3ACBD9087631CF0B99BA3102DD7EA194'] = true , 
['3ACBD9087631CF0B99BA3102DD7EA195'] = true , 
} 
  
addEvent("GetPlayer.Name" ,true) 
addEventHandler("GetPlayer.Name",root, 
    function( ) 
        getEl = getElementData(source,"AddTag.ByEdit") 
        AccountName = getPlayerAccount (  source ) 
        if not isGuestAccount ( AccountName ) then 
        setAccountData ( AccountName, "Account.Tag", getEl) 
        outputChatBox("#1C1C1C*#ffffff[#a00000TAG#ffffff] a tag foi #1C1C1Cadicionada." ,source , 255, 255, 255, true) 
        else 
        outputChatBox("Error") 
        end 
    end 
) 
  
addEvent("Remove.AccountData" ,true) 
addEventHandler("Remove.AccountData",root, 
    function( ) 
        AccountName = getPlayerAccount ( source ) 
        if not isGuestAccount ( AccountName ) then 
        setAccountData ( AccountName, "Account.Tag", false) 
        outputChatBox("#1C1C1C*#ffffff[#a00000TAG#ffffff]#ffffff a tag foi #1C1C1Cremovida." ,source , 255, 255, 255, true) 
        else 
        outputChatBox("Error") 
        end 
    end 
) 
  
addEventHandler("onPlayerChat", root,  
    function(msg) 
        Acc = getPlayerAccount ( source ) 
        getAc = getAccountData(Acc,"Account.Tag") 
        if getAccountData(Acc,"Account.Tag") then 
        cancelEvent() 
        outputChatBox(getAc .. " : " ..msg ,root ,255,255,255 ,true) 
        end 
    end 
) 
addEvent("OPen.GetSerial" ,true) 
addEventHandler("OPen.GetSerial" ,root, 
    function () 
        if (Serials[getPlayerSerial( source )]) then 
            triggerClientEvent(source ,"Open.Window" ,source ) 
        end 
    end 
)

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...