pokefelipe

Primeiro vá em Data/Talkactions/Scripts e crie um arquivo chamado Anunciar e adicione isso function onSay(cid, words, param) local b = string.lower(param) local config = { tmp = 10, -- Tempo em minutos para usar novamente. storage = 45989, lvl = 50, -- Level minimo. cost = 50000 -- Custo para anunciar. } if param == "" then return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Digite sua mensagem.") end if getPlayerStorageValue(cid, config.storage) > os.time() then return doPlayerSendTextMessage(cid, 25, "Você precisa esperar " .. getPlayerStorageValue(cid, config.storage) - os.time() .. ' segundo' .. (getPlayerStorageValue(cid, config.storage) - os.time() == 1 and "" or "s") .. " para usar novamente.") end if getPlayerLevel(cid) < config.lvl then return doPlayerSendCancel(cid, "Você precisa ser level "..config.lvl.." para usar esse comando!") end if doPlayerRemoveMoney(cid, config.cost) == TRUE then doBroadcastMessage("[Player:] "..getPlayerName(cid)..": "..b.."") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você enviou sua mensagem, aguarde "..config.tmp.." minutos para enviar novamente!") setPlayerStorageValue(cid, config.storage, os.time() + config.tmp*60) else return doPlayerSendCancel(cid, "Você precisa de "..config.cost.." gp's para usar este comando!") end return true end e em Talkactions.xml adicione essa tag: <talkaction words="!anunciar" script="Anunciar.lua" /> Vou procurar os créditos

Maninho, não sei seria possivel, mais fazer uma logo como a do otPokémon, porém com o Nome de Pokemon Live, ficaria muito agradecido \/\/\/\/\/\/ \/\/\/\/\/\/

Com qual RME vc esta tentando usar ? Tenta usar este: http://www.tibiaking.com/forum/topic/9276-remeres-map-editor-931/

Edit@

Obrigado

Ok, concertei o post, espero que tenha ficado melhor @Edit

Mano da uma olhada nesse Tutorial que encontrei pelo TK: http://www.tibiaking.com/forum/topic/37628-criando-ot-server-com-internet-compartilhada-e-deixando-o-servidor-online/ Ou esse: http://www.tibiaking.com/forum/topic/14560-hospedando-server-com-net-compartilhada-sem-hamachi/ Se ajudei ? Rep +

Mano achei + essa verifica ai: http://www.host1plus.com.br/ Para ser mais exato: http://www.host1plus.com.br/hospedagem-vps/?location=los_angeles @Edit Se ajudei ? Rep+

- Eae galera do TK hoje vim disponibilizar download's de Megas/Shiny Megas Infelizmente não irei ter o portrait e o Corpse Imagens Download: http://www.mediafire.com/download/594h5vkf7xd6fii/Sprites+Pokemon%27s+Megas.rar Scan: https://www.virustotal.com/pt/file/a3489619de9d849740a0d60c843752036616dae93a607f49ed16e24d70a4baeb/analysis/1432966778/ Créditos: Gabrieltxu (Por descompilar o client do OTP) Eu (Por traze-las aqui) Se gostou ? Deixe seu Rep+

Verifica essa - http://weblara.com.br/cloud-vps-windows/ Se ajudei ? Rep +

Mano, se sua internet é compartilhada tem uns Tutoriais que podem ser aplicados nesses casos, se você tiver internet compartilhada e via radio, ai ja é impossivel mesmo. Achei esse Tutorial caso sua net não seja via Radio: http://www.tibiaking.com/forum/topic/14560-hospedando-server-com-net-compartilhada-sem-hamachi/

Irei procurar outro para você Em média de quanto você queria mais ou menos ?

Obrigado mano, novamente Rep + pra ti

Achei 1 grátis aqui De uma olhada nesse tópico http://www.tibiaking.com/forum/topic/56617-vps-windowslinux-1gb-de-gra%C3%A7a/ Se ajudei ? Rep+

Eae galera ! Vim pedir uma ajuda Sabe o surf do otPokémon ? queria colocar meu sistema de surf como o deles, dando "Use" na borda para usar a habilidade de surf Alguém poderia me dar uma força nisso Rep + Como presente '--- Se postei no lugar errado, por favor, movam :/ up

Muito bom, irei usar em meu Projeto. Obrigado ! Abraço !

Ok, vou ver aqui @alexxxxxxx Poderia me ajudar nessa questão ?

Obrigado e Rep +

Eae galera vim perguntar uma coisinha Como mudo essas ball's, sempre quando eu faço um Pokémon ela vem com essas balls estilo "PXG", porém eu não gosto delas e gostaria que viessem Normais como: Pokeballs, Ultraballs, etc... Prints logo abaixo para entender com mais facilidade oque eu preciso Perdão se postei no local errado, e se postei, please movam, nisso tive um pouco de duvida de onde postar Up Rep + up

kkk D boas maninho, acho que vou tentar achar outro sistema, esse aqui parece estar com erro, obrigado

Não, ela não esta sendo enviada. Não havia feito, após isso eu casei com meu amigo, mais o outfit apareceu apenas uma vez, depois disso apenas usando o Newtype para voltar ;-; Parece que a script esta bem erradinha néh kk Saindo aqui mano, depois vejo as respostas ;-;

Eu havia pego esse sistema em um Post no tk ;-;

Ok vou tentar aqui mano Vish não deu certo,

local npc, _msg = getNpcId(), msg:gsub('{', ''):gsub('}', '') local pos = getThingPos(npc) for _, tid in ipairs(getSpectators(pos, 7, 5, false) or {}) do if isPlayer(tid) then doCreatureSay(npc, tid ~= cid and _msg or msg, tid == cid and TALKTYPE_PRIVATE_NP or TALKTYPE_SAY, false, tid, pos) end end end local function marry(cid, msg, ext) msg = msg:gsub('my heart belongs to ', '') local player = getPlayerByName(msg) if player then if player ~= cid then if getPlayerPartner(player) == 0 then if getPlayerStorageValue(cid, 46000) == 1 then if getPlayerStorageValue(player, 46001) == getPlayerGUID(cid) then doCreatureSay(cid, msg, TALKTYPE_SAY) say('Vossas almas estão agora unidos por toda a eternidade. Como um símbolo de seu amor, vocês receberam seus anéis de casamento gravado e roupas festivas. ...', cid) say('Tenham uma otima vida de casados. Vá agora e comemore sua lua de mel!', cid) for _, pid in ipairs({cid, player}) do doPlayerAddOutfitId(pid, 34, 0) local v = getCreatureOutfit(pid) v.lookType = getPlayerSex(pid) == 0 and 329 or 328 doCreatureChangeOutfit(pid, v) doSendMagicEffect(getThingPos(pid), CONST_ME_HEARTS) setPlayerStorageValue(pid, 46002, os.time() + 86400) end doSendMagicEffect(getNpcPos(), CONST_ME_MAGIC_BLUE) local nc, np = getCreatureName(cid), getCreatureName(player) doItemSetAttribute(doPlayerAddItem(cid, 10502, 1), 'description', np .. ' & ' .. nc .. ' forever - married on ' .. os.date('%b ' .. os.date('*t').day .. ', %Y') .. '.') doItemSetAttribute(doPlayerAddItem(player, 10502, 1), 'description', nc .. ' & ' .. np .. ' forever - married on ' .. os.date('%b ' .. os.date('*t').day .. ', %Y') .. '.') doPlayerSetPartner(cid, getPlayerGUID(player)) doPlayerSetPartner(player, getPlayerGUID(cid)) Topic[cid] = nil return true elseif ext == 1 then say(getCreatureName(cid) .. ', você tem certeza de seu amor para ' .. getCreatureName(player) .. ' e gostaria de juntar as suas almas para a eternidade?', cid) Topic[cid] = 5 Partner[cid] = getPlayerGUID(player) end else say('Oh não! Seu anel e caixa de equipamento estão em falta! Eu espero que você não esquecê-los! Você pode por favor dar-lhes para mim agora?', cid) Topic[cid] = 8 return true end else if ext then say('Esta pessoa já está casado com alguém.', cid) end end else if ext then say('Você não pode casar-se com si mesmo.', cid) end end else if ext then say('Esta pessoa não está online.', cid) end end if ext then doCreatureSay(cid, msg, TALKTYPE_SAY) end end function creatureSayCallback(cid, type, msg) if msgcontains(msg, 'meu coração pertence a') and not npcHandler:isFocused(cid) then local v = marry(cid, msg) if v then npcHandler:addFocus(cid) return true end elseif (msgcontains(msg, 'hello') or msgcontains(msg, 'hi')) and (not npcHandler:isFocused(cid)) then npcHandler:say('Olá '..getCreatureName(cid)..'! Eu tenho o poder {marriage} ou {divorce}.', cid) npcHandler:addFocus(cid) Topic[cid] = nil elseif not npcHandler:isFocused(cid) then return false elseif msgcontains(msg, 'bye') or msgcontains(msg, 'farewell') then npcHandler:say('Adeus, '..getCreatureName(cid)..'. Que o Deus cuide de você!', cid) Topic[cid] = nil npcHandler:releaseFocus(cid) elseif msgcontains(msg, 'marriage') or msgcontains(msg, 'marry') or msgcontains(msg, 'ceremony') or msgcontains(msg, 'wedding') then if getPlayerPartner(cid) ~= 0 then say('Sim, de fato, vocês estão casados, ' .. getCreatureName(cid) .. '. Espero que o seu amor ainda está florescendo e próspera.', cid) Topic[cid] = nil elseif getPlayerStorageValue(cid, 46000) < 1 then say('Antes de podermos começar a cerimônia de casamento, cada um de vocês precisa me entregar um anel de casamento em branco e uma caixa com uma roupa de casamento. ' .. getCreatureName(cid) .. ', você tem esses itens com você e você está disposto a dá-los a mim agora?', cid) Topic[cid] = 6 else say('Você me deseja iniciar a cerimônia de casamento agora?', cid) Topic[cid] = 1 end doCreatureSay(cid, msg, TALKTYPE_SAY) elseif Topic[cid] == 1 then if msgcontains(msg, 'yes') or (msgcontains(msg, 'i') and msgcontains(msg, 'will')) then say('Em nome de Deus e sua benevolência, pergunto-lhe, ' .. getCreatureName(cid) .. ': ambos estão prontos para casar?', cid) Topic[cid] = 2 else say('Talvez um outro tempo, o casamento não é um passo deve-se considerar, sem amor no coração.', cid) Topic[cid] = nil end doCreatureSay(cid, msg, TALKTYPE_SAY) elseif Topic[cid] == 2 then if msgcontains(msg, 'yes') or (msgcontains(msg, 'i') and msgcontains(msg, 'will')) then say('Um momento de silêncio por favor... Tenho a honra de invocar os poderes eternos que vigiam nossas almas e vidas. Por favor, repita comigo: {Que Deus nos Abençoe|}!', cid) doSendMagicEffect(getNpcPos(), CONST_ME_MAGIC_BLUE) Topic[cid] = 3 end doCreatureSay(cid, msg, TALKTYPE_SAY) elseif Topic[cid] == 3 then if msgcontains(msg, 'Que Deus nos Abençoe') or msgcontains(msg, 'que Deus nos Abençoe') or msgcontains(msg, 'que Deus nos abencoe') then say('Eu te pergunto: ' .. getCreatureName(cid) .. ', Qual é o nome da pessoa que {seu coração pertence}?', cid) Topic[cid] = 4 else -- end doCreatureSay(cid, msg, TALKTYPE_SAY) elseif Topic[cid] == 4 then marry(cid, msg, 1) elseif Topic[cid] == 5 then if msgcontains(msg, 'yes') or (msgcontains(msg, 'i') and msgcontains(msg, 'will')) then say('Então, pelos poderes dos deuses, sua alma está agora ligado ao seu amado. ' .. getPlayerNameByGUID(Partner[cid]) .. ', Agora dê um passo a frente e me diga se seu coração pertence a ' .. getCreatureName(cid) .. ' também.', cid) setPlayerStorageValue(cid, 46001, Partner[cid]) Topic[cid] = nil doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_RED) elseif msgcontains(msg, 'no') then say('Sua negação de amor dói em meu coração. Deixe agora!', cid) Topic[cid] = nil npcHandler:releaseFocus(cid) end doCreatureSay(cid, msg, TALKTYPE_SAY) elseif Topic[cid] == 6 then if msgcontains(msg, 'yes') or (msgcontains(msg, 'i') and msgcontains(msg, 'will')) then say('Obrigado. Eu vou dar-lhes de volta para você quando for a hora certa. Por favor, certifique-se de que você tem tanto de me entregou seus itens antes de começar a {ceremony}.', cid) setPlayerStorageValue(cid, 46000, 1) else say('Hm, then not.', cid) end Topic[cid] = nil elseif Topic[cid] == 8 then if msgcontains(msg, 'yes') then say('Obrigado. Agora vamos continuar - por favor me diga novamente, seu coração pertence a?', cid) setPlayerStorageValue(cid, 46000, 1) Topic[cid] = 9 return true else say('Hm, then not.', cid) end Topic[cid] = nil elseif Topic[cid] == 9 then marry(cid, msg, true) elseif msgcontains(msg, 'divorce') and getPlayerPartner(cid) > 0 then npcHandler:say('O que, pedido de um divórcio? Você anseia pelas alegrias da solteiro? Eu sei bem, meu casamento foi um campo de batalha ... mas menos do que isso. Você está infeliz no casamento?', cid) Topic[cid] = 10 elseif Topic[cid] == 10 and msgcontains(msg, 'yes') then npcHandler:say('Não há justiça no mundo, quando uma mulher bonita como você é tratada mal. Não que eu tenha uma conexão especial com os Deuses ou qualquer coisa - mas posso organizar o seu divórcio, se é isso que você deseja. Você quer?', cid) Topic[cid] = 11 elseif Topic[cid] == 11 and msgcontains(msg, 'yes') then npcHandler:say('Hm. Entenda, uh... Gostaria de fazê-lo gratuitamente, mas eu poderia, de fato, usar algum dinheiro. Faça-me um favor e \'donate\' 5000 gold coins, para que eu possa comprar algo, uhm... Então eu vou fazer o resto. O que você diz? ', cid) Topic[cid] = 12 elseif Topic[cid] == 12 and msgcontains(msg, 'yes') then npcHandler:say('Nenhum p ... problema. E não tem volta agora! Mas, só para ter certeza, - você tem certeza que você quer libertar-se da miséria do casamento, e se livrar da pessoa com quem se casou em um momento de loucura? ', cid) Topic[cid] = 13 elseif Topic[cid] == 13 and msgcontains(msg, 'yes') then if doPlayerRemoveMoney(cid, 5000) then npcHandler:say('Ehem. Pelos deuses e deixe este casamento infeliz e equivocado, chegou ao fim. Todos os títulos vão ser quebrado e assim por diante.- Não cometa o mesmo erro outra vez!', cid) local partner = getPlayerPartner(cid) if partner ~= 0 then local t = {cid} local player = getPlayerByGUID(partner) if player then table.insert(t, player) else db.executeQuery("UPDATE `players` SET `marriage` = 0 WHERE `id` = " .. partner) db.executeQuery("UPDATE `player_items` SET `itemtype` = 10510 WHERE `player_id` = " .. partner .. " AND `itemtype` = 10502") end for _, pid in ipairs(t) do doPlayerSetPartner(pid, 0) local v = getCreatureOutfit(pid) if isInArray({328, 329}, v.lookType) then v.lookType = getPlayerSex(pid) == 0 and 136 or 128 doCreatureChangeOutfit(pid, v) end doPlayerRemoveOutfitId(pid, 34) while doPlayerRemoveItem(pid, 10502, 1) do doPlayerAddItem(pid, 10510, 1) end end end else npcHandler:say('Damn, I bet <hicks> your cheating spouse took all of your money <hicks> from you. You\'re as poor as a church mouse. <hicks>', cid) end end return true end npcHandler:setMessage(MESSAGE_FAREWELL, 'Que Deus esteja com você') npcHandler:setMessage(MESSAGE_WALKAWAY, 'Que Deus esteja com você') npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)