Ir para conteúdo

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

Wend ll

Por Wend ll
em OTServer Alternativo (ATS)

 Share

Gostaram Da Edição de AnnaFeeh?  

64 votos

  1. 1. OQ Acharam do Servidor?


Posts Recomendados

  • Respostas 148
  • Created
  • Última resposta

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Wend ll
Wend ll

Fala galera do xtibia, Hoje estou trazendo o servidor PDA by: Bolz editado por mim, Passei um bom tempo Editando ele Espero que gostem;;     • Menu: ├ Informações; ├ Ediçoes; ├ Erros; ├ Prints;

Deadpool
Deadpool

Outland, Main Quest, Cyber Wolrd, Outlands, Liga Pokémon, acho que é a mesma coisa kkkk', mas vai demorar :v

Wend ll
Wend ll

Né que ta mesmo Nen achei a Portrait certa dele.   De nada   Não tem area "VIP", pois não sou bom mapper Para pega Diamond Fala esse comando:: /i small diamond   Ta ai amigo, Uma video-a

Posted Images

Lordfireot

Lordfireot 16

Postado
Postado

Ola ana deu esse tipo de erro

 

Me ajuda aqui deu erro no meu servidor.

 

29nuv7l.jpg

 

 

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

 

 

Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632120
Compartilhar em outros sites
valakas

valakas 90

Postado
Postado

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 ?

Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632495
Compartilhar em outros sites
Wend ll

Wend ll 268

Postado
  • Autor
Postado

Ola ana deu esse tipo de erro

 

Me ajuda aqui deu erro no meu servidor.

 

29nuv7l.jpg

 

 

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

 

Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632571
Compartilhar em outros sites
valakas

valakas 90

Postado
Postado (editado)

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 por valakas
Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632583
Compartilhar em outros sites
Wend ll

Wend ll 268

Postado
  • Autor
Postado

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 :)

Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632688
Compartilhar em outros sites
papitoxd

papitoxd 0

Postado
Postado

@Edit

 

Oiie Pessoal :)

 

Tou terminando v2 :D, 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 happy.png

 

Printscreen do que vem por ae

 

0jcy.png

 

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?

Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632700
Compartilhar em outros sites
Wend ll

Wend ll 268

Postado
  • Autor
Postado

 

@Edit

 

Oiie Pessoal :)

 

Tou terminando v2 :D, 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 happy.png

 

Printscreen do que vem por ae

 

0jcy.png

 

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 :)

Link para o comentário
https://xtibia.com/forum/topic/230940-pda-by-bolz-vers%C3%A3o-god-anna/page/6/#findComment-1632709
Compartilhar em outros sites
 Share
Ir para a lista de tópicos
×
×
  • Criar Novo...