Ir para conteúdo
  • 0

[Resolvido] Pokemons selvagens sem sexo


vinicius231

Pergunta

❤️ 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

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 3
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

 

Link para o comentário
Compartilhar em outros sites

  • 0
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 por Tiu Biel
Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...