[Resolvido] Pokémons Selvagem sem sexo

xxxttten · Setembro 2, 2018

Bom dia, eu venho tendo esse problema que os pokémons selvagem estão nascendo sem sexo, quando eu dou por exemplo > /cb metagross , ele vem male ou femea. Mais os selvagem do mapa vem tudo indefinido ( sem sexo ).

xxxttten · Setembro 9, 2018

Aonde fica o onDeath não estou achando.

JG6 · Setembro 9, 2018

52 minutos atrás, nociam disse:

ai se tem que ir no onDeath e colocar algo assim

if corpse.itemid ~= 0 then
doItemSetAttribute(corpse.uid, "gender", getPokemonGender(cid))
end

aonde fica esse OnDeath?

nociam · Setembro 9, 2018

procura na pasta creaturescript algum .lua deve ter.

JG6 · Setembro 9, 2018

22 minutos atrás, Maiconmafrah disse:

Aonde fica o onDeath não estou achando.

ta no pokeexp.lua mais não ta funcionando

30 minutos atrás, nociam disse:

procura na pasta creaturescript algum .lua deve ter.

O pokémon qndo ta vivo tem gender só q ele morre fica genderless

nociam · Setembro 9, 2018

posta o pokeexp.lua e o goback

Editado Setembro 9, 2018 por nociam

xxxttten · Setembro 9, 2018

Spoiler

local function playerAddExp(cid, exp)
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end

local Exps = {
{minL = 1, maxL = 51, multipler = 1.6},
{minL = 51, maxL = 150, multipler = 1.4},
{minL = 150, maxL = 199, multipler = 1.2},
{minL = 200, maxL = 249, multipler = 1.0},
{minL = 250, maxL = 299, multipler = 0.9},
}

local function calculaExp(cid, expTotal)
if not isPlayer(cid) then return 0 end
local expFinal = expTotal
local flag = false
for _, TABLE in pairs(Exps) do
if getPlayerLevel(cid) >= TABLE.minL and getPlayerLevel(cid) <= TABLE.maxL then
flag = true
expFinal = expFinal * TABLE.multipler
break
end
end
if not flag then expFinal = expFinal * 0.1 end --lvl 300+
return math.floor(expFinal)
end

function onDeath(cid, corpse, deathList)

if isSummon(cid) or not deathList or getCreatureName(cid) == "Evolution" then return true end --alterado v1.8
-------------Edited Golden Arena-------------------------
if getPlayerStorageValue(cid, 22546) == 1 then
setGlobalStorageValue(22548, getGlobalStorageValue(22548)-1)
if corpse.itemid ~= 0 then doItemSetAttribute(corpse.uid, "golden", 1) end --alterado v1.8
end
if getPlayerStorageValue(cid, 22546) == 1 and getGlobalStorageValue(22548) == 0 then
local wave = getGlobalStorageValue(22547)
for _, sid in ipairs(getPlayersOnline()) do
if isPlayer(sid) and getPlayerStorageValue(sid, 22545) == 1 then
if getGlobalStorageValue(22547) < #wavesGolden+1 then
doPlayerSendTextMessage(sid, 20, "Wave "..wave.." will begin in "..timeToWaves.."seconds!")
doPlayerSendTextMessage(sid, 28, "Wave "..wave.." will begin in "..timeToWaves.."seconds!")
addEvent(creaturesInGolden, 100, GoldenUpper, GoldenLower, false, true, true)
addEvent(doWave, timeToWaves*1000)
elseif getGlobalStorageValue(22547) == #wavesGolden+1 then
doPlayerSendTextMessage(sid, 20, "You have win the golden arena! Take your reward!")
doPlayerAddItem(sid, 2152, getPlayerStorageValue(sid, 22551)*2) --premio
setPlayerStorageValue(sid, 22545, -1)
doTeleportThing(sid, getClosestFreeTile(sid, posBackGolden), false)
setPlayerRecordWaves(sid)
end
end
end
if getGlobalStorageValue(22547) == #wavesGolden+1 then
endGoldenArena()
end
end
--------------------------------------------------- /\/\
local givenexp = getWildPokemonExp(cid)

if givenexp > 0 then
for a = 1, #deathList do
local pk = deathList[a]
local list = getSpectators(getThingPosWithDebug(pk), 30, 30, false)
if isCreature(pk) then
local expTotal = math.floor(playerExperienceRate * givenexp / 1.9)
expTotal = calculaExp(pk, expTotal)
local party = getPartyMembers(pk)
if isInParty(pk) and getPlayerStorageValue(pk, 4875498) <= -1 then
expTotal = math.floor(expTotal/#party)
for i = 1, #party do
if isInArray(list, party) then
playerAddExp(party, expTotal)
end
end
else
playerAddExp(pk, expTotal)
end
end
end
end

if isNpcSummon(cid) then
local master = getCreatureMaster(cid)
doSendMagicEffect(getThingPos(cid), getPlayerStorageValue(cid, 10000))
doCreatureSay(master, getPlayerStorageValue(cid, 10001), 1)
doRemoveCreature(cid)
return false
end

if corpse.itemid ~= 0 then --alterado v1.8
doItemSetAttribute(corpse.uid, "level", getPokemonLevel(cid))
doItemSetAttribute(corpse.uid, "gender", getPokemonGender(cid))
end
return true
end

Spoiler

function onLogout(cid)
if not isCreature(cid) then return true end
   local thisitem = getPlayerSlotItem(cid, ?

   if thisitem.uid <= 0 then return true end

   local ballName = getItemAttribute(thisitem.uid, "poke")
local btype = getPokeballType(thisitem.itemid)

---------------------------------------------------------------
if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then --alterado v1.6
if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then
BackTeam(cid)
end
end
--////////////////////////////////////////////////////////////////////////////////////////--
if getPlayerStorageValue(cid, 52480) >= 1 and getPlayerStorageValue(cid, 52481) >= 0 then
doEndDuel(cid)
end
--////////////////////////////////////////////////////////////////////////////////////////--
if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then
local cmed2 = getCreatureSummons(cid)[1]
   local poscmed = getThingPos(cmed2)
   local cmeddir = getCreatureLookDir(cmed2)
   local namecmed = getCreatureName(cmed2)
   local hp, maxHp = getCreatureHealth(getCreatureSummons(cid)[1]), getCreatureMaxHealth(getCreatureSummons(cid)[1])
   local gender = getPokemonGender(cmed2)
doRemoveCreature(getCreatureSummons(cid)[1])
   local back = doCreateMonster(namecmed, poscmed)
   addEvent(doCreatureSetSkullType, 150, back, gender)
   doCreatureSetLookDir(back, cmeddir)
   addEvent(doCreatureAddHealth, 100, back, hp-maxHp)

-- pokemon controlador
local ball2 = getPlayerSlotItem(cid, ?
local mynewpos = getThingPos(getCreatureSummons(cid)[1])
doRemoveCreature(getCreatureSummons(cid)[1])
local pk2 = doSummonCreature(getItemAttribute(ball2.uid, "poke"), mynewpos)
doConvinceCreature(cid, pk2)
addEvent(doAdjustWithDelay, 100, cid, pk2, true, true, false)
setPlayerStorageValue(cid, 888, -1)
cleanCMcds(ball2.uid)
doCreatureSetLookDir(getCreatureSummons(cid)[1], 2)
registerCreatureEvent(pk2, "SummonDeath")
end

----------------------------------------------------------------------
local summon = getCreatureSummons(cid)[1]

   if #getCreatureSummons(cid) >= 1 and thisitem.uid > 1 then
   if getPlayerStorageValue(cid, 212124) <= 0 then
       doItemSetAttribute(thisitem.uid, "hp", (getCreatureHealth(summon) / getCreatureMaxHealth(summon)))
end
setPlayerStorageValue(cid, 212124, 0)
doTransformItem(thisitem.uid, pokeballs[btype].on)
       doSendMagicEffect(getThingPos(summon), pokeballs[btype].effect)
       doRemoveCreature(summon)
   end

   if getCreatureOutfit(cid).lookType == 814 then
       doPlayerStopWatching(cid)
   end

   if tonumber(getPlayerStorageValue(cid, 17000)) and getPlayerStorageValue(cid, 17000) >= 1 then
       markFlyingPos(cid, getThingPos(cid))
   end

   if getPlayerStorageValue(cid, 22545) == 1 then
   setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1)
   if getGlobalStorageValue(22550) <= 0 then
endGoldenArena()
end
end

return TRUE
end

local deathtexts = {"Oh no! POKENAME, come back!", "Come back, POKENAME!", "That's enough, POKENAME!", "You did well, POKENAME!",
"You need to rest, POKENAME!", "Nice job, POKENAME!", "POKENAME, you are too hurt!"}

function onDeath(cid, deathList)

local owner = getCreatureMaster(cid)

if getPlayerStorageValue(cid, 637500) >= 1 then
doSendMagicEffect(getThingPos(cid), 211)
doRemoveCreature(cid)
return true
end

if getPlayerStorageValue(cid, 212123) >= 1 then
return true
end

--////////////////////////////////////////////////////////////////////////////////////////--
checkDuel(owner)
--////////////////////////////////////////////////////////////////////////////////////////--

   local thisball = getPlayerSlotItem(owner, ?
   local ballName = getItemAttribute(thisball.uid, "poke")

btype = getPokeballType(thisball.itemid)

if #getCreatureSummons(owner) > 1 then
BackTeam(owner, getCreatureSummons(owner))
end

doSendMagicEffect(getThingPos(cid), pokeballs[btype].effect)
doTransformItem(thisball.uid, pokeballs[btype].off)

doPlayerSendTextMessage(owner, 22, "Your pokemon fainted.")

local say = deathtexts[math.random(#deathtexts)]
-- say = string.gsub(say, "POKENAME", getCreatureName(cid))

   -- if getPlayerStorageValue(cid, 33) <= 0 then
       -- doCreatureSay(owner, say, TALKTYPE_SAY)
   -- end

   doItemSetAttribute(thisball.uid, "hp", 0)
   if ehMonstro(deathList[1]) then
   doItemSetAttribute(thisball.uid, "happy", getPlayerStorageValue(cid, 1008) - happyLostOnDeath)
end
   doItemSetAttribute(thisball.uid, "hunger", getPlayerStorageValue(cid, 1009))

if useOTClient then
doPlayerSendCancel(owner, '12//,hide') --alterado v1.7
end

doRemoveCreature(cid)

return false
end

Pokexp.lua

Spoiler

local function playerAddExp(cid, exp)
doPlayerAddExp(cid, exp)
doSendAnimatedText(getThingPos(cid), exp, 215)
end

local Exps = {
{minL = 1, maxL = 51, multipler = 1.6},
{minL = 51, maxL = 150, multipler = 1.4},
{minL = 150, maxL = 199, multipler = 1.2},
{minL = 200, maxL = 249, multipler = 1.0},
{minL = 250, maxL = 299, multipler = 0.9},
}

local function calculaExp(cid, expTotal)
if not isPlayer(cid) then return 0 end
local expFinal = expTotal
local flag = false
for _, TABLE in pairs(Exps) do
if getPlayerLevel(cid) >= TABLE.minL and getPlayerLevel(cid) <= TABLE.maxL then
flag = true
expFinal = expFinal * TABLE.multipler
break
end
end
if not flag then expFinal = expFinal * 0.1 end --lvl 300+
return math.floor(expFinal)
end

function onDeath(cid, corpse, deathList)

if isSummon(cid) or not deathList or getCreatureName(cid) == "Evolution" then return true end --alterado v1.8
-------------Edited Golden Arena-------------------------
if getPlayerStorageValue(cid, 22546) == 1 then
setGlobalStorageValue(22548, getGlobalStorageValue(22548)-1)
if corpse.itemid ~= 0 then doItemSetAttribute(corpse.uid, "golden", 1) end --alterado v1.8
end
if getPlayerStorageValue(cid, 22546) == 1 and getGlobalStorageValue(22548) == 0 then
local wave = getGlobalStorageValue(22547)
for _, sid in ipairs(getPlayersOnline()) do
if isPlayer(sid) and getPlayerStorageValue(sid, 22545) == 1 then
if getGlobalStorageValue(22547) < #wavesGolden+1 then
doPlayerSendTextMessage(sid, 20, "Wave "..wave.." will begin in "..timeToWaves.."seconds!")
doPlayerSendTextMessage(sid, 28, "Wave "..wave.." will begin in "..timeToWaves.."seconds!")
addEvent(creaturesInGolden, 100, GoldenUpper, GoldenLower, false, true, true)
addEvent(doWave, timeToWaves*1000)
elseif getGlobalStorageValue(22547) == #wavesGolden+1 then
doPlayerSendTextMessage(sid, 20, "You have win the golden arena! Take your reward!")
doPlayerAddItem(sid, 2152, getPlayerStorageValue(sid, 22551)*2) --premio
setPlayerStorageValue(sid, 22545, -1)
doTeleportThing(sid, getClosestFreeTile(sid, posBackGolden), false)
setPlayerRecordWaves(sid)
end
end
end
if getGlobalStorageValue(22547) == #wavesGolden+1 then
endGoldenArena()
end
end
--------------------------------------------------- /\/\
local givenexp = getWildPokemonExp(cid)

if givenexp > 0 then
for a = 1, #deathList do
local pk = deathList[a]
local list = getSpectators(getThingPosWithDebug(pk), 30, 30, false)
if isCreature(pk) then
local expTotal = math.floor(playerExperienceRate * givenexp / 1.9)
expTotal = calculaExp(pk, expTotal)
local party = getPartyMembers(pk)
if isInParty(pk) and getPlayerStorageValue(pk, 4875498) <= -1 then
expTotal = math.floor(expTotal/#party)
for i = 1, #party do
if isInArray(list, party) then
playerAddExp(party, expTotal)
end
end
else
playerAddExp(pk, expTotal)
end
end
end
end

if isNpcSummon(cid) then
local master = getCreatureMaster(cid)
doSendMagicEffect(getThingPos(cid), getPlayerStorageValue(cid, 10000))
doCreatureSay(master, getPlayerStorageValue(cid, 10001), 1)
doRemoveCreature(cid)
return false
end

if corpse.itemid ~= 0 then --alterado v1.8
doItemSetAttribute(corpse.uid, "level", getPokemonLevel(cid))
doItemSetAttribute(corpse.uid, "gender", getPokemonGender(cid))
end
return true
end

Editado Setembro 9, 2018 por Maiconmafrah

nociam · Setembro 9, 2018

se mando o goback errado quero do actions.

Marshmello · Setembro 9, 2018

Já arrumou?

JG6 · Setembro 9, 2018

7 horas atrás, nociam disse:

posta o pokeexp.lua e o goback

Eu vou sair só vou conseguir ver lá pra de tarde

xxxttten · Setembro 9, 2018

@nociam

goback certo.

Spoiler

local EFFECTS = {
   --[OutfitID] = {Effect}
   ["Magmar"] = 35,
   ["Jynx"] = 17, --alterado v1.5
   ["Shiny Jynx"] = 17,
["Piloswine"] = 205, --alterado v1.8
["Swinub"] = 205,
}

function onUse(cid, item, frompos, item2, topos)

if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end

if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1
or getPlayerStorageValue(cid, 75846) >= 1 or getPlayerStorageValue(cid, 5700) >= 1 then --alterado v1.9 <<
return true
end

local ballName = getItemAttribute(item.uid, "poke")
local btype = getPokeballType(item.itemid)
local usando = pokeballs[btype].use

local effect = pokeballs[btype].effect
   if not effect then
       effect = 21
   end

unLock(item.uid) --alterado v1.8

if item.itemid == usando then

   if getPlayerStorageValue(cid, 990) == 1 then -- GYM
       doPlayerSendCancel(cid, "You can't return your pokemon during gym battles.")
   return true
   end
   if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then --alterado v1.6
if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then
BackTeam(cid)
end
end
if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then
doPlayerSendCancel(cid, "You can't do that while is controling a mind")
return true --alterado v1.5
end
if #getCreatureSummons(cid) <= 0 then
       if isInArray(pokeballs[btype].all, item.itemid) then
           doTransformItem(item.uid, pokeballs[btype].off)
           doItemSetAttribute(item.uid, "hp", 0)
           doPlayerSendCancel(cid, "This pokemon is fainted.")
       return true
       end
   end

local cd = getCD(item.uid, "blink", 30)
if cd > 0 then
setCD(item.uid, "blink", 0)
end

local z = getCreatureSummons(cid)[1]

   if getCreatureCondition(z, CONDITION_INVISIBLE) and not isGhostPokemon(z) then
   return true
   end
   doReturnPokemon(cid, z, item, effect)

elseif item.itemid == pokeballs[btype].on then

   if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then
       doPlayerSendCancel(cid, "You must put your pokeball in the correct place!")
   return TRUE
   end

local thishp = getItemAttribute(item.uid, "hp")

   if getItemAttribute(item.uid, "hp") == 0 then
       if isInArray(pokeballs[btype].all, item.itemid) then
           doTransformItem(item.uid, pokeballs[btype].off)
           doItemSetAttribute(item.uid, "hp", 0)
           doPlayerSendCancel(cid, "This pokemon is fainted.")
       return true
       end
   end

local pokemon = getItemAttribute(item.uid, "poke")

   if not pokes[pokemon] then
   return true
   end

local x = pokes[pokemon]
local boost = getItemAttribute(item.uid, "boost") or 0

   if getPlayerLevel(cid) < (x.level) then
   doPlayerSendCancel(cid, "You need level "..(x.level).." to use this pokemon.")
   return true
   end

   local pk = getCreatureSummons(cid)[1]

   doSummonMonster(cid, pokemon)
   doItemSetAttribute(item.uid, "pokeballusada", 0)

   local pk = getCreatureSummons(cid)[1]
   if not isCreature(pk) then return true end

if getCreatureName(pk) == "Ditto" or getCreatureName(pk) == "Shiny Ditto" then --edited

local left = getItemAttribute(item.uid, "transLeft")
local name = getItemAttribute(item.uid, "transName")

       if left and left > 0 then
           setPlayerStorageValue(pk, 1010, name)
           doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1)
           addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn"))
           doItemSetAttribute(item.uid, "transBegin", os.clock())
       else
           setPlayerStorageValue(pk, 1010, getCreatureName(pk) == "Ditto" and "Ditto" or "Shiny Ditto") --edited
       end
   end

if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end

   doCreatureSetLookDir(pk, 2)
   doCreatureSetNick(pk, nick)
   adjustStatus(pk, item.uid, true, true, true)
   doAddPokemonInOwnList(cid, pokemon)

doTransformItem(item.uid, item.itemid+1)

local pokename = getPokeName(pk) --alterado v1.7

   local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename)
   local mgoen = gobackmsgsen[math.random(1, #gobackmsgsen)].go:gsub("doka", pokename)
   local mgoes = gobackmsgses[math.random(1, #gobackmsgses)].go:gsub("doka", pokename)
   if getPlayerLanguage(cid) == 2 then
   doCreatureSay(cid, mgoen, 19)
   end
   if getPlayerLanguage(cid) == 0 then
   doCreatureSay(cid, mgo, 19)
   end
   if getPlayerLanguage(cid) == 1 then
   doCreatureSay(cid, mgoes, 19)
   end

   -- doItemSetAttribute(item.uid, "gender", math.random(3, 4))
   doSendMagicEffect(getCreaturePosition(pk), effect)

   if useOTClient then
   doPlayerSendCancel(cid, '12//,show') --alterado v1.7
end

local pk = getCreatureSummons(cid)[1]
local pb = getPlayerSlotItem(cid, 8).uid
local look = getItemAttribute(pb,"addon")
if not getItemAttribute(pb,"addon") then
doSetItemAttribute(pb,"addon",0)

end
if getItemAttribute(pb,"addon") > 0 then
doSetCreatureOutfit(pk, {lookType = look}, -1)

end

else

doPlayerSendCancel(cid, "This pokemon is fainted.")

end

   if useKpdoDlls then
       doUpdateMoves(cid)
   end
return true
end

nociam · Setembro 9, 2018

me passa o metodo adjustStatus ali deve esta o problema o doCreatureSetSkullType deve estar Randon tb pode ver ou posta aqui.

JG6 · Setembro 9, 2018

1 hora atrás, nociam disse:

me passa o metodo adjustStatus ali deve esta o problema o doCreatureSetSkullType deve estar Randon tb pode ver ou posta aqui.

Ele estaria no level system.lua?

5 horas atrás, nociam disse:

me passa o metodo adjustStatus ali deve esta o problema o doCreatureSetSkullType deve estar Randon tb pode ver ou posta aqui.

Citar

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

   setPlayerStorageValue(cid, 1000, level) --alterado v1.8
    setPlayerStorageValue(cid, 1001, pokes[getCreatureName(cid)].offense)
   setPlayerStorageValue(cid, 1002, pokes[getCreatureName(cid)].defense)
   setPlayerStorageValue(cid, 1003, pokes[getCreatureName(cid)].agility)
   setPlayerStorageValue(cid, 1004, pokes[getCreatureName(cid)].vitality)
   setPlayerStorageValue(cid, 1005, pokes[getCreatureName(cid)].specialattack * 5)

    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, ?
   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)

   if not isCreature(pk) then return true end

   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)))
   setPlayerStorageValue(pk, 1002, pokes[getCreatureName(pk)].defense)
   setPlayerStorageValue(pk, 1003, pokes[getCreatureName(pk)].agility)
   setPlayerStorageValue(pk, 1004, pokes[getCreatureName(pk)].vitality * 75)
   setPlayerStorageValue(pk, 1005, pokes[getCreatureName(pk)].specialattack * (getMasterLevel(pk) + getPokemonBoost(pk) )*9)

   if vite == true then
       local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)
       local vit = getVitality(pk)
       setCreatureMaxHealth(pk, ( vit * HPperVITsummon ))
       doCreatureAddHealth(pk, pct * vit * HPperVITsummon)
   end

   doRegainSpeed(pk)

   local nick = getItemAttribute(item, "poke")

    if isGhostPokemon(pk) then
       setPlayerStorageValue(pk, 8981, 1)
       updateGhostWalk(pk)
    end


   if getItemAttribute(item, "nick") then
       nick = getItemAttribute(item, "nick")
   end

   setPlayerStorageValue(pk, 1007, nick)

   local lvl = getItemAttribute(item, "level") or 0
   nick = 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 setWildPokemonLevel(cid, optionalLevel, optionalStatus, optionalNick, optionalExtraExp)

   if not isCreature(cid) then return true end
   if not pokes[getCreatureName(cid)] then return true end --alterado v2.6

   local levelRange = 0
   local off = 0
   local def = 0
   local agi = 0
   local spatk = 0
   local vit = 0
   local this = getCreatureName(cid)
   local ee = 1

   if optionalExtraExp then
       ee = optionalExtraExp
   end

   if optionalLevel and tonumber(optionalLevel) >= 1 then                --alterado v2.8\/
        levelRange = optionalLevel
   else
        levelRange = math.random(pokes[this].wildLvlMin, pokes[this].wildLvlMax)
   end

   local status = getPokemonStatus(this)
       if status then
           off = status.off
           def = status.def
           agi = status.agi
           vit = status.vit
           spatk = status.spatk
       end

   setPlayerStorageValue(cid, 1000, (levelRange > 100 and 100 or levelRange)) --alterado v2.8

   if optionalStatus and optionalStatus.off then
       setPlayerStorageValue(cid, 1001, optionalStatus.offense)
       setPlayerStorageValue(cid, 1002, optionalStatus.defense)
       setPlayerStorageValue(cid, 1003, optionalStatus.agility)
       setPlayerStorageValue(cid, 1004, optionalStatus.vitality)
       setPlayerStorageValue(cid, 1005, optionalStatus.specialattack)
       setPlayerStorageValue(cid, 1011, optionalStatus.offense)
       setPlayerStorageValue(cid, 1012, optionalStatus.defense)
       setPlayerStorageValue(cid, 1013, optionalStatus.agility)
       setPlayerStorageValue(cid, 1014, optionalStatus.vitality)
       setPlayerStorageValue(cid, 1015, optionalStatus.specialattack)
   else
       setPlayerStorageValue(cid, 1001, 5 + math.random(off * levelRange * 0.9, off * levelRange * 1.8))
       setPlayerStorageValue(cid, 1002, 5 + math.random(def * levelRange * 0.9, def * levelRange * 1.8))
       setPlayerStorageValue(cid, 1003, math.random(agi * levelRange * 0.9, agi * levelRange * 1.8))
       setPlayerStorageValue(cid, 1004, math.random(vit * levelRange * 0.9, vit * levelRange * 1.8))
       setPlayerStorageValue(cid, 1005, 5 + math.random(spatk * levelRange * 0.9, spatk * levelRange * 1.8))
       setPlayerStorageValue(cid, 1011, getPlayerStorageValue(cid, 1001))
       setPlayerStorageValue(cid, 1012, getPlayerStorageValue(cid, 1002))
       setPlayerStorageValue(cid, 1013, getPlayerStorageValue(cid, 1003))
       setPlayerStorageValue(cid, 1014, getPlayerStorageValue(cid, 1004))
       setPlayerStorageValue(cid, 1015, getPlayerStorageValue(cid, 1005))
   end

   doRegainSpeed(cid)

   setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + getPlayerStorageValue(cid, 1004) * HPperVIT * vitReductionForWild)
   doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

   if pokes[getCreatureName(cid)].exp then
       --getMonsterInfo(getCreatureName(cid)).experience
       local exp = (50 + pokes[getCreatureName(cid)].exp) * baseExpRate + pokes[getCreatureName(cid)].vitality * levelRange * pokemonExpPerLevelRate
       setPlayerStorageValue(cid, 1006, exp * generalExpRate * ee)
       if getPlayerStorageValue(cid, 22546) == 1 then
          setPlayerStorageValue(cid, 1006, 750)
          doSetCreatureDropLoot(cid, false)         --edited golden arena
       end
   end

   local wildshow = wildBeforeNames and "Wild " or ""
   if optionalNick then
       if hideWildsLevel then
           doCreatureSetNick(cid, optionalNick)
       else
           doCreatureSetNick(cid, optionalNick.." ["..getWildPokemonLevel(cid).."]")
       end
   else
       if hideWildsLevel then
           doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).."")
       else
           doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).." ["..getWildPokemonLevel(cid).."]")
       end
   end
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) 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), ?
   if getItemAttribute(item.uid, "nick") then
       return getItemAttribute(item.uid, "nick")
   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 getCorpseGender(cid, corpse, gender)
return getCreatureSkullType(cid)
end

function setCorpseGender(cid, corpse, gender)
if isCreature(cid) and gender then        --alterado v1.8
   doCreatureSetSkullType(cid, gender)
   return true
end
return false
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

Consegui aeeee, eu fiquei fuçando até achar qndo descobri eu me "bati" e depois dei risada kk, pega ai mano só ir em creaturescripts.xml e adicionar a tag:

		<event type="death" name="Experience" event="script" value="pokeexp.lua"/>

xxxttten · Setembro 12, 2018

Mano deu certo a corpse está vindo com o sexo certo porém quando capturo vem sexo aleatorio só falta isso mesmo.

JG6 · Setembro 12, 2018

17 minutos atrás, Maiconmafrah disse:

Mano deu certo a corpse está vindo com o sexo certo porém quando capturo vem sexo aleatorio só falta isso mesmo.

é aquela parte q te mandei q ta quero_esses é só tirar e por pra pegar o do corpse

Editado Setembro 12, 2018 por joaopera

xxxttten · Setembro 12, 2018

Ainda vem sexo random tem outro de QUERO_ESSES posso mudar também ?

Entrar

[Resolvido] Pokémons Selvagem sem sexo

Pergunta

Link para o comentário

Compartilhar em outros sites

Top Posters For This Question

Popular Days

Top Posters For This Question

Popular Days

Posted Images

34 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Anúncios