brunob22

-- FAIZ CONEXÃO COM O MYSQL DO FORUM Connection = "MySQL" BancoDeDados = "nome_banco_dados" Ip = "127.0.0.1" usu = "meuLogin" Senha = "1234" Porta = "3306" if Connection == " MySQL" then db = dbConnect( "mysql", "dbname="..BancoDeDados..";host="..Ip..";port="..Porta, usu, Senha, "share=1" ) -- ENTRA NO BANCO DE DADOS end function ConsultaUser (login,senha) --- FUNÇÃO QUE CONSULTA O BANCO DE DADOS E VERIFICA SE O LOGIN EA SENHA DIGITADO E IGUAL A DO FORUM local UserInfo = dbQuery(db,"SELECT * FROM user") if UserInfo then local p = dbPoll(UserInfo,-1) for index , ConsultarPlayer in ipair(p) do if ConsultarPlayer["login"] == login and ConsultarPlayer["password"] == senha then return true end end end end function LoginPlayer () -- EX DE FUNÇÃO DE LOGIN local meulogin = "b2" local minhasenha = "b22" local Podelogar = ConsultaUser(meulogin,minhasenha) if Podelogar then outputChatBox( "VOCE AGORA ESTA LOGADO PARABENS" ) end end acho que ta certo.. so ver ai e tenta montar ;D

voce so vai usa MYSQL ;D

esses que mostrei sao os que eu uso e vou arruma o texto errado ali vlw EDIT: arrumado meu amigo.. pelo 1 venho comenta coisa que presta kkk

relaxa.. daqui a pouco eu apago isso.. ja que as crianças ficam enchendo a porra do saco.. deixa para o 'SENHOR' ai fazer por mim kkkkkkkkkkkkkkk

desculpe . mais ta com problema comigo? foi ver antes de cagar pelos dedos?? 2:28 DA MANHA MEIO DIA.. por favor.. olhar antes

area certa não e. aqui e para ajuda com problemas em scripts. não fazer pedido de resource ainda mais ' GRATIS' ?

non-polluting base system, if necessary I change the script to your language for more details send pm and a universal system works in dayz to rp

e so mudar no notepad++

ve o ex que o pessoal mando ai não tenho codigo comigo para poder te ajudar nessa parte

Olá talvez aqui voce entenda como brinca um pouco com ele e largar as db do proprio mta Bom primeiro vamos entender o SQL vamos usar aqui SQLITE e uma versao lite do SQL onde e possivel guarda as info em arquivo .db voce pode usar oque vou ensinar aqui em SQL tb primeiro vamos fazer a connecta ao banco db = dbConnect( "sqlite", "db/banco.db" ) não precisa ter o arquivo o, proprio mta cria ele para voce ? Agora vamos criar as TABELAS e suas COLUNAS dbExec(db, "CREATE TABLE IF NOT EXISTS SERVIDOR (CONTAPLAYER TEXT,SERIAL_PLAYER TXT,SENHA_PLAYER TEXT,DINHEIRO_PLAYER INT)") O codigo acima vai criar uma tabela chamda " SERVIDOR " com 4 colunas vamos entender os tipos de coluna que usei TEXT > E uma coluna do tipo TEXTO INT > E uma coluna do tipo NUMERO INTEIROS ex ( 1 | 33333 | 77777) como eu sei que o dinheiro do player e um numero inteiro botei INT voce não vai precisa coloca isso caso não queira. e melhor para o futuro e tals vou mostra aqui para voce algums argumento de consulta,alteração,e deletar dbQuery(db, "SELECT * FROM SERVIDOR") SELECT > SELECIONA * > TUDO FROM > DE SERVIDOR > NOME DA TABELA nessa ai vimos que eu mandei um comando falando para selecionar tudo da tabela SERVIDOR function SQLiteCall_SERVER () local SV = dbQuery(db, "SELECT * FROM SERVER") if SV then return SV end end aqui um ex de função que vai retorna a tabela selecionada Porem tem que ler ela de uma forma que voce pode ver os dados colocados nela function QualMeuDinheiro(source) local Serial = getPlayerSerial( source ) -- PEGANDO O SERIAL DO PLAYER QUE CHAMO A FUNÇÃO local banco = SQLiteCall_Fazendas() -- CHAMANDO A FUNÇÃO QUE SELECIONA O BANCO DE DADOS if banco then -- VERIFICA SE A TABELA QUE ELE PEGO EXISTE local p = dbPoll(banco,-1) -- BASICAMENTE ELA SERVER PARA RECEBER O RESULTADO DA TABELA for index , dados in ipairs(p) do -- AQUI ABRE A TABELA E TORNA O DADOS POSSIVEL DE LER if Serial == dados["SERIAL_PLAYER"] then -- AQUI TO COMPARANDO O SERIAL COM O DADO LA NO BANCO DE DADOS outputChatBox( "SEU DINHERO E :"..dados["DINHEIRO_PLAYER"],source,255,255,255,true) -- E AQUI FOI SELECIONADO O DINHEIRO DO PLAYER DA VERIFICAÇÃO ACIMA end end end end addCommandHandler( "meudinheiro",QualMeuDinheiro ) a função acima informa o dinheiro do player baseado oque tem no banco de dados essa parte dados["DINHEIRO_PLAYER"] "DINHEIRO_PLAYER" ea nome da coluna la na tabela Ok aqui voce aprendeu a ler os dados e exibir. Agora voce me pergunta e fazer update? dbExec(db, "UPDATE SERVIDOR SET DINHEIRO_PLAYER=? WHERE SERIAL_PLAYER=?",dinheiro,serial) UPDATE > FAZER ALTERAÇÃO SET > QUAL COLUNA DINHEIRO_PLAYER > O NOME DA COLUNA WHERE > E QUAL PARTE | isso que dizer que ele vai pesguisa no banco SERIAL_PLAYER > o nome da tabela que ele vai procura function MoneyMoney(source) local DINHEIRO_NOVO = 10000 local serial = getPlayerSerial( source ) dbExec(db, "UPDATE SERVIDOR SET DINHEIRO_PLAYER=? WHERE SERIAL_PLAYER=?",DINHEIRO_NOVO,serial) -- AQUI FOI FEITO ALTERAÇAO end addCommandHandler( "querodinheiro",MoneyMoney ) essa função faiz o update no banco de dados mais lembre-se se o player tem 50000 la no banco de dados e voce fizer update para 10000 o valor vai ser 10000 então para almenta ou diminuir faça a consulta no banco de dados dps some com o valor novo e assim faiz o update dbExec(db, "INSERT INTO SERVIDOR (CONTAPLAYER,SERIAL_PLAYER,SENHA_PLAYER,DINHEIRO_PLAYER) VALUES(?,?,?,?)",Conta,Serial,Senha,Dinheiro) INSERT > Inserir Into > Em Servidor > Nome da tabela function Megrava () local Conta = "OlaLogin" local Serial = "65D56AS45D5A45D56A4DADAD5A4D" local Senha = "1234b" local Dinheiro = 50000 dbExec(db, "INSERT INTO SERVIDOR (CONTAPLAYER,SERIAL_PLAYER,SENHA_PLAYER,DINHEIRO_PLAYER) VALUES(?,?,?,?)",Conta,Serial,Senha,Dinheiro) --/\ ? são o tanto de argumento que vai por -- end addCommandHandler( "gravar",Megrava ) Nessa parte eu to gravando os dados do player no banco de dados dbExec(db, "DELETE FROM SERVIDOR WHERE SERIAL_PLAYER=?", Serial) -- MESMA IDEIA DO UPDATE MAIS AQUI VOCE DELETA OS DADOS DE UM SERIAL X dbExec(db, "DELETE FROM SERVIDOR") -- AQUI VOCE DELETA TUDO QUE TEM NA TABELA SERVIDOR esse ai e para DELETAR elemento na tabela do banco de dados Eu acho que isso eu basico e todo que voce precisa saber sobre MYSQL qualquer outra duvida pode pergunta @DNL291 DNL se tiver erros de portugues que eu sei que tem kkkk pode corrigir e se tiver confuso pode da uma melhorada se possivel? acho que esse e um tutorial importante ^^

Sempre que vou fazer alguma coisa eu penso. Como eu posso burlar isso .. ai surge as ideias para evitar lag e player espertinhos kk

kkkk que bom que tu entendeu.. acho que expliquei tudo errado mais tu pego a ideia ^^

sim e não como ele precisa fazer essa verificação em outro script .. ele pode usar getElementsByType e assim apenas usar 1 'SetElementData" na col evitando que todo player q entra na area ter um data nele.. e assim usando o bytype ele pode verificar se x player ta dentro da Y col acho que expliquei direito? kkk seria mais ou menos isso aqui Onde crio a col local col = createColCuboid(2114.53515625,-1160.7744140625,20.643058776855, 30, 40, 20) setElementData(col,"Iscol1",true) outra resource para pegar essas infos: local Cols = getElementsByType( "colshape" ) for index, Scol in ipairs(Cols) do if getElementData(Scol,"Iscol1") then local IsPlayerinCol = isElementWithinColShape ( thePlayer, Scol ) if IsPlayerinCol then outputChatBox("voce não pode atira seu ze BuC") end end end acho que um pouco mais limpo e não vai usar tanto da memoria do servidor. como 300 players com uma data setada nele

usando "SetElementData" e errado . evite usar o maximo possivel alem de essas informaçoes ocupa memoria do computador. pode ter muitos outros problemas pense comigo. ok o cara entro na area e pego "SetElementData" ate ai tudo bem, e se ele deslogar la? vai perde o "SetElementData" e vai poder atirar novamente bom basicamente oque voce tem q fazer e cria um Col e verificar se o player ta em contato com essa col mais facil e mais seguro.

na realidade o post foi para mostrar o cancer do mta. e para ver se os devs podia fazer alguma coisa =)

Olá a todos. meu nome e bruno (b2) eu vou mostrar a vocês provas do maor cancer do mta. hoje abrir um servidor i esse cara sabe e impossivel PROVA: http://prntscr.com/e93mz2 eu tentei entra em contato com o servidor que ele menciono ali. mais o cara o dono do server se acha a ultima bolacha do pacote. Aqui ta servidor do merdinha que da ddos nos outros http://prntscr.com/e93r1k eu gostaria de saber se esse tipo de denuncia. e efetiva? se os devs vão fazer alguma coisa? e bom e fica ai para todos saber de quem vem os ddos que voces leva.

Blz, Algumas coisas eu entendi, foi o erro nas variáveos, agora vem no chatbox, eu n sei o que eu uso for k, nick in pairs(getElementsByType("player")) do local x, y, z = getElementPosition(thePlayer) local sx, sy, sz = getElementPosition(nick) local dist = getDistanceBetweenPoints3D(x, y, z, sx, sy, sz) local location = getZoneName ( x, y, z ) local nick1 = getPlayerName(nick) local accName = getAccountName ( getPlayerAccount ( nick ) ) local NickChamador = getPlayerName( thePlayer ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "ComandosPolicia") ) then outputChatBox ("#000000[#ff0000POLICIA#000000] #c1c1c1O jogador "..NickChamador.." pediu reforços mais proximo de "..location.." a "..math.floor(dist).." Km/H.", nick1, 255, 255, 255, true) o codigo q te mante ta correto.. so veja oq erro

sei la , presta atenção noque voce ta escrevendo e bom ... function PedirReforcos ( thePlayer ) for k, nick in pairs(getElementsByType("player")) do local x, y, z = getElementPosition(thePlayer) local nick1 = getPlayerName(nick) local sx, sy, sz = getElementPosition(nick) local dist = getDistanceBetweenPoints3D(x, y, z, sx, sy, sz) local location = getZoneName ( x, y, z ) local accName = getAccountName ( getPlayerAccount ( nick ) ) local NickChamador = getPlayerName( thePlayer ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Admin") ) then outputChatBox(accName) outputChatBox ("#000000[#ff0000POLICIA#000000] #c1c1c1O jogador "..NickChamador.." pediu reforços mais proximo de "..location.." a "..math.floor(dist).." Km/H.", nick, 255, 255, 255, true) end end end não vou falar em que voce erro, leia e aprenda

isso tecnicamente não um inventario, são apenas botao com imagem

painel descompilados não são, bem vindos aki..

Acho que você não entendeu.. kkkk vamo supor que o timestamp ta 13:00 ea hora real ta 12h.. aii PARA VENCER SEU VIP E DE 59 SEGUNDOS,, AII 58,57,56 entendeu?

Não, o timestamp já corresponde aos segundos, você não precisa obter ele de novo (a não ser que você queira). local timestamp = 1466853270 local dia = getRealTime ( timestamp ).monthday -- obter o dia do timestamp acima local hora = getRealTime ( timestamp ).hour -- obter a hora -- etc... No exemplo acima se você não passar a variavel timestamp para a função getRealTime ela vai retornar o dia e a hora do momento em que você executou o script, mas como passamos o timestamp a função retorna o dia e a hora do timestamp. mais e se eu quizer fazer a contagem? por ex.. timestamp 1h aii conta do atual ate la entendeu?

seria isso? function Test01 () local TempoReal = getRealTime().timestamp local TempoReal01 = getRealTime() local Segundos = TempoReal01.TempoReal outputChatBox(Segundos) end ata agora eu entendi kkk não tinha lido direito.. function Test01 () local TimesTAP = 1488240000 local TempoReal = getRealTime().timestamp local TempoReal01 = getRealTime(TimesTAP,true) local Dia = TempoReal01.monthday --local Segundos = TempoReal01.sec outputChatBox(Dia) end Test01 () e se eu quizer fazer uma contagem regressiva??

será que alguem pode me falar, ou me ajudar a converter timestamp para data denovo?? ex: 1466853270 gostaria de converte esse timestamp para data,hora denovo

estude o codigo que o Rootz mando , nao copie, se não voce nao aprende nada =)