BangBang

poste o seu creaturescripts/player/pokedeath.lua

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á !!

Para adicionar um item ao servidor, você precisa :
 
1- Um editor de itens. Conheço somente 2, OtItemEditor e o ItemEditor.
 
Abra seu editor de itens.
Nele, abra o seu items.otb (DATA/ITEMS) crie uma novo item (CTRL + I) ou clique em Edit - Create Item
 
Então, EM (CLIENT ID), coloque o ID da sprite(item).
 
A partir disto, você edite a seu gosto com os atributos.
 
A partir do 'Server ID', você edita ao items.xml !
 
Fim
 
Gostou, ajudei ? Me dê um gostei !
 

Ai Gente Estou Disponibilizando O Dat E O Spr Do Kpdo Pokemon Versão 6.9
 
Nele Contem Todos Os Pokes Da 1° Ate A Metade Da 4° Geração Completa E Tem Todos Os Shiny Da 1° A 3 Geração Completa
 
Quem Quiser Baixar Vou Deixar O Download Ai E Vou Deixar Alguns Prints Para Vcs Verem Alguns Pokes Que Contem Nele.
 
Link Download http://www.mediafire.com/download/qzzi5eq7o907x1j/Dat+E+Spr+Do+Kpdo+Vers%C3%A3o+6.9.rar
 
 
Ajudei ? Gostou Do Topico ? Clique Em Gostei E Depois Em Melhor Resposta

Testa aí amigo:
 
spells.xml
<instant name="Cura" words="cura" lvl="1" mana="1" prem="0" selftarget="1" aggressive="0" needlearn="0" event="script" value="cura.lua"> <vocation id="4"/> </instant> spells/scripts/cura.lua
local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) local condition = createConditionObject(CONDITION_REGENERATION) setConditionParam(condition, CONDITION_PARAM_SUBID, 1) setConditionParam(condition, CONDITION_PARAM_BUFF, true) setConditionParam(condition, CONDITION_PARAM_TICKS, 1 * 5 * 1000) setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, 200000) setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 1000) setCombatCondition(combat, condition) function onCastSpell(cid, var) local cd_stg = 90950 -- storage do cooldown local cd_time = 180 -- 1 = 1 segundo de cooldown if exhaustion.check(cid, cd_stg) == false then if (getCreatureHealth(cid) >= (getCreatureMaxHealth(cid) * 0.90)) then exhaustion.set(cid, cd_stg, cd_time) return doCombat(cid, combat, var) else doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF) doPlayerSendCancel(cid, "You can only use this spell with more than 90% health.") return false end else doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF) doPlayerSendCancel(cid, "Spells is on cooldown [" ..exhaustion.get(cid, cd_stg).."s].") return false end end  

Tenta usar este:
elseif spell == "Meteor Smash" then local effD = getSubName(cid, target) == "Shiny Metagross" and 13 or 13 -- 13 é o efeito da "pedrinha" no caso é "missile" local eff = getSubName(cid, target) == "Shiny Metagross" and 100 or 100 -- 100 é o efeito "Meteor" - no caso é "effect" local master = isSummon(cid) and getCreatureMaster(cid) or cid ------------ local function doFall(cid) for rocks = 1, 62 do addEvent(fall, rocks*35, cid, master, ROCKDAMAGE, effD, eff) end end for up = 1, 10 do addEvent(upEffect, up*75, cid, effD) end addEvent(doFall, 450, cid) addEvent(doDanoWithProtect, 1400, cid, ROCKDAMAGE, getThingPosWithDebug(cid), waterarea, -min, -max, 0)  

Eai galera beleza? então já vem um tempo que venho falando que vou fazer um ultimo projeto para download para a galera e tals , esses dias pensei bem se iria fazer mesmo e começei a fazer essa minha ultima contribuição , criei esse tópico para um Show Off do meu ultimo trabalho , nome dele vai ser Pokémon Opal .
 
--//Pokémon Opal / Inicio do projeto 15/12/2014/ \\--
 
Caracteristicas do Servidor até Agora :


 
 
Modificações que não vai ter nesse server que contem no PDA (Por enquanto , essa lista vai mudar ao decorrer do projeto ):
- Gender System
- Shinys Aleatorios
 
 
Prints do avanço:
 



 
Créditos (Pode mudar de acordo com o avanço do projeto):
-Eu
-Aberos (por me ajudar)
-ZerefSoares (por me ajudar)
-Slicer e brun123 (pelos sistemas do pda)
-Erondino (pelo distro + sources)
- OrochiElf (Por ajudar nas sources)
 
 
 
 
é isso Galera vou indo fazendo com o tempo , não me cobre , tenho vida social tambem , não é todo o dia que vou mecher no servidor , mas é isso nada de novo , mas apenas outro distro totalmente diferente + sources , creio que vai ajudar muitas pessoas que curte o pda, Lembrando que ele não vai ser livre de bugs , pesso ajuda tambem para a galera que queira ajudar no projeto me enviar uma PM com contato do facebook para eu adicionar para conversarmos melhor.
 
Se gostou do projeto da um rep+ ai e vlw flw ! 
Bjao do Tiu GabrielTxu! :*

Obgg, sim todo traduzido!