Ir para conteúdo

JonatasLucasf

Conde
  • Total de itens

    780
  • Registro em

  • Última visita

  • Dias Ganhos

    1

Tudo que JonatasLucasf postou

  1. obrigado, você teria também o comando !rank reset?
  2. obrigado, mais a mensagem ta saindo laranja tem como mudar? também da uma olhada nos outro script
  3. Obrigado funcionou, teria como deixar assim e também ficar saindo uma fumaça do pé.
  4. então galera estou precisando desses scripts aqui alguém poderia fazendo favor adaptar eles para funcionar em tfs 1.1 versão 10.76 ausente.lua local FRASES = {"AUSENTE!", "VOLTO JÁ!", "JÁ VOLTO!"} -- Auto-Mensagens. local TEMPO = 1 -- Intervalo de Tempo em segundos. local say = {} local function doSendAutoMessage(cid, pos, player) if (isCreature(cid) == TRUE) then npos = getThingPos(cid) if (pos.x == npos.x) and (pos.y == npos.y) and (pos.z == npos.z) and say[player] ~= nil then doSendAnimatedText(pos, FRASES[math.random(#FRASES)], 215) doSendMagicEffect(pos, 2) say[player] = addEvent(doSendAutoMessage, TEMPO*1000, cid, npos, player) else say[player] = nil doPlayerSendCancel(cid, "Ausente desativado.") end else say[player] = nil end end function onSay(cid, words, param) local player = getPlayerGUID(cid) if say[player] == nil then pos = getThingPos(cid) doSendAnimatedText(pos, FRASES[math.random(#FRASES)], 215) doSendMagicEffect(pos, 2) doPlayerSendCancel(cid, "Ausente ativado.") say[player] = addEvent(doSendAutoMessage, TEMPO*1000, cid, pos, player) else doPlayerSendCancel(cid, "Você já está com o Ausente ativado, saia do piso onde ativou e aguarde desativar.") end return TRUE end vida.lua function onSay(cid, words, param, channel) if(param == '') then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nVida atual: " .. getCreatureHealth(cid) .. "\nVida máxima: " .. getCreatureMaxHealth(cid) .. "") return true end if isPremium(cid) == TRUE then local pid = getPlayerByNameWildcard(param) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "O jogador com o nome " .. param .. " não esta online ou não existe.") return true end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nVida de [ " .. getCreatureName(pid) .. " ] atual: " .. getCreatureHealth(pid) .. "\nVida de [ " .. getCreatureName(pid) .. " ] máxima: " .. getCreatureMaxHealth(pid) .. "") return true else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Apenas jogadores VIP podem utilizar este comando para visualizar informações de outros jogadores.") return true end end mana.lua function onSay(cid, words, param, channel) if(param == '') then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nMana atual: " .. getCreatureMana(cid) .. "\nMana máxima: " .. getCreatureMaxMana(cid) .. "") return true end if isPremium(cid) == TRUE then local pid = getPlayerByNameWildcard(param) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "O jogador com o nome " .. param .. " não esta online ou não existe.") return true end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nMana de [ " .. getCreatureName(pid) .. " ] atual: " .. getCreatureMana(pid) .. "\nMana de [ " .. getCreatureName(pid) .. " ] máxima: " .. getCreatureMaxMana(pid) .. "") return true else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Apenas jogadores VIP podem utilizar este comando para visualizar informações de outros jogadores.") return true end end @UP
  5. somente uma vez. @COLOQUEI O MONSTRO COM LETRA MINUSCULA E FOI, OBRIGADO.
  6. Parabéns a todos os participantes da próxima eu participo
  7. mais ta certo olha em task.lua ["Joaninha Negra"] = {storage = 5010, mstorage = 19000, amount = 300, exp = 50000, mount = 1}, em killtasks.lua ['Joaninha Negra'] = {amount = 300, storage = 19000, startstorage = 5010, startvalue = 1},
  8. desculpa, ScreaM mais quando eu substituiu esse dragons por outro monstro não está contando, eu coloquei o nome do montro certo mais não sei porquê não está contando.
  9. obrigado, está funcionando
  10. só a mount exemplo matou 10 dragons ganha X mount matou 10 demons ganha X mount
  11. galera estou com esse script aqui de TASK e gostaria de saber como faço pra quando o jogador terminar X task ganhar uma mount. uso tfs 1.1 versão 10.76 tasks.lua local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local xmsg = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end local storage = 62003 local monsters = { ["Dragons"] = {storage = 5010, mstorage = 19000, amount = 10, exp = 5000, items = {{id = 2157, count = 1}, {id = 2160, count = 3}}}, ["Dragon Lords"] = {storage = 5011, mstorage = 19001, amount = 10, exp = 10000, items = {{id = 2492, count = 1}, {id = 2160, count = 5}}}, ["Hydras"] = {storage = 5012, mstorage = 19002, amount = 10, exp = 18000, items = {{id = 2195, count = 1}, {id = 2157, count = 8}}}, ["Demons"] = {storage = 5013, mstorage = 19003, amount = 10, exp = 20000, items = {{id = 2520, count = 1}, {id = 2160, count = 10}}} } local function getItemsFromTable(itemtable) local text = "" for v = 1, #itemtable do count, info = itemtable[v].count, ItemType(itemtable[v].id) local ret = ", " if v == 1 then ret = "" elseif v == #itemtable then ret = " and " end text = text .. ret text = text .. (count > 1 and count or info:getArticle()).." "..(count > 1 and info:getPluralName() or info:getName()) end return text end local function Cptl(f, r) return f:upper()..r:lower() end function creatureSayCallback(cid, type, msg) local player, cmsg = Player(cid), msg:gsub("(%a)([%w_']*)", Cptl) if not npcHandler:isFocused(cid) then if msg == "hi" or msg == "hello" then npcHandler:addFocus(cid) if player:getStorageValue(storage) == -1 then local text, n = "", 0 for k, x in pairs(monsters) do if player:getStorageValue(x.mstorage) < x.amount then n = n + 1 text = text .. ", " text = text .. ""..x.amount.." {"..k.."}" end end if n > 1 then npcHandler:say("I have several tasks for you to kill monsters"..text..", which one do you choose? I can also show you a {list} with rewards and you can {stop} a task if you want.", cid) npcHandler.topic[cid] = 1 xmsg[cid] = msg elseif n == 1 then npcHandler:say("I have one last task for you"..text..".", cid) npcHandler.topic[cid] = 1 else npcHandler:say("You already did all tasks, I have nothing for you to do anymore, good job though.", cid) end elseif player:getStorageValue(storage) == 1 then for k, x in pairs(monsters) do if player:getStorageValue(x.storage) == 1 then npcHandler:say("Did you kill "..x.amount.." "..k.."?", cid) npcHandler.topic[cid] = 2 xmsg[cid] = k end end end else return false end elseif monsters[cmsg] and npcHandler.topic[cid] == 1 then if player:getStorageValue(monsters[cmsg].storage) == -1 then npcHandler:say("Good luck, come back when you killed "..monsters[cmsg].amount.." "..cmsg..".", cid) player:setStorageValue(storage, 1) player:setStorageValue(monsters[cmsg].storage, 1) else npcHandler:say("You already did the "..cmsg.." mission.", cid) end npcHandler.topic[cid] = 0 elseif msgcontains(msg, "yes") and npcHandler.topic[cid] == 2 then local x = monsters[xmsg[cid]] if player:getStorageValue(x.mstorage) >= x.amount then npcHandler:say("Good job, here is your reward, "..getItemsFromTable(x.items)..".", cid) for g = 1, #x.items do player:addItem(x.items[g].id, x.items[g].count) end player:addExperience(x.exp) player:setStorageValue(x.storage, 2) player:setStorageValue(storage, -1) npcHandler.topic[cid] = 3 else npcHandler:say("You didn't kill them all, you still need to kill "..x.amount -(player:getStorageValue(x.mstorage) + 1).." "..xmsg[cid]..".", cid) end elseif msgcontains(msg, "task") and npcHandler.topic[cid] == 3 then local text, n = "", 0 for k, x in pairs(monsters) do if player:getStorageValue(x.mstorage) < x.amount then n = n + 1 text = text .. (n == 1 and "" or ", ") text = text .. "{"..k.."}" end end if text ~= "" then npcHandler:say("Want to do another task? You can choose "..text..".", cid) npcHandler.topic[cid] = 1 else npcHandler:say("You already did all tasks.", cid) end elseif msgcontains(msg, "no") and npcHandler.topic[cid] == 1 then npcHandler:say("Ok then.", cid) npcHandler.topic[cid] = 0 elseif msgcontains(msg, "stop") then local text, n = "", 0 for k, x in pairs(monsters) do if player:getStorageValue(x.mstorage) < x.amount then n = n + 1 text = text .. (n == 1 and "" or ", ") text = text .. "{"..k.."}" if player:getStorageValue(x.storage) == 1 then player:setStorageValue(x.storage, -1) end end end if player:getStorageValue(storage) == 1 then npcHandler:say("Alright, let me know if you want to continue an other task, you can still choose "..text..".", cid) else npcHandler:say("You didn't start any new task yet, if you want to start one, you can choose "..text..".", cid) end player:setStorageValue(storage, -1) npcHandler.topic[cid] = 1 elseif msgcontains(msg, "list") then local text = "Tasks\n\n" for k, x in pairs(monsters) do if player:getStorageValue(x.mstorage) < x.amount then text = text ..k .." ["..(player:getStorageValue(x.mstorage) + 1).."/"..x.amount.."]:\n Rewards:\n "..getItemsFromTable(x.items).."\n "..x.exp.." experience \n\n" else text = text .. k .." [DONE]\n" end end player:showTextDialog(1949, "" .. text) npcHandler:say("Here you are.", cid) elseif msgcontains(msg, "bye") then npcHandler:say("Bye.", cid) npcHandler:releaseFocus(cid) else npcHandler:say("What?", cid) end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) killtasks.lua local config = { ['dragon'] = {amount = 10, storage = 19000, startstorage = 5010, startvalue = 1}, ['dragon lord'] = {amount = 10, storage = 19001, startstorage = 5011, startvalue = 1}, ['hydra'] = {amount = 10, storage = 19002, startstorage = 5012, startvalue = 1}, ['demon'] = {amount = 10, storage = 19003, startstorage = 5013, startvalue = 1} } function onKill(player, target) local monster = config[target:getName():lower()] if target:isPlayer() or not monster or target:getMaster() then return true end local stor = player:getStorageValue(monster.storage)+1 if stor < monster.amount and player:getStorageValue(monster.startstorage) >= monster.startvalue then player:setStorageValue(monster.storage, stor) player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, 'Task message: '..(stor +1)..' of '..monster.amount..' '..target:getName()..'s killed.') end if (stor +1) == monster.amount then player:sendTextMessage(MESSAGE_INFO_DESCR, 'Congratulations, you have killed '..(stor +1)..' '..target:getName()..'s and completed the '..target:getName()..'s mission.') player:setStorageValue(monster.storage, stor +1) end return true end
  12. @UP alguém sabe como faço pra mostrar a quantidade que o player healou quando ele usar alguma magia de cura?
  13. Filho do Beeny Avuenja The Danzing
  14. Bruno Minervino esses scripts já estão adaptados para essa versão da tfs pois estou usando e está dando vários erros no login.lua nos doors.lua as portas nao funciona, etc.
  15. não seria melhor criar a área para os membros postar, onde só os adm podem ver os tópicos?
  16. @RESOLVIDO MUITO OBRIGADO Vodkart
  17. versão do servidor 10.76 tfs 1.1
  18. Galera queria que quando todos os players tivesse encima desses pisos e alguem puxasse a alavanca eles fossem teleportados para uma posição, mais só será possível se todos tiver encima dos pisos
  19. Versão: 10.76/10.77 MAPA: RadBR (TPS) Página no Facebook: CLIKE AQUI Olá pessoal, sou o fundador do projeto CronosBR. Estou aqui à procura de pessoas sérias e dispostas que possua um conhecimento mediano/avançado na respectiva área abaixo: ( ) Scripter/Programador: Há uma vaga O projeto em si, se trata de algo semelhante ao popular RadBR (na questão do estilo do mapa e da jogabilidade), porem o mesmo é 100% próprio e inovador (seja na questão do mapa, como também os locais de caça, quests, eventos e etc). O que você ganha em troca de sua contribuição com o servidor? Além de você realizar o seu serviço na área no qual você é especializado, você receberá 10% de toda contribuição que o OTSERV tiver. E aí, quer se candidatar para a equipe? Então preencha o seguinte formulário abaixo com as suas informações. (Copie o formulário exatamente como ele está, e preencha-o) OBS: Todos os itens abaixo devem ser preenchidos. Nome: Idade: Skype/Facebook/Whats APP: Porque você quer fazer parte do projeto?: Quanto tempo de experiência você tem com OT Servers? Seu(s) trabalho(s) (PONTE O LINK):
  20. desculpa não entendi nada. @UP @UP
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...