anderkrox

Fiz esse script para promotion de arqueiro.
Teste:
local msgHi = "Quer uma {promotion}?" local msgBye = "Ja vai?!" local msgDis = "Tchau!" local vocation = 3 -- ID da vocação local custo1 = 20000 -- Custo da primeira Promotion local vocation2 = 7 -- Primeira Promotion local custo2 = 40000 -- Custo da segunda Promotion local vocation3 = 9 -- Segunda Promotion local focuses = {} local function isFocused(cid) for i, v in pairs(focuses) do if(v == cid) then return true end end return false end local function addFocus(cid) if(not isFocused(cid)) then table.insert(focuses, cid) end end local function removeFocus(cid) for i, v in pairs(focuses) do if(v == cid) then table.remove(focuses, i) break end end end local function lookAtFocus() for i, v in pairs(focuses) do if(isPlayer(v)) then doNpcSetCreatureFocus(v) return end end doNpcSetCreatureFocus(0) end function onCreatureAppear(cid) end function onCreatureDisappear(cid) if(isFocused(cid)) then selfSay("Tchau ".. getPlayerName(cid) ..".") removeFocus(cid) if(isPlayer(cid)) then closeShopWindow(cid) end end end function onCreatureSay(cid, type, msg) if msg == "hi" or msg == "hello" and not isFocused(cid) then selfSay(msgHi, cid) addFocus(cid) elseif isFocused(cid) and msg == "promotion" or msg == "promote" then selfSay("Quer ser promovido? Ira te custar ".. custo1 .." moedas de ouro.", cid) promo = 1 elseif isFocused(cid) and msg == "yes" and promo == 1 then promo = 0 if getPlayerVocation(cid) == vocation then if getPlayerMoney(cid) >= custo1 then doPlayerRemoveMoney(cid, custo1) doPlayerSetVocation(cid, vocation2) selfSay("Parabens! Voce ainda pode receber {mais uma promotion}.", cid) else selfSay("Voce nao tem ".. custo1 ..".", cid) end else selfSay("Apenas arqueiros.", cid) end elseif isFocused(cid) and msg == "no" and promo == 1 then promo = 0 selfSay("Ok!", cid) elseif isFocused(cid) and msg == "mais uma promotion" then selfSay("Quer ser promovido novamente? Ira te custar ".. custo2 .." moedas de ouro.", cid) promo = 2 elseif isFocused(cid) and msg == "yes" and promo == 2 then promo = 0 if getPlayerVocation(cid) == vocation2 then if getPlayerMoney(cid) >= custo2 then doPlayerRemoveMoney(cid, custo2) doPlayerSetVocation(cid, vocation3) selfSay("Parabens!", cid) else selfSay("Voce nao tem ".. custo1 ..".", cid) end else selfSay("Apenas arqueiros.", cid) end elseif isFocused(cid) and msg == "no" and promo == 2 then promo = 0 selfSay("Ok!", cid) elseif((isFocused(cid)) and (msg == "bye" or msg == "tchau" or msg == "xau")) then selfSay(msgBye) closeShopWindow(cid) removeFocus(cid) end end function onPlayerCloseChannel(cid) if(isFocused(cid)) then selfSay("Humm.") closeShopWindow(cid) removeFocus(cid) end end function onThink() for i, focus in pairs(focuses) do if(not isCreature(focus)) then removeFocus(focus) else local distance = getDistanceTo(focus) or -1 if((distance > 4) or (distance == -1)) then doCreatureSay(getNpcCid(), msgDis, TALKTYPE_YELL) closeShopWindow(focus) removeFocus(focus) end end end lookAtFocus() end  

Em desenvolvimento... Closed Beta previsto para Fevereiro.
Eternera Tibia Server - RPG
O servidor que 84,20% dos Tibianos estão esperando há muito tempo, segundo nossas pesquisas!
 
 
O Eternera Tibia Server é um servidor de Tibia que dá ao jogador a oportunidade de aventurar-se nas maravilhosas terras do nosso misterioso mundo de fantasia, cheio de magia, beleza e muito enredo.
O jogador começa em uma ilha inicial com vários propósitos ditados pelos NPCs. Durante sua jornada ele deve trabalhar para conseguir dinheiro, comida, e equipamentos para sobreviver.
Alguns jogadores preferem trabalhar como pescadores, outros como fazendeiros, há aqueles que preferem seguir o lado sombrio do jogo, assaltando NPCs, matando outros jogadores, e criando armadilhas.
Todos tem a opção de sair da ilha inicial após certa experiência dentro do jogo, podendo então escolher uma classe, seja ela druida, feiticeiro, arqueiro, ou, por fim, guerreiro. Cada classe tem suas habilidades distintas, e para adquirí-las deverá estudar com NPCs especialistas em habilidades, pagando uma quantia em moedas de ouro.
A beleza do Eternera Tibia Server é porque ele está sendo desenvolvido por pessoas que vivenciaram o RPG da versão antiga de Tibia, fazendo os jogadores interagirem com as aventuras, se esforçarem para conseguir dinheiro, equipamentos, pontos de experiência, e desvendar incontáveis mistérios.
 
Algumas informações úteis do Eternera Tibia Server
 

Em desenvolvimento... Closed Beta previsto para Fevereiro.
Eternera Tibia Server - RPG
O servidor que 84,20% dos Tibianos estão esperando há muito tempo, segundo nossas pesquisas!
 
 
O Eternera Tibia Server é um servidor de Tibia que dá ao jogador a oportunidade de aventurar-se nas maravilhosas terras do nosso misterioso mundo de fantasia, cheio de magia, beleza e muito enredo.
O jogador começa em uma ilha inicial com vários propósitos ditados pelos NPCs. Durante sua jornada ele deve trabalhar para conseguir dinheiro, comida, e equipamentos para sobreviver.
Alguns jogadores preferem trabalhar como pescadores, outros como fazendeiros, há aqueles que preferem seguir o lado sombrio do jogo, assaltando NPCs, matando outros jogadores, e criando armadilhas.
Todos tem a opção de sair da ilha inicial após certa experiência dentro do jogo, podendo então escolher uma classe, seja ela druida, feiticeiro, arqueiro, ou, por fim, guerreiro. Cada classe tem suas habilidades distintas, e para adquirí-las deverá estudar com NPCs especialistas em habilidades, pagando uma quantia em moedas de ouro.
A beleza do Eternera Tibia Server é porque ele está sendo desenvolvido por pessoas que vivenciaram o RPG da versão antiga de Tibia, fazendo os jogadores interagirem com as aventuras, se esforçarem para conseguir dinheiro, equipamentos, pontos de experiência, e desvendar incontáveis mistérios.
 
Algumas informações úteis do Eternera Tibia Server
 

Bom dia!
... ou boa tarde, ou boa noite.
.
Como comecei a jogar Tibia na época em que a versão era de 7.4 e parei depois da versão 9.x. Venho por meio dessa comunidade fazer uma pergunta para você, que possivelmente tem a mesma idade que eu tenho.
.
A pergunta é sobre o RPG do Tibia, mais especificamente sobre um possível Open Tibia Server com muito enredo.
.
Sei que assim como eu, a maioria dos jogadores de Tibia não tem tempo para ficar jogando, pois trabalham, estudam, namoram, etc.
.
Mas, imagina só, um servidor com muito RPG, cuja dificuldade não seja em pegar level, claro, não seria tão simples, mas o principal objetivo seria o enredo do servidor. Assim, mesmo quem não tem tempo para ficar upando o personagem, poderá desfrutar do jogo. Evoluindo o personagem fazendo missões, exercendo profissões, participando de dungeons, abrindo baús, entre outras possibilidades.
.
Se você é como eu, que sente saudades da época em que Tibia tinha RPG, então pode me fazer um favor? É para minha pesquisa.
.
Eu criei um questionário com 2 simples perguntas, se puder responder eu ficarei extremamente grato por isso!
Segue o link: https://pt.surveymonkey.com/r/63F7BQV

Não sou teu 'mano', e por que esperar uma semana se o Matheus Sesso deu um prazo? Já passou alguns dias do prazo. Querem ter um fórum? Cumpram as promessas, não sejam promissores, também tenho vida social, tenho uma empresa de Arquitetura, mas cumpro com o prazo que estipulo para meus clientes.

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) local condition = createConditionObject(CONDITION_ATTRIBUTES) setConditionParam(condition, CONDITION_PARAM_TICKS, 10000) setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCEPERCENT, 150) setConditionParam(condition, CONDITION_PARAM_BUFF, true) setCombatCondition(combat, condition) local speed = createConditionObject(CONDITION_PARALYZE) setConditionParam(speed, CONDITION_PARAM_TICKS, 10000) setConditionFormula(speed, -0.7, 56, -0.7, 56) setCombatCondition(combat, speed) local exhaust = createConditionObject(CONDITION_EXHAUST) setConditionParam(exhaust, CONDITION_PARAM_SUBID, 2) setConditionParam(exhaust, CONDITION_PARAM_TICKS, 10000) setCombatCondition(combat, exhaust) function onCastSpell(cid, var) return doCombat(cid, combat, var) end Onde está escrito:
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCEPERCENT, 150)
 
Significa que na hora que pronunciar a magia, o servidor fará um calculo assim:
(SKILL_DE_DISTÂNCIA / 100) * 150;
Porque no script original está 150, ou seja, se eu estiver skill 70 e pronunciar a magia, vai acontecer isso:
(70/100) * 150 = 105;
Meu skill irá para 105, simples né? Pode altera o 150 para outro valor, por exemplo 200.

Olha, o script parece correto e se mesmo formatando não deu certo. Tente isto:
function onThink(cid, interval, lastExecution) local pos = { templo = {x = 160, y = 54, z = 7}, -- Templo teleports = {x = 1096, y = 1063, z = 7}, -- Teleportes vip = {x = 1096, y = 1063, z = 7}, -- Área VIP } local cores = {205, 210} doSendAnimatedText(pos.templo, "Templo", cores[math.random(#cores)]) doSendAnimatedText(pos.teleports, "Teleports", cores[math.random(#cores)]) doSendMagicEffect(pos.teleports, 39) doSendAnimatedText(pos.vip, "Area Vip", cores[math.random(#cores)]) local efeitos = {39, 10} doSendMagicEffect(pos.vip, efeitos[math.random(#efeitos)]) return true end  
Ou se preferir, podes baixar o anexo que estou postando junto.
falantes.lua

Tu já pensou em criar um NPC com inteligencia artificial?
Eu pensei, e criei!

Este NPC que eu criei vai andar até determinado local e voltar.
Também irá falar frases divertidas automaticamente.
Na rota que o NPC fará, ele irá parar em uma caixa e irá "abri-la".

O script ficou consideravelmente grande, porque não tenho muitas habilidades nesta área, mas estou partilhando para melhorias.

No mapa do meu servidor, o NPC anda entre dois pontos que eu determinei. Em cada ponto terá uma caixa... ele irá olhar para uma e ira "abrir", depois de um tempo ele andará novamente até a outra caixa e irá "abrir". Como se estivesse levando produtos de uma caixa para a outra.

Em fim, o script está funcionando 100%.
Eu uso no meu servidor, e estou partilhando para melhorias no mesmo!
 
No npc.lua poste este código:
-- [[ Feito por Anderson (BomBa)]] waypoint_royalFufu = 971714008 local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local msgs = { "Que meus inimigos sejam fortes e bravos para que eu nao sinta remorsos ao derrota-los", "Voce deve se fazer uma pergunta: 'Estou com sorte?", "Nunca se ouviu dizer que filho valente tivera nascido de pai temeroso.", "Nunca comece uma briga, mas sempre a termine.", "Eu me pergunto qual seria melhor, ser temido ou respeitado? Seria de mais pedir os dois. ", } 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 local function greet(cid) return false end function onThink() local pos = getCreaturePosition(getNpcCid()) -- indo if getGlobalStorageValue(waypoint_royalFufu) <= 0 then doTeleportThing(getNpcCid(), {x=1011, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 1) elseif getGlobalStorageValue(waypoint_royalFufu) == 1 then doTeleportThing(getNpcCid(), {x=1010, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 2) elseif getGlobalStorageValue(waypoint_royalFufu) == 2 then doTeleportThing(getNpcCid(), {x=1009, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 3) elseif getGlobalStorageValue(waypoint_royalFufu) == 3 then doTeleportThing(getNpcCid(), {x=1008, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 4) elseif getGlobalStorageValue(waypoint_royalFufu) == 4 then doTeleportThing(getNpcCid(), {x=1007, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 5) elseif getGlobalStorageValue(waypoint_royalFufu) == 5 then doTeleportThing(getNpcCid(), {x=1006, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 6) elseif getGlobalStorageValue(waypoint_royalFufu) == 6 then doTeleportThing(getNpcCid(), {x=1005, y=1357, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 7) elseif getGlobalStorageValue(waypoint_royalFufu) == 7 then doTeleportThing(getNpcCid(), {x=1005, y=1358, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 8) elseif getGlobalStorageValue(waypoint_royalFufu) == 8 then doTeleportThing(getNpcCid(), {x=1005, y=1360, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 9) elseif getGlobalStorageValue(waypoint_royalFufu) == 9 then doTeleportThing(getNpcCid(), {x=1005, y=1361, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 10) elseif getGlobalStorageValue(waypoint_royalFufu) == 10 then doTeleportThing(getNpcCid(), {x=1005, y=1362, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 11) elseif getGlobalStorageValue(waypoint_royalFufu) == 11 then doTeleportThing(getNpcCid(), {x=1005, y=1363, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 12) elseif getGlobalStorageValue(waypoint_royalFufu) == 12 then doTeleportThing(getNpcCid(), {x=1005, y=1364, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 13) elseif getGlobalStorageValue(waypoint_royalFufu) == 13 then doTeleportThing(getNpcCid(), {x=1005, y=1365, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 14) elseif getGlobalStorageValue(waypoint_royalFufu) == 14 then doTeleportThing(getNpcCid(), {x=1005, y=1366, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 15) elseif getGlobalStorageValue(waypoint_royalFufu) == 15 then doTeleportThing(getNpcCid(), {x=1005, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 16) elseif getGlobalStorageValue(waypoint_royalFufu) == 16 then doTeleportThing(getNpcCid(), {x=1006, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 17) elseif getGlobalStorageValue(waypoint_royalFufu) == 17 then doTeleportThing(getNpcCid(), {x=1007, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 18) elseif getGlobalStorageValue(waypoint_royalFufu) == 18 then doTeleportThing(getNpcCid(), {x=1008, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 19) elseif getGlobalStorageValue(waypoint_royalFufu) == 19 then doTeleportThing(getNpcCid(), {x=1008, y=1366, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 20) elseif getGlobalStorageValue(waypoint_royalFufu) == 20 then doTeleportThing(getNpcCid(), {x=1008, y=1365, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 21) elseif getGlobalStorageValue(waypoint_royalFufu) == 21 then doTeleportThing(getNpcCid(), {x=1008, y=1364, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 22) elseif getGlobalStorageValue(waypoint_royalFufu) == 22 then doTeleportThing(getNpcCid(), {x=1008, y=1363, z=7}, true) doCreatureSetLookDir(getNpcCid(), WEST) addEvent(setGlobalStorageValue, 20000, waypoint_royalFufu, 23) -- voltando elseif getGlobalStorageValue(waypoint_royalFufu) == 23 then doTeleportThing(getNpcCid(), {x=1008, y=1364, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 24) elseif getGlobalStorageValue(waypoint_royalFufu) == 24 then doTeleportThing(getNpcCid(), {x=1008, y=1365, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 25) elseif getGlobalStorageValue(waypoint_royalFufu) == 25 then doTeleportThing(getNpcCid(), {x=1008, y=1366, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 26) elseif getGlobalStorageValue(waypoint_royalFufu) == 26 then doTeleportThing(getNpcCid(), {x=1008, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 27) elseif getGlobalStorageValue(waypoint_royalFufu) == 27 then doTeleportThing(getNpcCid(), {x=1007, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 28) elseif getGlobalStorageValue(waypoint_royalFufu) == 28 then doTeleportThing(getNpcCid(), {x=1006, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 29) elseif getGlobalStorageValue(waypoint_royalFufu) == 29 then doTeleportThing(getNpcCid(), {x=1005, y=1367, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 30) elseif getGlobalStorageValue(waypoint_royalFufu) == 30 then doTeleportThing(getNpcCid(), {x=1005, y=1366, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 31) elseif getGlobalStorageValue(waypoint_royalFufu) == 31 then doTeleportThing(getNpcCid(), {x=1005, y=1365, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 32) elseif getGlobalStorageValue(waypoint_royalFufu) == 32 then doTeleportThing(getNpcCid(), {x=1005, y=1364, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 33) elseif getGlobalStorageValue(waypoint_royalFufu) == 33 then doTeleportThing(getNpcCid(), {x=1005, y=1363, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 34) elseif getGlobalStorageValue(waypoint_royalFufu) == 34 then doTeleportThing(getNpcCid(), {x=1005, y=1362, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 35) elseif getGlobalStorageValue(waypoint_royalFufu) == 35 then doTeleportThing(getNpcCid(), {x=1005, y=1361, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 36) elseif getGlobalStorageValue(waypoint_royalFufu) == 36 then doTeleportThing(getNpcCid(), {x=1005, y=1360, z=7}, true) setGlobalStorageValue(waypoint_royalFufu, 37) elseif getGlobalStorageValue(waypoint_royalFufu) == 37 then doTeleportThing(getNpcCid(), {x=1005, y=1358, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 38) elseif getGlobalStorageValue(waypoint_royalFufu) == 38 then doTeleportThing(getNpcCid(), {x=1006, y=1358, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 39) elseif getGlobalStorageValue(waypoint_royalFufu) == 39 then doTeleportThing(getNpcCid(), {x=1007, y=1358, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 40) elseif getGlobalStorageValue(waypoint_royalFufu) == 40 then doTeleportThing(getNpcCid(), {x=1008, y=1358, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 41) elseif getGlobalStorageValue(waypoint_royalFufu) == 41 then doTeleportThing(getNpcCid(), {x=1009, y=1358, z=6}, true) setGlobalStorageValue(waypoint_royalFufu, 42) elseif getGlobalStorageValue(waypoint_royalFufu) == 42 then doTeleportThing(getNpcCid(), {x=1010, y=1357, z=6}, true) doCreatureSetLookDir(getNpcCid(), SOUTH) addEvent(setGlobalStorageValue, 20000, waypoint_royalFufu, 0) end -- falas local falarA = math.random(1, 100000) if falarA <= 500 then doCreatureSay(getNpcCid(), msgs[math.random(#msgs)], TALKTYPE_SAY) end return true end npcHandler:addModule(FocusModule:new()) npcHandler:setCallback(CALLBACK_GREET, greet) E em globalevents, procure por 'init.lua', então adicione esta linha:
setGlobalStorageValue(waypoint_royalFufu, 0)