resolvido [Encerrado] Pokémons com Nivel System

[leandropamgomes 1]

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 1101]

Pode postar seu level system.lua? data/lib

[leandropamgomes 1]

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

end

end

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

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

end

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

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

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

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

end

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

end

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)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1001))

end

function getDefense(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1002))

end

function getSpeed(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1003))

end

function getVitality(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1004))

end

function getSpecialAttack(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1005))

end

function getHappiness(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1008))

end

function getSpecialDefense(cid)

if not isCreature(cid) then return 0 end

return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2

end

function getPokemonLevel(cid, dex)

if not isCreature(cid) or not pokes[getCreatureName(cid)] then return 0 end

if not dex then --alterado v1.9

if ehMonstro(cid) and getPlayerStorageValue(cid, 1000) > 0 then

return getPlayerStorageValue(cid, 1000)

elseif ehMonstro(cid) then

return pokes[getCreatureName(cid)].wildLvl

end

end

return pokes[getCreatureName(cid)].level

end

function getPokemonLevelByName(name)

return pokes[name] and pokes[name].level or 0 --alterado v1.9

end

function getMasterLevel(poke)

if not isSummon(poke) then return 0 end

return getPlayerLevel(getCreatureMaster(poke))

end

function getPokemonBoost(poke)

if not isSummon(poke) then return 0 end

return getItemAttribute(getPlayerSlotItem(getCreatureMaster(poke), 8).uid, "boost") or 0

end

function getPokeballBoost(ball)

if not isPokeball(ball.itemid) then return 0 end --alterado v1.8

return getItemAttribute(ball.uid, "boost") or 0

end

function getPokeName(cid)

if not isSummon(cid) then return getCreatureName(cid) end

if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end

local item = getPlayerSlotItem(getCreatureMaster(cid), 8)

if getItemAttribute(item.uid, "nick") then

return getItemAttribute(item.uid, "nick")

end

if string.find(tostring(getCreatureName(cid)), "Shiny") then

local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")

return newName

end

return getCreatureName(cid)

end

function getPokeballName(item, truename)

if not truename and getItemAttribute(item, "nick") then

return getItemAttribute(item, "nick")

end

return getItemAttribute(item, "poke")

end

function getPokemonName(cid)

return getCreatureName(cid)

end

function getPokemonGender(cid) --alterado v1.9

return getCreatureSkullType(cid)

end

function setPokemonGender(cid, gender)

if isCreature(cid) and gender then --alterado v1.8

doCreatureSetSkullType(cid, gender)

return true

end

return false

end

function getWildPokemonExp(cid)

return getPlayerStorageValue(cid, 1006)

end

[zipter98 1101]

 

 

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   
end
end
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
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
end
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
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
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
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
end
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)
 
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
        end
               
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)
if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1001))
end
 
function getDefense(cid)
if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1002))
end
 
function getSpeed(cid)
if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1003))
end
 
function getVitality(cid)
if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1004))
end
 
function getSpecialAttack(cid)
if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1005))
end
 
function getHappiness(cid)
if not isCreature(cid) then return 0 end
return tonumber(getPlayerStorageValue(cid, 1008))
end
 
function getSpecialDefense(cid)
if not isCreature(cid) then return 0 end
return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2      
end
 
function getPokemonLevel(cid, dex)
if not isCreature(cid) or not pokes[getCreatureName(cid)] then return 0 end 
    if not dex then                      --alterado v1.9
       if ehMonstro(cid) and getPlayerStorageValue(cid, 1000) > 0 then  
          return getPlayerStorageValue(cid, 1000)
       elseif ehMonstro(cid) then 
          return pokes[getCreatureName(cid)].wildLvl             
       end
    end   
return pokes[getCreatureName(cid)].level
end
 
function getPokemonLevelByName(name)
return pokes[name] and pokes[name].level or 0  --alterado v1.9
end
 
function getMasterLevel(poke)
    if not isSummon(poke) then return 0 end
return getPlayerLevel(getCreatureMaster(poke))
end
 
function getPokemonBoost(poke)
    if not isSummon(poke) then return 0 end
return getItemAttribute(getPlayerSlotItem(getCreatureMaster(poke), 8).uid, "boost") or 0
end
 
function getPokeballBoost(ball)
    if not isPokeball(ball.itemid) then return 0 end  --alterado v1.8
return getItemAttribute(ball.uid, "boost") or 0
end
 
function getPokeName(cid)
if not isSummon(cid) then return getCreatureName(cid) end
if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end
 
local item = getPlayerSlotItem(getCreatureMaster(cid), 8)
if getItemAttribute(item.uid, "nick") then
  return getItemAttribute(item.uid, "nick")
end
if string.find(tostring(getCreatureName(cid)), "Shiny") then
      local newName = tostring(getCreatureName(cid)):match("Shiny (.*)")
      return newName
    end
return getCreatureName(cid)
end
 
function getPokeballName(item, truename)
if not truename and getItemAttribute(item, "nick") then
return getItemAttribute(item, "nick")
end
return getItemAttribute(item, "poke")
end
 
function getPokemonName(cid)
return getCreatureName(cid)
end
 
function getPokemonGender(cid) --alterado v1.9
return getCreatureSkullType(cid)
end
 
function setPokemonGender(cid, gender)
if isCreature(cid) and gender then        --alterado v1.8
   doCreatureSetSkullType(cid, gender)
   return true
end
return false
end
 
function getWildPokemonExp(cid)
return getPlayerStorageValue(cid, 1006)
end

[leandropamgomes 1]

Você mudou ?

[zipter98 1101]

Sim. Já testou?

Editado Dezembro 9, 2013 por zipter98

[leandropamgomes 1]

Testei e saio o level do pokémon quando solta, mais os pokémons selvagem ainda está com mostrando o level system.

 

e ainda pareceu um bug quando liga o server :

[Error - CreatureScript Interface]

[09/12/2013 14:25:23] data/creaturescripts/scripts/walk.lua:onWalk

[09/12/2013 14:25:23] Description:

[09/12/2013 14:25:23] data/creaturescripts/scripts/walk.lua:13: attempt to perform arithmetic on local 'sto' (a string value)

[09/12/2013 14:25:23] stack traceback:

[09/12/2013 14:25:23] data/creaturescripts/scripts/walk.lua:13: in function <data/creaturescripts/scripts/walk.lua:1>

Editado Dezembro 9, 2013 por leandropamgomes

[zipter98 1101]

Esse erro, aparentemente, não é relacionado com a mudança. De qualquer maneira, poderia postar seu walk.lua?

[leandropamgomes 1]

Conseguir arrumar o WALK, mais éh o seguinte nego, você editou só os pokémons quando nois a soltamos, mais os pokémons selvagem ainda ta com nivel system, tem como retirar para min?

[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.