BeluciGamer

Desculpe reabrir o tópico mais acho que isso é oque vc precisa
http://www.tibiaking.com/forum/topic/46263-oracle-100-editavel/

-1 Que requisitos precisa um mapa completo RL ? ( Ram , processador, etc.)
R: Nós temos uma estimativa para você ter uma base CLIQUE AQUI para ver.

-2 Quais hostings recomendaria? (A idéia é que seja essencialmente um servidor localizado nos Estados Unidos)
R: Nós mesmos rsrsrsrs, nosso data center é no canadá

-3 Haveria lag se o servidor estiver nos Estados Unidos e eu na América do Sul ? Do q dependem ? qual e a conexão mínima exigida ?
R: Se o ping for inferior a 180ms, não hávera lag, nós oferecemos servidores de 150- a conexão é a parte, porém temos 1gb/s, obs: com certeza você não ultrapassará isto.
 

Eae Galera do     TibiaKing       
É o seguinte Hoje trago a vocês o Baiak Rox Editado por Min
Espero que Gostem      
 
Oque eu Fiz ?     
 
| Novo Visual do Templo  Totalmente ICE 
| Critical System  
| Task System  
| Dodge System   
| Run Event (CORRIDA MALUCA)
| Reset System (ÁREA EXCLUSIVA COM CASTELO E HUNTS) para resetar fale !reset   
| Guild Frags System ( ACESSO AO PROMOTE E ITENS EXCLUSIVOS )  
| War System (100% RODANDO EM SQLITE)  
| Cast System (100% Roda em Mysql ) ( Para Ativar vai em Config.lua e ache | enableCast = false | mude para true ) Duvidas entrem em http://www.tibiaking...os-na-distro/  
| PvP Balanceado Agora com mais RPG  
| Armas Arrumadas Para Melhor PvP  
| Varios Eventos Automaticos  
| Battle Field Event  
| Capture The Flag Event  
| City War
| Adicionado CASTLE 24HORAS (COM CASTELO) e AVISOS DE INVASORES  
| Itens DONATES  
| Área DONATE ~~ (Só Entra Quem Usar o Itens de Premium Days)  
| Vários Novos Script   
| Fast Atk Arrumado
| Distro 0.4 Rodando 100% ( Se For 64x Bits)  
| Refinamento ( Aprimora seus Equipamentos )  
| Frags no Look  
| Npc Hero Seller (Vende Itens Exclusivos para quem tiver honor points) Obs:Consegue no GFS)  
| Entre Outras Coisas  
 
| SENHA DO GOD: rox/styller  
 
| Aqui Vai Umas Prints     
 
| Castelo Reset System



| Nova Imagem do Templo



| Área Donate



| Mostra de Itens Donate + Eventos



 
 
| Download    



| Scan   



 
| Créditos      



 
| Gostou  ? Então dei um  REP      

...

...

...

tambem estou com a mesma duvida, eu acho que ninguem ira responder, ja foi a época que o tibiaking era bom.....

Salve Galera, olhando em minhas libs achei um script muito bom !!
 
Em alguns servidores derivados o Skill Fist Fighting influencia no Attack Speed do Player, Então ....
 
Segue a Formula na source que faz essa magica :

Em Player.cpp Procure : 
uint32_t Player::getAttackSpeed() const Mude Atualize para esse função :
uint32_t Player::getAttackSpeed() const { int32_t SpeedAttack; SpeedAttack = vocation->getAttackSpeed() - (getSkill(SKILL_FIST, SKILL_LEVEL) * 10); if (SpeedAttack < 500) { return 500; } else { return (uint32_t) SpeedAttack; } }  Explicando :

Ele irá verifica o Attack Speed padrão no Vocations.xml e irá verifica o Skill Fist do Player e retornará a velocidade, caso a velocidade retorne menor que 500 ele sempre limitará a 500ms para que não haja erros.
 
Simples e Facil !
 
Creditos ?
Emerson Henrique

Olá, como percebi que muitos usuários estavam com problemas em copilar a versão do Jamilson Collins http://www.tibiaking.com/forum/topic/27617-cast-system-tfs-04-86/),
Eu resolvi, editar a sourcer, colocando para ser compatível com linux e windows.
Tinha alguns códigos mal "formulados" gerando os possíveis crashs.
 
O que vem no conteúdo a seguir contem os seguintes items :
Sourcers com o Cast System(Linux/Windows) Código MySQL para você por na sua database. Talkaction para o player poder executar o comando. Cast.php, que é a página do Cast System com comandos e outros (Compatível com o gesior e em português). Adicione  enableCast = "true" (no seu config.lua) Estarei tirando dúvidas em relação as minhas modificações.
 
Link Copilado 32Bits(Windows) http://www.mediafire.com/?166i4wg4q3te4uc
Scan: https://www.virustotal.com/pt/file/7020fa7a169a390cf5fabaca8a8edbcbe4e4f119e99c7d9dd66c2741227dd293/analysis/1383447449/
OBS> no scan acusou um virus, se alguém duvida de algo, baixe a source e copile por si.
 
Link Source: http://www.mediafire.com/?w19t81fgivm6j06
Scan: https://www.virustotal.com/pt/file/2f8b21c37316415e5175afaa12d73c43e4c5cfa8dba206cf5a144b2f909aefa7/analysis/1383448112/


Créditos: Summ, Jamilson Collins, Eu por ter modificado é claro =D

Aproveitem, deu um pouco de trabalho para corrigir os problemas.

Olá pessoal, trago para vocês um script talkaction que add e remove premium points por comandos in-game.

Primeira, vá em data/talkactions/talkactions.xml e add a tag:
<talkaction words="/addpoints;/removepoints" access="3" script="premium_points.lua"/> Depois crie um arquivo chamado premium_points.lua em data/talkactions/scripts/ e coloque esse código dentro:
function onSay(cid, words, param) local t = string.explode(param, ",") if param == '' then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Missing params.") return true end local player, balance, pid = getPlayerByName(t[1]), t[2], getPlayerByNameWildcard(t[1]) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "That players doesnt exist or is offline.") return true end if t[2] == null then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Missing ammount of points.") return true end local accountName = getPlayerAccount(player) local accountPoints = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `name` = '" .. accountName .. "' LIMIT 1;") local points = tonumber(accountPoints:getDataInt("premium_points")) local name = getPlayerName(cid) if(words == "/addpoints") then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You added "..balance.." premium points to "..t[1].." account.") doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, "You got "..balance.." premium points from "..name..".") points = (points+balance) db.query("UPDATE `accounts` SET `premium_points` = " .. points .. " WHERE `name`='" .. accountName .. "' LIMIT 1;") elseif (words == "/removepoints") then points = (points-balance) if points < 0 then doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, ""..name.." removed all your premium points.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You removed all "..t[1].." account premium points.") db.query("UPDATE `accounts` SET `premium_points` = '0' WHERE `name`='" .. accountName .. "' LIMIT 1;") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You removed "..balance.." premium points to "..t[1].." account.") db.query("UPDATE `accounts` SET `premium_points` = " .. points .. " WHERE `name`='" .. accountName .. "' LIMIT 1;") doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_ORANGE, ""..name.." removed "..balance.." premium points from your account.") end end return true end Para usar é simples: /COMANDO PLAYER, QUANTIDADE
 
exemplo: /addpoints Luan, 10
 
Créditos: Shispa
 
Bem simples né pessoal? Espero que ajude, abraços e até mais!

Download: AKI

Scan: AKI

Creditos: Nizahe

Nome: Perfect Upgrade System
Tipo: Biblioteca, Action, Sistema
Autor: Oneshot
Essa é a versão final do Perfect Refine System ou Perfect Upgrade System criado por mim.
É um sistema construído em cima de funções em POO (orientação a objetos), o que o torna muito versátil, possibilitando a outros programadores/scripters criarem seus próprios sistemas com base na biblioteca.
A função do sistema é simples. Não passa de um sistema de refino, presente em todos os servidores, onde você usa um item em um equipamento e este fica mais forte e ganha um nome caracterizando o nível de força - bem clichê - mas muito interessante.
Meu sistema é um pouco diferente dos outros, pois possui algumas características exclusivas, listadas abaixo:
O nível máximo configurável é praticamente ilimitado O sistema funciona com armas de combate corpo-a-corpo, bows e crossbows. O refino pode falhar, não acontecendo nada, regredindo o nível ou resetando ele. Há um sistema nativo de broadcasts, que são enviados quando um jogador consegue refinar um equipamento até um certo nível ou maior. As chances são configuradas manualmente e sua randomização é muito precisa. Há dois modos de instalar o sistema em seu servidor, o primeiro é baixar a pasta com os scripts necessários e apenas copiar as chaves nos arquivos XMLs ou então seguir o curto tutorial de instalação.
Crie um arquivo chamado upgradesystem.lua na pasta data/lib e copie o conteúdo abaixo:
  --[[ PERFECT UPGRADE SYSTEM 2.0 Criado por Oneshot É proibido a venda ou a cópia sem os devidos créditos desse script. ]]-- UpgradeHandler = { levels = { [1] = {100, false, false}, [2] = {90, false, false}, [3] = {75, false, false}, [4] = {60, true, false}, [5] = {45, true, false}, [6] = {30, true, false}, [7] = {25, true, false}, [8] = {20, true, true}, [9] = {15, true, true}, [10] = {10, true, true}, [11] = {10, true, true}, [12] = {5, true, true} }, broadcast = 7, attributes = { ["attack"] = 2, ["defense"] = 1, ["armor"] = 1 }, message = { console = "Trying to refine %s to level +%s with %s%% success rate.", success = "You have upgraded %s to level +%s", fail = "You have failed in upgrade of %s to level +%s", downgrade = "The upgrade level of %s has downgraded to +%s", erase = "The upgrade level of %s has been erased.", maxlevel = "The targeted %s is already on max upgrade level.", notupgradeable = "This item is not upgradeable.", broadcast = "The player %s was successful in upgrading %s to level +%s.\nCongratulations!!", invalidtool = "This is not a valid upgrade tool.", toolrange = "This upgrade tool can only be used in items with level between +%s and +%s" }, tools = { [8306] = {range = {0, 10}, info = {chance = 0, removeable = true}}, }, isEquipment = function(self) local weaponType = self:getItemWeaponType() return ((weaponType > 0 and weaponType < 7) or self.item.armor ~= 0) end, setItemName = function(self, name) return doItemSetAttribute(self.item.uid, "name", name) end, chance = function(self) local chances = {} chances.upgrade = (self.levels[self.item.level + 1][1] or 100) chances.downgrade = (self.item.level * 5) chances.erase = (self.item.level * 3) return chances end } function UpgradeHandler:new(item) local obj, ret = {} obj.item = {} obj.item.level = 0 obj.item.uid = item.uid for key, value in pairs(getItemInfo(item.itemid)) do obj.item[key] = value end ret = setmetatable(obj, {__index = function(self, index) if _G[index] then return (setmetatable({callback = _G[index]}, {__call = function(self, ...) return self.callback(item.uid, ...) end})) else return UpgradeHandler[index] end end}) if ret:isEquipment() then ret:update() return ret end return false end function UpgradeHandler:update() self.item.level = (tonumber(self:getItemName():match("%+(%d+)")) or 0) end function UpgradeHandler:refine(uid, item) if not self.item then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, self.message.notupgradeable) return "miss" end local tool = self.tools[item.itemid] if(tool == nil) then doPlayerSendTextMessage(uid, MESSAGE_EVENT_DEFAULT, self.message.invalidtool) return "miss" end if(self.item.level > #self.levels) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.maxlevel:format(self.item.name)) return "miss" end if(self.item.level < tool.range[1] or self.item.level >= tool.range[2]) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.toolrange:format(unpack(tool.range))) return "miss" end local chance = (self:chance().upgrade + tool.info.chance) doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, self.message.console:format(self.item.name, (self.item.level + 1), math.min(100, chance))) if(tool.info.removeable == true) then doRemoveItem(item.uid, 1) end if chance * 100 > math.random(1, 10000) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_ORANGE, self.message.success:format(self.item.name, (self.item.level + 1))) if (self.item.level + 1) >= self.broadcast then doBroadcastMessage(self.message.broadcast:format(getCreatureName(uid), self.item.name, (self.item.level + 1))) end self:setItemName((self.item.level > 0 and self:getItemName():gsub("%+(%d+)", "+".. (self.item.level + 1)) or (self:getItemName() .." +1"))) for key, value in pairs(self.attributes) do if getItemAttribute(self.item.uid, key) ~= nil or self.item[key] ~= 0 then doItemSetAttribute(self.item.uid, key, (self.item.level > 0 and getItemAttribute(self.item.uid, key) or self.item[key]) + value) end end return "success" else if(self.levels[self.item.level][3] == true and (self:chance().erase * 100) > math.random(1, 10000)) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.erase:format(self.item.name)) self:setItemName(self.item.name) for key, value in pairs(self.attributes) do if self.item[key] > 0 then doItemSetAttribute(self.item.uid, key, self.item[key]) end end elseif(self.levels[self.item.level][2] == true and (self:chance().downgrade * 100) > math.random(1, 10000)) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.downgrade:format(self.item.name, (self.item.level - 1))) self:setItemName((self.item.level == 1 and self.item.name or self:getItemName():gsub("%+(%d+)", "+".. (self.item.level - 1)))) for key, value in pairs(self.attributes) do if getItemAttribute(self.item.uid, key) ~= nil or self.item[key] ~= 0 then doItemSetAttribute(self.item.uid, key, (self.item[key] + value * (self.item.level - 1))) end end else doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.fail:format(self.item.name, (self.item.level + 1))) end return "fail" end end Crie um arquivo chamado upgrade.lua em data/actions/scripts e cole o conteúdo abaixo:
  function onUse(cid, item, fromPosition, itemEx, toPosition) if isCreature(itemEx.uid) then return doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE) end local obj = UpgradeHandler:new(itemEx) if(obj == false) then return doPlayerSendCancel(cid, UpgradeHandler.message.notupgradeable) end local status = obj:refine(cid, item) if status == "success" then --doSendAnimatedText(toPosition, "Success!", COLOR_GREEN) doSendMagicEffect(toPosition, CONST_ME_MAGIC_GREEN) elseif status == "fail" then --doSendAnimatedText(toPosition, "Fail!", COLOR_RED) doSendMagicEffect(toPosition, CONST_ME_POFF) else doSendMagicEffect(toPosition, CONST_ME_POFF) end return true end No arquivo actions.xml, cole a seguinte linha:
  <action itemid="8306" event="script" value="upgrade.lua"/> Para adicionar mais níveis de refino no sistema, edite a seguinte tabela:
  levels = { [1] = {100, false, false}, [2] = {90, false, false}, [3] = {75, false, false}, [4] = {60, true, false}, [5] = {45, true, false}, [6] = {30, true, false}, [7] = {25, true, false}, [8] = {20, true, true}, [9] = {15, true, true}, [10] = {10, true, true} }, Por padrão, ela já está configurado como na maioria dos MMORPGs, 10 níveis de refino, com chances de sucesso, regressão e "quebra". Mas se você quiser, por exemplo, adicionar mais dois níveis, siga o modelo, sempre colocando uma vírgula no final com exceção da última linha da tabela:
  levels = { [1] = {100, false, false}, [2] = {90, false, false}, [3] = {75, false, false}, [4] = {60, true, false}, [5] = {45, true, false}, [6] = {30, true, false}, [7] = {25, true, false}, [8] = {20, true, true}, [9] = {15, true, true}, [10] = {10, true, true}, [11] = {10, true, true}, [12] = {5, true, true} }, O primeiro valor é chance de sucesso, o segundo se o item pode regredir na tentativa e o terceiro é se o item para "quebrar" (perder todo o nível de refino). Para criar novas ferramentas (itens) de refinar, configure a tabela abaixo:
  tools = { [8306] = {range = {0, 10}, info = {chance = 0, removeable = true}}, }, Seguindo o mesmo esquema da tabela anterior, vírgulas em todas as linhas com exceção da última, seguindo o modelo abaixo. Por exemplo, uma ferramenta de ID 8303 que refine do level +6 ao +10, que dê 10% de chance bônus e que seja finita, eu faço assim:
  tools = { [8306] = {range = {0, 10}, info = {chance = 0, removeable = true}}, [8310] = {range = {6, 10}, info = {chance = 10, removeable = true}} }, Em breve vídeo de demonstração com sistema em funcionamento.
Perfect Upgrade System.rar

OLÁ USUARIOS DO TIBIA KING .. HOJE ESTAREI TRAZENDO UMA NOVIDADE .. O SERVIDOR DE NTO EXCLUSIVO DO NTO BLACK & WHITE(AKELE OT NOVO QUE FOI CRIADO A 1 MES POR E MIN E POR O [ADM] Johnatan).
  VALE LEMBRAR QUE O NTO BLACK WHITE FOI UM DOS SERVIDORES DE NARUTIBIA QUE MAIS CRESCEU NOS ULTIMOS TEMPOS .. EM APENAS 1 SEMANA DE NTO JÁ ATINGIMOS A META DE 70 ~ 80 USUARIOS ONLINE FIXOS DIARIOS, E ESSE É O SERVIDOR MAIS RECENTE DO NTO BLACK WHITE BASEADO NO DO SERVIDOR MADARA RINNEGAN EDITADO POR MIN E POR O JOHNATA.
  ANTES DE MAIS NADA GOSTARIA DE EXPLICAR O MOTIVO DE TAR POSTANDO O SERVER .. BEM O JOHNATAN ERA QUEM FAZIA PRATICAMENTE TUDO NAS ATUALIZAÇÕES E TAALS .. POREM ELE PAROU COM NTO AI TIVE QUE DESMONTAR O NTO B&W PORQUE EU NÃO TINHA CONDIÇÕES PRA DAR CONTA DO NTO SOZINHO.
 
CHEGA DE BLABLA E VAMOS LÁ!!
 
[+] NOVIDADES & CARACTERISTICAS
[+] ERROS E BUGS
[+] PRINTS DO SERVER
[+] DOWNLOAD
[+] CREDITOS
 
[+] NOVIDADES & CARACTERISTICAS
 



 
[+] ERROS E BUGS
 



 
[+] PRINTS DO SERVER
 



 
[+] Downloads
 
Servidor Naruto B&W: Clique Aqui
Client(descompilado): Clique Aqui
 
[+] Creditos
 
- Madara Rinnegan (servidor base)
- [ADM] Johnata Editar Praticamente Todo o Servidor
- Eu Por umas Besteiras q eu Coloquei e Por Postar
 
GOSTOU DO SERVIDOR?
DA UM REP++

Fechei o Atreyu em 2013, por não conseguir conciliar o tempo do trabalho com o gerenciamento do servidor, assim resolvi fecha-lo. Estou disponibilizando todo o servidor. Gostava bastante deste mapa (31 MB).
Servidor bastante estável com mais de 500 horas de uptime, todas as vocações estão bastante equilibradas para PVP e PVM.
 
Existem 218 casas dividas em 7 cidades.
 
 
Download Link (Site/Servidor/Db/Documentos de controle):
 
Mega:
https://mega.co.nz/#F!jcVxARSI!UFycsdjTmVtcboibn5ibmg
 
Banco de dados atualizado:
atreyu-db-31-12-2014.rar
(Atualizei alguns campos que não estavam com valor default e assim não deixavam criar conta/personagem no site)
 
Contas de exemplo:
malk/123456 (GOD)
teste/123123 (Paladin)
MxSample (Não lembro a senha, a conta tem um personagem de cada vocação, quando um personagem é criado no site ele é copiado a partir do personagem desta conta)
 
 
Cidades:
Formiria Daoten Finidia Gasmaril Labaredum Mornea Ucon (VIP) Funcionalidades:
Addons funcionando 100%. Guilds Wars com Skull 100%. Montanha Russa. Sistema VIP completo. Sistema de Banco via comando. Sistema de Bless via comando. Sistema de Refinamento de Itens. Sistema de Itens únicos. Tasks. Quests:
Annihilator - LVL 100+ Assassin Outfit - Qualquer Behemoth - LVL 80+ Beholder - Qualquer Demon Oak - LVL 120+ Demon Helmet - LVL 150+ Demon Hunter Outfit - Qualquer Dragon Lord - LVL 90+ Draken Quest - LVL 180+ Elf Tree - Qualquer Giant Spider - LVL 35+ Hero - LVL 50+ Hydra - LVL 60+ Infernalist Tower - LVL 75+ Norseman Outfit - Qualquer Pits Of Inferno (POI) - LVL 80+ (Todas as alavancas na mesma ordem do global )  Sand Dragon Lord - Qualquer Warlock - Qualquer Guild Wars (Com Escudos):

Sistema igual ao do global onde uma guild pode invitar outra para entrar em guerra assim pode ser definido valores para a guild vencedora receber e todos as morte da guerra são justificadas ou seja não ganhaskull ou ban matando na war.

Sistemas:
Banco: Sistema para controle de banco através de comando, sem precisar assim de ir na cidade para sacar ou depositar dinheiro em sua conta. Itens Únicos: Cada vez que um monstro dropa algum loot existe a chance desse item ter algum atributo melhor do que o item padrão, por exemplo, pode cair uma giant sword com + 2 de ataque ou um demon shield com +3 de defesa. Refinamento: Você pode utilizar pedras especiais para melhorar a qualidade de seus itens. Renascimento: Existe um item no jogo que pode renascer um jogador morto recentemente trazendo ele para o local do seu corpo. Treinamento com Soul: As áreas de treinamento utilizam a soul do personagem, a cada 3 minutos um ponto de soul é gasto. Eventos:
Zombie Event - Todos os dias as 18h e 23h. Coliseum (PVP entre times) - Terça, Quinta e Sábado as 16 horas. Dota (Próprio) Castle War WOE Controle Frags:

Quantidade para pegar Skull:

- RED SKULL

Diario = 5
Semanal = 10
Mensal = 30
- BLACK SKULL
Diario = 5
Semanal = 10
Mensal = 30
Tempo para sair a Skull

Red Skull = 7 Dias
Black SKull = 10 Dias

Outras Informações:
Level para comprar casa: 100 Level para criar guild: 50 Protection Level: 50 Para mais fotos do mapa olhem este link de divulgação do servidor:
http://www.tibiaking.com/forum/topic/25582-86-atreyu-ots-abertura-11052013-ás-1400-guild-war-com-skull-mapa-custom/

Bom galera tava navegado num site e achei esse layout achei muito bonito, e vou posta pra vocês
 

 
 
 
Dowload:evolera.rar

Irá precisar de:2 - Label
1 - ProgressBar
-
-
Tutorial Programa:#Label:
Label1 = Renomeie para "Atualizando :"
Label2 = Deixe como está
-
#ProgressBar:
Não é necessario modificar, deixe do tamanho que quiser.
-
-
Tutorial Update:#Crie as pastas no seu FTP (Hospedagem)
www\Update\
www\Update\Versao\
-
Coloque os arquivos lá.
Configure (NomePrograma1, NomePrograma2, NomePrograma3).exe , Links conforme seu ftp do seu jeito.
-
-
Source/Código:
Imports System.Net Imports System.Security.Cryptography Public Class Form1 Dim V_Programa As String = "" Dim V_Programa2 As String = "" Dim V_Programa3 As String = "" WithEvents wb As New WebClient Dim _arquivos As String Dim _arquivos1 As String Dim _arquivos2 As String Dim _arquivos3 As String Dim _arquivos4 As String Dim int As Integer = 0 WithEvents webclient1 As New WebClient WithEvents webclient2 As New WebClient WithEvents webclient3 As New WebClient WithEvents webclient4 As New WebClient WithEvents webclient5 As New WebClient WithEvents webclient6 As New WebClient WithEvents webclient7 As New WebClient Private Function getFileMd5(ByVal filePath As String) As String Dim File() As Byte = System.IO.File.ReadAllBytes(filePath) Dim Md5 As New MD5CryptoServiceProvider() Dim byteHash() As Byte = Md5.ComputeHash(File) Return Convert.ToBase64String(byteHash) End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On Error Resume Next Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma2.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa2 = (Clipboard.GetDataObject().GetData(DataFormats.Text).ToString()) Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma3.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa3 = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Dim versaodosite1 As String = webclient1.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma.php") If versaodosite1 = V_Programa Then Dim versaodosite2 As String = webclient2.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma2.php") If versaodosite2 = V_Programa2 Then Dim versaodosite3 As String = webclient3.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma3.php") If versaodosite3 = V_Programa3 Then Label2.Text = "Não há novas atualizações!" ProgressBar1.Value = "100" MsgBox("Os arquivos ja estão atualizados!", MsgBoxStyle.Information, "") Me.Close() Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If End Sub Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted int = +1 If _arquivos.Contains("[nomedoprograma]") Then _arquivos = _arquivos.Replace("[nomedoprograma]", "") Label2.Text = "nomedoprograma.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma.exe"), Application.StartupPath & "\nomedoprograma.exe") 'Caso queira adicionar mais 1 arquivo para download so subistituir ElseIf _arquivos2.Contains("[nomedoprograma2]") Then _arquivos2 = _arquivos2.Replace("[nomedoprograma2]", "") Label2.Text = "nomedoprograma2.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma2.exe"), Application.StartupPath & "\nomedoprograma2.exe") ElseIf _arquivos3.Contains("[nomedoprograma3]") Then _arquivos3 = _arquivos3.Replace("[nomedoprograma3]", "") Label2.Text = "nomedoprograma3.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma3.exe"), Application.StartupPath & "\nomedoprograma3.exe") ElseIf _arquivos4.Contains("[Cancel]") Then _arquivos4 = _arquivos4.Replace("[Cancel]", "") Label2.Text = "ATUALIZAÇÃO CONCLUIDA !" MsgBox("Atualização dos programas foram atualizadas com sucesso !", MsgBoxStyle.Information, "") Me.Close() Else MsgBox("Erro ao atualizar arquivos tente novamente mais tarde.", MsgBoxStyle.Critical, "") End If End Sub Private Sub UpdateWC() On Error Resume Next If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma.exe") Then _arquivos &= "[nomedoprograma]" Else _arquivos &= "[nomedoprograma]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma2.exe") Then _arquivos2 &= "[nomedoprograma2]" Else _arquivos2 &= "[nomedoprograma2]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos3 &= "[nomedoprograma3]" Else _arquivos3 &= "[nomedoprograma3]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos4 &= "[Cancel]" Else _arquivos4 &= "[Cancel]" End If Call wb_DownloadFileCompleted(Nothing, Nothing) End Sub Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged ProgressBar1.Maximum = e.TotalBytesToReceive ProgressBar1.Value = e.BytesReceived End Sub End Class -
- Resultado Final:


 
-
-
Atenciosamente, Stigal.

Cara achei no forum este aqui...
 
Se ajudei Rep+
 
function onUse(cid, item, fromPosition, itemEx, toPosition) local pos = fromPosition local aqui = getPlayerPosition(cid) local vocs = {300, 301, 302, 303, 304, 305, 306, 307} local agua = {4610, 4612, 4611, 4664, 4613, 4666, 4646, 4654, 4609, 4665, 4608, 4625, 4665, 4666, 4645} local parede = {1030, 1029, 1025, 1026, 1027, 1259, 1028, 1032, 1034, 1033, 1536, 1533, 873, 919, 874, 1037, 2700, 2708, 4472, 4475, 4471, 3388, 3373, 3363, 3398, 3408, 3417, 3420, 3407, 3368, 2701, 5130, 6170, 6166, 1596, 3361, 3362, 3363, 3364, 3365, 3366, 3367, 3368, 3369, 3370, 3371, 3372, 3373, 3374, 3375, 3376, 3377, 3378, 3379, 3380, 3381, 3382, 3383, 3384, 3385, 3386, 3387, 3388, 3389, 3390, 3391, 3392, 3393, 3394, 3395, 3396, 3397, 3398, 3399, 3400, 3401, 3402, 3403, 3404, 3405, 3406, 3407, 3408, 3409, 3410, 3411, 3412, 3413, 3414, 3415, 3416, 3417, 3418, 3419, 3420, 3421, 3422} local pedra = {874, 919, 873, 2707, 2784, 2778, 3330, 4471, 4475, 4473, 4472, 4474, 4468, 4478, 4469, 4470, 4479, 2703, 2704, 1534, 2739, 3867, 5324, 5316, 5315, 5317, 1600, 1597, 1601} if getDistanceBetween(aqui, toPosition) >= 8 then return doPlayerSendTextMessage(cid, 27, "Está muito longe.") elseif(not(isSightClear(aqui, toPosition, 1))) then return doPlayerSendTextMessage(cid, 27, "Isso é impossivel.") elseif(getTilePzInfo(aqui)) then return doPlayerSendCancel(cid, "Não pode usar a tecnica Deus Dragão em casas ou areas protegidas.") elseif(getTilePzInfo(toPosition)) then return doPlayerSendCancel(cid, "Não pode usar a tecnica Deus Dragão em casas ou areas protegidas.") elseif(isInArray(agua, itemEx.itemid)) then return doPlayerSendTextMessage(cid, 27, "voce nao pode usar em agua") elseif(isInArray(parede, itemEx.itemid)) then return doPlayerSendTextMessage(cid, 27, "voce nao pode usar em paredes") elseif(isInArray(pedra, itemEx.itemid)) then return doPlayerSendTextMessage(cid, 27, "voce nao pode usar em pedras") elseif(not(isInArray(vocs, getPlayerVocation(cid)))) then return doPlayerSendTextMessage(cid, 27, "Desculpe, Apenas Minato pode usar a tecnica Deus Dragão.") end if(doTeleportThing(cid, toPosition, false)) then doSendMagicEffect(pos, 24) doSendMagicEffect(toPosition, 24) doCreatureSay(cid, "Shunshin", 19) return doSendDistanceShoot(pos, toPosition, 16) end return doPlayerSendCancel(cid, "Desculpe nao foi possivel.") end  
em Actions.xml Adicione a seguinte tag:
<action itemid="7382" event="script" value="hiraishin.lua" allowfaruse="1"/>

Seguinte, Este Script Sera Postado Somente Aqui No Tibia King.
Até Agora Nenhum Script Foi Criado Do Genero, Pelomenos Eu Nao Achei.

Bom, Se Voce Tem Algum Conhecimento Em Scripting Fique Avontade Para Fazer Alterações ;P
Ja Se Voce Nao Tiver Simplesmente Altere Oque Eu Ensinar Aqui!

Vamos Ao Que Intereça



Download Dos Scripts Para Os Preguiçosos





Creditos: 100% Beluci Gamer / EU

Ae galera fiz esse spell aqui no meu ot, funcionou 100%
 
Shadow Walker Spell By Abugaduniga
(Ghost mode spell)
 
Client Versão 8.6
OT TFS 4.0
Porem, acredito que serve em geral!
 
Sei que muita gente vai me agradecer por isso
 
 
1º Passo:
 
Abra o Spells.XML e adicione o seguinte código:
<!-- Shadow Walker by Abuga --> <instant name="Shadow Walker" words="utana vis" lvl="40" manapercent="70" exhaustion="2000" needlearn="0" event="script" value="support/shadow.lua"> <vocation id="41"/> </instant> NOTA: aonde está manapercent="70" pode ser trocado por mana="VALOR", Deixe só 1 dos dos para não dar problemas!
 
2º Passo
Crie na pasta \data\spells\scripts\support  um arquivo chamado Shadow.lua e coloque o seguinte código dentro:
function onCastSpell(cid, var) parameters = {cid=cid} setPlayerGroupId(cid, 2) doCreatureExecuteTalkAction(cid, "/ghost", TRUE) addEvent(talk, 5000, parameters) return true end function talk(parameters) doCreatureExecuteTalkAction(parameters.cid, "/ghost", TRUE) setPlayerGroupId(parameters.cid, 1) end NOTA: Na linha onde se encontra "addEvent(talk, 5000, parameters)" Troque 5000 por quantos segundos vc deseja que este spell dure (1 seg = 1000)
Na linha onde se encontra "setPlayerGroupId(cid, 2)" ela deixará o player com o groupid de senior tutor. Infelismente é o único jeito que descobri para que players não te encherguem ao usar, pois a condição ghost afeta apenas quem é inferior ao groupid do player.
 
 
3º passo
No arquivo login.lua (\data\creaturescripts\scripts) Adicione o seguinte código logo abaixo de "function onLogin(cid)"
    -- Login Cancel Invisible --     if(getPlayerGroupId(cid) == 2) then     setPlayerGroupId(cid, 1)     end     if(isPlayerGhost(cid)) then     doCreatureExecuteTalkAction(cid, "/ghost", TRUE)     end          -- end -- NOTA: Isto serve para caso o server caia, o player que está na condição ghost vire groupid 0(player) e cancele o ghostmode ao login.
É importante ressaltar também, que caso algum GM/GOD esteja ghostmode e de logout, quando der login voltará a ser visível apenas, ele NÃO terá o groupid modificado! então pode usar de boas
 
4º passo
 
Teste, compartilhe e me de REP+ xD
 
Tem apenas um Bug, que caso seu server de crash ou caia enquanto o player esteja ghostmode, é que quando ele entrar os players em volta dele tomam crash, mais apenas no primeiro login.

Nome: Outfit por vocação Função: A pedidos de um membro do forum (@Jose Peterson). Aqui está um script que caso vocês sigam passo a passo irá funcionar como o nome já diz. Exemplo: Se for (Mago, Sorcerer) usará a outfit de Mage.  
Versão: Testada somente na "10.31". (OTX Server - Galaxy) Créditos:  Kazuza - (eu) Por ter criado.
@Jose Peterson - Pela Ideia.
 
  "Pasta Servidor > Data > XML > ABRA o "Outfits.xml".
<outfit id="1"> <list gender="0" lookType="136" name="Citizen"/> <list gender="1" lookType="128" name="Citizen"/> </outfit> Vai ser assim certo? Preciso que você deixe desta forma TODOS os outifit:
 
<outfit id="1" storageId="1415" storageValue="1"> <list gender="0" lookType="136" name="Citizen"/> <list gender="1" lookType="128" name="Citizen"/> </outfit> <outfit id="2" storageId="1416" storageValue="1"> <list gender="0" lookType="137" name="Hunter"/> <list gender="1" lookType="129" name="Hunter"/> </outfit> Notou a diferença? reparou que tem (storageId="1415" storageValue="1") e no outro (storageId="1416" storageValue="1").
Continue, acrescentando isto a todos outfits e aumentando o número da storageID, quando acabar vá para o próximo passo.
 

 
"Pasta Servidor > Data > Creaturescripts > ABRA o "creaturescripts.xml".
<event type="login" name="Outfit" event="script" value="Outfit.lua"/>  
 
"Pasta Servidor > Data > Creaturescripts > Scripts > ABRA o "login.lua".
Adicione a seguinte linha antes do return true.

registerCreatureEvent(cid, "Outfit")  
 
"Pasta Servidor > Data > Creaturescripts > Scripts > CRIE  o arquivo "outfit.lua".
function onLogin(cid) local r = getCreatureOutfit(cid) local roupa = {lookHead = r.lookHead, lookBody = r.lookBody, lookLegs = r.lookLegs , lookFeet = r.lookFeet} if (getPlayerAccess(cid) <= 2) then if isPlayer(cid) then if getPlayerStorageValue(cid, 1415) == -1 then if getPlayerVocation(cid) == 0 then -- Sem vocação setPlayerStorageValue(cid,1415 ,1) -- Citzen if getPlayerSex(cid) == 0 then -- Se for homem doCreatureChangeOutfit(cid,{lookType = 136, roupa}) -- Roupa Masculina else doCreatureChangeOutfit(cid, {lookType = 128, roupa}) -- Roupa Feminina end end end if getPlayerStorageValue(cid, 1417) == -1 then if getPlayerVocation(cid) == 1 then -- Sorcerer? setPlayerStorageValue(cid,1417 ,1) -- Storage da roupa que voce quer, esta no XML/Outfits if getPlayerSex(cid) == 0 then -- Se for homem doCreatureChangeOutfit(cid,{lookType = 138, roupa}) -- Roupa Masculina else doCreatureChangeOutfit(cid, {lookType = 130, roupa}) -- Roupa Feminina end end end end end return true end




Adicionando Vocacoes/Outfits


Aqui não consta todos os Outfits para todas vocações, mas você pode adicionar. É que estava com preguiça, seguindo o exemplo:
if getPlayerStorageValue(cid, 1415) == -1 then -- A STORAGE DA ROUPA QUE VOCE QUER, XML/OUTFIT if getPlayerVocation(cid) == 0 then -- O NUMERO DA VOCACAO setPlayerStorageValue(cid,1415 ,1) -- A STORAGE DA ROUPA QUE VOCE QUER, XML/OUTFIT if getPlayerSex(cid) == 0 then doCreatureChangeOutfit(cid,{lookType = 136, roupa}) -- Roupa Masculina else doCreatureChangeOutfit(cid, {lookType = 128, roupa}) -- Roupa Feminina end end end  
 
PS: O script tava formatado certo, essa bosta tirou a formatação.

Seguinte, Este Script Sera Postado Somente Aqui No Tibia King.
Até Agora Nenhum Script Foi Criado Do Genero, Pelomenos Eu Nao Achei.

Bom, Se Voce Tem Algum Conhecimento Em Scripting Fique Avontade Para Fazer Alterações ;P
Ja Se Voce Nao Tiver Simplesmente Altere Oque Eu Ensinar Aqui!

Vamos Ao Que Intereça



Download Dos Scripts Para Os Preguiçosos





Creditos: 100% Beluci Gamer / EU

Seguinte, Este Script Sera Postado Somente Aqui No Tibia King.
Até Agora Nenhum Script Foi Criado Do Genero, Pelomenos Eu Nao Achei.

Bom, Se Voce Tem Algum Conhecimento Em Scripting Fique Avontade Para Fazer Alterações ;P
Ja Se Voce Nao Tiver Simplesmente Altere Oque Eu Ensinar Aqui!

Vamos Ao Que Intereça



Download Dos Scripts Para Os Preguiçosos





Creditos: 100% Beluci Gamer / EU

Galera do TibiaKing venho aqui trazer o Servidor Global Compacto, criado normalmente por Soldoran, Agradecimentos a ele. Espero que a galera do Tibiaking possa fazer o Download do Servidor, Quanto mais conteúdo o TibiaKing tiver melhor para o seus úsuarios tiverem acessos e criarem coisas novas.












info:




O server consiste em tentar ofereçer as pessoas que não podem suportar um global full,um server leve,com oque muitas pessoas gostao que é os Teleportes,entao o projeto tras um server com hunts globais,quests globais,cidades globais,aproveitando principalmente as melhores hunts as melhores quests,deixando assim o server bem mais leve,e claro com a facilidade dos Teleportes.Peguei Carlin Apenas e começei do 0 editando,então esse é o unico servidor assim que vocês vao ver por ai!








Changelog

V1.0
Cidades

+ Carlin
+ Thais
+ Npcs nas cidades igual o global e alguns editados
+ Sistema de Addon Igual Global
+ Items de Addons Compra no Npc Bulma,todos com preços reformulados,para dificultar mais ainda ao fazer os addons
+ Sistema de Parcel para as Cidades 100%

Quests

+ Desert Quest
+ Banshee Quest
+ Firewalker Boots Quest
+ Hota Quest
+ Anihilator Quest
+ Pits of Inferno Quest
+ Inquisition Quest
+ Yalahar Quest
+ Demon Helmet Quest
+ Demon Oak Quest
+ The Epiphany e Winged Helmet Quest [new]
+ Solar Axe e Great Shield Quest [new]

Teleportes
+ 30 Teleportes hunts igual o Global
+ Teleportes de Demons e Heros Aumentados
+ Apenas Teleportes das Hunts mais usadas
+ E algumas hunts melhoradas

Sistema Premium[VIP]
Ao Inves de Fazer um Sistema Vip,pensei em usar a premium mesmo,com ela você pode ter acesso a nova cidade Premium[VIP]
+ Premium[VIP]comprando pelo !buypremium [Valor 5kk]
+ Acesso a Area Premium Pelo Npc Premium Teleporter
+ Troca de Sexo
+ 38 Teleportes para hunts
+ Hunts com respaw de 30 segundos
+ Sistema de Trainers com 4 Trainers com Fast Ataque
+ Varias Houses grandes espalhadas pela cidade
+ Hunts,a maioria areas grandes


V1.3
Reformulado area,de teleportes
Arrumado o tp de thais para os trainers que estava bugado
Arrumado 2 erros de spawn,que apareçia quando iniciava o ot
Arrumado alguns erros no mapa
Bk Quest Adcionada
Fibula Quest Adcionada
Bs quest Adcionada
Noble armor quest adcionada
Mapa size almentado para 4200x4200
Bug dos Amuletos e rings infinitos arrumados
Bug do Aol agora funcionando


V1.7
Corrigido bugs no mapa
Adcionada Cidade Farmine
Adcionada Cidade Yalahar
Area de Quests reformulada
Area das Cidades reformudala
Alterado level inicial,agora começa level 8
Alterado equipamentos iniciais
Alterado level nas portas das quests igual global
Reconpensa da yalahar quest igual global
Quase 300 houses
sistema de buy aol,fale !buy aol e vá até a ilha do Eremo
sistema de Quest look(de look e veja quantas quests tem feita) BY Saymon14
retirado npc que vendia amuletos e rings
Reformulada algumas Quests
Teleportes da Poi,todos corrigido
Npc que vendia amuletos e rings,retirado
Revisão no script da quest de fibula
Arrumado o Comando !frags
Stone Skin Amulet 80% diminuido para 10% de protect


V2.4
+ Corrigido corpos de alguns monstros
+ Corrigido pequeno bug nos trainers
+ Corrigido um item de addon no npc Varkhal
+ Corrigido pequeno bug no teleport de dragons da area vip
+ Corrigido porcentagem da penalidade de morte
+ Corrigido bug da spear,agora ela não quebra
+ Adcionado hunt Orcs
+ Adcionado novos items no npc Bulma
+ Adcionado Hunt Trolls
+ Adcionado mais monstros no buero de carlin
+ Adcionada Cidade Ab'dendriel
+ Adcionado Trainers 2
+ Adcionado Npc Lector nos trainers(food seller)
+ Adcionado comando para formação de guilds
+ Area De dwarfs Adcionada (dwarf mines)
+ Area de cyclops adcionada
+ Area de Amazon Adcionada (amazon camp)
+ Expanção na Area de Teleportes
+ Orc Fortress Quest Adcionada
+ Templo de Thais Reformulado
+ Teleport para Thais arrumado,vai para o barco como os outros


V2.7
sistema de recompenças ao alcançar tal level
Alguns bugs no mapa corrigidos
talkaction de rank alterado para um melhor
Systema de Parcel corrigido,todos dps corrigidos de acordo com sua city
Principais Djins Adcionado,Nah'Bob e Alesar
Npc que repara firewalker boots adcionado
Debugs que ocorriam no god ao trocar outfit corrigidos
Corrigidos alguns erros na area de teleport
Nova Cidade Darashia Adcionada
Hunt de Minotaurs Adcionado
Hunts de Macacos Adcionado
Vampire Quest Adcionada
Blue legs Quest Adcionada


V3.0
+ Todos items vip players apartir do level 8 podem usar
+ Sistema de Guilslist,sabia quais as guilds do servidor,e quem esta em sua guild(by Vodkart)
+ !online inovador modificado (by gustavo010)
+ Bug das runas corrigido
+ Novo distro mix Yourots
+ Corrigido Items que caia ao criar novo knight
+ Adcionado Tortoise hunt(liberty bay)
+ Adcionado Pirate hunt(liberty bay)
+ Adcionado Earth Elemental hunt(edron)
+ adcionado demon hunt(edron)
+ Adcionado Cyclops hunt(edron)
+ Adcionado Grim Reaper e Nightmare hunt(yalahar)
+ Adcionado Adept of the Cult hunt(yalahar)
+ Adcionado Demon hunt(yalahar)
+ Adcionado Demon hunt 2(yalahar)
+ Adcionado Mutated Bat hunt
+ Adcionado Worker Golem hunt
+ Adcionado Behemoth hunt
+ Adcionado Behemoth Quest


V3.4
+ Nova Quest Wrath of the Emperor/The New Frontier Quest[tudo uma só]
+ Corrigidos alguns erros no mapa
+ Adcionado Pz em algumas locais de npc
+ Adcionado efeitos na hora de up level
+ Adcionado addons nos npcs de carlin
+ Pequenas Edições no mapa
+ Dialogo de todos Npcs foram revisados e alterados
+ Novos Efeitos nos Teleportes
+ Corrigido cap do knight
+ Corrigido addons do outfit warmaster
+ Corrigido pequeno erro no distro quando god logava
+ Novo Sistema,mostando Top Frags online[!topkill]
+ Novo Evento Blood Castle[sim igual do Mu]
+ Revisado comando de comprar aol,agora pode usar [!aol !buyaol]
+ Revisado script de comprar bless
+ Sistema de Refinamentos de Items Adcionado
+ Database corrigida,sem erros,podendo deletar contas,players,etc..
+ Novo Templo,mais espaçoso
+ Pasta globalevents,certos arquivos mudados,outros sem uso deletados
+ Mais um efeito na hora de morrer xD
+ Todos npcs que vendem joias,fora retirados,para evitar bug de money
+ Corrigido bug do npc que recarrega firewalker,agora ele recarrega mesmo
+ Adcionado novo mapa para wars,opens[não perde level ao morrer]


V3.6
+ Mais 2 npcs djins adcionados
+ Nova sala de Treiners
+ Templo com mais detalhes
+ Corrigido a venda de aol no eremo
+ Agora Premium é de Graça
+ Adcionado Sistema de VIP (by Vodkat)
+ Adcionado Exp para VIP (by vodkat)
+ Adcionado Cidade Venore
+ Corrigido pequenos bugs do mapa
+ Distro Limpo,sem Erros
+ Nova entrada para Area Vip
+ Players Vips ganha,[Vip]no nome
+ Corrigido Depot de Liberty Bay










V4.0


+ Vip retirada
+ Adcionada Cidade Port Hope
+ Adcionada cidade Edron
+ Adcionada Cidade Ankrahmun
+ Adcionada Cidade Svargrond
+ todos npcs das cidades igual global
+ Todas Houses das novas cidades Corrigidos
+ Alguns Bugs do mapa Corrigidos
+ Distro Limpo sem erros


V4.2
+ Npc Oldrak vendendo hallowed axe
+ Retirado Todos npcs de bank e joias para evitar bugs com grana
+ Cidades Registradas no Town ID
+ Depot de todas as novas Cidades Corrigidos
+ Bug de Grana do Rashid corrigido
+ Corrigido cordenada do teleport para sala das Cidades
+ Bugs do Mapa
+ Novo Distro


Distro Fixe V4.3 [09/01/2012]
V4.3
+ Retirado distro da Styller Yourots [muito virus]
+ Adcionado Distro Antigo da Mix Yourots








Créditos.



Créditos:



EddyHavoc (Edição e Publicação)



Soldoran (Criação Base)



Mix Yourots (Distros)




Download



Clique Aqui



Scan



Aqui

Listão de Talkactions é Actions TK "2014"
 
--2011--
 
Nome do Tópico: Character Info
Autor: Doughell
Link do Tópico: http://tibiaking.com...character-info/
Comentário:

 

Nome do Tópico: Dungeon Finder
Autor: Guilherme
Link do Tópico: http://tibiaking.com...dungeon-finder/
Comentário:

 

Nome do Tópico: Gate System
Autor: Doughell
Link do Tópico: http://tibiaking.com...60-gate-system/
Comentário:

 

Nome do Tópico: Portal WoE
Autor: Doughell
Link do Tópico: http://tibiaking.com...353-portal-woe/
Comentário:

 

Nome do Tópico: Sistema de Forja
Autor: Lpz
Link do Tópico: http://tibiaking.com...stema-de-forja/
Comentário:

 

Nome do Tópico: [Action] Removedor de Frags
Autor: Matheus
Link do Tópico: http://tibiaking.com...vedor-de-frags/
Comentário:

Nome do Tópico: [Action] Stamina Doll
Autor: AgaSsI
Link do Tópico: http://tibiaking.com...s-stamina-doll/
Comentário:

 

Nome do Tópico: [Actions] Potions Baseadas no Level
Autor: AgaSsI
Link do Tópico: http://tibiaking.com...eadas-no-level/
Comentário:

Nome do Tópico: Gesior ACC - Postando Ticker in Game
Autor: Renato
Link do Tópico: http://tibiaking.com...ticker-in-game/
Comentário:

 

Nome do Tópico: Remover Pedra com Alavanca
Autor: Kimoszin
Link do Tópico: http://tibiaking.com/forum/topic/9261-action-remover-pedra-com-alavanca/
Comentário:

Nome do Tópico: [Action] Addons Em Quest
Autor: AgaSsI
Link do Tópico: http://tibiaking.com...dons-em-quests/
Comentário:

Nome do Tópico: Proibir Palavrões
Autor: Matheus
Link do Tópico: http://tibiaking.com...ibir-palavroes/
Comentário:

Nome do Tópico: Resete Sistem
Autor: macnowfhael
Link do Tópico: http://tibiaking.com...-resete-sistem/
Comentário:

Nome do Tópico: GOD que da BLESS
Autor: Matheus
Link do Tópico: http://tibiaking.com...bless-para-god/
Comentário:

Nome do Tópico: [Action] Scroll de Level
Autor: Augusto
Link do Tópico: http://tibiaking.com...croll-de-level/
Comentário:

Nome do Tópico: [Action] Sistema de Mineração
Autor: Matheus
Link do Tópico: http://tibiaking.com...a-de-mineracao/
Comentário:

Nome do Tópico: [TalkAction] Buy Aol
Autor: Kimoszin
Link do Tópico: http://tibiaking.com...action-buy-aol/
Comentário:

Nome do Tópico: [TalkAction] Addon Doll
Autor: Kimoszin
Link do Tópico: http://tibiaking.com...ion-addon-doll/
Comentário:
  --2012,2013 & 2014--  
[Action] Temple Cleaner Automatico
Autor: GodFather
Topico: Topico Official
Tipo: Action

[Action] Mount System 1.4 - 100% Inovador
Autor: Matheus
Topico: Topico Official
Tipo: Action

[Action] Item Que Da Experience e Dinheiro
Autor: Slaake
Topico: Topico Official
Tipo: Action

[Talkaction] Item Por Vocaçao
Autor: TonyPlyson
Topico: Topico Official
Tipo: Talkaction

[Talkaction] Shop System [!sell-!buy] Facil Configuraçao
Autor: Matheus
Topico: Topico Official
Tipo: Talkaction

[Talkaction] Comando Para Comprar Bless
Autor: Matheus
Topico: Topico Official
Tipo: Talkaction

[Talk] Comando Mute/Desmute
Autor: Vodkart
Topico: Topico Official
Tipo: Talkaction

[Talkaction] Pet System ! Tfs = 0.3.4
Autor: DevilMoon
Topico: Topico Official
Tipo: Talkaction

[Talkaction] Transformar
Autor: AvuEnja
Topico: Topico Official
Tipo: Talkaction

[Action] Quest Se O Player For Level (Desejado)+

Autor: TonyPlyson
Topico: Topico Official
Tipo: Action

[Action] Comprando Item Por Chest (Bau)
Autor: Slaake

Topico: Topico Official
Tipo: Action

[Action] Adquirindo Group Por Item
Autor: Slaake

Topico: Topico Official
Tipo: Action

[Action] Novo Gold
Autor: Slaake

Topico: Topico Official
Tipo: Action

[TalkAction] Magia Que Se Transforma Em Item
Autor: Slaake

Topico: Topico Official
Tipo: Talkaction

[Talkaction] Comprando Soul
Autor: Slaake

Topico: Topico Official
Tipo: Talkaction

[Talkaction] Comprando Premium Tile
Autor: Slaake

Topico: Topico Official
Tipo: Talkaction

[Talkaction] Comprando Uma Nova Vocation Por COmando
Autor: Slaake

Topico: Topico Official
Tipo: Talkaction

[Talkaction] Comprando ExperieNce Por Comando
Autor: Slaake
Topico: Topico Official
Tipo: Talkaction


[Talkaction] Addon Doll
Autor: Kimoszin
Topico: Topico Official
Tipo: Talkaction

[Action] Retirar Lixo e Ganhar Item
Autor: Kimoszin
Topico: Topico Official
Tipo: Action

[Action] Caça Niquel
Autor: EddyHavoc
Topico: Topico Official
Tipo: Action

[Action] Ramdom Box
Autor: EddyHavoc
Topico: Topico Official
Tipo: Action

[Talk] DeathList Para Server Sqlite 1.0
Autor: Vodk
art
Topico: Topico Official
Tipo: Talkaction

[Action] Aqua System
Autor: EddyHavoc
Topico: Topico Official
Tipo: Action

[Action] Lenhador - Lumber Jack
Autor: EddyHavoc
Topico: Topico Official
Tipo: Action

[Action] Quest De Addons Funcionando
Autor: EddyHavoc
Topico: Topico Official
Tipo: Action

[Talkaction] Create Teleport
Autor: SkyForever
Topico: Topico Official
Tipo: Talkaction

[Action] Desenterrando Mortos
Autor: Kimoszin
Topico: Topico Official
Tipo: Action

[Action] Mining System
Autor: Vittu
Topico: Topico Official
Tipo: Action

[Action] Quest que Ganha Crystal Coins Equivalente Ao Level
Autor: Renato
Topico: Topico Official
Tipo: Action
 
[Action] Alavanca de Itens Aleatória!
Autor: Halls Santos
Topico: Topico Official
Tipo: Action
 
[Action] Adicionar premium points ao usar x item
Autor: ViiTinG
Topico: Topico Official
Tipo: Action
 
[Action] Rare Candy
Autor: principe sharingan
Topico: Topico Official
Tipo: Action
 
[Action] Canoa em Movimento
Autor: ViiTinG
Topico: Topico Official
Tipo: Action
 
[Action] Item que faz poke selvagem aparecer
Autor: lucaslsre
Topico: Topico Official
Tipo: Action
 
[Talkactions] Sistema de Jail!
Autor: ScreMMo(eu)
Topico: Topico Official
Tipo: Talkaction
 
[Talkaction] [Proibir Palavras] Anti Divulgação
Autor: Absolute
Topico: Topico Official
Tipo: Talkaction
 
[Action] Trocar 100 Demon Dust's por demon armor
Autor: Vills
Topico: Topico Official
Tipo: Action
 
[Action] [TFS 1.0] Frag Remover
Autor: luanluciano93
Topico: Topico Official
Tipo: Action
 
[Talkaction] !addlevel [Comando para dar level]
Autor: Absolute
Topico: Topico Official
Tipo: Talkaction
 
[Talkaction] Mandar mensagem para a pasta do servidor
Autor: ViiTinG
Topico: Topico Official
Tipo: Talkaction
 
[Talkaction] Adicionar ou Remover VIP Do player
Autor ViiTinG
Topico: Topico Official
Tipo: Talkaction
Creditos: Jeff Owns - 35% Topico de 2012 & 2013 ScreMMo(Eu) - 30% do topico, adicionei os novos topicos Doughell - 35 - Topico de 2011 GOSTOU? REP+

vai em actions/scripts e copie um arquivo e renomeie para hirashin e cole isso nele:
 
function onUse(cid, item, fromPosition, itemEx, toPosition)   local pos = fromPosition local aqui = getPlayerPosition(cid) local vocs = {300, 301, 302, 303, 304, 305, 306, 307} local agua = {4610, 4612, 4611, 4664, 4613, 4666, 4646, 4654, 4609, 4665, 4608, 4625, 4665, 4666, 4645} local parede = {1030, 1029, 1025, 1026, 1027, 1259, 1028, 1032, 1034, 1033, 1536, 1533, 873, 919, 874, 1037, 2700, 2708, 4472, 4475, 4471, 3388, 3373, 3363, 3398, 3408, 3417, 3420, 3407, 3368, 2701, 5130, 6170, 6166, 1596, 3361, 3362, 3363, 3364, 3365, 3366, 3367, 3368, 3369, 3370, 3371, 3372, 3373, 3374, 3375, 3376, 3377, 3378, 3379, 3380, 3381, 3382, 3383, 3384, 3385, 3386, 3387, 3388, 3389, 3390, 3391, 3392, 3393, 3394, 3395, 3396, 3397, 3398, 3399, 3400, 3401, 3402, 3403, 3404, 3405, 3406, 3407, 3408, 3409, 3410, 3411, 3412, 3413, 3414, 3415, 3416, 3417, 3418, 3419, 3420, 3421, 3422} local pedra = {874, 919, 873, 2707, 2784, 2778, 3330, 4471, 4475, 4473, 4472, 4474, 4468, 4478, 4469, 4470, 4479, 2703, 2704, 1534, 2739, 3867, 5324, 5316, 5315, 5317, 1600, 1597, 1601}   if getDistanceBetween(aqui, toPosition) >= 8 then return doPlayerSendTextMessage(cid, 27, "Está muito longe.")   elseif(not(isSightClear(aqui, toPosition, 1))) then return doPlayerSendTextMessage(cid, 27, "Isso é impossivel.")   elseif(getTilePzInfo(aqui)) then return doPlayerSendCancel(cid, "Não pode usar a tecnica Deus Dragão em casas ou areas protegidas.")   elseif(getTilePzInfo(toPosition)) then return doPlayerSendCancel(cid, "Não pode usar a tecnica Deus Dragão em casas ou areas protegidas.")   elseif(isInArray(agua, itemEx.itemid)) then return doPlayerSendTextMessage(cid, 27, "voce nao pode usar em agua")   elseif(isInArray(parede, itemEx.itemid)) then return doPlayerSendTextMessage(cid, 27, "voce nao pode usar em paredes")   elseif(isInArray(pedra, itemEx.itemid)) then return doPlayerSendTextMessage(cid, 27, "voce nao pode usar em pedras")   elseif(not(isInArray(vocs, getPlayerVocation(cid)))) then return doPlayerSendTextMessage(cid, 27, "Desculpe, Apenas Minato pode usar a tecnica Deus Dragão.") end   if(doTeleportThing(cid, toPosition, false)) then doSendMagicEffect(pos, 24) doSendMagicEffect(toPosition, 24)   doCreatureSay(cid, "Shunshin", 19) return doSendDistanceShoot(pos, toPosition, 16) end   return doPlayerSendCancel(cid, "Desculpe nao foi possivel.") end     agora em actions.xml vcs add:   <action itemid="7382" event="script" value="hiraishin.lua" allowfaruse="1"/>