[Resolvido] Pokemons selvagens sem sexo

vinicius231 · Janeiro 24, 2019

❤️ Não sei se e aqui que peço a ajuda sobre isso mas caso esteja errando , Perdoe-me ❤️

Estou com um problema , os pokemons selvagens não estão com sexo

O unico sexo que esta aparecendo e o Indefinido e apenas no Pokemon Unown!

❤️❤️ ❤️❤️

Imagem \/

716001653_sexodospkm.png.89c6e2a4c5ec6a64d3c766c79552ebf1.png

Marshmello · Janeiro 24, 2019

Citar


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", "Magmar", "Absol", "Chandelure", "Wobbuffet", "Tyranitar", "Gallade", "Treecko", "Emboar", "Serperior", "Weezing",
"Aerodactyl", "Golem", "Ninetales", "Fearow", "Hypno", "Vaporeon", "Typhlosion", "Staryu", "Miltank", "Exeggutor", "Kingdra", "Gloom", "Spiritomb", "Drapion", "Gardevoir", "Milotic",
"Roserade", "Clefable", "Flygon", "Tangrowth", "Vileplume", "Ariados", "Cradily", "Oddish", "Sceptile", "Lileep", "Tropius", "Gliscor", "Probopass", "Metagross", "Rhyperior", "Slaking",
"Chansey", "Lapras", "Lucario", "Blissey", "Steelix", "Togekiss", "Porygon", "Salamence", "Wigglytuff", "Shelgon", "Metang", "Beldum", "Aron", "Bagon", "Aggron", "Lairon", "Magby", "Dodrio",
"Stantler", "Umbreon", "Politoed", "Espeon", "Magneton", "Rhydon", "Nidoking", "Jolteon", "Flareon", "Gyarados", "Gyarados", "Hitmontop", "Caterpie", "Arbok"
}

local raros = {"Dragonite"}  
                             
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 = 1
		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 
   if isNpcSummon(cid) then return true end
   if getPlayerStorageValue(cid, 637500) >= 1 then return true end  --alterado v1.9
   
if isInArray(shinys, getCreatureName(cid)) then  --alterado v1.9 \/
   chance = 0.1   --1% chance        
elseif isInArray(raros, getCreatureName(cid)) then   --n coloquem valores menores que 0.1 !!
   chance = 0.1   --1% chance       
else
   return true
end    
    if math.random(1, 1000) <= chance*10 then  
      doSendMagicEffect(getThingPos(cid), 18)               
      local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid)
      doRemoveCreature(cid)
      local shi = doCreateMonster(name, pos, false)
      setPlayerStorageValue(shi, 74469, 1)      
   else
       setPlayerStorageValue(cid, 74469, 1)
   end                                        --/\
else                                                            
return true
end
end



local function doZorua(cid) 
if isCreature(cid) then 
if isSummon(cid) then return true end 
if getPlayerStorageValue(cid, 74469) >= 1 then return true end 
if getPlayerStorageValue(cid, 22546) >= 1 then return true end 
if isNpcSummon(cid) then return true end 
if getPlayerStorageValue(cid, 637500) >= 1 then return true end 

--alterado v1.9 
if os.date("%X") >= "00:00:00" and os.date("%X") <= "03:00:00" then 
chance = 0.75 
elseif os.date("%X") >= "03:01:00" and os.date("%X") <= "05:00:00" then 
chance = 1.50 
elseif os.date("%X") >= "05:01:00" and os.date("%X") <= "07:00:00" then 
chance = 1 
elseif os.date("%X") >= "07:00:00" and os.date("%X") <= "12:00:00" then 
chance = 0.20 
elseif os.date("%X") >= "12:01:00" and os.date("%X") <= "16:00:00" then 
chance = 0.10 
elseif os.date("%X") >= "16:01:00" and os.date("%X") <= "18:00:00" then 
chance = 0.10 
elseif os.date("%X") >= "18:01:00" and os.date("%X") <= "20:00:00" then 
chance = 0.15 
elseif os.date("%X") >= "20:01:00" and os.date("%X") <= "22:00:00" then 
chance = 3
elseif os.date("%X") >= "22:01:00" and os.date("%X") <= "23:59:59" then 
chance = 0.30 
else 
hance = 0 
end 

local test = math.random(1,20000) 
if test <= chance*5 then 
doSendMagicEffect(getThingPos(cid), 18) 	 
local lvl = math.random(10, 30)	 
local name, pos = "Zorua", getThingPos(cid) 
local shi = doCreateMonster(name, pos , false) 	 
doSetCreatureOutfit(shi, getCreatureOutfit(cid), -1) 
 doCreatureSetNick(shi, getCreatureName(cid)) 
 setPlayerStorageValue(shi, 1000, lvl) 
 doRemoveCreature(cid) 
 setPlayerStorageValue(shi, 74469, 1) 	
 print("Um " .. name .. " foi spawnado em X=" .. pos.x .. " Y=" .. pos.y .. " Z=" .. pos.z)	 
 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(doZorua, 10, cid)
	addEvent(adjustWildPoke, 5, cid)
return true
end

Tiu Biel · Janeiro 24, 2019

Up!

Marshmello · Janeiro 24, 2019

Manda o Spawn.lua

Tiu Biel · Janeiro 24, 2019

19 minutos atrás, Marshmello disse:

Manda o Spawn.lua

Spoiler

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"}

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 == 500 then
   gender = 3
  elseif rate == 500 then
   gender = 4
  elseif rate == -1 then
   gender = 1
  elseif math.random(1, 500) <= rate then
   gender = 4
  else
   gender = 3
  end

  if gender == 1 then
doCreatureSetSkullType(cid, gender)
end
end

local function doShiny(cid)
if isCreature(cid) then
   if isSummon(cid) then return true end
   if getPlayerStorageValue(cid, 74469) >= 1 then return true end
   if getPlayerStorageValue(cid, 22546) >= 1 then return true end
   if isNpcSummon(cid) then return true end
   if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9

if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/
   chance = 0.1    --1% chance
elseif isInArray(raros, getCreatureName(cid)) then   --n coloquem valores menores que 0.1 !!
   chance = 0.1   --1% chance
else
   return true
end
    if math.random(1, 1000) <= chance*10 then
      doSendMagicEffect(getThingPos(cid), 18)
      local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid)
      doRemoveCreature(cid)
      local shi = doCreateMonster(name, pos, false)
      setPlayerStorageValue(shi, 74469, 1)
   else
       setPlayerStorageValue(cid, 74469, 1)
   end                                        --/\
else
return true
end
end
local function doZorua(cid)
if isCreature(cid) then
   if isSummon(cid) then return true end
   if getPlayerStorageValue(cid, 74469) >= 1 then return true end
   if getPlayerStorageValue(cid, 22546) >= 1 then return true end
   if isNpcSummon(cid) then return true end
   if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9

if os.date("%X") >= "00:00:00" and os.date("%X") <= "03:00:00" then
chance = 5.75
elseif os.date("%X") >= "03:01:00" and os.date("%X") <= "05:00:00" then
chance = 5.50
elseif os.date("%X") >= "05:01:00" and os.date("%X") <= "07:00:00" then
chance = 5
elseif os.date("%X") >= "07:00:00" and os.date("%X") <= "12:00:00" then
chance = 5.20
elseif os.date("%X") >= "12:01:00" and os.date("%X") <= "16:00:00" then
chance = 5.10
elseif os.date("%X") >= "16:01:00" and os.date("%X") <= "18:00:00" then
chance = 5.10
elseif os.date("%X") >= "18:01:00" and os.date("%X") <= "20:00:00" then
chance = 5.15
elseif os.date("%X") >= "20:01:00" and os.date("%X") <= "22:00:00" then
chance = 5.18
elseif os.date("%X") >= "22:01:00" and os.date("%X") <= "23:59:59" then
chance = 5.30
else
chance = 5
end

   local test = math.random(1,20000)

    if test <= chance*5 then
      doSendMagicEffect(getThingPos(cid), 18)
   local lvl = math.random(10, 30)
      local name, pos = "Zorua", getThingPos(cid)
      local shi = doCreateMonster(name, pos , false)
   doSetCreatureOutfit(shi, getCreatureOutfit(cid), -1)
   doCreatureSetNick(shi, getCreatureName(cid))
      doRemoveCreature(cid)
      setPlayerStorageValue(shi, 74469, 1)
   print("Um " .. name .. " foi spawnado em X=" .. pos.x .. " Y=" .. pos.y .. " Z=" .. pos.z)
   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(doZorua, 10, cid)
addEvent(adjustWildPoke, 5, cid)

return true
end
local storages = {17000, 63215, 17001, 13008, 5700}
    for s = 1, #storages do
        if not tonumber(getPlayerStorageValue(cid, storages)) then
           if s == 3 then
              setPlayerStorageValue(cid, storages, 1)
           elseif s == 4 then
              setPlayerStorageValue(cid, storages, -1)
           else
              if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then
                 setPlayerStorageValue(cid, storages, 1)
              else
                 setPlayerStorageValue(cid, storages, -1)
              end
           end
           doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")
        end
    end

Editado Janeiro 24, 2019 por Tiu Biel

vinicius231 · Janeiro 24, 2019

1 hora atrás, Marshmello disse:

Manda o Spawn.lua

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"}

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 = 1
       elseif math.random(1, 1000) <= rate then
           gender = 4
       else
           gender = 3
       end

       if gender == 1 then
   doCreatureSetSkullType(cid, gender)
   end
end

local function doShiny(cid)
if isCreature(cid) then
if isSummon(cid) then return true end
if getPlayerStorageValue(cid, 74469) >= 1 then return true end
if getPlayerStorageValue(cid, 22546) >= 1 then return true end
if isNpcSummon(cid) then return true end
if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9

if isInArray(shinys, getCreatureName(cid)) then --alterado v1.9 \/
chance = 0.1 --1% chance
elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!
chance = 0.1 --1% chance
else
return true
end
if math.random(1, 1000) <= chance*10 then
doSendMagicEffect(getThingPos(cid), 18)
local name, pos = "Shiny ".. getCreatureName(cid), getThingPos(cid)
doRemoveCreature(cid)
local shi = doCreateMonster(name, pos, false)
setPlayerStorageValue(shi, 74469, 1)
else
setPlayerStorageValue(cid, 74469, 1)
end --/\
else
return true
end
end
local function doZorua(cid)
if isCreature(cid) then
if isSummon(cid) then return true end
if getPlayerStorageValue(cid, 74469) >= 1 then return true end
if getPlayerStorageValue(cid, 22546) >= 1 then return true end
if isNpcSummon(cid) then return true end
if getPlayerStorageValue(cid, 637500) >= 1 then return true end --alterado v1.9

if os.date("%X") >= "00:00:00" and os.date("%X") <= "03:00:00" then
chance = 5.75
elseif os.date("%X") >= "03:01:00" and os.date("%X") <= "05:00:00" then
chance = 5.50
elseif os.date("%X") >= "05:01:00" and os.date("%X") <= "07:00:00" then
chance = 5
elseif os.date("%X") >= "07:00:00" and os.date("%X") <= "12:00:00" then
chance = 5.20
elseif os.date("%X") >= "12:01:00" and os.date("%X") <= "16:00:00" then
chance = 5.10
elseif os.date("%X") >= "16:01:00" and os.date("%X") <= "18:00:00" then
chance = 5.10
elseif os.date("%X") >= "18:01:00" and os.date("%X") <= "20:00:00" then
chance = 5.15
elseif os.date("%X") >= "20:01:00" and os.date("%X") <= "22:00:00" then
chance = 5.18
elseif os.date("%X") >= "22:01:00" and os.date("%X") <= "23:59:59" then
chance = 5.30
else
chance = 5
end

local test = math.random(1,20000)

if test <= chance*5 then
doSendMagicEffect(getThingPos(cid), 18)
   local lvl = math.random(10, 30)
local name, pos = "Zorua", getThingPos(cid)
local shi = doCreateMonster(name, pos , false)
   doSetCreatureOutfit(shi, getCreatureOutfit(cid), -1)
   doCreatureSetNick(shi, getCreatureName(cid))
doRemoveCreature(cid)
setPlayerStorageValue(shi, 74469, 1)
   print("Um " .. name .. " foi spawnado em X=" .. pos.x .. " Y=" .. pos.y .. " Z=" .. pos.z)
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(doZorua, 10, cid)
   addEvent(adjustWildPoke, 5, cid)

return true
end

Marshmello · Janeiro 24, 2019

O pedido neste tópico de foi atendido e/ou o autor do tópico resolveu sua duvida. Este tópico está fechado e foi movido para Pedidos - Resolvidos. Se você tiver outros pedidos, crie um novo tópico.

Entrar

[Resolvido] Pokemons selvagens sem sexo

Pergunta

vinicius231 7

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

Marshmello 270

Link para o comentário

Compartilhar em outros sites

Tiu Biel 0

Link para o comentário

Compartilhar em outros sites

Marshmello 270

Link para o comentário

Compartilhar em outros sites

Tiu Biel 0

Link para o comentário

Compartilhar em outros sites

vinicius231 7

Link para o comentário

Compartilhar em outros sites

Marshmello 270

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Fóruns

Tutoriais

Suporte