resolvido [Encerrado] Pokémons com Nivel System

leandropamgomes · Dezembro 9, 2013

Eai Galerinha do Xtibia.

Bom primeiramente eu estou com um servidor base pda 8.54 , e estou com um probleminha que é o seguinte, o servidor tem nivel system ( Level ). Mais o nivel system não caracteriza o pokémon na força, mesmo se eles for level alto. e eu vim aqui pedir um ajuda para vocês como edita o nome dele.. igual ta na foto a baixo.

exemplo : Charmander ( Level 8 ).

Eu quero saber como deixa ele só Charmander.

zipter98 · Dezembro 9, 2013

Pode postar seu level system.lua? data/lib

leandropamgomes · Dezembro 9, 2013

function adjustWildPoke(cid, optionalLevel)

if isMonster(cid) and pokes[getCreatureName(cid)] then

local level = (optionalLevel and optionalLevel >= 1) and optionalLevel or getPokemonLevel(cid) --alterado v1.8

local level = 0

local b = getCreatureOutfit(cid).lookBody

local shiny = 100

local lvl = getPokemonLevel(cid)

local monstrinho = getCreatureName(cid)

--alterado v1.4

if optionalLevel then

level = optionalLevel

elseif b > lvl then

level = b

elseif string.find(monstrinho, "Shiny") then

level = lvl * 02.0

else

level = lvl

end

local name = getCreatureName(cid)

local x = pokes[name]

wildlevel = math.random(math.floor(x.level/2)+1, x.level)

setPlayerStorageValue(cid, 28284, wildlevel)

doCreatureSetNick(cid, name.." (Level "..wildlevel..")")

setPlayerStorageValue(cid, 1000, level) --alterado v1.8

setPlayerStorageValue(cid, 1001, pokes[getCreatureName(cid)].offense * level +(addValuePokeLevel(wildlevel, pokes[getCreatureName(cid)].offense)))

setPlayerStorageValue(cid, 1002, pokes[getCreatureName(cid)].defense +

(addValuePokeLevel(wildlevel, pokes[getCreatureName(cid)].defense)))

setPlayerStorageValue(cid, 1003, pokes[getCreatureName(cid)].agility+

(addValuePokeLevel(wildlevel, pokes[getCreatureName(cid)].agility)))

setPlayerStorageValue(cid, 1004, pokes[getCreatureName(cid)].vitality * level+(addValuePokeLevel(wildlevel, pokes[getCreatureName(cid)].vitality)))

setPlayerStorageValue(cid, 1005, pokes[getCreatureName(cid)].specialattack * level +(addValuePokeLevel(wildlevel,pokes[getCreatureName(cid)].specialattack)))

doRegainSpeed(cid) --alterado!

setCreatureMaxHealth(cid, (getVitality(cid) * HPperVITwild))

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

if pokes[getCreatureName(cid)].exp then

local exp = pokes[getCreatureName(cid)].exp * baseExpRate + pokes[getCreatureName(cid)].vitality * pokemonExpPerLevelRate

setPlayerStorageValue(cid, 1006, (exp * generalExpRate/2)*10)

if getPlayerStorageValue(cid, 22546) == 1 then

setPlayerStorageValue(cid, 1006, 750)

doSetCreatureDropLoot(cid, false)

end

function getPokemonXMLOutfit(name) --alterado v1.9 \/

local path = "data/monster/pokes/Shiny/"..name..".xml"

local tpw = io.type(io.open(path))

if not tpw then

path = "data/monster/pokes/geracao 2/"..name..".xml"

tpw = io.type(io.open(path))

end

if not tpw then

path = "data/monster/pokes/geracao 1/"..name..".xml"

tpw = io.type(io.open(path))

end

if not tpw then

path = "data/monster/pokes/"..name..".xml"

tpw = io.type(io.open(path))

end

if not tpw then

return print("[getPokemonXMLOutfit] Poke with name: "..name.." ins't in any paste on monster/pokes/") and 2

end

local arq = io.open(path, "a+")

local txt = arq:read("*all")

arq:close()

local a, b = txt:find('look type="(.-)"')

txt = string.sub(txt, a + 11, b - 1)

return tonumber(txt)

end

function doEvolutionOutfit(cid, oldout, outfit)

if not isCreature(cid) then return true end

if getCreatureOutfit(cid).lookType == oldout then

doSetCreatureOutfit(cid, {lookType = outfit}, -1)

else

doSetCreatureOutfit(cid, {lookType = oldout}, -1)

end

function doSendEvolutionEffect(cid, pos, evolution, turn, ssj, evolve, f, h)

if not isCreature(cid) then

doSendAnimatedText(pos, "CANCEL", 215)

return true

end

if evolve then

doEvolvePokemon(getCreatureMaster(cid), {uid = cid}, evolution, 0, 0)

return true

end

doSendMagicEffect(pos, 18)

if ssj then

sendSSJEffect(evo)

end

doEvolutionOutfit(cid, f, h)

addEvent(doSendEvolutionEffect, math.pow(1900, turn/20), cid, getThingPos(cid), evolution, turn - 1, turn == 19, turn == 2, f, h)

end

function sendSSJEffect(cid)

if not isCreature(cid) then return true end

local pos1 = getThingPos(cid)

local pos2 = getThingPos(cid)

pos2.x = pos2.x + math.random(-1, 1)

pos2.y = pos2.y - math.random(1, 2)

doSendDistanceShoot(pos1, pos2, 37)

addEvent(sendSSJEffect, 45, cid)

end

function sendFinishEvolutionEffect(cid, alternate)

if not isCreature(cid) then return true end

local pos1 = getThingPos(cid)

if alternate then

local pos = {

[1] = {-2, 0},

[2] = {-1, -1},

[3] = {0, -2},

[4] = {1, -1},

[5] = {2, 0},

[6] = {1, 1},

[7] = {0, 2},

[8] = {-1, 1}}

for a = 1, 8 do

local pos2 = getThingPos(cid)

pos2.x = pos2.x + pos[a][1]

pos2.y = pos2.y + pos[a][2]

local pos = getThingPos(cid)

doSendDistanceShoot(pos2, pos, 37)

addEvent(doSendDistanceShoot, 300, pos, pos2, 37)

end

else

for a = 0, 3 do

doSendDistanceShoot(pos1, getPosByDir(pos1, a), 37)

end

for a = 4, 7 do

addEvent(doSendDistanceShoot, 600, pos1, getPosByDir(pos1, a), 37)

end

function doEvolvePokemon(cid, item2, theevo, stone1, stone2)

if not isCreature(cid) then return true end

if not pokes[theevo] or not pokes[theevo].offense then

doReturnPokemon(cid, item2.uid, getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect, false, true)

return true

end

local owner = getCreatureMaster(item2.uid)

local pokeball = getPlayerSlotItem(cid, 8)

local description = "Contains a "..theevo.."."

local pct = getCreatureHealth(item2.uid) / getCreatureMaxHealth(item2.uid)

doItemSetAttribute(pokeball.uid, "hp", pct)

doItemSetAttribute(pokeball.uid, "poke", theevo)

doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")

doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(item2.uid).." evolved into a "..theevo.."!")

doSendMagicEffect(getThingPos(item2.uid), 18)

doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])

doSendMagicEffect(getThingPos(cid), 173)

local oldpos = getThingPos(item2.uid)

local oldlod = getCreatureLookDir(item2.uid)

doRemoveCreature(item2.uid)

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)

doPlayerRemoveItem(cid, stone1, 1)

doPlayerRemoveItem(cid, stone2, 1)

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

function doMathDecimal(number, casas)

if math.floor(number) == number then return number end

local c = casas and casas + 1 or 3

for a = 0, 10 do

if math.floor(number) < math.pow(10, a) then

local str = string.sub(""..number.."", 1, a + c)

return tonumber(str)

end

return number

end

function doAdjustWithDelay(cid, pk, health, vit, status)

if isCreature(cid) then

adjustStatus(pk, getPlayerSlotItem(cid, 8).uid, health, vir, status)

end

function adjustStatus(pk, item, health, vite, conditions)

doubleshiny = 1

local function getLookTypePokemonShiny(pk)

local name = "Shiny "..getCreatureName(pk)

local x = io.open("data/monster/pokes/Shiny/"..name..".xml", "r")

if not x then

return false

end

local i = x:read("*a")

local look = tonumber(i:match('look type="(.-)"'))

return tonumber(look)

end

if not isCreature(pk) then return true end

local cid = getCreatureMaster(pk)

if cid then

local ball = getPlayerSlotItem(cid, 8)

if getShinyByPokeball(ball.uid) then

poke = "Shiny "

name = poke..getCreatureName(pk)

local out = getLookTypePokemonShiny(pk)

local out = {lookType = out}

if out then

doSetCreatureOutfit(pk, out, -1)

doubleshiny = 2

end

level = getPokemonLevelByPokemon(pk)

local gender = getItemAttribute(item, "gender") and getItemAttribute(item, "gender") or 0

addEvent(doCreatureSetSkullType, 10, pk, gender)

setPlayerStorageValue(pk, 1001, pokes[getCreatureName(pk)].offense * (getMasterLevel(pk) + getPokemonBoost(pk) + (addValuePokeLevel(level, pokes[getCreatureName(pk)].offense))))

setPlayerStorageValue(pk, 1002, pokes[getCreatureName(pk)].defense*(doubleshiny+addValuePokeLevel(level, pokes[getCreatureName(pk)].defense)))

setPlayerStorageValue(pk, 1003, pokes[getCreatureName(pk)].agility*doubleshiny+(addValuePokeLevel(level, pokes[getCreatureName(pk)].agility)))

setPlayerStorageValue(pk, 1004, pokes[getCreatureName(pk)].vitality * (getMasterLevel(pk) + getPokemonBoost(pk))*doubleshiny+(addValuePokeLevel(level, pokes[getCreatureName(pk)].vitality)))

setPlayerStorageValue(pk, 1005, pokes[getCreatureName(pk)].specialattack * (getMasterLevel(pk) + getPokemonBoost(pk))*doubleshiny+(addValuePokeLevel(level, pokes[getCreatureName(pk)].specialattack)))

if vite == true then

local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)

local vit = getVitality(pk)

local vit = vit+addValuePokeLevel(level, vit)

setCreatureMaxHealth(pk, ( vit * HPperVITsummon )*doubleshiny)

doCreatureAddHealth(pk, pct * vit * HPperVITsummon*doubleshiny)

end

doRegainSpeed(pk)

local nick = getItemAttribute(item, "poke")

if isGhostPokemon(pk) then

setPlayerStorageValue(pk, 8981, 1)

updateGhostWalk(pk)

end

if string.find(tostring(nick), "Shiny") then

nick = tostring(nick):match("Shiny (.*)")

end

if getItemAttribute(item, "nick") then

nick = getItemAttribute(item, "nick")

end

setPlayerStorageValue(pk, 1007, nick)

doCreatureSetNick(pk, nick.." (Level "..level..")")

if not getItemAttribute(item, "happy") then

doItemSetAttribute(item, "happy", 120)

end

if not getItemAttribute(item, "hunger") then

doItemSetAttribute(item, "hunger", 5)

end

local happy = getItemAttribute(item, "happy")

if happy < 0 then

happy = 1

end

setPlayerStorageValue(pk, 1008, happy)

local hunger = getItemAttribute(item, "hunger")

setPlayerStorageValue(pk, 1009, hunger)

if health == true then

local mh = HPperVITsummon * getVitality(pk)

local rd = 1 - (tonumber(getItemAttribute(item, "hp")))

setCreatureMaxHealth(pk, mh)

doCreatureAddHealth(pk, getCreatureMaxHealth(pk))

doCreatureAddHealth(pk, -(getCreatureMaxHealth(pk) * rd))

end

if isSummon(pk) and conditions then

local burn = getItemAttribute(item, "burn")

if burn and burn >= 0 then

local ret = {id = pk, cd = burn, check = false, damage = getItemAttribute(item, "burndmg"), cond = "Burn"}

addEvent(doCondition2, 3500, ret)

end

local poison = getItemAttribute(item, "poison")

if poison and poison >= 0 then

local ret = {id = pk, cd = poison, check = false, damage = getItemAttribute(item, "poisondmg"), cond = "Poison"}

addEvent(doCondition2, 1500, ret)

end

local confuse = getItemAttribute(item, "confuse")

if confuse and confuse >= 0 then

local ret = {id = pk, cd = confuse, check = false, cond = "Confusion"}

addEvent(doCondition2, 1200, ret)

end

local sleep = getItemAttribute(item, "sleep")

if sleep and sleep >= 0 then

local ret = {id = pk, cd = sleep, check = false, first = true, cond = "Sleep"}

doCondition2(ret)

end

local miss = getItemAttribute(item, "miss")

if miss and miss >= 0 then

local ret = {id = pk, cd = miss, eff = getItemAttribute(item, "missEff"), check = false, spell = getItemAttribute(item, "missSpell"), cond = "Miss"}

doCondition2(ret)

end

local fear = getItemAttribute(item, "fear")

if fear and fear >= 0 then

local ret = {id = pk, cd = fear, check = false, skill = getItemAttribute(item, "fearSkill"), cond = "Fear"}

doCondition2(ret)

end

local silence = getItemAttribute(item, "silence")

if silence and silence >= 0 then

local ret = {id = pk, cd = silence, eff = getItemAttribute(item, "silenceEff"), check = false, cond = "Silence"}

doCondition2(ret)

end

local stun = getItemAttribute(item, "stun")

if stun and stun >= 0 then

local ret = {id = pk, cd = stun, eff = getItemAttribute(item, "stunEff"), check = false, spell = getItemAttribute(item, "stunSpell"), cond = "Stun"}

doCondition2(ret)

end

local paralyze = getItemAttribute(item, "paralyze")

if paralyze and paralyze >= 0 then

local ret = {id = pk, cd = paralyze, eff = getItemAttribute(item, "paralyzeEff"), check = false, first = true, cond = "Paralyze"}

doCondition2(ret)

end

local slow = getItemAttribute(item, "slow")

if slow and slow >= 0 then

local ret = {id = pk, cd = slow, eff = getItemAttribute(item, "slowEff"), check = false, first = true, cond = "Slow"}

doCondition2(ret)

end

local leech = getItemAttribute(item, "leech")

if leech and leech >= 0 then

local ret = {id = pk, cd = leech, attacker = 0, check = false, damage = getItemAttribute(item, "leechdmg"), cond = "Leech"}

doCondition2(ret)

end

for i = 1, 3 do

local buff = getItemAttribute(item, "Buff"..i)

if buff and buff >= 0 then

local ret = {id = pk, cd = buff, eff = getItemAttribute(item, "Buff"..i.."eff"), check = false,

buff = getItemAttribute(item, "Buff"..i.."skill"), first = true, attr = "Buff"..i}

doCondition2(ret)

end

--alterado v1.9

if getItemAttribute(item, "boost") and getItemAttribute(item, "boost") >= 50 and getItemAttribute(item, "aura") then

sendAuraEffect(pk, auraSyst[getItemAttribute(item, "aura")])

end

if getPlayerStorageValue(getCreatureMaster(pk), 6598754) >= 1 then

setPlayerStorageValue(pk, 6598754, 1)

elseif getPlayerStorageValue(getCreatureMaster(pk), 6598755) >= 1 then

setPlayerStorageValue(pk, 6598755, 1)

end

return true

end

function getOffense(cid)