xTibia

.com
WE

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

Por Wend ll, 29 de mar. de 2014 em OTServer Alternativo (ATS)

primeira ediçaõ de pokemon
otserv
tibia
script
5.0 (3)
149
25.5k
SamueLGuedesS
01 de abril de 2014 às 12:44

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

LordfireotL
01 de abril de 2014 às 13:09

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

 

 

renataptR
01 de abril de 2014 às 13:40

Parabens Sra Anna :D esperado na v2 para curtir :D :D :D

fabiosaF
01 de abril de 2014 às 15:41

alguem ai sabe aonde eu aumento a velocidade do fly?

valakasV
02 de abril de 2014 às 10:01

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 llW
02 de abril de 2014 às 13:25

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

 

valakasV
02 de abril de 2014 às 14:02

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 por valakas

DbkoD
02 de abril de 2014 às 15:59

Topico está bugado

Wend llW
02 de abril de 2014 às 17:09

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

papitoxdP
02 de abril de 2014 às 17:34

@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?

LocAndersonL
02 de abril de 2014 às 17:37

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

Wend llW
02 de abril de 2014 às 17:48

 

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

Smoke2S
02 de abril de 2014 às 18:56

esperando o mini-mapa

LordbaxxL
02 de abril de 2014 às 19:08

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

LordfireotL
02 de abril de 2014 às 19:36

Obg anna ajudo muito...