UnknowLoad

testa ai 
local config = { posicao = { x = 1168, y = 731, z = 13}, -- Posição em que o player deve estar no altar need = { {item=2140,p={ x = 1295, y = 719, z = 13}},{item=2140,p={ x = 1296, y = 719, z = 13}},{item=2140,p={ x = 1297, y = 719, z = 13}},{item=2140,p={ x = 1295, y = 719, z = 13}} }, teleporte = {1387, { x = 1209, y = 818, z = 13}, { x = 1850, y = 481, z = 12} }, -- { id do Teleporte / onde será criado o teleporte / onde irá teleportar } tempo = 5000 -- Tempo para que o teleporte desapareça } function removeTP() doRemoveItem(getTileItemById(config.teleporte[2], config.teleporte[1]).uid) end function onUse(cid, item, fromPosition, itemEx, toPosition) local pId = getTopCreature(config.posicao).uid if ( pId == 0 or not isPlayer(pId) ) then return true and doPlayerSendCancel(cid, "You need to stay on the correct floor.") end local items_check = {} for p, v in pairs(config.need) do local posiItem = getTileItemById(v.item, v.p) if posiItem ~= 0 then table.insert(items_check,posiItem.uid) end end if not #items_check == #config.need then return true and doPlayerSendCancel(cid, "You need to put all items on the floors.") end for p, v in pairs(items_check) do if v then doRemoveItem(v) end end doCreateTeleport(config.teleporte[1], config.teleporte[3], config.teleporte[2]) doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) addEvent(removeTP, config.tempo) return true end  

local config = { posicao = { x = 1168, y = 731, z = 13}, -- Posição em que o player deve estar no altar item = {{2175,{x=1298, y=720, z=13}},{2455,{x=1292, y=719, z=13}},{2140,{x=1295, y=719, z=13}}}, -- id do item e pos teleporte = {1387, { x = 1209, y = 818, z = 13}, { x = 1850, y = 481, z = 12} }, -- { id do Teleporte / onde será criado o teleporte / onde irá teleportar } tempo = 5000 -- Tempo para que o teleporte desapareça } function removeTP() local t = getTileItemById(config.teleporte[2], config.teleporte[1]).uid return t > 0 and doRemoveItem(t) and doSendMagicEffect(config.teleporte[2], CONST_ME_POFF) end function onUse(cid, item, fromPosition, itemEx, toPosition) local items = {} local pId = getTopCreature(config.posicao).uid if pId == 0 or not isPlayer(pId) then doPlayerSendCancel(cid, "Posição invalida!") return true end for _, k in ipairs(config.item) do local v = getTileItemById(k[2], k[1]) if v.uid == 0 then doPlayerSendCancel(cid, "Todos os itens precisão estar na posição.") return true end table.insert(items, v) end for _, remove in ipairs(items) do doRemoveItem(remove.uid) end doCreateTeleport(config.teleporte[1], config.teleporte[3], config.teleporte[2]) doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) addEvent(removeTP, config.tempo) return true end  

Cara, creio eu que tem sim, já vi muitos admins de pda adaptarem sources pra seu ot, claro que como se vai gerar uma nova distro, ela não vai vim como a distro do seu entende ? vc teria que adaptar ela com os sistemas. por que se não ela nem deixaria on, já aconteceu um caso comigo que a distro até deixava on, mas quando ia logar no server, ele caia

local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"
 
 
 
checou pra ver se tem esse arquivo no seu servidor?

vai em data/npc/script copie um arquivo e renomeie para trocamilotic.lua e cole isso
 

depois vai em data/npc copie um arquivo e renomeie para trocamilotic.lua
e cole isso dentro
 

OBS: ONDE TEM AS ???????<<<<<< INTERROGAÇÃO VOCE COLOCA A ROUPINHA QUE QUER QUE O NPC TENHA, 
PARA VER AS ROUPINHAS ABRA SEU CLIENT COM OBJECT BUILDER E VAI EM OUTFFITS E ESCOLHA UMA

PARA CHAMAR O NPC VOCE PODEUSAR O /n trocamilotc
ou pode colocar no mapa pelo remeres

Essa resolução visa reduzir o lag na hora de mapear.
Dicas:
Leve em consideração que um mapa de 100MB necessita em torno de 4GB de memória, um de 200MB, 8GB e assim vai. Mapear com minimap aberto ajuda a travar o mapa. Quando for mapear, feche outros aplicativos. Faça backups frequentes, (Se usar um CPU cuidado com quedas de energia, pode corromper seu mapa ao desligar). Use a última versão lançada para evitar erros.  
Mas como posso fazer para que o Map Editor trave menos?
Com o Remeres aberto, vá em File - Preferences - General. Em File – Preferences – General você deverá configurar Undo Queue Size: Aqui vai o valor (em MB) da metade da memória ram de seu pc (caso queira coloque mais). Undo maximum memory size (MB):  Tamanho máximo de memória que o RME poderá utilizar, aumente para metade da memória ram de seu pc (caso queira coloque mais). Worker Threads: Número de núcleos de processador que o RME pode utilizar, nessa parte depende se seu processador, caso seu pc só tenha um núcleo deixe apenas um, caso tenha 2, deixe 2 e se for maior que isso deixe o tanto que você preferir.  
Aplique, reinicie o editor e teste as novas configurações. Se ainda não funcionar, faça uma limpeza de hardware/software, atualize seus drivers ou compre um PC melhor.

local id1 = 12468 --id do item a ser trocado local stor = 4150 -- storage que o npc vai adr pelo item local quantidade = 150 -- quantos itens player deve ter para trocar por storage local palavra = "battle" --palavra chave pra falar com o npc pra trocar a storage local mensagem = "You need to be prepared for this fight, bring more {Minor Crystalline Token}." -- a mensagem que deve ser dita se ele não tiver o item local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function playerHaveItems(cid, itemid) local items = type(itemid) == "table" and itemid or {itemid} for i = 1, #items do if getPlayerItemCount(cid, items[i]) <= 0 then return false end end return true end function doPlayerRemoveItems(cid, itemid, count) local items = type(itemid) == "table" and itemid or {itemid} for i = 1, #items do doPlayerRemoveItem(cid, items[i], count ~= nil and count or 1) end return nil end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end if msgcontains(msg, palavra) then if playerHaveItems(cid, {id1}) then doPlayerRemoveItems(cid, {id1}, quantidade) setPlayerStorageValue(cid, stor, 1) else selfSay(mensagem) end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) Vê aí.

Venho através desse POST, disponibilizar para vocês duas DLL's, uma de poke e move bar, e a outra consiste em um sistema de som, para old client!
(POKETIBIA)
 
1º Baixe as Dll's aqui -> Download
scan: aqui
 
2º Baixe o Stude_PE aqui -> Download
scan: aqui
(OBS: OS SCANS REGISTRAM IRREGULARIDADES, PORÉM FALANDO DE UM PROGRAMA QUE FAÇA INJEÇÃO E MODIFICAÇÕES EM EXE, E DLL'S, É SEMPRE DIFÍCIL VER ALGO 100% LIMPO OU SEJA SÃO AMEAÇAS INOFENSIVAS)
 
3º Siga o Tutorial, para fazer a instalação. OBS: Pode ser que não funcione em todos devido às config. de sua Base!
 
 
 
Créditos:
Eu - Por Fazer o Tutorial e disponibilizar
Nest Silva - Dono do Server, o qual eu encontrei as DLL's(PokeIlusion)
Não encontrei o Responsável, por essas DLL's, porém à ele pertence os Créditos

Ahhh, então é muito simples
 
 
1º Assim que e você pagar o seu VPS eles vão te enviar um Email contendo as informações do seu VPS (IP/Log/Senha)
 
 
2º Pesquise esse programa no seu computador ( Conexão da Área de trabalho remota ),

 
 
3º agora clique nele, feito isso ele irá abrir uma aba 

Onde a seta preta está apontando você irá colocar o IP que o site te entregar, feito isso basta clicar em conectar.
 
 
4º Irá abrir uma aba parecida com esta 

 
 
5º Em "Nome do usuário" você coloca o login que o seu serviço vai te entregar .
e em "Senha" você coloca a senha que o seu serviço vai te entregar .
feito isso Clique em "OK"
 
6º Irá abrir o seu dedicado, então basta clicar no navegador padrão e baixar o seu servidor (Você hospeda ele em algum site para baixar pelo dedicado)

Olá Galerinha como eu estou " Bonzinho Hoje " heuheu venho aqui ter a honra de passar para vcs vários itens do PXG, é isso mesmo que vc leu
 
e quais são esses itens ? ( Sabem aquele novo cp que o Pxg tem ? aquele bonito que teve agr no update ? Ss é ele mesmo, fora outros itens muito massas que vou deixar os prints )
 
Obs: coloquei esse tópico nessa área por causa que no tópico " Download De Sprites " n ta podendo + criar tópico lá, então Agradeço se moverem pra o lugar Certo
 
Link do download --->>> http://www.mediafire.com/download/9v349c4kjdv94s1/Sprites+fodas.rar
Scan --->>>https://www.virustotal.com/pt/file/c16b849d74e50f467c2a048957e7b604016d2cfdd5b218b34ba86115a92b06b8/analysis/1430576442/
 
Obs: quando for abrir no Object Builder vc precisa marcar as opções Estendido e Transparência

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 H" Fiz várias Ediçoes no Servidor Que Baixei aqui no Tibia King Mesmo e vim disponibilizá-los para vocês.
                                                                               Então bora ao que interessa né?
 
               
 
 
• Menu:
├ Informações;
├ Edições;
├ Erros;
├ Prints;
├ Mapa
├ Download;
├ Atualização;
├ Utilitários;
└ Créditos.
 
 
                                                   
 
 • Informações Básicas •
 
 
 
  
 
• Edições / Ajustes •
 
 
 
 
 
• Erros do Servidor •
 
 
 
 
 
 
• Prints•
 
 
 
 
  
 
• MAPA •
 
 
 

 
• Downloads •
 
Cliente * MediaFire e Scan
 
 
Servidor * MediaFire e Scan 
 
 
 

 
• Download Atualização 2.0 •
 
 
Download: https://www.mediafire.com/?ik211gku2hdqz2t
 
Scan : 
 

 
• Download Atualização 3.0 • 2016
 
 
 
                                                   OBS: NÃO TERÁ MAIS EDIÇÕES. 
 
  
 
• Utilitários  •
 
Remeres que usei pra editar: AQUI
 
 
 
 
 
• Créditos •
 
 Brun Por Criar o Servidor
Slicer Por Editar o Servidor
Mulurka (pelas out)
Stylo pelo tuto do ícone system
noninhu por ajudar em alguns spells
tem 2 caras tbm eu eskeci o nome deles agora que ajudaram 1 com as insignias na barra de skill e o outrio pelas scripts da liga pokemon
dandanrvb pelas scripts do icone system
erondino por algumas caves
 ih é só bjundão a all 
Vudi (Eu) Por editar o resto do servidor e trazer as novidades
Tioj Pelas edições e Por fazer eu copiar a organização do tópico dele kk obg
Kuuhaku pela cave dos geot .
Held Itens By Gabriel Sales
Gabriel Sales AnnaFeeh pelo script do ditto system pxg
 
 

 
Obs: Se Está faltando algum crédito me avise pra mim colocar ( Não sei se está faltando algum)
Obs: Qualquer Outra Duvida Estarei de Suporte no Tópico
Obs: SENHA GOD/GOD 
 
OBS : Se Pegar o Servidor e Postar em Outro Fórum sem as minhas permissão vou pedir para o dono do forum ou site retirar o conteúdo . (Esse Conteúdo é exclusivo do TibiaKing obrigado)
 
 
Se ajudei Já sabe né  
   

1º Baixem os Seguintes Downloads Necesarios!, esse download ja tem scam e tbm eos dois items necesarios para fazer a troca de fundo !
 
http://www.4shared.com/file/1282Z53E/Pic_Editor_Imagens_Pic_Ventura.html
 
1º abra o pic editor.
 
2º click em browse, va ate a pasta do seu client! 
EXEMPLO : C:\Arquivos de programas\Tibia
 
3º Ira ter um icone, tibia.pic click nele é em seguida click em extract.
 
4º Va ate a pasta que esta o Pic Editor, La ira apareser umas imagens, A que se chama 0.bmp_file ea que você ira troca Ela ea imagem do FUNDO do seu client,
agora extraia ( extrair ) As ( Imagens Pic Ventura ) aonde esta as imagens 0.bmp.file, 1.bmp.file, 2.bmp.file, 3.bmp.file, 4,.bmp.file ,5 .bmp.file, 6.bmp.file é 7.bmp.file
 
5º ja extraio as imagens pic ventura agora abra seu pic editor novamente é click em ( Compile ) ira aparescer um tibia.pic agora click em browse é bote no tibia.pic que esta na pasta aonde tem as imagens (  0.bmp.file, 1.bmp.file, 2.bmp.file, 3.bmp.file, 4,.bmp.file ,5 .bmp.file, 6.bmp.file é 7.bmp.file ) e depois é so click em Extract. 
Agora Você ira subistituir o Tibia.pic que do seu client pelo que esta na pasta do Pic Editor!
 
 
 
 
 
Obs : Eu Textei Ne Client de Tibia, é ne client de Poketibia! é pego tudo certinho duvidas! fala ae que eu respondo!
 
 
Creditos :
Samuelssamu
Manoel! e.e

Scripting Dictionary

Antes de tudo
Olá comunidade Tibia King. Venho através desse tutorial facilitar a vida de muitos scripters.
Trago a vocês o Scripting Dictionary. Uma forma mais simples de entender aquelas siglas ou palavrinhas chatas encontradas em todos os scripts e que poucas pessoas sabem o significado ou o motivo de estar ali.
Vocês também podem ajudar a aumentar o conteúdo desse dicionário enviando-me as palavras que vocês gostariam de serem adicionadas. Para isso, poste nesse mesmo tópico.
Estou disposto a atualizar sempre que for preciso o tópico, mas, caso algum imprevisto aconteça, a moderação está liberada para editar, adicionando dicas e palavras, sempre seguindo o mesmo padrão de postagem, enfatizando as palavras. Assim teremos uma melhor organização.
Por fim, gostaria que todos os scripters, experientes ou não, e principalmente os que estão iniciando sua possível carreira na área, dentro da comunidade TK, lessem e corrigissem, se necessário.





Começando


array
Array é uma variável onde há dois ou mais valores. É conhecido como vetor ou lista. Dependendo do caso, também pode ser conhecida como matriz. Cada valor dentro da array tem sua posição que é dada por um índice e que, geralmente, segue uma sequência de números inteiros. Pode ser local ou global.
Exemplo: local arr = {1, 2, "valor 3", 503, variavelTeste}

cid
Normalmente uma variável onde é atribuida a identificação da criatura que, em muitos casos, está executando o script. A sigla cid vem do inglês Creature Identification.
Exemplo: if isPlayer(cid) == TRUE then

concatenação
Éo ato de juntar uma ou mais strings. Em Lua, a concatenação é feita com o simbolo Ponto-Ponto (..)
Exemplo: print("Skyen".."_".."Hasus")
A saída gerada por esse comando seria: Skyen_Hasus.

do
1. Normalmente usada no começo de funções que exercem alguma ação. Pode ser usada separada (sozinha) ou em alguma condição (ex. if). Tem sua tradução mais próxima da palavra fazer.
2. É utilizado em conjunto com o FOR, tendo de estar, obrigatoriamente, no final da linha em que há o loop for.
Exemplo: doSendMagicEffect(pos, effect)
Exemplo: for i =1, 10 do

else
É utilizado em condições. Caso todas as outras não sejam verdadeiras, o else será executado. É sempre usado sozinho e pode ser entendido como "Se não:". É utilizado em conjunto do if.
Exemplo:

if 1 > 2 then
else
-- script
end[/code] [b]elseif[/b]
Assim como o else, é utilizado em conjunto do if e serve para verificar se há outra possível condição. Pode ser entendido como "Ou se:".
Exemplo:

[code=lua]
if 1 > 2 then
elseif 1 < 2 then
--script
end end
End é utilizado para fechar todas as condições, inclusive o loop for. Significa FIM. Tudo o que abre (if e for) deve ser fechado com um end.
Exemplo:

if 1 > 2 then
else
-- script
end[/code] [b]get[/b]
É muito encontrada em funções, onde sempre é retornado um valor, nulo ou não. Get, em inglês, no nosso caso, tem a tradução mais próxima de obter. As funções que começam com get, nunca estarão sozinhas, e sim, dando valor a alguma variável ou comparado a algo.
Exemplo: local level = getPlayerLevel(cid)

[b]if[/b]
Obrigatoriamente deve ter em um script. Claro, há excessões, sempre há excessões. Serve para impor uma condição. Essa condição pode ser verdadeira ou falsa. Caso seje verdadeira, a continuação do script continuará até encontrar um END, caso contrário, verificará os elseifs e se não for verdadeiro com nenhum, havendo um else, será executado o código a partir dele.
A palavra if é proveniente do inglês e significa SE.
Exemplo: if level >= 30 then -- (Se level maior ou igual a 30, então)

[b]is[/b]
Is, no começo de funções, é para fazer uma verificação. Sempre é usada em alguma condição e tem seu significado mais próximo da palavra é.
Exemplo: if isPlayer(cid) == TRUE then

[b]loop[/b]
Loop é o nome dado a função que é executada várias vezes até que haja a condição para que ele pare. O mais utilizado é o for, mas também, na linguagem LUA temos o while e repeat.
Exemplo: for i = 1, 10 do

[b]parâmetros[/b]
Parâmetros de uma função são todas as variáveis que se encontram entre os parênteses.
Exemplo: doRemoveItem(uid) -- uid é o parâmetro da função doRemoveItem

[b]syntax sugars[/b]
São as facilidades que a linguagem de programação permite ao programador.
Exemplo 1:
[code=lua]
var = "Skyen Hasus"
print(string.upper(var)) -- Normal
print(var:upper()) -- Syntax Sugar
Ambas as saídas geradas seriam: SKYEN HASUS.

Exemplo 2:

teste = function(s) -- Normal
end
function teste(s) -- Syntax Sugar
end[/code] Apesar de parecerem legais, evite usar Syntax Sugars quando desnecessário, pois podem causar problemas se usadas incorretamente.


[b]set[/b]
Palavra utilizada no começo de nomes de funções que estabelecem valor de algo. É muito utilizado por iniciantes apenas para quests, mas tem muito mais importância que isso. No português, tem o significado mais próximo de estabelecer. [color=DarkRed](conteúdo a ser ampliado)[/color]
Exemplo: setPlayerStorageValue(cid, 3001, 1)

[b]string[/b]
Corresponde a um texto, as strings sempre são entre aspas.
Exemplos: "string" ou 'string'
Note que há dois tipos de aspas, as duas são válidas.

[b]then[/b]
Utilizado em conjunto do if ou do elseif. Pode ser entendido como ENTÃO. Sempre será encontrado no fim da linha em que haja as condições citadas.
Exemplo: if getPlayerStorageValue(cid, 3001) > 0 then

[b]variáveis[/b]
Variáveis são valores reservados na memória ram do computador para serem utilizados durante o script. Pode-se entender por variável, quando é encontrado a palavra var ou variable (em inglês). Variáveis podem ser locais ou globais, nesse último caso, tendo uso em mais de uma função.
Exemplo: local level = getPlayerLevel(cid)
Exemplo: global estatistica = estatistica + 1


[b]Você também pode ajudar[/b]
Perguntando o que você não entendeu é uma forma de ajudar. Poste suas dúvidas aqui, não tenha vergonha.
Outro modo de ajudar, é postando mensagem com as palavras que você não sabe o significado ou sabe e não está aqui.
Quero deixar claro que eu não sou expert e não saberei tudo. Pesquisarei e tentarei deixar o mais claro possível todo o conteúdo aqui contido.
Eu gostaria que esse dicionário funcionasse como a wikipedia, onde todos podem editar e corrigir. Mas como não há a possibilidade de todos editarem, postem.

Se você editou algo, ponha seu nome.
Se você postar conteúdo a ser adicionado, seu nome irá ser posto aqui.

[b]Atualizações[/b]
05.08.2009 - Adicionado as palavras array, loop e set.
06.08.2009 - Adicionado as palavras if, else, elseif, end, string (Nord) e then.
06.08.2009 - Atualizado a palavra do.
09.08.2009 - Adicionado as palavras concatenação e syntax sugars. (Skyen Hasus)
18.08.2009 - Atualizado a palavra end. (marcryzius)


Creditos

Pivizz

Existem alguns scripts que depois de matar boss abri tp para os players entrarem em uma sala de recompensa, porém (não sei se já existe) vou postar 2 scripts:

1º Script: Todos players que der algum dano no boss é teleportado
2º Script: Depois que o Boss for derrotado todos players de uma sala são teleportados.
 
 

 
É Basicamente isso, tava ajudando no suporte quando pediram isso e resolvi postar para ficar mais facil de achar (e depois pra eu achar também).

Agradeço o vodkart por ter disponibilizado a parte do script onde seleciona todos players de uma area (retirei de algum post do forum),
e Xagah que copiei descaradamente as imagens de tópico porque achei bonito  

Ajudei de alguma Forma? REP+.


 

Quilava na mão
 


 
Não sei se era dessa cor, qualquer coisa avisa ae




 
Na minha cabeça ficava mais bonito D:

@UnknowLoad e @themapa aki o Object Builder > ObjectBuilder_0_4_2.air

function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "You can't use revive during gym battles.") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") --alterado v2.6 end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Please, use revive only on pokeballs.") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then --edited deixei igual ao do PXG doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) --alterado v2.5 setCD(item2.uid, "control", 0) --alterado v2.5 setCD(item2.uid, "blink", 0) --alterado v2.6 return true end end return true end Teste novamente ! Não desista !!!

function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "You can't use revive during gym battles.") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") --alterado v1.6 end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Please, use revive only on pokeballs.") return true end if #getCreatureSummons(cid) >= 1 then doPlayerSendCancel(cid, "You can't use revive in using pokeballs.") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then --edited deixei igual ao do PXG doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) --alterado v1.6 doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) --alterado v1.5 return true end end return true end Teste

function onUse(cid, item, frompos, item2, topos) local idpokeball = {11737, 11740, 11743, 11746, 11826, 11829, 11832, 11835} if getPlayerStorageValue(cid, 990) >= 1 then doPlayerSendCancel(cid, "You can't use revive during gym battles.") return true end if getPlayerStorageValue(cid, 52481) >= 1 then return doPlayerSendCancel(cid, "You can't do that while a duel.") --alterado v1.6 end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Please, use revive only on pokeballs.") return true end if itemid == idpokeball then doPlayerSendCancel(cid, "You can't use revive in pokeballs using or in any pokeball.") return true end for a, b in pairs (pokeballs) do if item2.itemid == b.on or item2.itemid == b.off then --edited deixei igual ao do PXG doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) --alterado v1.6 doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(item2.uid, "all") cleanBuffs2(item2.uid) --alterado v1.5 return true end end return true end Creio que assim funcionará !!

Bom, já tem um ditto system(meu) aqui no TK, mas ele é meio chato, ao transformar tem que puxar e botar o pokemon novamente, esse novo não precisa de nada disso.
 
Primeiramente, vá no some functions.lua - Localizado na pasta lib.
E adicione isto no final(depois do ultimo end):



 
Bom, essas são as funções de transformar e destransformar.
 
Agora, vá no order.lua - Localizado no actions/scripts.
E procure por:
-------- TRANSFORM ---------- Apague tudo aqui dentro, até o:
-------- LIGHT -------------- Ali dentro, bote: 



 
Pronto, ditto ja está tranformando, agora falta o !revert, para isso vá em talkactions/scripts e crie um arquivo(.lua) com nome de dittorevert, e dentro coloque:



 
Agora, no talkactions.xml adicione esta linha:
<talkaction words = "!revert;/revert" hide="yes" event = "script" value = "dittorevert.lua"/> Se fizer tudo corretamente, funcionará normalmente.
 
Gif:



 
Créditos: 
Gabrielbsales(sou op faço tudo solo)

O OT Server Ready (OSR) é um software básico que desenvolvi juntamente com o apoio da 4YouStart feito para auxiliar aqueles que tem mais dificuldade com a parte de infraestrutura.
 
Veja funcionando:
 
 
Avisos:
O software está em BETA. Em caso de qualquer problema envie uma resposta nesse post. Quero lembrar que qualquer cópia dessa postagem sem a devida autorização não é permitida.  
O OSR instala e configura os seguintes softwares/bibliotecas (visão geral):
 
- Apache2 - php5 - MySQL 5.5 - phpmyadmin - Todas bibliotecas para compilar/rodar um OT Server O sistema suporta os seguintes sistemas operacionais:
Debian 7.x Ubuntu 12.x Ubuntu 14.x Para instalar o OT Server Ready, utilize as seguintes instruções:
Lembrete: utilize-o apenas em um servidor novo, recém formatado.
 
Para instalar no Debian:
apt-get update apt-get install -y gcc wget http://scripts.4youstart.com/ot-server-ready-debian chmod 777 ot-server-ready-debian ./ot-server-ready-debian SENHA Para instalar no Ubuntu:
apt-get update apt-get install -y gcc wget http://scripts.4youstart.com/ot-server-ready-ubuntu chmod 777 ot-server-ready-ubuntu ./ot-server-ready-ubuntu SENHA Substitua a palavra "SENHA" na última linha da instalação pela senha que deseja utilizar no phpmyadmin e MySQL. Recomenda-se que utilize a mesma senha do que a senha do servidor, mas pode utilizar qualquer uma.
 
Versão atual do Software:
v0.2 [23/11/2015] Lista de bibliotecas instaladas:
v0.1: apache2 php5 libapache2-mod-php5 php5-mcrypt mysql-client-5.5 mysql-server-5.5 mysql-common libboost-all-dev libgmp3-dev liblua5.1-0 liblua5.1-0-dev liblua50 liblua50-dev liblualib50 liblualib50-dev lua50 lua5.1 libsqlite0-dev libsqlite3-dev sqlite3 libmysql++-dev libmysqlclient-dev libxml2-dev libxml++2.6-dev cpp gcc g++ make automake autoconf pkg-config subversion liblua5.1-sql-mysql-dev liblua5.1-sql-sqlite3-dev zlib1g-dev zlib1g libcrypto++-dev libcrypto++ libcurl4-openssl-dev phpmyadmin v0.2: zip unzip build-essential libboost-dev libwww-perl ccache libboost-filesystem-dev libboost-regex-dev libboost-system-dev libboost-thread-dev libssl-dev   Façam bom proveito

Foi anexado ao post o script para ubuntu
ot-server-ready-ubuntu

Procure pelo servidor uma source compatível com a versão do seu servidor e use ela.

Sem as sources você não vai a lugar nenhum, você só pode usar a distro que já está compilada, sendo assim, só vai rodar ele no Windows...

Edita pelo mapa!
ctr+t