Ir para conteúdo

[PDA] PokéDex em corpses de pokémons

zipter98

Por zipter98
em Mods, funções e outros

 Share

Posts Recomendados

zipter98

zipter98 1102

Postado
Postado (editado)

Sinceramente, não sei qual a área mais adequada para um complemento a um sistema, mas w/e.

Este complemento é designado a possibilidade de uso da PokéDex em corpses de pokémons, podendo obter suas informações.

Sim, simples assim.

data/actions/scripts, pokedex.lua:

Troque:

if not isCreature(item2.uid) then
    return true
end
por:
if not isCreature(item2.uid) then
    local name = getItemNameById(item2.itemid)
    if name:find("fainted") then
        name = doCorrectPokemonName(name:gsub("fainted ", ""))
        if not getPlayerInfoAboutPokemon(cid, name).dex then
            local exp = newpokedex[name].level * rate
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..name.." and received "..exp.." experience points.")
            doSendMagicEffect(getThingPos(cid), 210)
            doPlayerAddExperience(cid, exp)
            doAddPokemonInDexList(cid, name)
        else
            doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
        end
    end
    return true
end
Testado em PDA v1.9, por Slicer.
Editado por zipter98
Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/
Compartilhar em outros sites
Strogman

Strogman 90

Postado
Postado

boa ideia bem inovador e util as vezes você tá em uma hunt forte e quer da dex mais não consegue pq se der pode acabar morrendo etc

Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/#findComment-1664318
Compartilhar em outros sites
kaleudd

kaleudd 200

Postado
Postado

Bem,eu testei aqui e quando dou dex no corpo nao acontece nada,somente no pokemon como sempre era

 

Meu Pokedex.lua do actions.

local rate = 50

function onUse(cid, item, fromPos, item2, toPos)
 
if not isCreature(item2.uid) then
    local name = getItemNameById(item2.itemid)
    if name:find("fainted") then
        name = doCorrectPokemonName(name:gsub("fainted ", ""))
        if not getPlayerInfoAboutPokemon(cid, name).dex then
            local exp = newpokedex[name].level * rate
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..name.." and received "..exp.." experience points.")
            doSendMagicEffect(getThingPos(cid), 210)
            doPlayerAddExperience(cid, exp)
            doAddPokemonInDexList(cid, name)
        else
            doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8).uid)
        end
    end
    return true
end

local poke = getCreatureName(item2.uid)

	if isMonster(item2.uid) then
		local this = newpokedex[getCreatureName(item2.uid)]
		local myball = 0
		if isSummon(item2.uid) then
		myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)
		end
		if isOutlanderPokemon(getCreatureName(item2.uid)) then return false end
		if pokes[poke].dex then
			if getPlayerStorageValue(cid, pokes[poke].dex) <= 0 then
				exp = pokes[poke].level * rate
				doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..getCreatureName(item2.uid).." in your pokedex!")
				doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
				doSendMagicEffect(getThingPos(cid), 210)
				doPlayerAddExperience(cid, exp)
				setPlayerStorageValue(cid, pokes[poke].dex, 1)
				doShowPokedexRegistration(cid, item2, myball)
			return true
			else
				doShowPokedexRegistration(cid, item2, myball)
			return true
			end
		end
		doShowPokedexRegistration(cid, item2, myball)
	return true
	end

if not isPlayer(item2.uid) then return true end

	local kanto = 0
	local johto = 0
	local other = 0
	for i = 1, #oldpokedex do
			if i <= 151 then
				kanto = kanto+1
		    elseif i <= 251 and i > 151 then
				johto = johto+1
		    elseif i >= 252 then
				other = other+1
		    end
	end														   --alterado v1.6

	local player = getRecorderPlayer(toPos, cid)

	if cid == player then
		 doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's and "..other.." other's pokémons until now.") 
		 doPlayerSetVocation(cid, 9) --alterado v1.6
		 openChannelDialog(cid)
	end

return true
end
Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/#findComment-1664346
Compartilhar em outros sites
zipter98

zipter98 1102

Postado
  • Autor
Postado (editado)

Aparentemente a versão do PDA que você usa não é a mesma que a minha. Tente assim:

 

 

local rate = 50
 
function onUse(cid, item, fromPos, item2, toPos)
 
    if not isCreature(item2.uid) then
        local name = getItemNameById(item2.itemid)
        if name:find("fainted") then
            name = doCorrectPokemonName(name:gsub("fainted ", ""))
            if isOutlanderPokemon(getCreatureName(item2.uid)) then return false end
            if pokes[poke].dex then
                if getPlayerStorageValue(cid, pokes[poke].dex) <= 0 then
                    local exp = pokes[poke].level * rate
                    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..getCreatureName(item2.uid).." in your pokedex!")
                    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
                    doSendMagicEffect(getThingPos(cid), 210)
                    doPlayerAddExperience(cid, exp)
                    setPlayerStorageValue(cid, pokes[poke].dex, 1)
                    doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
                else
                    doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
                end
            end
        end
        return true
    end

    local poke = getCreatureName(item2.uid)

    if isMonster(item2.uid) then
        local this = newpokedex[getCreatureName(item2.uid)]
        local myball = 0
        if isSummon(item2.uid) then
            myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)
        end
        if isOutlanderPokemon(getCreatureName(item2.uid)) then return false end
        if pokes[poke].dex then
            if getPlayerStorageValue(cid, pokes[poke].dex) <= 0 then
                exp = pokes[poke].level * rate
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..getCreatureName(item2.uid).." in your pokedex!")
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
                doSendMagicEffect(getThingPos(cid), 210)
                doPlayerAddExperience(cid, exp)
                setPlayerStorageValue(cid, pokes[poke].dex, 1)
                doShowPokedexRegistration(cid, item2, myball)
                return true
            else
                doShowPokedexRegistration(cid, item2, myball)
                return true
            end
        end
        doShowPokedexRegistration(cid, item2, myball)
        return true
    end

    if not isPlayer(item2.uid) then return true end

    local kanto = 0
    local johto = 0
    local other = 0
    for i = 1, #oldpokedex do
        if i <= 151 then
            kanto = kanto+1
        elseif i <= 251 and i > 151 then
            johto = johto+1
        elseif i >= 252 then
            other = other+1
        end
    end														   --alterado v1.6

    local player = getRecorderPlayer(toPos, cid)

    if cid == player then
        doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's and "..other.." other's pokémons until now.") 
        doPlayerSetVocation(cid, 9) --alterado v1.6
        openChannelDialog(cid)
    end

    return true
end

 

 

Se der algum erro na distro, por favor, avise.

Editado por zipter98
Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/#findComment-1664369
Compartilhar em outros sites
zipter98

zipter98 1102

Postado
  • Autor
Postado (editado)

Saberia dizer se as corpses dos pokémons do seu servidor são "defeated pokemon_name" ou "fainted pokemon_name"? Eu não pretendia adaptar o código para outras bases diferentes da que usei, mas vou abrir uma exceção.

Editado por zipter98
Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/#findComment-1664411
Compartilhar em outros sites
zipter98

zipter98 1102

Postado
  • Autor
Postado (editado)

Troque:

if not isCreature(item2.uid) then
    local name = getItemNameById(item2.itemid)
    if name:find("fainted") then
        name = doCorrectPokemonName(name:gsub("fainted ", ""))
        if isOutlanderPokemon(getCreatureName(item2.uid)) then return false end
        if pokes[poke].dex then
            if getPlayerStorageValue(cid, pokes[poke].dex) <= 0 then
                local exp = pokes[poke].level * rate
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..getCreatureName(item2.uid).." in your pokedex!")
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
                doSendMagicEffect(getThingPos(cid), 210)
                doPlayerAddExperience(cid, exp)
                setPlayerStorageValue(cid, pokes[poke].dex, 1)
                doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
            else
                doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
            end
        end
    end
    return true
end
por:
if not isCreature(item2.uid) then
    print("Usou em item.")
    local name = getItemNameById(item2.itemid)
    print("Nome do item: "..name)
    if name:find("fainted") then
        name = doCorrectPokemonName(name:gsub("fainted ", ""))
        print("Nome do pokemon: "..name)
        if isOutlanderPokemon(getCreatureName(item2.uid)) then return false end
        if pokes[poke].dex then
            print("Esta na tabela.")
            if getPlayerStorageValue(cid, pokes[poke].dex) <= 0 then
                local exp = pokes[poke].level * rate
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked "..getCreatureName(item2.uid).." in your pokedex!")
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
                doSendMagicEffect(getThingPos(cid), 210)
                doPlayerAddExperience(cid, exp)
                setPlayerStorageValue(cid, pokes[poke].dex, 1)
                doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
            else
                doShowPokedexRegistration(cid, name, getPlayerSlotItem(cid, 8))
            end
        end
    end
    return true
end
E informe o que for imprimido no console.
Editado por zipter98
Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/#findComment-1664510
Compartilhar em outros sites
  • 5 weeks later...
Rumplestiltiskin

Rumplestiltiskin 0

Postado
Postado (editado)

Zipter, posso te fazer um pedido ? Eu ficaria muito agradecido se começasse a desenvolver sistemas para a base PokéCyan, afinal, creio que seja a mais utilizada...

Por favor ! :D
Vlw

Editado por Rumplestiltiskin
Link para o comentário
https://xtibia.com/forum/topic/236082-pda-pok%C3%A9dex-em-corpses-de-pok%C3%A9mons/#findComment-1667903
Compartilhar em outros sites
  • 6 months later...
 Share
Ir para a lista de tópicos
×
×
  • Criar Novo...