Se for base PDA:

local evolutions = {
    --["Pokemon_name"] = "Evolution_name",
    ["Alakazam"] = "Mega Alakazam",
}
function onSay(cid, words)
    if #getCreatureSummons(cid) > 0 then
        local poke = getCreatureSummons(cid)[1]
        if evolutions[getCreatureName(poke)] then
            local position, lookDir = getThingPos(poke), getCreatureLookDirection(poke)
            doPlayerSendTextMessage(cid, 27, "Your "..getCreatureName(poke).." transformed into a "..evolutions[getCreatureName(poke)].."!")
            doRemoveCreature(poke)
            local newPoke = doSummonMonster(cid, evolutions[getCreatureName(poke)])
            doTeleportThing(newPoke, position)
            doCreatureSetLookDir(newPoke, lookDir)
            adjustStatus(newPoke, getPlayerSlotItem(cid, 8).uid, true, false)
        else
            return doPlayerSendCancel(cid, "This pokemon can't transform.")
        end
    else
        return doPlayerSendCancel(cid, "You do not have summons.")
    end
    return true
end

Coloquei apenas o que você pediu.

Cara eu uso o comando e ele tira o pokemon mais n sumona o outro e o pokemon fica morto

Ajudaria se você informasse se deu ou não erro no console.

Zipter98 o erro é este

 

[30/03/2015 16:31:50] [Error - TalkAction Interface] 

[30/03/2015 16:31:50] data/talkactions/scripts/evolution.lua:onSay

[30/03/2015 16:31:50] Description: 

[30/03/2015 16:31:50] (luaGetCreatureName) Creature not found

 

[30/03/2015 16:31:50] [Error - TalkAction Interface] 

[30/03/2015 16:31:50] data/talkactions/scripts/evolution.lua:onSay

[30/03/2015 16:31:50] Description: 

[30/03/2015 16:31:50] (luaDoTeleportThing) Thing not found

 

[30/03/2015 16:31:50] [Error - TalkAction Interface] 

[30/03/2015 16:31:50] data/talkactions/scripts/evolution.lua:onSay

[30/03/2015 16:31:50] Description: 

[30/03/2015 16:31:50] (luaDoCreatureSetLookDir) Creature not found

a intenção é que quando o poke morra ele volta a sua forma antiga, por exemplo um mega charizard x quando morre ou volta pra ball, quando sumonado novamente volta a ser um charizard

^ Não se preocupe, nenhum atributo da pokeball é alterado.

Sobre o erro, falta de atenção minha. Código corrigido.

Editado Março 31, 2015 10 anos por zipter98 (veja o histórico de edições)