resolvido [Encerrado] [bug] Server base pda 854

[leandropamgomes 1]

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

[Gabrieltxu 737]

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

[Stigal 584]

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.