PDA By: Bolz:: Versão [GOD anna]

[SamueLGuedes 333]

Anna se quiser uma ajuda me add Skype: samukaszz. =D

[Lordfireot 16]

Ola ana deu esse tipo de erro

 

Me ajuda aqui deu erro no meu servidor.

 

 

 

Meu Spawn

 

 

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 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 = 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 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 = 1 --1% chance

elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!

chance = 2.0 --0.5% 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

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(ShinyName, 15, cid)

addEvent(adjustWildPoke, 5, cid)

return true

end

 

 

[renatapt 1]

Parabens Sra Anna esperado na v2 para curtir :D

[fabiosa 8]

alguem ai sabe aonde eu aumento a velocidade do fly?

[valakas 90]

Waiting Second version XD cade meus creditos anna huehue

a primeira versão esta Foda , imagine a segunda

 

Anna faz um favor.... Conserta o fly esta Voando na velocidade maxima do jogo ou seja nem vale a pena a bike XD surf tbem e ride , você vai inteira alguma geraçao nova ?

[Wend ll 268]

Ola ana deu esse tipo de erro

 

Me ajuda aqui deu erro no meu servidor.

 

 

 

Meu Spawn

 

 

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 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 = 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 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 = 1 --1% chance

elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!

chance = 2.0 --0.5% 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

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(ShinyName, 15, cid)

addEvent(adjustWildPoke, 5, cid)

return true

end

 

 

Toma meu Spawn.lua

sem erros

 

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 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 = 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 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 = 1 --1% chance

elseif isInArray(raros, getCreatureName(cid)) then --n coloquem valores menores que 0.1 !!

chance = 2.0 --0.5% 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

 

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(ShinyName, 15, cid)

addEvent(adjustWildPoke, 5, cid)

 

return true

end

 

[valakas 90]

systema de fishing só que que configurar para fica Autofishing

 

 

 

function onUse(cid, item, fromPos, itemEx, toPos)

d0 =

{

[0] = {pokemon = 'Magikarp'},

}

d20 =

{

[0] = {pokemon = 'Magikarp'},

[1] = {pokemon = 'Horsea'},

[2] = {pokemon = 'Poliwag'},

[3] = {pokemon = 'Goldeen'},

[4] = {pokemon = 'Krabby'},

}

d40 =

{

[0] = {pokemon = 'Magikarp'},

[1] = {pokemon = 'Horsea'},

[2] = {pokemon = 'Poliwag'},

[3] = {pokemon = 'Goldeen'},

[4] = {pokemon = 'Krabby'},

[5] = {pokemon = 'Tentacool'},

}

d60 =

{

[0] = {pokemon = 'Magikarp'},

[1] = {pokemon = 'Horsea'},

[2] = {pokemon = 'Poliwag'},

[3] = {pokemon = 'Goldeen'},

[4] = {pokemon = 'Krabby'},

[5] = {pokemon = 'Tentacool'},

[6] = {pokemon = 'Seaking'},

}

d80 =

{

[0] = {pokemon = 'Magikarp'},

[1] = {pokemon = 'Horsea'},

[2] = {pokemon = 'Poliwag'},

[3] = {pokemon = 'Goldeen'},

[4] = {pokemon = 'Krabby'},

[5] = {pokemon = 'Tentacool'},

[6] = {pokemon = 'Seaking'},

[7] = {pokemon = 'Starmie'},

[8] = {pokemon = 'Kingler'},

[9] = {pokemon = 'Seadra'},

}

d100 =

{

[0] = {pokemon = 'Magikarp'},

[1] = {pokemon = 'Horsea'},

[2] = {pokemon = 'Poliwag'},

[3] = {pokemon = 'Goldeen'},

[4] = {pokemon = 'Krabby'},

[5] = {pokemon = 'Tentacool'},

[6] = {pokemon = 'Seaking'},

[7] = {pokemon = 'Starmie'},

[8] = {pokemon = 'Kingler'},

[9] = {pokemon = 'Seadra'},

[10] = {pokemon = 'Staryu'},

[11] = {pokemon = 'Gyarados'},

}

local config = {

waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825},

}

local skill = getPlayerSkillLevel(cid, 6)

local playerpos = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y+1, z=getCreaturePosition(cid).z}

if not (isInArray(config.waters, itemEx.itemid)) then

return doPlayerSendCancel(cid, "You cannot fish here.")

end

if getPlayerStorageValue(cid, 63215) >= 1 or getPlayerStorageValue(cid, 9393) >= 1 then

return doPlayerSendCancel(cid, "Você não pode pescar no surf ou fly.")

end

doSendMagicEffect(toPos, CONST_ME_LOSEENERGY)

doPlayerAddSkillTry(cid, 6, 1)

if skill >= 100 then

local random = math.random(0, 38)

if random <= 11 then

doSummonCreature(d100[random].pokemon, playerpos)

return true

end

elseif skill >= 80 then

local random = math.random(0, 35)

if random <= 9 then

doSummonCreature(d80[random].pokemon, playerpos)

return true

end

elseif skill >= 60 then

local random = math.random(0, 28)

if random <= 6 then

doSummonCreature(d60[random].pokemon, playerpos)

return true

end

elseif skill >= 40 then

local random = math.random(0, 26)

if random <= 5 then

doSummonCreature(d40[random].pokemon, playerpos)

return true

end

elseif skill >= 20 then

local random = math.random(0, 24)

if random <= 4 then

doSummonCreature(d20[random].pokemon, playerpos)

return true

end

elseif skill >= 0 and skill < 20 then

local random = math.random(0, 10)

if random <= 0 then

doSummonCreature(d0[random].pokemon, playerpos)

return true

end

end

return true

end

@edit configura porque ta quase 100% de vim um pokemon por click

Editado Abril 2, 2014 por valakas

[Dbko 120]

Topico está bugado

[Wend ll 268]

Oiiie

 

Desculpa ae, a demora para Posta a Versão v2 do servidor, Foi PQ o Tópico tinha Bugado ( Tive que fazer tudo denovo )

mais ta ae, No começo do Tópico tem a Nova Atualização com Informações e Ajustes e PrintScreens..

vá lá da auma Olhada

[papitoxd 0]

@Edit

 

Oiie Pessoal

 

Tou terminando v2 , Resolvi varios Bugs incluindo nele o Da barra de Ataques dos Pokemons.

e Adicionei Remakes novos da PxG .. só ta faltando umas Outlands e Poucos Remakes...

 

Adicionei systemas novos eles São >> Ditto System [PxG], Held Item [PxG] e Novo boost System:: Boost system funciona assim::

Quando seu pokemon chega em +50 Não vai precisa fala com nenhum NPC para ele Fica com aura ele Já Ficar com aura por Sii Próprio..

 

é iisso ae Pessoal Por inquanto Não sei quando Posto v2, deixa Logo eu termina tudo ...

 

abraços

 

Printscreen do que vem por ae

 

 

ana como eu faço pro fishing fica mais fácil?tipo quando eu peguei uma acc de test,eu ficava um bom tempo esperando eu pescar um poke...

 

ta muito dificil pescar voce pode me encinar pf?

[LocAnderson 0]

VO USAR COMO BASE U.U QUANDO EU ARRUMAR UMA STAFF COMPETENTE E RESPONSAVEL...

[Wend ll 268]

 

@Edit

 

Oiie Pessoal

 

Tou terminando v2 , Resolvi varios Bugs incluindo nele o Da barra de Ataques dos Pokemons.

e Adicionei Remakes novos da PxG .. só ta faltando umas Outlands e Poucos Remakes...

 

Adicionei systemas novos eles São >> Ditto System [PxG], Held Item [PxG] e Novo boost System:: Boost system funciona assim::

Quando seu pokemon chega em +50 Não vai precisa fala com nenhum NPC para ele Fica com aura ele Já Ficar com aura por Sii Próprio..

 

é iisso ae Pessoal Por inquanto Não sei quando Posto v2, deixa Logo eu termina tudo ...

 

abraços

 

Printscreen do que vem por ae

 

 

ana como eu faço pro fishing fica mais fácil?tipo quando eu peguei uma acc de test,eu ficava um bom tempo esperando eu pescar um poke...

 

ta muito dificil pescar voce pode me encinar pf?

 

Serio AQ ta nó facil de pescar

[Smoke2 0]

esperando o mini-mapa

[Lordbaxx 291]

Kk, Impressão Minha ou o Seu Reshiram, está com a Portrait de um Absol? ... . Parabéns pela v2, !!

[Lordfireot 16]

Obg anna ajudo muito...