(Resolvido)Evoluir Pokemon Com Talkaction

[Thiago Rulexz 111]

Tipo queria um Talkaction que evoluísse o pokemon até ele morrer

quando ele morrer ele volte a ser o pokemon antigo

Isso ajudaria Muitas pessoas e Principalmente eu Por Favor Tibiaking!!

[deivaoo 122]

local evo = {
       
        ["Abra"] = "kadabra",
        ["Kadabra"] = "alakazam",
        ["Drowzee"] = "hypno",
        ["Slowpoke"] = "slowbro",
        ["Exeggcute"] = "exeggutor",
        ["Psyduck"] = "golduck",
        ["Mime Jr"] = "mr.mime",
        ["Togepi"] = "togetic",
        ["Slowbro"] = "slowking",

}

function onSay(cid, words, param)
    local monster  = getCreatureName(getCreatureSummons(cid)[1])
    if evo[monster] then
            doRemoveCreature(getCreatureSummons(cid)[1])
            local summon = doCreateMonster(evo[monster], toPosition)
            doConvinceCreature(cid, summon)
            doSendMagicEffect(getThingPos(summon), 18)
            return TRUE
    end
    return FALSE
end

Editado Março 18, 2015 por david0703 (veja o histórico de edições)

[vyctor17 132]

local evo = {
       
        ["Abra"] = "kadabra",
        ["Kadabra"] = "alakazam",
        ["Drowzee"] = "hypno",
        ["Slowpoke"] = "slowbro",
        ["Exeggcute"] = "exeggutor",
        ["Psyduck"] = "golduck",
        ["Mime Jr"] = "mr.mime",
        ["Togepi"] = "togetic",
        ["Slowbro"] = "slowking",

}

function onSay(cid, words, param)
    local monster  = getCreatureName(getCreatureSummons(cid)[1])
    if evo[monster] then
            doRemoveCreature(itemEx.uid)
            local summon = doCreateMonster(evo[monster], toPosition)
            doConvinceCreature(cid, summon)
            doSendMagicEffect(getThingPos(summon), 18)
            return TRUE
    end
    return FALSE
end

mais isso remove o monstro e summona outro, visualmente vai funcionar mas, no caso dos pogmon precisaria pegar os status, que estão em atributos na pokebola pra tudo funcionar certo. e outra coisa não sei oque acontece se vc estiver com um pokemon e usar esse script e depois tentar puxar ele de volta pra pokebola deve da um bug do c@raHUE

[Snowsz 339]

mais isso remove o monstro e summona outro, visualmente vai funcionar mas, no caso dos pogmon precisaria pegar os status, que estão em atributos na pokebola pra tudo funcionar certo. e outra coisa não sei oque acontece se vc estiver com um pokemon e usar esse script e depois tentar puxar ele de volta pra pokebola deve da um bug do c@raHUE

Assim como esse script foi totalmente Ctrl + C, Ctrl + V

 

doRemoveCreature(itemEx.uid)

??? Onde tem esse parâmetro meu amigo, itemEx.

[deivaoo 122]

Desculpe, mas estava atrasado pra facul, não fiz nem o teste de mesa... Quando chegar em casa faço o script pra você...
Obrigado por olhar vyctor17
(É errando que se erra...)

Qual a base de seu servidor?

Editado Março 19, 2015 por david0703 (veja o histórico de edições)

[Thiago Rulexz 111]

Servidor PokexCyan 

Utilizei o Script e quando fui volta o poke oo sv Travo EUHEUHEUE

 

Desculpas a demora estava ocupado  

Voltei para o forum

[deivaoo 122]

Já está quase finalizado, falta apenas adaptar a parte dos atributos da pokeball, pois estava fazendo no servidor Ownz como base...

Baixando base Cyan

[joaod123 16]

Tbm estou precisando

[deivaoo 122]

Vou postar o que eu fiz, se alguém puder completar...

Não consegui abrir a base cyan...

Bom, dei uma olhada nos scripts do cyan, mas não sei se vai funcionar... Se der algum erro, por favor, diga oq aparece na distro e oq acontece no jogo.

 

Crie um arquivo na pasta 'data/lib', com o nome 'EvoTalkActionSystem.lua' e coloque o seguinte código:

EvoTalkActionSystemConfig = {
	storage = 40029, --Storage da ball
	item = {
		id = 3956, --Id do item a ser cobrado (removido)
		quant = 1 --Quantidade do item a ser cobrado
	}
}

function getPokeDevoByName(pokename)
	for devo,evo in ipairs(poevo) do
		if evo.evolution == pokename then
			return devo
		end
	end
end 

Agora crie uma pasta em  'mods/scripts' com o nome 'EvoTalkActionSystem'

 

Crie um arquivo com o nome 'talkaction.lua', na pasta criada, e coloque o seguinte código:

local config = EvoTalkActionSystemConfig

function onSay(cid, words, param)
	if getPlayerItemCount(cid, config.item.id) < config.item.quant then  --Se NÃO tiver o suficiente do item pedido
		return doPlayerSendCancel(cid, "Você não tem "..config.item.quant.."x - "..getItemNameById(config.item.id)) --Retorna uma mensagem de erro
	end
	
	if #getCreatureSummons(cid) == 0 then --Se não tiver sumonado nenhum pokemon
		return doPlayerSendCancel(cid, "Você precisa sumonar um pokemon para usar esse comando.") --Retorna uma mensagem de erro
	end
	
    local monster  = getCreatureName(getCreatureSummons(cid)[1])
	if not isInArray(specialevo, getCreatureName(monster)) then --Se o pokemon não estiver na lista
		return doPlayerSendCancel(cid, "Esse pokemon não pode ser evoluído.") --Retorna uma mensagem de erro
	end
	
	
	doPlayerRemoveItem(config.item.quant, config.item.id)
	
	-- Aqui varia a cada servidor... Adaptei para base Cyan
	doEvolvePokemon(cid, getCreatureSummons(cid)[1], poevo[monster].evolution, 0, 0)
	doItemSetAttribute(ball, "morta", "no")
	doItemSetAttribute(ball, "Icone", "yes")
	doTransformItem(ball, icons[getItemAttribute(ball, "poke")].use)
	----------------------------------------------------------
	setPlayerStorageValue(cid, config.storage.balluid, ball.uid) --Salva o uid da ball na storage
    return true
end

 

Crie um arquivo com o nome 'death.lua', na pasta criada, e coloque o seguinte código:

local config = EvoTalkActionSystemConfig		

function onPrepareDeath(cid,deathlist)
	if isMonster(cid) then --Se for um pokemon
		if getCreatureMaster(cid) then --Se não for selvagem
			local player = getCreatureMaster(cid)
			local playerball = getPlayerSlotItem(player, 8)
			if getItemAttribute(playerball.uid,"uid") == config.uid then
				local ball = getPlayerStorageValue(player, config.storage)
				if playerball.uid == ball then --Se for a ball e o pokemon corretos
					local pokename = getPokeDevoByName(getCreatureName(cid))
				
					-- Aqui varia a cada servidor... Adaptei para base Cyan
					
					doEvolvePokemon(player, cid, pokename, 0, 0) --"Desevolui" o pokemon
					doItemSetAttribute(ball.uid, "morta", "yes") --Edita a ball para morto
					doItemSetAttribute(ball.uid, "Icone", "yes") --Ativa sistema de ícones
					doTransformItem(ball.uid, icons[getItemAttribute(ball, "poke")].use)-- Edita o ícone ao do pokemon
					----------------------------------------------------------
					doItemSetAttribute(playerball.uid, "uid", 0) --Remove a uniqueid (edita para 0)
					setPlayerStorageValue(cid, config.storage, -1) --remove o valor da storage
				end
			end
		end
	end
	return true		
end

Agora, na pasta 'mods', crie um arquivo chamado 'EvoTalkActionSystem.xml' e coloque o seguinte código:

<?xml version="1.0" encoding="UTF-8"?>
<mod name="EvoTalkActionSystem" version="1.0" author="David Araujo (Hopus)" contact="http://www.tibiaking.com/forum/user/43104-david0703/" enabled="yes">
	<talkaction words="!evoluir" event="script" value="EvoTalkActionSystem/talkaction.lua">
	<event type="PrepareDeath" name="EvoTalkActionSystemDeath" event="script" value="EvoTalkActionSystem/death.lua">
</mod>

Editado Março 23, 2015 por david0703 (veja o histórico de edições)

[joaod123 16]

Vou testar e já aviso

blz indo tá mais como eu adiciono pokes para ele evoluir pq eu testei e não evoluiu

[Thiago Rulexz 111]

Teria como explicar direito, não entendi muito

[deivaoo 122]

Teria como explicar direito, não entendi muito

Basicamente, o único arquivo a se editar é o da pasta lib, onde pode editar o item a ser cobrado e a quantidade.

Aparece algum erro na distro?

 

blz indo tá mais como eu adiciono pokes para ele evoluir

Ele pega os pokemons da configuração do próprio servidor cyan, que tem uma tabela chamada poevo, onde tem dados de evolução, stone, etc.

 

eu testei e não evoluiu

Pode dizer quais os erros que aparecem na distro?

[joaod123 16]

Basicamente, o único arquivo a se editar é o da pasta lib, onde pode editar o item a ser cobrado e a quantidade.

Aparece algum erro na distro?

Ele pega os pokemons da configuração do próprio servidor cyan, que tem uma tabela chamada poevo, onde tem dados de evolução, stone, etc.

Pode dizer quais os erros que aparecem na distro?

Cara nem um erro na distro mais aparece q esse pokemon não evolui

Mesmo o pokemon tendo evolução ele continua aparecendo esse pokemon nao evolui

[zipter98 460]

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, pokeName = getThingPos(poke), getCreatureLookDirection(poke), getCreatureName(poke)
            doPlayerSendTextMessage(cid, 27, "Your "..pokeName.." transformed into a "..evolutions[pokeName].."!")
            doRemoveCreature(poke)
            doSummonMonster(cid, evolutions[pokeName])
            local newPoke = getCreatureSummons(cid)[1]
            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.

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

[Danihcv 607]

O tópico foi movido para a área correta, preste mais atenção da próxima vez!

Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:

De: "OTServ → Suporte OTServ → Suporte de Scripts"

Para: "OTServ → Suporte OTServ → Suporte de Servidores Derivados"

[joaod123 16]

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

[zipter98 460]

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

[Pvt 7]

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

[Thiago Rulexz 111]

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

[zipter98 460]

^ 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 por zipter98 (veja o histórico de edições)