vinicius231 8 Postado Janeiro 24, 2019 Share Postado 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 \/ Tiu Biel reagiu a isso 1 Link para o comentário Compartilhar em outros sites More sharing options...
3 Marshmello 270 Postado Janeiro 24, 2019 Share Postado 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 reagiu a isso 1 Link para o comentário Compartilhar em outros sites More sharing options...
0 Tiu Biel 0 Postado Janeiro 24, 2019 Share Postado Janeiro 24, 2019 Up! Link para o comentário Compartilhar em outros sites More sharing options...
0 Marshmello 270 Postado Janeiro 24, 2019 Share Postado Janeiro 24, 2019 Manda o Spawn.lua Link para o comentário Compartilhar em outros sites More sharing options...
0 Tiu Biel 0 Postado Janeiro 24, 2019 Share Postado Janeiro 24, 2019 (editado) 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 Link para o comentário Compartilhar em outros sites More sharing options...
0 vinicius231 8 Postado Janeiro 24, 2019 Autor Share Postado 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 Link para o comentário Compartilhar em outros sites More sharing options...
0 Marshmello 270 Postado Janeiro 24, 2019 Share Postado 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. Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
vinicius231 8
❤️ 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 \/
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados