Voce pois o id da stone ? e verificou se seu server tem todos esses shinys citados?

COloquei id mais não virifiquei

 

@edit

 

Olha como fico depois de tira os poke que não tinha 

 

local evo = {

          

["Abra"] = "Shiny Abra",

["Alakazam"] = "Shiny Alakazam",

["Arcanine"] = "Shiny Arcanine",

["Beedrill"] = "Shiny Beedrill",

["Blastoise"] = "Shiny Blastoise",

["Butterfree"] = "Shiny Butterfree",

["Charizard"] = "Shiny Charizard",

["Cubone"] = "Shiny Cubone",

["Dragonair"] = "Shiny Dragonair",

["Dragonite"] = "Shiny Dragonite",

["Dratini"] = "Shiny Dratini",

["Electabuzz"] = "Shiny Electabuzz",

["Electrode"] = "Shiny Electrode",

["Flareon"] = "Shiny Flareon",["Gengar"] = "Shiny Gengar",["Golem"] = "Shiny Golem",["Growlithe"] = "Shiny Growlithe",["Gyarados"] = "Shiny Gyarados",["Hitmonchan"] = "Shiny Hitmonchan",["Hitmonlee"] = "Shiny Hitmonlee",["Horsea"] = "Shiny Horsea",["Hypno"] = "Shiny Hypno",["Jolteon"] = "Shiny Jolteon",["Jynx"] = "Shiny Jynx",["Kingler"] = "Shiny Kingler",["Krabby"] = "Shiny Krabby",["Magikarp"] = "Shiny Magikarp",["Marowak"] = "Shiny Marowak",["Muk"] = "Shiny Muk",["Nidoking"] = "Shiny Nidoking",["Oddish"] = "Shiny Oddish",["Onix"] = "Shiny Onix",["Pidgeot"] = "Shiny Pidgeot",["Raichu"] = "Shiny Raichu",["Raticate"] = "Shiny Raticate",["Rattata"] = "Shiny Rattata",["Scyther"] = "Shiny Scyther",["Seadra"] = "Shiny Seadra",["Snorlax"] = "Shiny Snorlax",["Tentacruel"] = "Shiny Tentacruel",["Venomoth"] = "Shiny Venomoth",["Venonat"] = "Shiny Venonat",["Venusaur"] = "Shiny Venusaur",["Vileplume"] = "Shiny Vileplume",["Voltorb"] = "Shiny Voltorb",["Zubat"] = "Shiny Zubat",}

local pokeballs = {

[2531] = {"Pokeball"},[2557] = {"Superball"},[2524] = {"Greatball"},[2525] = {"Ultraball"},[2523] = {"Masterball"},}

function onUse(cid, item, fromPosition, itemEx, toPosition)

if isMonster(itemEx.uid) and getCreatureMaster(itemEx.uid) == cid then

local monster  = getCreatureName(itemEx.uid)

if evo[monster] then

local health, maxHealth = getCreatureHealth(itemEx.uid), getCreatureMaxHealth(itemEx.uid)

doRemoveCreature(itemEx.uid)

doRemoveItem(item.uid)

local summon = doCreateMonster(evo[monster], toPosition)

doConvinceCreature(cid, summon)

local balls = pokeballs[getPlayerSlotItem(cid,8).itemid]

doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "name", ""..evo[monster].." "..balls[1])doCreatureAddHealth(summon, health-maxHealth)

doSendMagicEffect(getThingPos(summon), 18)

return TRUE

end

end

return FALSE

end

Editado Junho 11, 2013 12 anos por ryukicho (veja o histórico de edições)

Bom esse scripts ja é um pouco diferente ele utiliza mais do que 1 shiny stone para evoluir um pokemon verifica ae se tem os shinys abaixo.

<action itemid="8300" event="script" value="Shiny stone.lua">

 

local evo = {
                                                   --nome do shiny, qnts stones precisa
                ["Abra"] = {"Shiny Abra", 7},
                ["Arcanine"] = {"Shiny Arcanine", 6},
                ["Beedrill"] = {"Shiny Beedrill", 2},
                ["Blastoise"] = {"Shiny Blastoise", 7},
                ["Dratini"] = {"Shiny Dratini", 3},
                ["Electabuzz"] = {"Shiny Electabuzz", 5},
                ["Grimer"] = {"Shiny Grimer", 1},
                ["Growlithe"] = {"Shiny Growlithe", 2},
                ["Gyarados"] = {"Shiny Gyarados", 7},
                ["Hitmonchan"] = {"Shiny Hitmonchan", 5},
                ["Hitmonlee"] = {"Shiny Hitmonlee", 5},
                ["Horsea"] = {"Shiny Horsea", 1},
                ["Jynx"] = {"Shiny Jynx", 4},
                ["Onix"] = {"Shiny Onix", 7},
                ["Kingler"] = {"Shiny Kingler", 3},
                ["Krabby"] = {"Shiny Krabby", 1},
                ["Raichu"] = {"Shiny Raichu", 5},
                ["Raticate"] = {"Shiny Raticate", 2},
                ["Scyther"] = {"Shiny Scyther", 6},
                ["Seadra"] = {"Shiny Seadra", 4},
                ["Tentacruel"] = {"Shiny Tentacruel", 6},
                ["Venomoth"] = {"Shiny Venomoth", 6},
                ["Venusaur"] = {"Shiny Venusaur", 7},
                ["Voltorb"] = {"Shiny Voltorb", 1},
                ["Electrode"] = {"Shiny Electrode", 3},
                ["Pinsir"] = {"Shiny Pinsir", 5},
                ["Gengar"] = {"Shiny Gengar", 8},
                ["Snorlax"] = {"Shiny Snorlax", 7},
                ["Alakazam"] = {"Shiny Alakazam", 8},
                ["Zubat"] = {"Shiny Zubat", 1},
                ["Pidgeot"] = {"Shiny Pidgeot", 4},
                ["Paras"] = {"Shiny Paras", 1},
                ["Parasect"] = {"Shiny Parasect", 3},
                ["Golbat"] = {"Shiny Golbat", 3},
                ["Charizard"] = {"Shiny Charizard", 7},
                ["Magikarp"] = {"Shiny Magikarp", 2},
                ["Dragonair"] = {"Shiny Dragonair", 5},
                ["Dragonite"] = {"Shiny Dragonite", 9},
                ["Aerodactyl"] = {"Shiny Aerodactyl", 50},
}
local balls = {
[11826] = {newBall = 11826},
[11832] = {newBall = 11832},
[11835] = {newBall = 11835},
[11829] = {newBall = 11829},
}
function onUse(cid, item, fromPosition, itemEx, toPosition)
   if isMonster(itemEx.uid) and getCreatureMaster(itemEx.uid) == cid then
                  local monster = getCreatureName(itemEx.uid)
                  if evo[monster] then
                                 if getPlayerItemCount(cid, item.itemid) >= evo[monster][2] then
                                        doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(itemEx.uid).." evolved into a "..evo[monster][1].."!")
                                        local health, maxHealth = getCreatureHealth(itemEx.uid), getCreatureMaxHealth(itemEx.uid)
                                        doSendMagicEffect(getThingPos(itemEx.uid), 18)
                                        doRemoveCreature(itemEx.uid)
                                        doPlayerRemoveItem(cid, item.itemid, evo[monster][2]-1)
                                        doRemoveItem(item.uid, 1)
                                        doSummonMonster(cid,evo[monster][1])
                                        local pokeball = getPlayerSlotItem(cid, 8)
                                        doItemSetAttribute(pokeball.uid, "poke", evo[monster][1])
                                        doItemSetAttribute(pokeball.uid, "level", pokes[evo[monster][1]].level)
                                        doItemSetAttribute(ball, "hp", 1)
                                        doItemSetAttribute(ball, "happy", 110)
                                        local pk = getCreatureSummons(cid)[1]
                                        local getShinyPokeballs = balls[getPlayerSlotItem(cid, 8).itemid]
                                        doTransformItem(getPlayerSlotItem(cid, 8).uid, getShinyPokeballs.newBall)
                                        adjustStatus(pk, pokeball.uid, true, false, true)
                                        return TRUE
                                 else
                                        return doPlayerSendTextMessage(cid, 27, "You need atleast ".. evo[monster][2] .." stones to do it!")
                                 end
                  end
end
return FALSE
end

Deu erro agora no distro 

action

Posta o erro ai