EstadualBoy

Ola Amigos,
Eu vi que ninguém ainda publicou o sistema Shiny Charm. Muitos servidores já o possuem. Eu crio um para o meu. Eu os compartilho.
 
Voces precisam da função onSpawn em creaturescript, na atualidade axo que devem ter todos em seu servidor.
Tambem precisa a funcao getSpectators, eu tenia adicionada nas sources default do meu distro (TFS 0.4)
Edite seu spawn.lua. nas primeras lineas
local shinysSpawn = { "Dodrio", "Rhydon", "Ariados", "Politoed", "Espeon", "Umbreon", "Stantler", "Mr. Mime", "Crobat", "Magmar", "Venusaur", "Charizard", "Blastoise", "Butterfree", "Beedrill", "Pidgeot", "Rattata", "Raticate" } local function doShiny(cid) if not isCreature(cid) then return true end local name2, pos2 = "Shiny ".. getCreatureName(cid), getThingPos(cid) doRemoveCreature(cid) doSendMagicEffect(pos2, 18) local shi = doCreateMonster(name2, pos2, false, true) setSto(shi, 74469, 1) end function onSpawn(cid) local name = getCreatureName(cid) if not isSummon(cid) and pokes[name] then if isInArray(shinysSpawn, name) then if getSto(cid, 74469)<=0 and getSto(cid, 22546)<=0 and getSto(cid, 637500)<=0 and getSto(cid,"golden")<=0 then if math.random(1, 120) == 1 then local list = getSpectators(getThingPos(cid), 20, 20, false) for i = 1, #list do if isPlayer(list[i]) and (getSto(list[i],13081)>=1 or getSto(list[i],13082)>=1) then sendMsg(list[i],27,"[Shiny Charm] Acaba de nacer un Shiny "..name.."! No fue por causa de Shiny Charm!") end end doShiny(cid) return true else --check for Charms local ch=1 local list = getSpectators(getThingPos(cid), 20, 20, false) for i = 1, #list do if isPlayer(list[i]) and (getSto(list[i],13081)>=1 or getSto(list[i],13082)>=1) then ch = ch + 1 if getSto(list[i],13082)>=1 then ch = ch+1 end--2x super if math.random(1, 120) <=ch then doShiny(cid) sendMsg(list[i],27,"[Shiny Charm] Felicidades grande aventurero! Nacio un Shiny "..name.." cerca tuyo por causa de tu Shiny Charm!") return true end end end ------ end end end Explicação: Basicamente, esta edição é o que está perguntando se há jogadores ao redor do Pokemon selvagem no nascimento. Se houver algum, peça para cada um deles se eles tiverem um feitiço brilhante Normal ou Especial. Se houver algum, então existe a possibilidade de que, se falhar na primeira vez que fique brilhante, ele pede novamente para cada jogador que encontrar.
O encanto brilhante dos jogadores pode ser acumulado, se houver 3 jogadores ao redor de um Charizard (exemplo), haverá mais chances de ele se tornar Brilhante (já que ele passa pelo ciclo 3 vezes).
Eu espero que você entenda.
 
Edits: voce pode mudar aki no siguiente texto, 20, 20 e a distancia em SQM que o pokemon vai procurar jogadores (no mesmo andar na uma hunt).
13081 e 13082 sao storages do shiny charm e shiny charm Especial (doble chance do normal)
(1, 120) o rate do aparicao do Shiny selvagem. local ch = 1 e rate extra do shiny charm normal, e ch=ch+1 sumaria o doble do normal (2). Se o random do 1,120 e menor o iguai que ch, entao shiny selvagen aparece.
local ch=1 local list = getSpectators(getThingPos(cid), 20, 20, false) for i = 1, #list do if isPlayer(list[i]) and (getSto(list[i],13081)>=1 or getSto(list[i],13082)>=1) then ch = ch + 1 if getSto(list[i],13082)>=1 then ch = ch+1 end--2x super if math.random(1, 120) <=ch then  
Peço desculpas pelo meu português, a verdade é que não sou Br, sou chileno. Eu envio uma saudação a todos!
Créditos: Chavoz (eu)
Voce pode publicar o sistema no outros forum, mais lembre dos Creditos pfv!
Eu convido você a experimentar meu servidor do Pokemon, ta Online. O site é Pokexmortal.com.  Tenho sistemas varios como Market, Pokebar, Cast, Etc.

Versão do Servidor: TFS - 0.3.4 (DxP)
Pedido feito:
Solução desenvolvida por mim:
 
Substitua a função doFish no arquivo: "DxP-Server-V3\data\actions\scripts\Basic\pesca.lua"
local function doFish(cid, pos, ppos, interval) if not isCreature(cid) then return false end if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then return false end doSendMagicEffect(pos, CONST_ME_LOSEENERGY) if interval > 0 then addEvent(doFish, 1000, cid, pos, ppos, interval-1) return true end local peixe = 0 local playerpos = getClosestFreeTile(cid, getThingPos(cid)) local fishes = fishing[getPlayerStorageValue(cid, sto_iscas)] local random = {} if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus * 5) end --[[if math.random(1, 100) <= chance then if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus * 5) end]] random = fishes.pokes[math.random(#fishes.pokes)] for i = 1, math.random(random[2]) do if #getCreatureSummons(cid) >= 1 -- se o jogador tiver sumonado algum pokemon,pegará a posição do pokemon then peixe = doSummonCreature(random[1], getClosestFreeTile(cid, getThingPos(getCreatureSummons(cid)[1]))) -- se não pegará a do jogador else peixe = doSummonCreature(random[1],playerpos) end if not isCreature(peixe) then setPlayerStorageValue(cid, storageP, -1) doRemoveCondition(cid, CONDITION_OUTFIT) return true end setPokemonPassive(peixe, true) doSetPokemonAgressiveToPlayer(peixe, cid) setPlayerStorageValue(peixe, storageP, 1) if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 0) doChallengeCreature(getCreatureSummons(cid)[1], peixe) else doSendMagicEffect(getThingPos(cid), 0) doChallengeCreature(cid, peixe) end end setPlayerStorageValue(cid, storageP, -1) doRemoveCondition(cid, CONDITION_OUTFIT) return true end Como funciona?
Se o jogador  tiver invocado um pokemon,ele vai sumonar os pokemons pescados próximo ao pokemon do jogador,caso contrario,será próximo ao jogador.
 
Resultado:
 

onde edito a % de perfeição de um pokemon ?
 
donde edito el% de perfección de un pokemon?