Líderes

Global Compacto EddyHavoc Olá galerinha do TibiaKing to trazendo um 9.44 Global Compacto, por favor se alguem for postar em outro fórum quero os meus créditos. Servidor: Mapa Global Compacto versão 9.44 cidades: Carlin Thais Port Hope Ankrahmarum Svargrond Edron Npc's da cidade igual global e alguns editados. Sistema de Addon igual a do Global Teleportes para hunt's + de 60 no total Sistema [VIP] Distro editado por mim: EddyHavoc E tem muitooo mais coisa se tem que baixa isso é um espetaculo. Uma imagem para curiosidade: Download: http://www.4shared.com/rar/4BW-fVRC/Global_Compacto_944_by_EddyHav.html Scan: Créditos: EddyHavoc (Atualizações e versão 9.44) Soldoran (Servidor 8.60) Gostou ? Ajudei ? +REP

Créditos Skyforever e Vodkart Como funciona? É um script que manda uma mensagem animada dependendo do hit do player Script Primeiramente vá em /data/creaturescripts/scripts login.lua adicione essa linha la registerCreatureEvent(cid, "Hitmsg") em creaturescripts.xml adicione essas 2 linhas: <event type="statschange" name="HitMessage" event="script" value="hitmsg.lua"/> <event type="combat" name="Hitmsg" event="script" value="hitmsg.lua"/> depois na mesma pasta crie um arquivo chamado hitmsg e adicione isso dentro: Versão com chance: Versão com recompensa Explicando o versão com recompensa: Explicando outras versões: Imagen: se gostaram REP+

Créditos: Jhon & Vodkart Como funciona: É um sistema simples, mostra o rank de maior hit do server, seja de axe, sword, club, wand, etc... Mostra o Nome do player - [Hit] - Nome da weapon imagem de exemplo: rank axe rank club obs: como o sistema de rank normal, level e etc, para aparecer no rank o jogador tem que relogar ou dar serversalve. --------------------------------------- RankHit.xml <?xml version="1.0" encoding="UTF-8"?> <mod name="RankHit" version="1.0" author="Vodkart e Jhon" contact="tibiaking.com" enabled="yes"> <config name="rank_func"><![CDATA[ WEAPON_WAND = {2190, 2191, 2188, 8921, 2189, 2187, 8920, 8922, 2184, 7414, 2453} WEAPON_ROD = {2182, 2186, 2185, 8911, 2181, 2183, 8912, 8910, 7958, 12609} storage_mostdamage = { CLUB = {155201,156201}, SWORD = {155202,156202}, AXE = {155203,156203}, WAND = {155204,156204}, ROD = {155205,156205}, DISTANCE = {155206,156206}, MAGIC_SD = {155207,156207,157207} } function setSdHit(cid, damage) if damage > getPlayerStorageValue(cid, storage_mostdamage.MAGIC_SD[1]) then setPlayerStorageValue(cid, storage_mostdamage.MAGIC_SD[1], damage) setPlayerStorageValue(cid, storage_mostdamage.MAGIC_SD[2], 2268) end return true end function setPlayerMostHitMage(cid, damage, weapon) if isInArray(WEAPON_WAND, getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid) == TRUE or isInArray(WEAPON_WAND, getPlayerSlotItem(cid, CONST_SLOT_RIGHT).itemid) == TRUE then if damage > getPlayerStorageValue(cid, storage_mostdamage.WAND[1]) then setPlayerStorageValue(cid, storage_mostdamage.WAND[1], damage) setPlayerStorageValue(cid, storage_mostdamage.WAND[2], weapon) end elseif isInArray(WEAPON_ROD, getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid) == TRUE or isInArray(WEAPON_ROD, getPlayerSlotItem(cid, CONST_SLOT_RIGHT).itemid) == TRUE then if damage > getPlayerStorageValue(cid, storage_mostdamage.ROD[1]) then setPlayerStorageValue(cid, storage_mostdamage.ROD[1], damage) setPlayerStorageValue(cid, storage_mostdamage.ROD[2], weapon) end end return true end function getRankHit(cid, value, wvalue, max, RankName) -- by vodka local str,arm ="","" str = "--[".. (RankName == nil and "RANK STORAGE" or ""..RankName.."") .."]--\n\n" local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as INTEGER) DESC;") if (query:getID() ~= -1) then k = 1 repeat if k > max then break end local getweapon = db.getResult("SELECT `value` FROM `player_storage` WHERE `player_id` = ".. query:getDataString("player_id") .." AND `key` = "..wvalue) if (getweapon:getID() ~= -1) then arm = getItemNameById(getweapon:getDataString("value")) end str = str .. "\n " .. k .. ". "..getPlayerNameByGUID(query:getDataString("player_id")).." - [" .. query:getDataInt("value") .. "] - "..arm.."" k = k + 1 until not query:next() end return doPlayerPopupFYI(cid, str) end function haveWeapon(cid) -- by vodka local armas = {1,2,3,5,6} if getPlayerSlotItem(cid, CONST_SLOT_RIGHT).itemid > 0 and isInArray(armas, getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_RIGHT).uid)) or getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid > 0 and isInArray(armas, getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_LEFT).uid)) then return true end return false end function getWeaponType(cid) -- by vodka return getPlayerSlotItem(cid, CONST_SLOT_LEFT).itemid == 0 and getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_RIGHT).uid) or getItemWeaponType(getPlayerSlotItem(cid, CONST_SLOT_LEFT).uid) end ]]></config> <talkaction words="/rankhit;!rankhit" event="buffer"><![CDATA[ domodlib('rank_func') local rank_hit = { ["axe"] = {storage_mostdamage.AXE[1],storage_mostdamage.AXE[2]}, ["sword"] = {storage_mostdamage.SWORD[1],storage_mostdamage.SWORD[2]}, ["club"] = {storage_mostdamage.CLUB[1],storage_mostdamage.CLUB[2]}, ["wand"] = {storage_mostdamage.WAND[1],storage_mostdamage.WAND[2]}, ["rod"] = {storage_mostdamage.ROD[1],storage_mostdamage.ROD[2]}, ["distance"] = {storage_mostdamage.DISTANCE[1],storage_mostdamage.DISTANCE[2]}, ["sd"] = {storage_mostdamage.MAGIC_SD[1],storage_mostdamage.MAGIC_SD[2]} } local param = string.lower(param) if (param == "") then local str = "" str = str .. ""..getCreatureName(cid).." Hit\'s\:\n\n" for hit, item in pairs(rank_hit) do str = str..string.upper(hit)..": ".. (getPlayerStorageValue(cid, item[1]) ~= -1 and "["..getPlayerStorageValue(cid, item[1]).."] - "..getItemNameById(getPlayerStorageValue(cid, item[2])).."" or "None") .."\n" end str = str .. "" doPlayerPopupFYI(cid,str) return true end if not rank_hit[param] then return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"digite o nome correto.") end return getRankHit(cid, rank_hit[param][1],rank_hit[param][2], 10, "Rank "..param) ]]></talkaction> <event type="login" name="Rank Hit" event="script"><![CDATA[ domodlib('rank_func') function onLogin(cid) registerCreatureEvent(cid, "RankhitCombat") return true end ]]></event> <event type="combat" name="RankhitCombat" event="script"><![CDATA[ domodlib('rank_func') registerCreatureEvent(target, "RankhitStats") return true ]]></event> <event type="statschange" name="RankhitStats" event="script"><![CDATA[ domodlib('rank_func') if type == STATSCHANGE_HEALTHLOSS and isPlayer(attacker) and haveWeapon(attacker) then t = { [1] = {storage_mostdamage.SWORD[1],storage_mostdamage.SWORD[2]}, [2] = {storage_mostdamage.CLUB[1],storage_mostdamage.CLUB[2]}, [3] = {storage_mostdamage.AXE[1],storage_mostdamage.AXE[2]}, [5] = {storage_mostdamage.DISTANCE[1],storage_mostdamage.DISTANCE[2]} } MyWeapon = getPlayerSlotItem(attacker, CONST_SLOT_LEFT).itemid == 0 and getPlayerSlotItem(attacker, CONST_SLOT_RIGHT).itemid or getPlayerSlotItem(attacker, CONST_SLOT_LEFT).itemid if (getPlayerStorageValue(attacker, storage_mostdamage.MAGIC_SD[3]) >= os.time()) then setSdHit(attacker,value) elseif t[getWeaponType(attacker)] then if value > getPlayerStorageValue(attacker, t[getWeaponType(attacker)][1]) then setPlayerStorageValue(attacker, t[getWeaponType(attacker)][1], value) setPlayerStorageValue(attacker, t[getWeaponType(attacker)][2], MyWeapon) end else setPlayerMostHitMage(attacker, value, MyWeapon) end end return true ]]></event> </mod> Em data > spells > scripts > attack > sudden death.lua adicione depois de function onCastSpell(cid, var) setPlayerStorageValue(cid, 157207, os.time()+3) ficando assim: function onCastSpell(cid, var) setPlayerStorageValue(cid, 157207, os.time()+3) return doCombat(cid, combat, var) end

OtLand IP Changer Na verdade esse IP Changer pega qual quer versão de OpenTibia. OtLand IP Changer: é uma aplicação desenhada para permitir que você se conectar a conectar a servidores de OpenTibia. A intenção é trabalhar para todas as versões do Tibia. Ele é escrito em C # com. NET Framework 3.5 por Kornholijo e Talaturen. Ele só roda em Windows. características: Lançador cliente. Detecta a versão mais recente Tibia instalado e registra-lo no aplicativo. Aplica-se a qualquer versão multiclient Tibia existentes (no caso, não iria trabalhar para alguma versão futura, você pode ativar o sinalizador gamemaster). Procura por locais de endereço de memória em vez de usar endereços estáticos, o que significa que ele deve trabalhar para qualquer cliente Tibia menos que a chave RSA ou hostnames servidor de login são mudados. OTServ: manipulador / / protocolo, você pode iniciar o cliente com alterações aplicadas diretamente do OTServ: / / links em que a versão do cliente é definido. Opção para armazenar arquivos de configuração do cliente (e arquivos automap) em pastas separadas, de modo que você não tem que perder as configurações que você tinha armazenado em clientes mais antigos. Opção para forçar o motor gráfico para clientes lançado. Se você encontrar qualquer problema ao tentar iniciar a aplicação, certifique-se que você tem. NET Framework 3.5 instalado. Ele pode ser baixado aqui: Download Details - Microsoft Download Center - .NET Framework 3.5. Download OtLand IP Changer:. OtLand IP Changer.zip

http://www.youtube.com/watch?v=o1cgpL8oOeM

Gostei Reputado 1- RESPOSTA ANA 2- RESPOSTA DUDA 3- RESPOSTA (V) (F) (F) (F) (F) (V) (F)

1ºAna 2ºDuda 3ºa) ( v) - todo "if" acompanha um "then" e um "end", podendo haver um "else" se for chamado b) ( f) - no uso do "if" é obrigatorio o uso do "else" c) ( f) - todo "elseif" acompanha um "end" d) ( f) - no uso do "elseif" o "then" não é necessário e) ( f) - o "elseif" pode ser usado sem precisar ter um "if" anteriormente f) ( v) - pode haver mais de um "if" aninhado dentro do mesmo script g) ( f) - O máximo de "elseif" que pode ser usado é 10.

Exercicios: 1 - Com base no script acima, se na linha 1 fosse adicionado "number = 10", quais dos nomes retornaria? a) Nil b) ANA c) Pedro d) caio e) duda 2 - Com base no script acima, se na linha 1 fosse adicionado "number = 0", quais dos nomes retornaria? a) Nil b) ANA c) Pedro d) caio e) duda 3 - MArque V ou F sobre o comando if: a) ( ) - todo "if" acompanha um "then" e um "end", podendo haver um "else" se for chamado b) ( ) - no uso do "if" é obrigatorio o uso do "else" c) ( ) - todo "elseif" acompanha um "end" d) ( ) - no uso do "elseif" o "then" não é necessário e) ( ) - o "elseif" pode ser usado sem precisar ter um "if" anteriormente f) ( ) - pode haver mais de um "if" aninhado dentro do mesmo script g) ( ) - O máximo de "elseif" que pode ser usado é 10.

Sua internet é compartilhada? Se sim, as portas estão liberadas no modem/roteador? Se não, diga o modelo do modem/roteador. É via radio? Se for, esqueça, não tem como colocar OT's/sites online no seu computador para outras pessoas acessarem!

claro mano, ta na mão: nome do seu script.lua function onThink(interval, lastExecution) for _, cid in pairs(getPlayersOnline()) do doPlayerSave(cid) end return TRUE end <globalevent name="RankHitSave" interval="1800" event="script" value="nome do seu script.lua"/> 1800 é 30 minutos

http://www.youtube.com/watch?v=bFr4ErkdPjE Boa tarde pessoal, eu, Gabriel Pedro, resolvi voltar com os videos tutoriais sobre Website e Open Tibia em geral. A partir de hoje, 01/05, terça-feira, dia do trabalhador, irei TENTAR postar toda semana pelo menos um vídeo, mas preciso da colaboração de vocês, que me deem dicas do que fazer, gravar. Agradeço desde já pessoal. Abraço, Gabriel Pedro.

Tutorial muito bom! Como sugestão, teria como fazer um tutorial de como codificar novos layouts no modern acc?

Tive esse mesmo problema galera, usem esse tutorial: http://tibiaking.com/forum/topic/12637-aprenda-a-usar-o-laatido/

Vai no PhpMyadmin e Exporta sua database , depois entra no novo Host e importa ela. Ajudei?? REP+

Voce nao vai cnseguir, tem que editar a source pra fazer isso

Obrigado por comentarem. Deem mais sugestões, o script de recompensa já esta pronto irei testa-lo depois. @UPDATE[30/04/12] Versão com recompensa adicionada ao topico

Ae já estou fazendo o server de vocês, estou finalizando.

aham vc deve te 20 e pocos aNOs vey vc tem cara de vey vc n tem 14 nada