HenrikDiamond

Tambem tem essa maneira galera:
Abra o arquivo data/actions/scripts/evolution.lua
Adicione esta linha nele
 
 
Abra seu actions.xml, procure por evolution, apos achar coloque o id 12415 na frente dos outros, ficando assim:

 
12415 = Id da shiny stone
Agora abra o configuration.lua, procure por poevo. apos achar desca um pouco e achara as stones com seus ids, adicione este la
shiny = 12415
12415= id da shiny stone
Agora suba a pagina um pouco e coloque isso abaixo do ultimo pokemon que evolui:
 
 
Agora sua Shiny Stone nao e uma action, é uma pedra de evolução! "-"
Se nao entendeu comente que eu explico alguma coisa.. Se ajudei REp +
 
 
---Agora é so ir trocando o id de 12415 pelo id da sua shiny stone

hmn achei esse em outro forum acho que é oque você quer:
 
 
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) <= 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, 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, "trocar") then
if playerHaveItems(cid, {12149, 12150, 12151}) then
doPlayerRemoveItems(cid, {12149, 12150, 12151}, 300)
doPlayerAddItem(cid, 2200, 1)
else
selfSay("Você Não tem os itens necessarios.")
end
end
return true

endnpcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
 
 
Agora vá em Data/Npc/Nomedonpc.xml
 
<?xml version="1.0" encoding="UTF-8"?>
<npc name="Nomedonpc" script="trocaitems.lua" walkinterval="2000" floorchange="0">
<health now="100" max="100"/>
<look type="169" head="114" body="86" legs="114" feet="0" addons="2"/>
<parameters>
<parameter key="message_greet" value="Ola, diga {trocar} para trocar 3 items por 1."/>
</parameters>
</npc>

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 creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
local ids = {{12149, 12150, 12151}, 2200}
local feathers = ids[1]
local str = ""
local check = 0
local storage = 91821
if msgcontains(msg:lower(), "trade") or msgcontains(msg:lower(), "troca") then
for i = 1, #feathers do
if str == "" then
str = "1 "..getItemNameById(feathers)
else
str = str..", 1 "..getItemNameById(feathers)
end
end
if getPlayerStorageValue(cid, storage) > -1 then
selfSay("You already traded with me.", cid)
talkState[talkUser] = 0
return true
else
selfSay("Do you want trade "..str.." for 1 "..getItemNameById(ids[2]).."?", cid)
talkState[talkUser] = 1
return true
end
elseif msgcontains(msg:lower(), "yes") and talkState[talkUser] == 1 then
for i = 1, #feathers do
if getPlayerItemCount(cid, feathers) > 0 then
check = check + 1
end
end
if check == #feathers then
selfSay("Thank you!", cid)
for i = 1, #feathers do
doPlayerRemoveItem(cid, feathers, 1)
end
doPlayerAddItem(cid, ids[2], 1)
setPlayerStorageValue(cid, storage, 1)
talkState[talkUser] = 0
return true
else
selfSay("Hey, you don't have all the feathers.", cid)
talkState[talkUser] = 0
return true
end
elseif msgcontains(msg:lower(), "no") and talkState[talkUser] == 1 then
selfSay("Ok, good bye!")
talkState[talkUser] = 0
return true
end
return true
end
 
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
 

[Pokemon] PDA By Slicer



Pokemon dash advanced editado por slicer, vários bugs retidos.



Projeto encerrado!


Espero que todos tenham gostado desse 1 ano de trabalho duro!



Todas as atualizações:



* Leiam e sigam as instruções do Change Log dentro da pasta do patch!

Downlaods:
PDA By Slicer With Level System v2.9 Full -> http://www.mediafire...z2afuu75zblvmvq
PDA By Slicer Without Level System v1.9 Full -> http://www.mediafire...td0l0ip9ajprrbf

OTClient editado 2.8/1.8 => http://www.mediafire...1lcbs1fktpm676w

Atualizações:
EH OBRIGATORIO O USO DESSE CLIENT ABAIXO E USEM O .PIC TB!!!!!!!!!
Client v1.9/2.9 => http://www.mediafire...77i414v1hy187fj

Patch v1.9 => http://www.mediafire...da4umj3ip18jrf1
Patch v2.9 => http://www.mediafire...7nt275td9afl1fy

Patch v1.9.1 => http://www.mediafire.com/?i3flwa3lrd016zl
Patch v2.9.1 => http://www.mediafire.com/?m4zhjgn62uow1sp

Obs: Atualizaçoes mais antigas estao dentro do spoiler acima!!

OTAL.DLL:
OBS: caso n esteja aparecendo a barra de moves no client normal do tibia, baixem essa .dll e coloquem na pasta onde fica o Pokemon_nibe.exe ...
Otal.rar

Patch Correçao! Todos olhem!



Bugs na nova atualizaçao? Olhe o spoiler e veja se arruma o problema! Atualizado: 08/02/13


Créditos:


 
Otal.rar

No seu configuration.lua, procure por flys
e coloque isso la
Adicione esta linha la
 
["Shiny Dragonite"] = {233, 2200},
 
--Onde esta azul coloque a looktype do pokemon subtraindo 351... Exemplo: a looktype dele é 1500, ai vc subtrai 1500-351= 1549.. ai vc coloca o resultado la
 
e adiciona ele tbm na tabela "specialabilities" tbm no configuration.lua na parte de fly.
Se nao der certo avisa

Obrigado ai! Valeu

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Olá Galera do Xtibia, hoje vim trazer esse script que faz o seguinte:
 
•Ao Clicar em determinador item, o player fica numa moto.
 
Pois é, sem demora vamos ao script!
 
• Crie um Arquivo no formato .lua no pasta seuserver/actions/scipts e renomeie para moto.lua.
 
•Abra o arquivo, apague tudo oque esta dentro e coloque isto!
 
 
 
 
•Você poder fazer alterações nestas partes:
 
•looktype = 1482 - Nessa parte você irá colocar o id da outfit quando o player montar na moto.
•Text = Mount, moto! - Aki você colocará a mensagem que aparecerá quando o player montar na moto.
•speed = 9999 - Aqui é a velocidade que o player ganhará, altere de acordo com seus critérios!
 
 
~~
 
Agora vá no arquivo action.xml e adicione esta tag
 
 
 
 
Explicação

em itemid="13053" você colocará o id em que quando o player der USE, irá montar na bike. No PDA, o item 13053 é uma moto comum, sem ninguém e que não pode ficar na mochila.
 
 
Obrigado, Até a próxima. Se ajudei Deixe um Rep+ aew.
 
Flw

if valor >= getCreatureHealth(cid) then if isInArray(cannotKill, combat) and isPlayer(cid) then valor = getCreatureHealth(cid) - 1 else local names = {"Shiny Charizard", "Shiny Blastoise", "Shiny Venusaur"} --Coloque aqui o nome dos shinies que deseja que "dropem" a Shiny Stone. local itemid = x --ID da Shiny Stone. if isInArray(names, getCreatureName(cid)) and isSummon(attacker) and not isSummon(cid) then local owner = getCreatureMaster(attacker) if owner then doPlayerAddItem(owner, itemid, 1) doPlayerSendTextMessage(owner, MESSAGE_STATUS_CONSOLE_ORANGE, "You received a Shiny Stone!") end end valor = getCreatureHealth(cid) end end valor = math.floor(valor)

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Faça uma array com os nome dos shinys que deseja.

Você prefere que as exceções sejam definidas por nome ou por level?

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Em data/creaturescripts/scripts, procure por um arquivo chamado exp2.0.lua. Caso este não exista, procure pelo exp.lua.
Abra o arquivo, e substitua:
if valor >= getCreatureHealth(cid) then if isInArray(cannotKill, combat) and isPlayer(cid) then valor = getCreatureHealth(cid) - 1 else valor = getCreatureHealth(cid) end end valor = math.floor(valor) Por: if valor >= getCreatureHealth(cid) then if isInArray(cannotKill, combat) and isPlayer(cid) then valor = getCreatureHealth(cid) - 1 else local str = "shiny" local itemid = x --ID da Shiny Stone. if getCreatureName(cid):lower():find(str) and isSummon(attacker) and not isSummon(cid) then local owner = getCreatureMaster(attacker) if owner then doPlayerAddItem(owner, itemid, 1) doPlayerSendTextMessage(owner, MESSAGE_STATUS_CONSOLE_ORANGE, "You received a Shiny Stone!") end end valor = getCreatureHealth(cid) end end valor = math.floor(valor)

Monstro:
 
 
 
Creaturescripts:
<event type="kill" name="ItemShiny" event="script" value="ItemShiny.lua"/> ItemShiny.lua:
function onKill(cid, target, damage, flags) doPlayerAddItem(uid, 11454) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Você acabou de ganhar uma Shiny Stone) end Ache o login.lua e registre o evento:
registerCreatureEvent(cid, "ItemShiny")

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Galerinha do Xtibia... Hoje vim postar o Servidor "PokeZot" - Com base do PDA by Bolz e Edições feitas por mim!!
 
Lista Completa de Pokemon Adicionados!!

 
 
 
Sistemas

 
 
 
Quests



 
Alterações

 
 
 
Prints


 
 
 
Creditos----
A equipe que criou o PDA
Bolz --> Pela maravilhosa Editada no Server
A Mim--> Pelo Trabalho de Adicionar os pokemon e fazer mudanças sozinho!!
 
 
 
Downloads!!

 
 
 
Isso Ai Galerinha!! Foi isso Até a próxima. Talvez saia uma proxima atualização do Zot! Lembrando Conta do God : luh/123
 
Flw! Até Mais... Gostou do Serv? Da Rep + entao que me ajuda!! kk

Na pasta Data/Talkactions/Scripts crie um script chamado: shinytable.lua, e cole o código abaixo dentro:
local tables = { "Pokemon - Shiny Stones:", "Elder Charizard - 5", "Shiny Venusaur - 5", } function onSay(cid, words) return doPlayerPopupFYI(cid, table.concat(tables, "\n")) end Agora em Data/Talkactions abra o arquivo Talkaction.xml e adicione a tag:
<talkaction log="no" words="!shinystone" event="script" value="shinytable.lua"/> Configurando:
 
Repita essa linha varias vezes "Shiny Name - 5",. embaixo de "Shiny Venusaur - 5",
 
Vermelho: Nome do Shiny
Azul: Stones Necessárias.
 
Exemplo:
local tables = { "Pokemon - Shiny Stones:", "Elder Charizard - 5", "Shiny Venusaur - 5", "Shiny Name - 5", "Shiny Name - 5", "Shiny Name - 5", "Shiny Name - 5", } function onSay(cid, words) return doPlayerPopupFYI(cid, table.concat(tables, "\n")) end

Sabe fazer a tag?
 
local STORAGE = x --Storage. local VALUE = x --Valor da storage acima. local POS = {x = x, y = y, z = z} --Para onde será teleportado. function onStepIn(cid, item, position, fromPosition) if not isPlayer(cid) then return true end if getPlayerStorageValue(cid, STORAGE) >= VALUE then doTeleportThing(cid, POS) doPlayerSendTextMessage(cid, 27, "Você foi teleportado.") return true else return doPlayerSendCancel(cid, "Você não possui a storage.") and doTeleportThing(cid, fromPosition) end return true end

OpáàH Galerinha, Vim Postar Uma Full Pack Contendo Varios Pokemons e Itens, Todos em Formato "Idc".!
 
Vamos Lá, Oque Contém Na Full Pack!
 
Itens
 
 
 
Pokémons Todos Com Sprites Novas
 
 
 
Download: http://www.4shared.com/rar/6h42yccR/sprites_dos_pokes_novas.html?
 
 
 
 
Caso Queiram o Client do KPDO com todos os pokemons até 4° geração + todos eles formato de Shinys só Add Skype que Mando..!
 
Quem Te Faz Melhor é Quem Você é, e não oque falam que você é.


Aê Tio Taae??
Da REP+
Não Vai Cair Seu Dedo.!

Te amo cara ;C, Funciona em ambas versões, fica sem limite mesmo ? Muito bom o Obejct Builder ta de parabéns cara.

Bom esse sistema é Simples, ele funciona assm:
Se eu executar o comando "/rename DinoAdmin, Dino" Eu mudo meu nome de DinoAdmim para Dino.
Esse sistema serve para voce quem tem um servidor Grande e Com Muitas accounts Criadas...
Digamos que entre um GM Novo no seu server e para voce não ter que procurar o nome dele no meio de mais de 5 mil acounts para mudar
voce pode esta mudando o Nome dele pelo servidor executando o comando "/rename"
vamos parar de enrrolar e vamos lá...
 
1° Vá em data/talkaction/scripts/ Crie Um Arquivo Chamado "account.lua" e cole isso dentro:
 
 
 
 
Agora em Data/talkation/talkacton.xml/ cole esta tag:

<talkaction log="yes" words="/rename" access="5" event="script" value="account.lua"/>
 
Agora voce não preisa Procurar conta por conta é so mudar por comado. Veja:
 

11:56 /rename trade, [GM] Trade 11:56 You have changed trade's name to [GM] Trade.
 
Espero que gostem do script.
 
Creditos:
Equipe Pokemon Adventures
DinoAdmin
Nessa Henke