[Encerrado] (Pedido) Chance Aparecer Pokemon Raro

[Slicer 1070]

ah.. pq q soh deu quando tu tiro isso? tu NAO poderia ter tirado isso.. oq tava dando de errado? tas usando a versao com lvl ou sem lvl?

e n, n vai nascer no lugar de npc.. mas na real pode nascer no lugar de summon ;x tenta usar esse...

Se tiver usando o serv sem lvl! \/

 

local shinys = {

"Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect",

"Venonat", "Venomoth", "Growlithe", "Arcanine", "Abra", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'd", "Grimer", "Muk", "Gengar", "Onix", "Krabby",

"Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir",

"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini"}

local raros = {"Dragonite"} --alterado v1.5

 

local lendarios = {"Mewtwo", "Mew"}

 

local function doLendario(cid)

if isCreature(cid) then

 

if isSummon(cid) then return true end

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

if isNpcSummon(cid) then return true end

 

local chance = 0.1 --0.1 = 0.1%... 1 = 1%...

if math.random(1000) <= chance*10 then

local pos = getThingPos(cid)

local lend = lendarios[math.random(#lendarios)]

doRemoveCreature(cid)

local sum = doSummonCreature(lend, pos)

doSendMagicEffect(getThingPos(sum), 18)

return true

end

end

return true

end

 

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 == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= 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 --alterado v1.7 -golden-

if isNpcSummon(cid) then return true end

 

if isInArray(shinys, getCreatureName(cid)) then

transform = math.random(1, 1000) --0.1% chance

elseif isInArray(raros, getCreatureName(cid)) then

transform = math.random(1, 1000) --0.1% chance

else

return true

end

if transform == 10 then

doSendMagicEffect(getThingPos(cid), 18)

local shi = doCreateMonster("Shiny ".. getCreatureName(cid) .."", getThingPos(cid))

setPlayerStorageValue(shi, 74469, 1)

setPlayerStorageValue(cid, 74469, 1)

doRemoveCreature(cid)

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)

addEvent(doLendario, 15, cid)

 

return true

end

 

 

se tiver usando o serv com lvl... \/

 

local shinys = {

"Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Zubat", "Golbat", "Paras", "Parasect",

"Venonat", "Venomoth", "Growlithe", "Arcanine", "Abra", "Alakazam", "Tentacool", "Tentacruel", "Farfetch'd", "Grimer", "Muk", "Gengar", "Onix", "Krabby",

"Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Seadra", "Scyther", "Jynx", "Electabuzz", "Pinsir",

"Magikarp", "Gyarados", "Snorlax", "Dragonair", "Dratini",

}

local raros = {"Dragonite"} --alterado v2.5

 

local lendarios = {"Mewtwo", "Mew"}

 

local function doLendario(cid)

if isCreature(cid) then

 

if isSummon(cid) then return true end

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

if isNpcSummon(cid) then return true end

 

local chance = 0.1 --0.1 = 0.1%... 1 = 1%...

if math.random(1000) <= chance*10 then

local pos = getThingPos(cid)

local lend = lendarios[math.random(#lendarios)]

doRemoveCreature(cid)

local sum = doSummonCreature(lend, pos)

doSendMagicEffect(getThingPos(sum), 18)

return true

end

end

return true

end

 

local function ShinyName(cid)

if isCreature(cid) then

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

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

local newNamed = newName.." ["..getPokemonLevel(cid).."]"

doCreatureSetNick(cid, newNamed)

if isMonster(cid) then

doSetCreatureDropLoot(cid, false)

end

end

end

end

 

 

local function doPokemonRegisterLevel(cid)

if not isCreature(cid) then return true end

if getWildPokemonLevel(cid) == -1 then

setWildPokemonLevel(cid)

end

end

 

local function doSetRandomGender(cid)

if not isCreature(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 == 1000 then

gender = 4

elseif rate == -1 then

gender = 0

elseif math.random(1, 1000) <= 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 --alterado v2.7 -golden-

if isNpcSummon(cid) then return true end

 

if isInArray(shinys, getCreatureName(cid)) then

transform = math.random(1, 1000) --0.1% chance

elseif isInArray(raros, getCreatureName(cid)) then

transform = math.random(1, 1000) --0.1% chance

elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then

return true

end

if transform == 10 then

doSendMagicEffect(getThingPos(cid), 18)

local shi = doCreateMonster("Shiny ".. getCreatureName(cid) .."", getThingPos(cid))

setPlayerStorageValue(shi, 74469, 1)

setPlayerStorageValue(cid, 74469, 1)

doRemoveCreature(cid)

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(doPokemonRegisterLevel, 5, cid)

addEvent(doSetRandomGender, 5, cid)

addEvent(doShiny, 10, cid)

addEvent(ShinyName, 15, cid)

addEvent(doLendario, 15, cid)

 

return true

end

 

[zedarosquinha 0]

Coloquei esse que vc passou por último do com lvl e funfou belezinha.

 

Eu tive que tirar aquela parte pq quando abria o server dava um pau muito loco, apareceu um trilhão de erro e não parava suhasuahausha

 

Agora com esse não tem chance de aparecer lendario nem shiny no pokemon que eu sumonar da pokebola?

 

Outra coisa, aproveitando sua ajudinha =), os pokemons shiny não substituem o pokemon normal, mas os lendários sim,

 

o que precisa mudar pra quando for dar respawn aparecer o shiny no lugar do normal ao invés de aparecer do lado?

 

vlw, muito obrigado!!!

[Slicer 1070]

n aparece ao lado...

como tu pode ver aki..

if transform == 10 then
doSendMagicEffect(getThingPos(cid), 18)
local shi = doCreateMonster("Shiny ".. getCreatureName(cid) .."", getThingPos(cid))
setPlayerStorageValue(shi, 74469, 1)
setPlayerStorageValue(cid, 74469, 1)
doRemoveCreature(cid)
else

ele remove esse poke.. oq pode ta acontecendo eh.. nasce o poke, ele vira shiny e depois da o resp do poke denovo antes de alguem matar o shiny ;x

[zedarosquinha 0]

A ta, acho que entendi.

Mas da nada não, aí é só frufru mesmo aushausha.

[Stigal 585]

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.