Líderes

E aí galera do TK, Hoje vim trazer um script idiota simples e que é util para os tutores do meu servidor, onde eles utilizam um comando e anuncia a seguinte mensagem: 00:13 O Tutor Keilost está no Help Channel respondendo duvidas. Ele tem uma limitação de 15 minutos para usar novamente, ah e fiz uma funçãozinha que ele identifica qual group é do player, caso um GM queria usar, CM, whatever... Vamos ao código: Em talkactions/talkactions.xml coloque a seguinte tag: <talkaction log="yes" words="/anunciar" access="2" event="script" script="staffbroad.lua"/> Agora em talkactions/scripts crie um arquivo lua chamado staffbroad e coloque o seguinte conteudo: function getNameGroup(group) local groups = {"Player", "Tutor", "Senior Tutor", "Gamemaster", "Community Manager", "Administrador"} return groups[group] end function onSay(cid, words, param, channel) local gbb = 82389239 if getPlayerStorageValue(cid, gbb) - os.time() > 0 then doPlayerSendTextMessage(cid, 27, "O comando só pode ser executado de 15 em 15 minutos.") return true end doBroadcastMessage("O "..getNameGroup(getPlayerGroupId(cid)).." "..getPlayerName(cid).." está no Help Channel respondendo duvidas.") setPlayerStorageValue(cid, gbb, os.time() + 15 * 60) return true end Bom é isso, qualquer duvida podem perguntar aqui Créditos Keilost(eu)

Eae galera, vim aqui pra ensinar vocês a usar a transparência no tibia, vamos começar. Primeiro você tem que ter uma versão de 0.6.5 ou superior do otclient e habilitar a feature. Para habilitar a feature você vai em game_things depois em game_things.lua e adicione isto em baixo de function load() g_game.enableFeature(GameSpritesAlphaChannel) Agora você tem que usar o Object Builder(versão 0.3.4), abra o object builder, abra seu spr/dat e bota em compile as e ative a opção transparency. Pronto, seu cliente e o server já estão aptos a receber a transparência. Agora a parte mais complicadinha, como montar a sprite com transparência para adicionar no client. Abra sua sprite no photoshop, delete todos os pixels de fundo(geralmente é rosa), deixe somente os que a sprite usa. Agora vá em opacidade e diminua para o desejado. Agora preste bem atenção, salve a imagem no formato PNG, pois ele aceita alfa. Depois vá no Object Builder, clique para abrir spr/dat, selecione a opção transparency(senão não vai reconhecer seu dat/spr), vá na sprite desejada e a adicione. Agora compile, também com a opção transparency ativada. Testei com uma outfit qualquer, resultado final: Créditos xSONYx EdMignari Baxnie

Global 11/12x [v32] - New Falcons - New Asuras - Warzone 4,5,6 - Exercise Training - Raids 100% - Monstros 100% - Trainer Offline 100% - Trainer Online 100% - Taming system funcionando 100%; - Database completa - War System 100% - Global MAP Full - Store 100% - Imbuement - Prey System - Entre outros sistemas. Projeto no: GITHUB Scan Vírus Total IMAGES Créditos:

Imagens dos bugs que podem ser arrumados com este tutorial: 2- Configurações Incorretas: 3- Chão Vermelho: Tutorial: Vá a pasta "Seu Servidor > Data > Itens" pegue itens.xml e itens.otb. Agora Vá na pasta "RME > Data > VERSÃO DO SEU OT" e adicione o itens.xml e itens.otb lá. Abra o RME com seu mapa, Vá em "File > Preferences > Client Version" selecione VERSÃO DO SEU OT e Deixe o diretorio do seu client. Diretorio Exemplo: "C:\Users\W7\Desktop\meuclient\" Após fazer tudo isso, basta ir ao lado do "File" selecionar "MAP" ira abrir umas opções, basta selecionar "Cleanup" e apertar em "YES" Oquê é Cleanup? R: Ele remove todos "Invalid itens" que esta no seu mapa.... (*Se for usar, tenha um BACKUP do seu mapa) Atenciosamente, Stigal.

http://www.lua.org/manual/5.2/pt/ http://www.lua.org/pil/ Como toda linguagem de programação, melhor entender a lógica primeiro que o resto é "fácil".

- Pokemon Imperium - ✺ INFORMAÇÕES ✺EDIÇÕES ✺PRINT's ✺ERROS - BUGS ✺CRÉDITOS ✺DOWNLOAD's Projeto tinha somente minha (LORDBAXX) dedicação, e tenho certeza que servirá para boas bases de projetos futuros. Eu trabalhava nele sempre um pouco, tanto na criação de sistemas quanto em codes para as sources (Ainda não muito modificada), o servidor é instituído somente pela primeira geração e todos os shinys (Primeira Versão), um detalhe sobre os shinys é que são de respawn com cores diferentes, pode nascer tanto de uma cor quanto de outra! (EXCRUSIVO) Continuo Trabalhando no servidor, então qualquer atualização estarei postando, e quem puder ajudar em melhorias, toda ajuda é bem vinda! Vou listar alguns sistemas novos! ¤ Egg System (Único) - 100% ¤ TM System (Não único porém diferenciado) ¤ Age System (Sistema de idade nos pokemons, quando seu pokemons alcançar certas idades, vc pode ganhar items e até egg's, "IDADE MÁXIMA 30", Pode ser modificado) ¤ Evolution System (Modificado, seu pokemon pode ser evoluído pelo level usando um item de evolução que mostrarei logo mais nos prints, ou utilizando stone sem precisar de level) ¤ Pokeball's animadas ¤ Rare Candy para level e para idade ¤ Boost system (Temporariamente retirado para testes, talvez volte na v2) Bom estes são alguns dos sistemas, agora irei mostrar os sistemas tradicionais de todo servidor! ¤ Catch System - 100% ¤ Nurse - 100% ¤ 6 Balls diferentes - Normal ball, Super ball, Great ball, Ultra ball, Master ball e fresh ball ¤ Order system - 100% (Move, rock smash, dig, cut, fly, ride, surf ambos funcionando perfeitamente) ¤ Evoluções - 100% ¤ Pokemons Passivos e Agressivos - 100% (Demorou mais consegui rs') ¤ Mapa incompleto - somento uns 5 ou 10 % do mapa feito por mim ( Estava focado nas script's ) ¤ Gender system - 100% ¤ Pokemons balanceados de acordo com o level e com seus determinados loot's e moves Acho que é isso se esqueci algo posto logo mais! Print's Erros-Bug's Créditos Lordbaxx - Sistemas, Scripts, codes, mapa - SERVER NextBr - Pelo sistema de idade no qual trabalhei Qualquer outro envolvido será creditado! DOWNLOAD's LEMBRANDO QUE AS SPRITES DOS POKEMONS SÃO DAS MAIS ANTIGAS ENTÃO SEM RECLAMAÇÕES POIS É UMA COISA SIMPLES DE SE FAZER! OBRIGADO VLW FLW att: LORDBAXX

E ai gente, vim disponibilizar Sprite do Shiny Mega Zard X. Link 1: 4Shared Imagem da Sprite: Imagem do Portrait: Rep+ se gostou . Creditos:

Fala galera do TK, hoje vim trazer pra vocês um conjuntinho de spells que eu criei com base em uma spell que achei aqui no fórum mesmo Os créditos da spell base que eu utilizei são do OneShot São duas spells bem simples, uma puxa o oponente pra perto e a outra arremessa ele longe. Idéia original tirada dos servidores de Avatar que possuem esse tipo de magia pra nação do Ar haha. Aqui vão os scripts: empurrararea.lua local function doPushCreature(target, cid) if target > 0 then if not isNpc(target) then local position = getThingPosition(cid) local fromPosition = getThingPosition(target) local x = ((fromPosition.x - position.x) < 0 and -1 or ((fromPosition.x - position.x) == 0 and 0 or 1)) local y = ((fromPosition.y - position.y) < 0 and -1 or ((fromPosition.y - position.y) == 0 and 0 or 1)) local toPosition = {x = fromPosition.x - x, y = fromPosition.y - y, z = fromPosition.z} if doTileQueryAdd(target, toPosition) == 1 and getTileInfo(toPosition).house == false then doTeleportThing(target, toPosition, true) end end end end local spell = {} spell.config = { [1] = { damageType = 1, areaEffect = 2, area = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } }, [2] = { damageType = 1, areaEffect = 2, area = { {0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0}, {0, 1, 0, 0, 0, 1, 0}, {0, 1, 0, 2, 0, 1, 0}, {0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0} } }, [3] = { damageType = 1, areaEffect = 2, area = { {0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 1, 0, 0}, {0, 0, 1, 2, 1, 0, 0}, {0, 0, 1, 1, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0} } } } spell.combats = {} for _, config in ipairs(spell.config) do local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, config.damageType) setCombatParam(combat, COMBAT_PARAM_EFFECT, config.areaEffect) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -4, 0, -4.7, 0) function onTargetCreature(cid, target) doPushCreature(target, cid) end setCombatCallback(combat, CALLBACK_PARAM_TARGETCREATURE, "onTargetCreature") setCombatArea(combat, createCombatArea(config.area)) table.insert(spell.combats, combat) end function onCastSpell(cid, var) for n = 1, #spell.combats do addEvent(doCombat, (n * 120), cid, spell.combats[n], var) end return true end no spells.xml: ​<instant name="Get off here (AREA)" words="exani mas grav" lvl="160" mana="500" prem="1" exhaustion="2000" needlearn="0" event="script" value="especiais/empurrararea.lua"> <vocation id="6"/> <vocation id="7"/> <vocation id="5"/> </instant> <instant name="Get over here (AREA)" words="exina mas grav" lvl="160" mana="500" prem="1" exhaustion="2000" needlearn="0" event="script" value="especiais/puxararea.lua"> <vocation id="6"/> <vocation id="7"/> <vocation id="5"/> </instant> Agora algumas imagens (não deu pra captar muito bem oque a spell faz porque ela é composta por diferentes movimentos, sugiro que vcs instalem e testem) Puxar: Empurrar

Pokemon Pyrus ot Antes de tudo por favor, leia abaixo: Leiam aqui plx Informações: Imagens: Creditos: Scan Extras: REP + Novidades da 1.5 Download: http://www.mediafire.com/download/d2kcwj61kwrt6gk/PYRUS_OT.rar UTILIZEI PARA EDITAR passa na page do projeto que to trabalhando pra dar aquela força https://www.facebook.com/PokemonImperiumPI/?fref=nf

f57n1h.png Boa Noite , Boa Tarde ou Bom Dia TK's não sei a hora que vocês vão ver o Tópico Estava com meu Projeto do "Pokemon Omega" Fiz várias Ediçoes no Servidor • Menu: ├ Informações; ├ Edições; ├ Erros; ├ Prints; ├ Download; └ Créditos. • Informações Básicas • Pokémons da 1 a 6 Geração [6 Geração Incompleta] Pokemons Megas adicionados [50%] Mapa Pareçido com o otpokémon.com [Quests e Outros] Conta god 222/222 Boost Stone 100% Shiny Stone 100% ---------------------------- • Edições / Ajustes • ---------------------------------------------- Mapa Editado 70 % Adicionado algumas quests novas como boost stone,shiny stone ---------------------------------------------- • Erros do Servidor • Algumas Quests estão bugadas ---------------------------------------------- • Prints• Resolvi Fazer um Vidio mostrando um pouco do servidor sistemas pokemons entre outros Link - -------------------------------------------------------------------- Download/Scan Server Download -> http://bit.ly/1JMRBtY Scan \/ https://www.virustotal.com/pt/file/58dcb515a65fed349f13172c81de8208d66e674d372824baaa5c2c8754106816/analysis/1431740265 -------------------- Client Download -> http://bit.ly/1VvXRqL Scan \/ https://www.virustotal.com/pt/file/2d796142785e5b1ceb03d2aadba30123a8138d850ff8b3bbe245a432ed2b055c/analysis/1431740264 Creditos Kenny Dxp [Por 70% do servidor] Mewtwo Jdj [Por adicionar algumas quests] Pokeblx [Modificaçoes no mapa] Bolz [Por algums sistemas colocado no servidor] Gabrieltxu [Por algums sistemas tirado do servidor skyfall 3.0] Fran [Por adicionar algums pokémons] [Lembrando antes de ligar o servidor] Substitua seu config.lua por esse http://bit.ly/20ymxSX e adicione isso para ligar o servidor http://bit.ly/20bMYkx

Fala galera, vim trazer um script bem simples que fiz à pedidos de um membro que nem lembro mais o nome haha. você diz correr "frase e sai a frase em laranja em cima de você enquanto você fica mais rápido.. é bem simpleszinho mas vai ajudar esse pessoal que mexe com poketibia e não tem idéia de como fazer nada kkk. Pra começo de história crie um arquivo em data\talkactions\scripts chamado correr.lua e adicione isso dentro dele: local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_TICKS, 20000) setConditionFormula(condition, 1.7, -36, 1.7, -36) function onSay(cid, words, param) local pos = getThingPos(cid) if(param == '') then doSendMagicEffect(pos, 14) doAddCondition(cid, condition) return true end local t = string.explode(param, '"') if(t[2]) then doCreatureSay(cid, "Strong Haste: ".. t[2], 20, false, 0, pos) doSendMagicEffect(pos, 14) doAddCondition(cid, condition) end return true end Agora no talkactions.xml adicione essa linha: <talkaction hide="yes" words="correr" event="script" value="correr.lua"/> Pra usar você diz: correr "frase que quer que saia aqui. Se você digitar apenas correr não vai sair nada escrito; Exemplo: Espero que seja útil pra vocês. Abraços do lobo.

Dat Editor (Tutorial Outfits) Olá galera vim hoje disponibilizar para você um dat editor que funciona nas seguintes versões, 8.54 e 8.60, algums não sabem para que serve ele de certo, o dat editor é uma forma rapida, de trocar suas sprites, e editar as funções dos items. Download Anexado: Link Direto Scan: aqui

Então eu queria Ajuda Minha Net e Wifi Não com o cabo ai queria Saber se tem como Cria um ot com net De wifi ? Então eu ja Tentei de varias formas. Ex : Tentei Já Entra no Site do meu Ip do Gateway Padrão , eu so consigo entra nesse site Quando conecto O cabo amarelo no meu modem. -{ ex : o ip do meu gteway padrao e 192.168.6.9 ai tento entra nele , mas ai oq da ? / não da pq e como se ele existe não entra { O que eu quero sabe como fazer pra entra no Site do ip Gateway padrao pra poder liberar as portas pra deixa o ot online /> OBs : mas nao entra.. -{ Nesse site eu posso desbloquear minhas portas Tentei Fazer isso mas não deu Certo. o Motivo Deve ser porque Minha Net e De wifi , e Não com cabo então O Ip do meu pc Não fica Fixo {Ex: Ex : Uma hora meu ip pode Esta 192.167.1.1 < E so um exemplo n e meu ip .. Dai dps que reseto minha internet ele muda pra outro ip 192.167.1.3 < o 3 Mudo tendeu N ta fixo .... Nome do Modem : opticom dslink 485 ; e da Oi velox .. Então E esse Quero Sabe se tem como Cria um ot com net de wifi .. Se alguém Souber Me ajudaaaaa Pls... +rep quem ajuda POR FAVOR AJUDAAAAA OBg UP

AMULETO WHOHOOO É um amuleto que, quando está equipado, nega x% do dano provido de monstros. (data/creaturescripts/scripts/amulet.lua) http://pastebin.com/w5wzaXyL(revisão - recomendado) http://pastebin.com/LW3Z34v9 (versão inicial) (data/creaturescripts/scripts/login.lua) Adicione esta linha: registerCreatureEvent(cid, "Amulet") (data/creaturescripts/creaturescripts.xml) Adicione esta linha: <event type="statschange" name="Amulet" event="script" value="amulet.lua"/> E pronto! No script a variável "porcentagem" possui o valor 40 como padrão, que é a porcentagem do dano que será BLOQUEADA. Ou seja, receberá ainda 60% do dano Na variável pt_br = false, troque false por true para que a mensagem seja exibida em português obs. o ID do amuleto é o 2218

Pokemon Sinnoh é um novo servidor que está se destacando por só conter os pokemons de sinnoh. Um servidor onde apresenta características unicas baseado no jogo da Nintendo, onde por si o Pokemon Sinnoh tem vários sistemas iguais ao do Nintendo DS, sistema de Surf, sistema de Dive entre outros sistemas. Pretendemos ficar online por muitos anos sempre trazendo novos updates e claro a dversão para a galera do Poketibia! Oferecer um novo Servidor de poketibia diferenciado onde os players possam jogar livremente sem bugs criticos. Nossa meta para o Servidor agora é completar a nossa equipe. Em breve iremos lançar um video teaser, um Test Server e o tão esperado Lançamento oficial. •Server sem level system. •Clan System, em breve novo clan de stell (IronHard). •Evolution System. •Pokedex System. •Quests. •Police e Rocket team. •Cooldown Icon. •Tv System. •Boost System. •Kit inicial e pokemon iniciail único. •Pokemons da 4° geração, ao total sao 210. •Novas sprites. •Novos itens. •Gyms e Insignias de Sinnoh. •Elite Four de Sinnoh. •Npcs de tasks. •Duel System. •Nick System. •Golden arena. •Moves system (m1 a m12). •Maximo 6 pokemons na bag. •Fishing com iscas. •Box 1,2,3,4. •Novos moves unicos por exemplo Fire Cannon do Magmortar. •Varias spells foram refeitas. •Mapa totalmente próprio baseado no mapa de Sinnoh no NDS. •Moves passivos. •Order. •Fly com icones. •Ride. •Fly. •Teleport. •Rock Smash. •Cut. •Dig. •Light. •Blink. •Control Mind. Só vamos aceitar as inscrições para as vagas disponíveis. Programador Responsável pela modificação do cliente e do servidor, necessário ter conhecimento de compiladores, clientes e lógica de programação avançada. Vagas: 1 Programador 1: Vago Scripter Precisa ter conhecimento avançado em programação lua, isso inclui movements, actions, spells e outros, ter conhecimento em lógica de programação e extras como xml, bando de dados, etc. Vagas: 1 Scripter 1: Vago Spriter Ser criativo e desenvolver principalmente outfits e animações, ter disponibilidade e fazer um trabalho bem feito e completo. Vagas: 1 Spriter 1: Vago Mapper Ser muito criativo, ter imaginação e lógica para criar ilhas e cidades, ter disponibilidade e fazer um trabalho bem feito. Vaga: 1 Mapper 1: Vago Para se inscrever, preencha esse formulário: Obs: Todas as vagas são necessárias e de alta importância, então, é sua obrigação nos enviar um trabalho feito única e exclusivamente por você e mais ninguém, a equipe agradece a sua inscrição, após o envio é só aguardar o contato.

if getThingPos(cid).x == pos.x and getThingPos(cid).y == pos.y and getThingPos(cid).z == pos.z then

localhost é o mesmo q 127.0.0.1 a porta vc tem que por 8080 ou 8090 tenta usar o vertrigo ao invez do xamps

É Companheiro somos 2, já pedi ajuda aqui no site e não resolveram o meu problema Liberei as portas, configurei conforme os pedidos que vieram dos tutoriais e continuo com o mesmo erro !!! espero encontrar o motivo desse erro!!! Precisando da ajuda tbm TIBIAKING !

Add essa função na lib: function addPoint(uid, count) local accountPoints = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `name` = '" .. getPlayerAccount(uid) .. "' LIMIT 1;") local points = tonumber(accountPoints:getDataInt("premium_points")) db.executeQuery("UPDATE `accounts` SET `premium_points` = " .. points + count .. " WHERE `name`='" .. getPlayerAccount(uid) .. "' LIMIT 1;") end Troque o movements do battlefield por esse: Troque a função getWinnersBattle que esta na lib por esta: function getWinnersBattle(storage) local players,str = {},"" for _, cid in pairs(getPlayersOnline()) do if getPlayerStorageValue(cid, storage) == 1 then table.insert(players, cid) end end str = str .. ""..#players.." Player"..(#players > 1 and "s" or "").." from team "..(getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage) == 0 and _Lib_Battle_Info.TeamTwo.name or _Lib_Battle_Info.TeamOne.name).." won the event battlefield, they received a ".._Lib_Battle_Info.Reward[2].." "..getItemNameById(_Lib_Battle_Info.Reward[1]).."!" for i = 1, #players do doPlayerAddItem(players[i], _Lib_Battle_Info.Reward[1], _Lib_Battle_Info.Reward[2]) doRemoveCondition(players[i], CONDITION_OUTFIT) doTeleportThing(players[i], getTownTemplePosition(getPlayerTown(players[i]))) setPlayerStorageValue(players[i], storage, -1) addPoint(players[i], 2) end resetBattle() OpenWallBattle() return doBroadcastMessage(str) end

lib _Lib_Battle_Info = { Reward = 3, TeamOne = {name = "Black Assassins", storage = 140120, pos = {x=1262,y=1150,z=6}}, TeamTwo = {name = "Red Barbarians",storage = 140121,pos = {x=1275,y=1150,z=6}}, storage_count = 180400, tpPos = {x=161, y=44, z=7}, limit_Time = 10 -- em minutos } function resetBattle() return setGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage, 0) and setGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage, 0) end function OpenWallBattle() local B = { {3517,{x=1270, y=1161, z=6, stackpos = 1}}, {3517,{x=1270, y=1162, z=6, stackpos = 1}}, {3517,{x=1270, y=1163, z=6, stackpos = 1}}, {3517,{x=1270, y=1164, z=6, stackpos = 1}} } for i = 1, #B do if getTileItemById(B[i][2], B[i][1]).uid == 0 then doCreateItem(B[i][1], 1, B[i][2]) else doRemoveItem(getThingfromPos(B[i][2]).uid,1) end end end function doBroadCastBattle(type,msg) local players = {} for _, cid in pairs(getPlayersOnline()) do if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage) == 1 or getPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage) == 1 then table.insert(players, cid) end end for i = 1, #players do doPlayerSendTextMessage(players[i],type,msg) end end function removeBattleTp() local t = getTileItemById(_Lib_Battle_Info.tpPos, 1387).uid return t > 0 and doRemoveItem(t) and doSendMagicEffect(_Lib_Battle_Info.tpPos, CONST_ME_POFF) end function getWinnersBattle(storage) local players,str = {},"" for _, cid in pairs(getPlayersOnline()) do if getPlayerStorageValue(cid, storage) == 1 then table.insert(players, cid) end end str = str .. ""..#players.." Player"..(#players > 1 and "s" or "").." do time "..(getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage) == 0 and _Lib_Battle_Info.TeamTwo.name or _Lib_Battle_Info.TeamOne.name).." venceu o evento Battlefield, todos do time vencedor ganharam ".._Lib_Battle_Info.Reward.." premium points!" for i = 1, #players do db.executeQuery('UPDATE accounts SET premium_points=premium_points+' .. _Lib_Battle_Info.Reward ..' WHERE id=' .. getPlayerAccountId(players[i])) doRemoveCondition(players[i], CONDITION_OUTFIT) doTeleportThing(players[i], getTownTemplePosition(getPlayerTown(players[i]))) setPlayerStorageValue(players[i], storage, -1) setPlayerStorageValue(players[i], 52310, getPlayerStorageValue(cid, 52310) + 3) end resetBattle() OpenWallBattle() return doBroadcastMessage(str) end function CheckEvent(delay) if delay > 0 and getGlobalStorageValue(_Lib_Battle_Info.storage_count) > 0 then doBroadcastMessage("[BattleField Evento] Esta esperando "..getGlobalStorageValue(_Lib_Battle_Info.storage_count).." players para o evento Battlefield começar.") elseif delay == 0 and getGlobalStorageValue(_Lib_Battle_Info.storage_count) > 0 then local players = {} for _, cid in pairs(getPlayersOnline()) do if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage) == 1 or getPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage) == 1 then table.insert(players, cid) end end for i = 1, #players do doRemoveCondition(players[i], CONDITION_OUTFIT) setPlayerStorageValue(players[i], 52310, getPlayerStorageValue(cid, 52310) + 1) doTeleportThing(players[i], getTownTemplePosition(getPlayerTown(players[i]))) setPlayerStorageValue(players[i], getPlayerStorageValue(players[i], _Lib_Battle_Info.TeamOne.storage) == 1 and _Lib_Battle_Info.TeamOne.storage or _Lib_Battle_Info.TeamTwo.storage, -1) end doBroadcastMessage("Evento não pode ser iniciado por falta de jogadores.") setGlobalStorageValue(_Lib_Battle_Info.storage_count, 0) resetBattle() removeBattleTp() end addEvent(CheckEvent, 60000, delay-1) end ----------------- creaturescript function onLogin(cid) if getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage) == -1 then setGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage, 0) setGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage, 0) setGlobalStorageValue(_Lib_Battle_Info.storage_count, 0) end registerCreatureEvent(cid, "BattleTeam") registerCreatureEvent(cid, "BattleDeath") return true end function onCombat(cid, target) if isPlayer(cid) and isPlayer(target) then if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage) == 1 and getPlayerStorageValue(target, _Lib_Battle_Info.TeamOne.storage) == 1 then doPlayerSendCancel(cid, "You may not attack your team mates.") return false end if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage) == 1 and getPlayerStorageValue(target, _Lib_Battle_Info.TeamTwo.storage) == 1 then doPlayerSendCancel(cid, "You may not attack your team mates.") return false end return true end return true end function onPrepareDeath(cid, deathList, lastHitKiller, mostDamageKiller) if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage) >= 1 then setPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage, -1) db.executeQuery('UPDATE accounts SET premium_points= premium_points+1 WHERE id= '..getPlayerAccountId(cid)) setGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage, getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage)-1) doRemoveCondition(cid, CONDITION_OUTFIT) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "[Battle Field] You Are Dead!") if getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage) == 0 then getWinnersBattle(_Lib_Battle_Info.TeamTwo.storage) else doBroadCastBattle(23,"[BattleField Information] ".._Lib_Battle_Info.TeamOne.name.." "..getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage).." VS "..getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage).." " .._Lib_Battle_Info.TeamTwo.name) end elseif getPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage) >= 1 then setPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage, -1) db.executeQuery('UPDATE accounts SET premium_points= premium_points+1 WHERE id= '..getPlayerAccountId(cid)) setGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage, getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage)-1) doRemoveCondition(cid, CONDITION_OUTFIT) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "[Battle Field] You Are Dead!") if getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage) == 0 then getWinnersBattle(_Lib_Battle_Info.TeamOne.storage) else doBroadCastBattle(23,"[BattleField Information] ".._Lib_Battle_Info.TeamOne.name.." "..getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage).." VS "..getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage).." " .._Lib_Battle_Info.TeamTwo.name) end end return true end

O tópico foi movido para a área correta, preste mais atenção da próxima vez! Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680 Este tópico foi movido: De: "Tibia King → Atendimento Geral" Para: "OTServ → Suporte OTServ → Suporte de OTServ Geral"

cmd -> ipconfig -> ipv4 Pega esse IP, coloca no config.lua, liga o otserv e tenta entrar (no IP changer usa o ipv4 também).

os pokemon vai em actions/scripts >>>> Goback/Evolution/Order e Catch Creaturescripts/scripts >>>> Goback movements/scripts >>>> Portrait/ Monters/poke/ adicionar monstros = pokemon talkactions m1 ao m12 e Tele se caso o pokemon tiver abilidade de teleportar uma base de onde vc terá que passar!

Pela ótima organização e formatação do tópico, creio que o mesmo não se trata de "qualquer" projeto. Parabéns e boa sorte.

isso ai não vai ajudar muito mexer nas scripts do open tibia aqui mesmo no tibiaking tem aulas > http://www.tibiaking.com/forum/forum/220-aulas-de-scripting/

Tópico aprovado e movido a área correta, obrigado por compartilhar. Não seria melhor uma storage por player talvez?

local config = { levelRequiredToAdd = 20, maxOffersPerPlayer = 30, SendOffersOnlyInPZ = true, blocked_items = {2165, 2152, 2148, 2160, 2166, 2167, 2168, 2169, 2202, 2203, 2204, 2205, 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 2343, 2433, 2640, 6132, 6300, 6301, 9932, 9933} } function onSay(cid, words, param, channel) if(param == 'help') then doPlayerPopupFYI(cid, "#######Commands#######\n---------------------------------\n!market add, itemName, itemPrice, itemCount \nexample: !market add, plate armor, 500, 1 \n---------------------------------\n!market buy, AuctionID \nexample: !market buy, 1943 \n---------------------------------\n!market remove, AuctionID - example: !market remove, 1943 \n!market receber - Use this command to get money for sold items.\n---------------------------------") return true end local t = string.explode(param, ",") if(t[1] == "add") then if((not t[2]) or (not t[3]) or (not t[4])) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.") return true end if(not tonumber(t[3]) or (not tonumber(t[4]))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don't set valid price or items count.") return true end if(string.len(t[3]) > 7 or (string.len(t[4]) > 3)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "This price or item count is too high.") return true end local item = getItemIdByName(t[2]) if(not item) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Item wich such name does not exists.") return true end if(getPlayerLevel(cid) < config.levelRequiredToAdd) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don't have required (" .. config.levelRequiredToAdd .. ") level.") return true end if(isInArray(config.blocked_items, item)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "This item is blocked.") return true end if(getPlayerItemCount(cid, item) < (tonumber(t[4]))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry, you don't have this item(s).") return true end local check = db.getResult("SELECT `id` FROM `auction_system` WHERE `player` = " .. getPlayerGUID(cid) .. ";") if(check:getID() == -1) then elseif(check:getRows(true) >= config.maxOffersPerPlayer) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry you can't add more offers (max. " .. config.maxOffersPerPlayer .. ")") return true end if(config.SendOffersOnlyInPZ) then if(not getTilePzInfo(getPlayerPosition(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You must be in PZ area when you add offert to database.") return true end end if(tonumber(t[4]) < 1 or (tonumber(t[3]) < 1)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to type a number higher than 0.") return true end local itemcount, costgp = math.floor(t[4]), math.floor(t[3]) doPlayerRemoveItem(cid, item, itemcount) db.executeQuery("INSERT INTO `auction_system` (`player`, `item_name`, `item_id`, `count`, `cost`, `date`) VALUES (" .. getPlayerGUID(cid) .. ", \"" .. t[2] .. "\", " .. getItemIdByName(t[2]) .. ", " .. itemcount .. ", " .. costgp ..", " .. os.time() .. ")") doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You successfully add " .. itemcount .." " .. t[2] .." for " .. costgp .. " gps to offerts database.") end if(t[1] == "buy") then if(not tonumber(t[2])) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.") return true end local buy = db.getResult("SELECT * FROM `auction_system` WHERE `id` = " .. (tonumber(t[2])) .. ";") if(buy:getID() ~= -1) then if(getPlayerMoney(cid) < buy:getDataInt("cost")) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don't have enoguh GP.") buy:free() return true end if(getPlayerName(cid) == getPlayerNameByGUID(buy:getDataInt("player"))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry, you can't buy your own items.") buy:free() return true end if(getPlayerFreeCap(cid) < getItemWeightById(buy:getDataInt("item_id"), buy:getDataInt("count")))then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You try to buy a " .. buy:getDataString("item_name") .. ". It weight " .. getItemWeightById(buy:getDataInt("item_id"), buy:getDataInt("count")) .. " cap oz. and you have only " .. getPlayerFreeCap(cid) .. " oz. free capacity. Put some items to depot and try again.") buy:free() return true end local item,amount = buy:getDataString("item_id"), buy:getDataInt("count") local parcel = doCreateItemEx(ITEM_PARCEL) if isItemStackable(item) or amount == 1 then doAddContainerItem(parcel, item, amount) else for i = 1, amount do doAddContainerItem(parcel, item, 1) end end local carta = doAddContainerItem(parcel, 1952) local texto = "[ Item Market ] - "..os.date("%d/%m/%Y ", os.time()).."\n(Buyer) "..getCreatureName(cid).." bought "..amount.."x "..getItemNameById(item).."." doItemSetAttribute(carta, "writer", "Item Market (ID:"..t[2]..")") doItemSetAttribute(carta, "text", texto) doPlayerAddItemEx(cid, parcel) doPlayerRemoveMoney(cid, buy:getDataInt("cost")) db.executeQuery("DELETE FROM `auction_system` WHERE `id` = " .. t[2] .. ";") doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You bought " .. buy:getDataInt("count") .. " ".. buy:getDataString("item_name") .. " for " .. buy:getDataInt("cost") .. " gps!") db.executeQuery("UPDATE `players` SET `auction_balance` = `auction_balance` + " .. buy:getDataInt("cost") .. " WHERE `id` = " .. buy:getDataInt("player") .. ";") buy:free() else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.") end end if(t[1] == "remove") then if((not tonumber(t[2]))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.") return true end if(config.SendOffersOnlyInPZ) then if(not getTilePzInfo(getPlayerPosition(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You must be in PZ area when you remove offerts from database.") return true end end local delete = db.getResult("SELECT * FROM `auction_system` WHERE `id` = " .. (tonumber(t[2])) .. ";") if(delete:getID() ~= -1) then if(getPlayerGUID(cid) == delete:getDataInt("player")) then db.executeQuery("DELETE FROM `auction_system` WHERE `id` = " .. t[2] .. ";") if(isItemStackable(delete:getDataString("item_id"))) then doPlayerAddItem(cid, delete:getDataString("item_id"), delete:getDataInt("count")) else for i = 1, delete:getDataInt("count") do doPlayerAddItem(cid, delete:getDataString("item_id"), 1) end end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your offert has been deleted from offerts database.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "This is not your offert!") end delete:free() else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.") end end if(t[1] == "receber") then local balance = db.getResult("SELECT `auction_balance` FROM `players` WHERE `id` = " .. getPlayerGUID(cid) .. ";") if(balance:getDataInt("auction_balance") < 1) then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have money on your auction balance.") balance:free() return true end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You got " .. balance:getDataInt("auction_balance") .. " gps from auction system!") doPlayerAddMoney(cid, balance:getDataInt("auction_balance")) db.executeQuery("UPDATE `players` SET `auction_balance` = '0' WHERE `id` = " .. getPlayerGUID(cid) .. ";") balance:free() end return true end

Pode está faltando arquivos ou talvez #includes veja se o compilador está tendo acesso aos arquivos..., as permissões e etc...

foi o zipter98 q fez , eu testei e funciono perfeitamente

Pelo script parece estar certo... não testei '-'

Pessoal pra quem quer q evolua o pokemon com um item ta ai local evolutions = { --["Pokemon_name"] = {ID_do_item_necessário_para_evoluir, "Evolution_name"}, ["Charizard"] = {14208, "Mega Charizard"}, } function onSay(cid, words) if #getCreatureSummons(cid) > 0 then local poke = getCreatureSummons(cid)[1] if evolutions[getCreatureName(poke)] then if getPlayerItemCount(cid, evolutions[getCreatureName(poke)][1]) >= 1 then local position, lookDir, pokeName = getThingPos(poke), getCreatureLookDirection(poke), getCreatureName(poke) doPlayerSendTextMessage(cid, 27, "Your "..pokeName.." transformed into a "..evolutions[pokeName][2].."!") doRemoveCreature(poke) doSummonMonster(cid, evolutions[pokeName][2]) local newPoke = getCreatureSummons(cid)[1] doTeleportThing(newPoke, position) doCreatureSetLookDir(newPoke, lookDir) adjustStatus(newPoke, getPlayerSlotItem(cid, 8).uid, true, false) if useKpdoDlls then doUpdateMoves(cid) local posi = getThingPosWithDebug(newPoke, position) posi.x = posi.x+1 posi.y = posi.y+1 doSendMagicEffect(posi, 205) else return doPlayerSendCancel(cid, "You need 1 "..getItemNameById(evolutions[getCreatureName(poke)][1]).." to evolve this pokemon.") end else return doPlayerSendCancel(cid, "This pokemon can't transform.") end else return doPlayerSendCancel(cid, "You do not have summons.") end return true end end Creditos ao @zipter98

Testado e aprovado. Segue o script Modificado.

So fazer o que disse acima.

Cylinder* subCylinder = dynamic_cast(*destItem); troca por Cylinder* subCylinder = dynamic_cast<Cylinder*>(*destItem); Container* parentContainer = dynamic_cast(getParent()); troca por Container* parentContainer = dynamic_cast<Container*>(getParent()); E o Fix do fireelement nao deu certo.

A password fica em plain mas acho que o salt (hash usada para proteger a senha) ainda continua. otserv.cpp, troque: g_config.setNumber(ConfigManager::ENCRYPTION, ENCRYPTION_PLAIN); std::clog << "> Using plaintext encryption" << std::endl << std::endl << "> WARNING: This method is completely unsafe!" << std::endl << "> Please set encryptionType = \"sha1\" (or any other available method) in config.lua" << std::endl; boost::this_thread::sleep(boost::posix_time::seconds(30)); por: g_config.setNumber(ConfigManager::ENCRYPTION, ENCRYPTION_PLAIN); std::clog << "> Using plaintext encryption" << std::endl; O tópico foi movido para a área correta, preste mais atenção da próxima vez! Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680 Este tópico foi movido: De: "OTServ → Suporte OTServ → Suporte de Scripts" Para: "OTServ → Suporte OTServ → Suporte de Programação"

eu tenho aki quase tudo que vc possa querer usar http://www.4shared.com/rar/TcLk0Dyjba/Algumas_coisas_para_Poketibia_.html?

local items = {{itemid, count}, {itemid, count}, {itemid, count}, ...} --{{ID_do_item, quantia_requerida}, {ID_do_item, quantia_requerida}, ...} function onSay(cid) local str = "" for _, item in pairs(items) do if str == "" then str = getItemNameById(item[1]).." - ["..getPlayerItemCount(cid, item[1]).."/"..item[2].."]" else str = str.."\n"..getItemNameById(item[1]).." - ["..getPlayerItemCount(cid, item[1]).."/"..item[2].."]" end end doPlayerPopupFYI(cid, "You have:\n"..str) return true end

olha ai: http://www.tibiaking.com/forum/topic/49826-object-builder-adicionando-pokemons/

Desculpe Reviver o tópico, eu estava navegando pelos meus conteúdos e lembrei que esqueci de postar a resolução do problema. Sugiro que sempre tenha um backup da sua schema.sql salvo. Também é recomendável que ela esteja crua (sem players, accounts ou outras linhas adicionadas). Drope sua tabela e importe-a novamente que o problema estará resolvido. Obrigado a todos que de alguma forma tentou me ajudar

mano.... vai la no mesmo arquivo data/lib/configuration.lua procure pela tabela "fotos" aí voce tem q colocar o ID da foto.... =) GOSTOU?? REP+ =)

Não tem misterio amigo, basta ir até o actions.xml apos isso.. adicione Depois basta ir a pasta scripts criar um arquivo morador.lua e coloca o script e salvar..Depois abra o mapeditor coloca no piso que deseja actionID 18007..

Basta colocar um actionid no tile e pronto..simples. OBS: Não se esqueca de alterar o TOWNID ali em baixo para o id dá cidade desejada.

mano isso ae é = o Xampp ta segui seu tutorial de curiosidade , mas ae me fala , seguindo seu tutorial , apenas cria o site coloca-lo online é outra HISTORIA o que vc tem a dize a respeito ? como poem o site on , como criar 1 ip fixo pra esse site ( isso até agora ngm deu conta de explicar em forum algum )

estou com problemas ao colocar meu site on, já coloquei as portas 80 / 8090 no firewall e no hostiador, já editei as configurações conforme os tutorias mostram e tbm ja editei tudo à pedido ! meus amigos não consegue ter o acesso do site que fiz... por favor me ajudem ae... se é falta de porta porfavor me mandem um totorial mais especificado! Agradeço