Postado Março 17, 2017 8 anos Preciso de um script que nem de pokemon shiny so que ele funcionara igual so que o seria boss esse é o do shiny de pokemon se alguem conseguir adptar pra tibia agradeço desde ja Mostrar conteúdo oculto local boss = { "Venusaur", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate", "Raichu", "Golbat", "Paras", "Parasect", "Magmar", "Typhlosion", "Xatu", "Growlithe", "Arcanine", "Tentacruel", "Farfetch'd", "Gengar", "Krabby", "Tauros", "Kingler", "Cubone", "Marowak", "Horsea", "Seadra", "Weezing", "Scyther", "Pinsir", "Crobat", "Ariados", "Beedrill", "Blaziken", "Espeon", "Farfetch'd", "Hitmoncham", "Hirmonlee", " Hitmontop", "Dodrio", "Zubat", "Tentacool", "Feraligatr", "Machamp", "Meganium", "Alakazam", "Oddish", "Tangela", "Ampharos", "Electabuzz", "Jynx", "Charizard", "Voltorb", "Electrode", "Tangrowth", "Rapidash", "Gardevoir", "Bronzong", "Charmander", "Charmeleon", "Bulbasaur", "Ivysaur", "Squirtle", "Wartortle", "Machop", "Machoke", "Pidgey", "Pidgeotto", "Pikachu", "Wobbuffet"} local boss = {"Dragonair", "Dratini", "Giant Magikarp", "Gyarados", "Magmortar", "Electivire", "Salamence", "Mantine", "Black Tangrowth"} 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 = 4 elseif rate == 500 then gender = 5 elseif rate == -1 then gender = 1 elseif math.random(1, 500) <= rate then gender = 3 else gender = 4 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.2 --1% chance elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !! chance = 1.0 --1% chance else return true end if math.random(1, 500) <= 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 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(doShiny, 10, cid) addEvent(ShinyName, 15, cid) addEvent(adjustWildPoke, 5, cid) return true end
Postado Março 21, 2017 8 anos up Editado Março 21, 2017 8 anos por darcioantonio (veja o histórico de edições)
Postado Março 21, 2017 8 anos @darcioantonio aqui não é playground para brincadeira, ou mensagem sem importância não relacionada ao conteúdo do tópico. Leia as regras! Regra Nº 2.4 - Mensagens inúteis: Não poste mensagens sem conteúdo, que não contribuem em nada ou que não estejam relacionadas ao assunto do tópico. Mensagens assim são chamadas de Floods. Postar coisas como "haha", "lol", "me add no msn aí", entre outras, é o que considera-se completamente inútil. Postar várias mensagens iguais, mesmo que em tópicos diferentes, também pode ser considerado Flood.
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.