xTibia

.com
LE
resolvido

[Encerrado] [bug] Server base pda 854

By leandropamgomes, 13 de dez. de 2013 in Tópicos Sem Resposta

script
3
555
leandropamgomesL
13 de dezembro de 2013 às 10:26

Eai galerinha estou com um bug no meu data/creaturescripts/scripts/evolution.lua; meu servidor é base pda 8.54

 

 

 

[13/12/2013 10:12:38] [Error - CreatureScript Interface]

[13/12/2013 10:12:38] data/creaturescripts/scripts/evolution.lua:onKill
[13/12/2013 10:12:38] Description:
[13/12/2013 10:12:38] (luaGetCreatureName) Creature not found

Aqui está meu data/creaturesscripts/scripts/evolution.lua

function onKill(cid, target)

local function transfShinyNameNamePokeNoShiny(poke)
local names = string.sub(poke, 1, 5)
if names == "Shiny" then
local poke = string.sub(poke, 7, #poke)
return poke
end
return poke
end
function doEvolvePokemon(cid, poke, theevo)
if not isCreature(cid) then return true end
if not pokes[theevo] or not pokes[theevo].offense then
return true
end
local pokeball = getPlayerSlotItem(cid, 8)
local description = "Contains a "..theevo.."."
local pct = getCreatureHealth(poke) / getCreatureMaxHealth(poke)
doItemSetAttribute(pokeball.uid, "hp", pct)
doItemSetAttribute(pokeball.uid, "poke", theevo)
doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")
doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(poke).." evolved into a "..theevo.."!")
doSendMagicEffect(getThingPos(poke), 18)
doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])
doSendMagicEffect(getThingPos(poke), 173)
local oldpos = getThingPos(poke)
local oldlod = getCreatureLookDir(poke)
doRemoveCreature(poke)
doSummonMonster(cid, theevo)
local pk = getCreatureSummons(cid)[1]
doTeleportThing(pk, oldpos, false)
doCreatureSetLookDir(pk, oldlod)
sendFinishEvolutionEffect(pk, true)
addEvent(sendFinishEvolutionEffect, 550, pk, true)
addEvent(sendFinishEvolutionEffect, 1050, pk)
doAddPokemonInOwnList(cid, theevo)
local happy = getItemAttribute(pokeball.uid, "happy")
doItemSetAttribute(pokeball.uid, "happy", happy + happyGainedOnEvolution)
if happy + happyGainedOnEvolution > 255 then
doItemSetAttribute(pokeball.uid, "happy", 255)
end
adjustStatus(pk, pokeball.uid, true, false)
if useKpdoDlls then
doUpdateMoves(cid)
end
end
if not isCreature(cid) then return true end
local poke = getCreatureSummons(cid)[1]
local table = poevo[getPokemonName(poke)]
if not table then
return true
end
local ball = getPlayerSlotItem(cid, 8)
if ball.uid ~= 0 and getShinyByPokeball(ball.uid) and not poevo["Shiny "..getPokemonName(poke)] then
return true
end
local b = getPlayerStorageValue(poke, 1008)
if b < 250 then
return true
end
local evo = table.level
if getPlayerLevel(cid) < evo then
return true
end
local pokeevolve = transfShinyNameNamePokeNoShiny(table.evolution)
doEvolvePokemon(cid, poke, pokeevolve)
sendAllPokemonsBarPoke(cid)
sendPokeInfo(cid)
return true
end

E meu server tem level system, mais quando soltamos o pokémon não mostra o nivel e os do pokemons selvagem mostra, eu queria retirar o level do pokemon selvagem; exemplo: Vileplume (level 10), queria deixar assim Vileplume.
Aqui está meu data/creaturescripts/spawn.lua

local shinys = {"Oddish", "Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect",

"Venonat", "Venomoth", "Growlithe", "Arcanine", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'd", "Grimer", "Muk", "Gengar", "Krabby",
"Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir",
"Magikarp"}
local raros = {"Snorlax", "Gyarados", "Dragonair", "Dratini"}
local function ShinyName(cid)
if isCreature(cid) then
if string.find(tostring(getCreatureName(cid)), "Shiny") then
local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")
doCreatureSetNick(cid, newName)
if isMonster(cid) then
doSetCreatureDropLoot(cid, false)
end
end
end
end
local function doSetRandomGender(cid)
if not isCreature(cid) then return true end
if isSummon(cid) then return true end
local gender = 0
local name = getCreatureName(cid)
if not newpokedex[name] then return true end
local rate = newpokedex[name].gender
if rate == 0 then
gender = 3
elseif rate == 5 then
gender = 4
elseif rate == -1 then
gender = 0
elseif math.random(1, 5) <= rate then
gender = 4
else
gender = 3
end
doCreatureSetSkullType(cid, gender)
end
local function doShiny(cid)
if isCreature(cid) then
if isSummon(cid) then return true end
if getPlayerStorageValue(cid, 74469) >= 1 then return true end
if getPlayerStorageValue(cid, 22546) >= 1 then return true end
if isNpcSummon(cid) then return true end
if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9
if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/
chance = 1 --1% chance
elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!
chance = 0.2 --0.5% chance
else
return true
end
if math.random(1, 1000) <= chance*10 then
doSendMagicEffect(getThingPos(cid), 18)
local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid)
doRemoveCreature(cid)
local shi = doCreateMonster(name, pos, false)
setPlayerStorageValue(shi, 74469, 1)
else
setPlayerStorageValue(cid, 74469, 1)
end --/\
else
return true
end
end
function onSpawn(cid)
registerCreatureEvent(cid, "Experience")
registerCreatureEvent(cid, "GeneralConfiguration")
registerCreatureEvent(cid, "DirectionSystem")
registerCreatureEvent(cid, "CastSystem")
if isSummon(cid) then
registerCreatureEvent(cid, "SummonDeath")
return true
end
addEvent(doSetRandomGender, 5, cid)
addEvent(doShiny, 10, cid)
addEvent(ShinyName, 15, cid)
addEvent(adjustWildPoke, 5, cid)
return true
end

3 weeks later...
GabrieltxuG
27 de dezembro de 2013 às 23:51

Tópico movido para a seção de dúvidas e pedidos resolvidos.

4 years later...
StigalS
21 de abril de 2018 às 03:16
A questão neste tópico de suporte foi encerrada por falta de respostas. Este tópico está fechado e foi movido para Suporte - Tópicos Sem Resposta.

+ Caso a dúvida não tenha sido resolvida você poderá criar outro tópico solicitando ajuda.
* Lembre-se que é permitido dar UP no tópico a cada 24 horas para assim o destacar e manter movimentado.