Ir para conteúdo
TK News
  • Cadastre-se

Script Para Poketibia

345sat

Por ,
em Suporte Tibia OTServer

 Share Seguidores 0

Posts Recomendados

345sat

345sat 6

Postado
Postado (editado)

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"}                               --alterado v1.5
 
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 isNpcSummon(cid) then return true end
if isInArray(shinys, getCreatureName(cid)) then
   transform = math.random(1, 1000)    --0.1% chance        
elseif isInArray(raros, getCreatureName(cid)) then
   transform = math.random(1, 1000)   --0.1% chance       
elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then
   return true
end    
    if transform == 10 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, "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
 
 
queria 1 tipo de spanw tipo red pokemon ai esta meu spanw.lua
Editado por 345sat (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado

Não entendi, como assim "red pokémon"...  -.-

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
345sat

345sat 6

Postado
  • Autor
Postado (editado)

tipo aparecer no respawn dos pokemon aparecer tipo exemplo 

meu conteudo Red Metapod Red Gloon Red  Haunter Red Dratini

Editado por 345sat (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Nextbr

Nextbr 259

Postado
Postado

tipo aparecer no respawn dos pokemon aparecer tipo exemplo 

meu conteudo Red Metapod Red Gloon Red  Haunter Red Dratini

Fala a lista dos Pokemons Red que voce tem e a % de Apariçao!


 

 

Link para o post
Compartilhar em outros sites
345sat

345sat 6

Postado
  • Autor
Postado (editado)

Red Dratini,Red Metapod,Red Gloom,Red Gloom sou esses 4

Editado por 345sat (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Nextbr

Nextbr 259

Postado
Postado (editado)

ss isso mesno poderia me ensinar

Quantos anos voce tem? todo topico que voce cria ninguem consegue Entender voce, Desisto!

- Cancela seu Servidor e vai Jogar, Candy Crush no Face!

 

-@edit: Testa ae , troca seu Spawn.lua por esse:

local Pokemon Red = {

"Metapod","Gloom" ,"Haunter","Dratini",

}

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"} --alterado v1.5

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 RedName(cid)

if isCreature(cid) then

if string.find(tostring(getCreatureName(cid)), "Red") then

local newNameRed = tostring(getCreatureName(cid)):match("Red (.*)")

doCreatureSetNick(cid, newNameRed)

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

if isInArray(shinys, getCreatureName(cid)) then

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

if isInArray(Pokemon Red, getCreatureName(cid)) then

transformar = math.random(50, 1000) -- 5 % ALTERA A CHANCE DE APARECER

elseif isInArray(raros, getCreatureName(cid)) then

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

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

return true

end

if transformar == 10 then

doSendMagicEffect(getThingPos(cid), 18)

local Red = doCreateMonster("Red ".. getCreatureName(cid) .."", getThingPos(cid))

setPlayerStorageValue(Red, 74469, 1)

setPlayerStorageValue(cid, 74469, 1)

doRemoveCreature(cid)

else

setPlayerStorageValue(cid, 74469, 1)

end

if transform == 10 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

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

addEvent(adjustWildPoke, 5, cid)

return true

end

- Sumona um : Metapod ou Gloom ou Dratinit ou Haunter

- Chance de Apareçer Pokemon Red: 5% 

Editado por Nextbr (veja o histórico de edições) 

 

 

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado (editado)

local red = {
"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"}                               --alterado v1.5
 
local function RedName(cid)
if isCreature(cid) then
   if string.find(tostring(getCreatureName(cid)), "Red") then
      local newName = tostring(getCreatureName(cid)):match("Red (.*)")             
      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 doRed(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(red, getCreatureName(cid)) then
   transform = math.random(1, 1000)    --0.1% chance        
elseif isInArray(raros, getCreatureName(cid)) then
   transform = math.random(1, 1000)   --0.1% chance       
elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(red, getCreatureName(cid)) then
   return true
end  
    if transform == 10 then
      doSendMagicEffect(getThingPos(cid), 18)
      local redd = doCreateMonster("Red ".. getCreatureName(cid) .."", getThingPos(cid))
      setPlayerStorageValue(redd, 74469, 1)
      setPlayerStorageValue(cid, 74469, 1)
      doRemoveCreature(cid)
   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(doRed, 10, cid)
addEvent(RedName, 15, cid)
addEvent(adjustWildPoke, 5, cid)
 
return true
end

Editado por Vinicius Xxgamexx (veja o histórico de edições)

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado

Nada kkk, quando volta seu servidor (que não lembro como era  -.- )

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
345sat

345sat 6

Postado
  • Autor
Postado

sou + 1 duvida tem como fazer meus pokemon aparecer tipo no nome shiny metagross pq meu esta com nome oculto

Link para o post
Compartilhar em outros sites
Sanieg

Sanieg 202

Postado
Postado

http://www.tibiaking.com/forum/topic/48032-nome-shiny-n%C3%A3o-aparece/

Ando devagar, porque já tive pressa. E levo esse sorriso, porque já chorei demais...

________________________________________________________________________________

Minhas Sprites:

Mega Metagross

Mega Abomasnow

Pack de Shinys

[Posso atualizá-lo com novos shinys a qualquer momento]

Tutoriais:

[Completo] Criando e adicionando um novo Pokémon

[Actions] Criando quest no RME

Editores Lua/Xml/Sync Entre outros:

Editores Win/Mac/Linux

Link para o post
Compartilhar em outros sites
345sat

345sat 6

Postado
  • Autor
Postado

 Nextbr

[16/05/2015 14:05:23] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/spawn.lua:65: ')' expected near 'Red'

[16/05/2015 14:05:23] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/spawn.lua)
[16/05/2015 14:05:23] data/creaturescripts/scripts/spawn.lua:65: ')' expected near 'Red'
 
ESTA DANDO ESSE ERROR NA DISTRO

 Nextbr

[16/05/2015 14:05:23] [Error - LuaScriptInterface::loadFile] data/creaturescripts/scripts/spawn.lua:65: ')' expected near 'Red'

[16/05/2015 14:05:23] [Warning - Event::loadScript] Cannot load script (data/creaturescripts/scripts/spawn.lua)
[16/05/2015 14:05:23] data/creaturescripts/scripts/spawn.lua:65: ')' expected near 'Red'
 
ESTA DANDO ESSE ERROR NA DISTRO
Link para o post
Compartilhar em outros sites
Nextbr

Nextbr 259

Postado
Postado

local PokemonRed = {


"Metapod","Gloom" ,"Haunter","Dratini",
}
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"} --alterado v1.5

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 RedName(cid)
if isCreature(cid) then
if string.find(tostring(getCreatureName(cid)), "Red") then
local newNameRed = tostring(getCreatureName(cid)):match("Red (.*)")
doCreatureSetNick(cid, newNameRed)
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 isNpcSummon(cid) then return true end
if isInArray(shinys, getCreatureName(cid)) then
transform = math.random(1, 1000) --0.1% chance
if isInArray(PokemonRed, getCreatureName(cid)) then
transformar = math.random(50, 1000) -- 5 % ALTERA A CHANCE DE APARECER
elseif isInArray(raros, getCreatureName(cid)) then
transform = math.random(1, 1000) --0.1% chance
elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(PokemonRed, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then
return true
end
if transformar == 10 then
doSendMagicEffect(getThingPos(cid), 18)
local Red = doCreateMonster("Red ".. getCreatureName(cid) .."", getThingPos(cid))
setPlayerStorageValue(Red, 74469, 1)
setPlayerStorageValue(cid, 74469, 1)
doRemoveCreature(cid)
else
setPlayerStorageValue(cid, 74469, 1)
end

if transform == 10 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
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(RedName, 15, cid)
addEvent(adjustWildPoke, 5, cid)

return true
end

- Voce quer que troque o Nome Shiny para Nome Red? ou Somente alguns Pokemons que voce Citou?


 

 

Link para o post
Compartilhar em outros sites
Nextbr

Nextbr 259

Postado
Postado (editado)

testa ae, o script e para acontecer assim:

- Voce ta la na hunt de Gloom e do nada o Gloom (Se Transforma) e Vira Red Gloom,

- Esse Gloom Pode Virar Shiny  (0.1 %) de Apariçao e Red (5%) de Apariçao!

Editado por Nextbr (veja o histórico de edições) 

 

 

Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito