[RESOLVIDO] Alquem Poderia Me Ajuda Com Esse Erro !

 

Script Spawn.lua 

 

local shinys = {"Venusaur","Charizard","Blastoise","Ivysaur","Charmander","Charmeleon","Squirtle","Wartortle","Pidgey","Pidgeotto","Pikachu",

"Nidoran Female","Nidorina","Nidoran Male","Nidorino","Wigglytuff","Gloom","Gastly","Haunter","Elekid","Butterfree","Magby","Porygon2",

"Pidgeot","Rattata","Raticate","Fearow","Raichu","Nidoking","Zubat","Golbat","Vileplume","Paras","Parasect","Venonat","Venomoth","Growlithe",

"Arcanine","Abra","Alakazam","Tentacool","Tentacruel","Golem","Farfetch'd","Grimer","Muk","Gengar","Onix","Hypno","Krabby","Kingler","Voltorb",

"Electrode","Cubone","Marowak","Hitmonlee","Hitmonchan","Tangela","Horsea","Seadra","Scyther","Jynx","Electabuzz","Pinsir","Magikarp","Gyarados",

"Vaporeon","Jolteon","Flareon","Snorlax","Dratini","Dragonair","Dragonite"

}

 local raros = {}

 

local function doPokemonRegisterLevel(cid)

 if not isCreature(cid) then return true end

 if getWildPokemonLevel(cid) == -1 then

 setWildPokemonLevel(cid)

 end

 end

 

local function doSetRandomGender(cid)

 if not isCreature(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 = 0

 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 isNpcSummon(cid) then return true end

 if isInArray(shinys, getCreatureName(cid)) then

 transform = math.random(10, 1000) --6% chance 

elseif isInArray(raros, getCreatureName(cid)) then

 transform = math.random(5, 1000) --1% chance 

elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then

 return true

 end 

if transform == 1000 then

 doSendMagicEffect(getThingPos(cid), 18)

 local shi = doCreateMonster("Shiny ".. getCreatureName(cid) .."", getThingPos(cid))

 setPlayerStorageValue(shi, 74469, 1)

 setPlayerStorageValue(cid, 74469, 1)

 doRemoveCreature(cid)

 else

 setPlayerStorageValue(cid, 74469, 1)

 end

 else

 return true

 end

 end

 

function onSpawn(cid)

 

registerCreatureEvent(cid, "GeneralConfiguration")

 registerCreatureEvent(cid, "DirectionSystem")

 registerCreatureEvent(cid, "CastSystem")

 

if isSummon(cid) then

 registerCreatureEvent(cid, "SummonDeath")

 return true

 end

 

registerCreatureEvent(cid, "Experience")

 

addEvent(doPokemonRegisterLevel, 5, cid)

 addEvent(doSetRandomGender, 5, cid)

 addEvent(doShiny, 10, cid)

 

return true

 end

Editado Julho 22, 2014 10 anos por wesquel (veja o histórico de edições)

qual tfs vc usa?

qual tfs vc usa?

Tfs ? 

qual tfs vc usa?

THE FORGONTE SERVE ? EU USO MSYQL SE FOR ISSO

Ele kere saver cual server usa , poke zot flash ou otro 

Ja Resolvi Pode Fechar o post