joaohd

Isso é um movements. Vamos lá: function onStepIn(cid, item, fromPosition) return BroadcastMessage("O jogador ".. getCreatureName(cid) .." está tentando invadir o castelo.") end flw

Tente assim: function onSay(cid, words) local config = { ["!love"] = 10, ["!food"] = 11 } if config[words:lower()] then doSendMagicEffect(getCreaturePosition(cid), config[words:lower()]) end return true end e em talkactions.xml: <talkaction words="!love;!food" event="script" value="NOME.lua"/> flw

Para trocar as mensagens, é nas sources. Não sei ao certo o arquivo, mas tente em game.cpp. Já o erro com as senhas, é que o site criptografa-as. Tente mudar no config.lua onde está escrito "plain" para "md5" ou "sha1". flw

Não tenho certeza se funcionará, mas tente: function onUse(cid, item, fromPosition, itemEx, toPosition) local pos = {x=1226, y=236, z=4} local pos2 = getThingPos(item.uid) local id = getThingFromPos(pos).itemid if item.itemid == 1945 then doCreateItem(1284, pos) doTransformItem(item.uid, 1946) addEvent(doChangeAll, 15*1000, pos, pos2, id) doCreatureSay(cid, "Você tem 15 segundos para atravessar a ponte !", TALKTYPE_ORANGE_1) else doPlayerSendCancel(cid, "The rock did not desapear so far.") end return true end function doChangeAll(posi, posi2, id) for i = 0, 255 do local itemposition = {x=posi.x, y=posi.y, z=posi.z, stackpos=i} if getThingFromPos(posi).itemid == 1284 then stack = i break end end local posa = {x=posi.x, y=posi.y, z=posi.z, stackpos=stack} if not isPlayer(getThingFromPos(posa).uid) then doTransformItem(getThingFromPos(posi2).uid, 1945) doRemoveItem(getThingFromPos(posa).uid, 1) doCreateItem(id, posa) else addEvent(doChangeAll, 15*1000, posi, posi2, id) end return true end flw

Poste o config.lua todo, por favor. flw

No caso seria a rate (1.1, 2.0, ...), como nos monsters. flw

Não sei como é seu sistema de vip, então darei a base da outra talkaction, apenas: function onSay(cid, words, param) if (not param) or (not isPlayer(getCreatureByName(param)) then doPlayerSendCancel(cid, "Player not found.") else doPlayerSendTextMessage(cid, 20, "O jogador ".. param .. " tem ".. getPlayerSkillLevel(getCreatureByName(param), 3) .. " club skills.") end return true end flw

O script: function onStepIn(cid, item, fromPosition, toPosition) local config = { QuestStorage = 1000, MsgDeny = "You cannot pass." } if getPlayerStorageValue(cid, config.QuestStorage) <= 0 then doTeleportThing(cid, fromPosition) doPlayerSendCancel(cid, config.MsgDeny) end return true end E movido para a seção correta. flw

Tente assim: function onUse(cid, item) local config = { WinChance = 50, Price = { Type = "Money", -- Se for "Money", não precisa do Id, mas recomendo que coloque Id = 0000, Count = 100 }, Reward = { Id = 2152, Count = 100 } } if (config.Price.Type == "Money") then if (doPlayerRemoveMoney(cid, config.Price.Count)) then if (math.random(100) >= config.WinChance) then doPlayerSendTextMessage(cid, 25, "You win! There is your reward.") doPlayerAddItem(cid, config.Reward.Id, config.Reward.Count) else doPlayerSendTextMessage(cid, 25, "=x you got nothing.") else doPlayerSendCancel(cid, "You dont have money.") end else if (doPlayerRemoveItem(cid, config.Price.Id, config.Price.Count)) then if (math.random(100) >= config.WinChance) then doPlayerSendTextMessage(cid, 25, "You win! There is your reward.") doPlayerAddItem(cid, config.Reward.Id, config.Reward.Count) else doPlayerSendTextMessage(cid, 25, "=x you got nothing.") else doPlayerSendCancel(cid, "You dont have money.") end end return true end flw

O arquivo não está na pasta correta. Procure o arquivo e coloque-o na pasta creaturescripts/scripts. Movido. flw

Acho que a dúvida ainda não foi sanada. Darei a dica: local Pid = getPlayerGUID(cid) local Nm = getCreatureName(cid) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `name` = "'[VIP]'.. Nm" WHERE `id` = ".. Pid) Se ainda lembro alguma coisa de lua, deve funcionar. flw

Link quebrado. Tópico fechado. flw

Opa, voltando à comunidade? Espero que sim. Bom conteúdo. Movido. flw

Neste link tem o script que você procura: http://www.xtibia.com/forum/topic/134952-rain-system-com-ss flw

O conteúdo está muito bom. Só não entendi qual linguagem é essa... Eu uso o portugol na faculdade e uso o visualg para debbugar e executar. Ficaria assim, em portugol: Algoritmo "Comando Caso" Var op, cor : caracter x, y, ms : inteiro Inicio Escreval(" PROGRAMA ") Escreval("_________________") Escreval("1.Cor 2.Sair") Leia(op) Escolha op caso "1" Escreval("Escolha uma cor") Leia(cor) Escreval("Sua cor e ", cor) caso "2" Escreval("Encerrando programa.") outrocaso Escreval("Inválida. Encerrando programa.") Fimescolha Fimalgoritmo flw

Usuário negativado. Caso se repitam as ofenças, será suspenso. flw

Os parâmetros estão errados: function onSay(cid, words, param) local femaleOutfits = { ["citizen"]={136}, ["hunter"]={137}, ["mage"]={138}, ["knight"]={139}, ["nobleman"]={140}, ["summoner"]={141}, ["warrior"]={142}, ["barbarian"]={147}, ["druid"]={148}, ["wizard"]={149}, ["oriental"]={150}, ["pirate"]={155}, ["assassin"]={156}, ["beggar"]={157}, ["shaman"]={158}, ["norseman"]={252}, ["nightmare"]={269}, ["jester"]={270}, ["brotherhood"]={279}, ["demonhunter"]={288}, ["yalaharian"]={324}, ["warmaster"]={336}, ["wayfarer"]={366} } local maleOutfits = { ["citizen"]={128}, ["hunter"]={129}, ["mage"]={130}, ["knight"]={131}, ["nobleman"]={132},["summoner"]={133}, ["warrior"]={134}, ["barbarian"]={143}, ["druid"]={144}, ["wizard"]={145}, ["oriental"]={146}, ["pirate"]={151}, ["assassin"]={152}, ["beggar"]={153}, ["shaman"]={154}, ["norseman"]={251}, ["nightmare"]={268}, ["jester"]={273}, ["brotherhood"]={278}, ["demonhunter"]={289}, ["yalaharian"]={325}, ["warmaster"]={335}, ["wayfarer"]={367} } local msg = {"Command requires GOOD param!", "You dont have Addon Doll!", "Bad param!", "Full Addon Set sucesfully added!"} local param = string.lower(param) if(getPlayerItemCount(cid, 2112) > 0) then if(param ~= "" and maleOutfits[param] and femaleOutfits[param]) then doPlayerRemoveItem(cid, 2112, 1) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[4]) doSendMagicEffect(getCreaturePosition(cid), 28) if(getPlayerSex(cid) == 0)then doPlayerAddOutfit(cid, femaleOutfits[param][1], 3) else doPlayerAddOutfit(cid, maleOutfits[param][1], 3) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[1]) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[2]) end end Tente agora. flw

Este comando do elf instala todas as lib's... Não tem necessidade se não for usar. flw

Coloque o script aqui no tópico e diga qual item que está dando problema para que possamos ajudá-lo. flw

Siga os passos corretamente: Primeiro, abra o terminal e digite: mkdir ~/sources/ cd ~/sources Isso vai criar a pasta "sources" na sua pasta pessoal, onde iremos baixar as sources. Para baixar as sources, precisaremos do aplicativo chamado "subversion", caso não o tenha, digite o comando: sudo apt-get install subversion Isso vai executar um comando do usuário root (superuser) e conectar ao servidor de pacotes para baixar o subversion. A senha de root será requisitada. Digite-a e aperte enter. Caso haja alguma pergunta do tipo "[s/N]", escolha "S". Feito isso, podemos baixar as sources: svn checkout https://opentibia.svn.sourceforge.net/svnroot/opentibia/otserv/trunk cd trunk O código acima vai se conectar ao servidor das sources, fazer o download para a pasta source que criamos no início e navegar até a pasta onde temos os arquivos .cpp . Agora, iremos instalar os pacotes da linguagem lua, xml... como se fossem as Dll do windows: sudo apt-get install autoconf libxml2-dev liblua5.1-0-dev g++ libgmp3-dev libcrypto++-dev libboost-filesystem1.40-dev libboost-system1.40-dev libboost-regex1.40-dev libboost-thread1.40-dev make Mais uma vez a senha de root será requisitada e perguntas do tipo "[s/N]" deverão ser respondidas com "S". Ao final, passemos à próxima parte, a compilação de fato. Não explicarei com suporte MySql pois é bem complicado instalar o apache e o phpmyadmin, caso queira, procure no google. Compilando com suporte sqlite: sudo apt-get install libsqlite3-dev ./autogen.sh ./configure make Isto irá baixar o pacote sqlite, configurar e iniciará a compilação. Ao final, para executar o seu servidor, você deverá ir no terminal e digitar: cd ~/sources ./OpenTibia Acho que é só. Eu fiz estes passos e consegui compilar. Só não consegui executar porque compilei com suporte mysql e não configurei o phpmyadmin corretamente. Retirado do forum vizinho. Créditos ao Arkold Thos. flw

Material de Apoio VII Funções e return Ao criarmos nossos códigos lua, às vezes precisamos de funções ou procedimentos para agilizar o trabalho ou resolver algum problema. Aprenderemos agora, como criar estas funções e também algumas técnicas para obter o máximo de desempenho delas. Por não ser uma linguagem fortemente tipada - apenas valores possuirem tipos -, as funções em lua podem ser escritas de diversas formas. Observe a estrutura básica delas: NomeDaFuncao = function(argumentos) function NomeDaFuncao(argumentos) function(argumentos) A segunda estrutura é o que chamamos de sintax sugar - açucar sintático -, que nada mais é que a primeira estrutura organizada da forma convencional a que estamos acostumados. Entretanto, se observarmos a terceira estrutura, nossa função não tem nome!! Mas como trabalharemos com ela então? Bom, neste tipo de função, trata-se de modo especial, passando-a como um argumento para outra função, assim: print(function() return "Isto será repassado como argumento." end) No exemplo acima, podemos observar tambem o uso do return, retornando uma string. Mas para quê serve esta estrutura?? O return não faz nada além de nos mostrar o resultado da função. Uma função sem return não apresentará um resultado. Podemos retornar qualquer valor em lua. Observe: function ab() -- Retorna uma string return "Esta retorna string" end function cd() -- Retorna um número return 123 end function ef() -- Retorna um booleano return true end function gh() -- Retorna uma tabela return {} end function ij() -- Retorna outra função return function ab() end Quando o return é encontrado, a função é encerrada e o valor é retornado. Entendido o return, passemos a uma nova fase: a recursividade. Em Ciência da computação, a recursividade é a definição de uma subrotina (função ou método) que pode invocar a si mesma. Trocando em miúdos, seria repetir a mesma instrução várias vezes com o resultado desta mesma instrução. Vejamos um exemplo: function fact(n) if n == 0 then return 1 else return n * fact(n - 1) end end Analisando passo a passo, a execução se daria assim: Suponhamos n = 5; No primeiro instante, teriamos um retorno 5*4 e nosso n passaria a ser 4. No segundo instante, teriamos um retorno de 5*4*3 e n passaria a ser 3. No terceiro instante, teriamos um retorno de 5*4*3*2 e n passaria a ser 2. No quarto instante, teriamos um retorno de 5*4*3*2*1 e n passaria a ser 0. Como temos um condicional dizendo que caso n seja igual a 0 retorne 1, teriamos: 5*4*3*2*1*1 = 120 Este é um exemplo do uso da recursividade. Créditos Função fact : Manual de referência lua 5.1 Definição recursividade : Wikipedia No mais, é isso. flw

Apesar dos spams, parece que a dúvida foi sanada. Espero que não se repitam os floods. Movido para a seção correta. flw

Novamente vocês dois brigando... Olhem a data do tópico e a última visualização do autor, fazem 13 dias que ele não visita o tópico... Espero que parem antes que alguém mais esquentado entre no tópico e suspenda-os. flw

Bem explicado e bem formatado. O conteúdo será de grande valia. Aprovado e movido. flw

Vamos ver se vamos ter participantes o bastante para fazer uma competição justa. Quero participar e meu script já está pronto . Boa sorte a quem for concorrer. flw