Ir para conteúdo

Pyrus OT, 1.5

Por xandeloko
em OTServer Derivados

Featured Replies

Postado

Taêe ^^

 

local function checkDex(cid)
local unlock = 0
for i = 1, #oldpokedex do
if getPlayerInfoAboutPokemon(cid, oldpokedex[1]).dex then
  unlock = unlock + 1
end
end
return unlock
end
 
local rate = 50
local rewards = {
[10] = {{2160, 1}, {11638, 1}, {12344, 5}},
[20] = {{2160, 1}, {11638, 1}, {12344, 5}},
[30] = {{2160, 1}, {11638, 1}, {12344, 5}},
[40] = {{2160, 1}, {11639, 1}, {12344, 10}},
[50] = {{2160, 2}, {11639, 1}, {12344, 10}},
[60] = {{2160, 2}, {11639, 1}, {12344, 15}},
[70] = {{2160, 2}, {11640, 1}, {12344, 15}},
[80] = {{2160, 2}, {11640, 1}, {12344, 20}},
[90] = {{2160, 3}, {11640, 1}, {12344, 20}},
[100] = {{2160, 3}, {11640, 1}, {12344, 25}},
[120] = {{2160, 3}, {11640, 1}, {12344, 30}},
[150] = {{2160, 3}, {11641, 1}, {12344, 30}},
[180] = {{2160, 3}, {11641, 1}, {12344, 30}},
[210] = {{2160, 5}, {11641, 1}, {12344, 30}},
[250] = {{2160, 5}, {11641, 1}, {12344, 30}},
}
local sto = 63999
 
function onUse(cid, item, fromPos, item2, toPos)
 
if not isCreature(item2.uid) then
return true
end
 
local poke = getCreatureName(item2.uid)
 
if isMonster(item2.uid) then
       local this = newpokedex[getCreatureName(item2.uid)]
  local myball = 0
  if isSummon(item2.uid) then
     myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)
       end
       if not getPlayerInfoAboutPokemon(cid, poke).dex then
     local exp = this.level * rate
          doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked ".. getCreatureName(item2.uid).." in your pokedex!")
     doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
          doSendMagicEffect(getThingPos(cid), 210)
          doPlayerAddExperience(cid, exp)
          doAddPokemonInDexList(cid, poke)
       else
          doShowPokedexRegistration(cid, item2, myball)
       end
       local list = checkDex(cid)
       local r = rewards
      -- print("List: "..list)
  --sendMsgToPlayer(cid, 27, "Parabéns, você tem "..list.." pokeDex!")
       if r and getPlayerStorageValue(cid, sto) < list then
       for _, TABLE in ipairs® do
         doPlayerAddItem(cid, TABLE[1], TABLE[2])
       sendMsgToPlayer(cid, 27, "Voce ganhou "..TABLE[2].." ".. getItemNameById(TABLE[1]).."!")
          end
          setPlayerStorageValue(cid, sto, list)
 
       end
return true
end
 
if not isPlayer(item2.uid) then return true end
 
local kanto = 0
local johto = 0
                                    --alterado v1.7 \/\/
for i = 1, #oldpokedex do
if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[1]).dex then
  if i <= 151 then
              kanto = kanto+1
           elseif i >= 209 then
              johto = johto+1
           end
end
end                                                      --alterado v1.6
 
local player = getRecorderPlayer(toPos, cid)
 
if cid == player then
   doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's pokémons until now.") 
        doPlayerSetVocation(cid, 9) --alterado v1.6
        openChannelDialog(cid)
end
 
return true
end

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

  • Citar
  • Mention
    • Respostas 218
    • Visualizações 50k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Thayam
      Thayam

      Esse bug que você diz é a respeito de não poder descer na escada principal certo? É bem fácil, abra seu editor de mapas (Aconselho o 2.2) e siga essas etapas: 1) Baixe o tibia 8.54 e baixe o Rme vers

    • hempz
      hempz

      Você pode disponibilizar scan? sem scan não rola ;s

    • Thayam
      Thayam

      Para quem está com dificuldades de add pokémons nesse server, é mais fácil do que parece haha   Deem uma olhada no meu vídeo, lá eu explico desde de selecionar uma sprite até o pokémon 100% rodando

    Posted Images

    Postado

    tenta:

     


    local function checkDex(cid)
    local unlock = 0
    for i = 1, #oldpokedex do
    if getPlayerInfoAboutPokemon(cid, oldpokedex[1]).dex then
    unlock = unlock + 1
    end
    end
    return unlock
    end

    local rate = 50
    local rewards = {
    [10] = {{2160, 1}, {11638, 1}, {12344, 5}},
    [20] = {{2160, 1}, {11638, 1}, {12344, 5}},
    [30] = {{2160, 1}, {11638, 1}, {12344, 5}},
    [40] = {{2160, 1}, {11639, 1}, {12344, 10}},
    [50] = {{2160, 2}, {11639, 1}, {12344, 10}},
    [60] = {{2160, 2}, {11639, 1}, {12344, 15}},
    [70] = {{2160, 2}, {11640, 1}, {12344, 15}},
    [80] = {{2160, 2}, {11640, 1}, {12344, 20}},
    [90] = {{2160, 3}, {11640, 1}, {12344, 20}},
    [100] = {{2160, 3}, {11640, 1}, {12344, 25}},
    [120] = {{2160, 3}, {11640, 1}, {12344, 30}},
    [150] = {{2160, 3}, {11641, 1}, {12344, 30}},
    [180] = {{2160, 3}, {11641, 1}, {12344, 30}},
    [210] = {{2160, 5}, {11641, 1}, {12344, 30}},
    [250] = {{2160, 5}, {11641, 1}, {12344, 30}},
    }
    local sto = 63999

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

    if not isCreature(item2.uid) then
    return true
    end

    local poke = getCreatureName(item2.uid)

    if isMonster(item2.uid) then
    local this = newpokedex[getCreatureName(item2.uid)]
    local myball = 0
    if isSummon(item2.uid) then
    myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)
    end
    if not getPlayerInfoAboutPokemon(cid, poke).dex then
    local exp = this.level * rate
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked ".. getCreatureName(item2.uid).." in your pokedex!")
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
    doSendMagicEffect(getThingPos(cid), 210)
    doPlayerAddExperience(cid, exp)
    doAddPokemonInDexList(cid, poke)
    else
    doShowPokedexRegistration(cid, item2, myball)
    end
    local list = checkDex(cid)
    local r = rewards

    • print("List: "..list)
      sendMsgToPlayer(cid, 27, "Parabéns, você tem "..list.." pokeDex!")
      if r and getPlayerStorageValue(cid, sto) < list then
      for _, TABLE in ipairs® do
      doPlayerAddItem(cid, TABLE[1], TABLE[2])
      sendMsgToPlayer(cid, 27, "Voce ganhou "..TABLE[2].." ".. getItemNameById(TABLE[1]).."!")
      end
      setPlayerStorageValue(cid, sto, list)

      end
      return true
      end

      if not isPlayer(item2.uid) then return true end

      local kanto = 0
      local johto = 0
      --alterado v1.7 \/\/
      for i = 1, #oldpokedex do
      if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[1]).dex then
      if i <= 151 then
      kanto = kanto+1
      elseif i >= 209 then
      johto = johto+1
      end
      end
      end --alterado v1.6

      local player = getRecorderPlayer(toPos, cid)

      if cid == player then
      doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's pokémons until now.")
      doPlayerSetVocation(cid, 9) --alterado v1.6
      openChannelDialog(cid)
      end

      return true
      end

    "A coisa mais indispensável a um homem é reconhecer

    o uso que deve fazer do seu próprio conhecimento."

    ne5iTLG.png

    Ajudei? Reputar não vai te matar :) E Ainda me incentiva muito a continuar ajudando a todos! :rock:

     

    Meus trabalhos:

    [TUTORIAL] Quando preocupar-se com as cores? - Spriting

    [TUTORIAL] Pedras e Rochas - Spriting

    [APOSTILAS] Cores e sua parte Teórica - Spriting

    [TUTORIAL] Entendendo o Básico sobre cores - Spriting

    [TUTORIAL] Spriting, por onde começar?

    [TUTORIAL] Coisas para evitar - Spriting

    [TUTORIAL] Usando e Escolhendo Cores - Spriting

    [TUTORIAL] Pensando em Cores - Spriting

    [TUTORIAL] Adicionando novos Pokémons em seu PDA com e sem Icon System

    [TUTORIAL] [OLD/OTC] Criando link de Download Direto para seu cliente!

     

    Meu Show-off :P

     

    Thayam's Show Off

     

  • Citar
  • Mention
    • Postado

    tenta:

     

    local function checkDex(cid)

    local unlock = 0

    for i = 1, #oldpokedex do

    if getPlayerInfoAboutPokemon(cid, oldpokedex[1]).dex then

    unlock = unlock + 1

    end

    end

    return unlock

    end

    local rate = 50

    local rewards = {

    [10] = {{2160, 1}, {11638, 1}, {12344, 5}},

    [20] = {{2160, 1}, {11638, 1}, {12344, 5}},

    [30] = {{2160, 1}, {11638, 1}, {12344, 5}},

    [40] = {{2160, 1}, {11639, 1}, {12344, 10}},

    [50] = {{2160, 2}, {11639, 1}, {12344, 10}},

    [60] = {{2160, 2}, {11639, 1}, {12344, 15}},

    [70] = {{2160, 2}, {11640, 1}, {12344, 15}},

    [80] = {{2160, 2}, {11640, 1}, {12344, 20}},

    [90] = {{2160, 3}, {11640, 1}, {12344, 20}},

    [100] = {{2160, 3}, {11640, 1}, {12344, 25}},

    [120] = {{2160, 3}, {11640, 1}, {12344, 30}},

    [150] = {{2160, 3}, {11641, 1}, {12344, 30}},

    [180] = {{2160, 3}, {11641, 1}, {12344, 30}},

    [210] = {{2160, 5}, {11641, 1}, {12344, 30}},

    [250] = {{2160, 5}, {11641, 1}, {12344, 30}},

    }

    local sto = 63999

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

    if not isCreature(item2.uid) then

    return true

    end

    local poke = getCreatureName(item2.uid)

    if isMonster(item2.uid) then

    local this = newpokedex[getCreatureName(item2.uid)]

    local myball = 0

    if isSummon(item2.uid) then

    myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8)

    end

    if not getPlayerInfoAboutPokemon(cid, poke).dex then

    local exp = this.level * rate

    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked ".. getCreatureName(item2.uid).." in your pokedex!")

    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")

    doSendMagicEffect(getThingPos(cid), 210)

    doPlayerAddExperience(cid, exp)

    doAddPokemonInDexList(cid, poke)

    else

    doShowPokedexRegistration(cid, item2, myball)

    end

    local list = checkDex(cid)

    local r = rewards

    print("List: "..list)

    sendMsgToPlayer(cid, 27, "Parabéns, você tem "..list.." pokeDex!")

    if r and getPlayerStorageValue(cid, sto) < list then

    for _, TABLE in ipairs® do

    doPlayerAddItem(cid, TABLE[1], TABLE[2])

    sendMsgToPlayer(cid, 27, "Voce ganhou "..TABLE[2].." ".. getItemNameById(TABLE[1]).."!")

    end

    setPlayerStorageValue(cid, sto, list)

    end

    return true

    end

    if not isPlayer(item2.uid) then return true end

    local kanto = 0

    local johto = 0

    --alterado v1.7 \/\/

    for i = 1, #oldpokedex do

    if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[1]).dex then

    if i <= 151 then

    kanto = kanto+1

    elseif i >= 209 then

    johto = johto+1

    end

    end

    end --alterado v1.6

    local player = getRecorderPlayer(toPos, cid)

    if cid == player then

    doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's pokémons until now.")

    doPlayerSetVocation(cid, 9) --alterado v1.6

    openChannelDialog(cid)

    end

    return true

    end

     

    ainda não está funcionando.... eu preciso desligar o server, ou posso dar apenas /reload actions ?

  • Citar
  • Mention
    • Postado

    ainda não está funcionando.... eu preciso desligar o server, ou posso dar apenas /reload actions ?

     

    Eu aconselho desliga-lo e liga-lo novamente :)

    "A coisa mais indispensável a um homem é reconhecer

    o uso que deve fazer do seu próprio conhecimento."

    ne5iTLG.png

    Ajudei? Reputar não vai te matar :) E Ainda me incentiva muito a continuar ajudando a todos! :rock:

     

    Meus trabalhos:

    [TUTORIAL] Quando preocupar-se com as cores? - Spriting

    [TUTORIAL] Pedras e Rochas - Spriting

    [APOSTILAS] Cores e sua parte Teórica - Spriting

    [TUTORIAL] Entendendo o Básico sobre cores - Spriting

    [TUTORIAL] Spriting, por onde começar?

    [TUTORIAL] Coisas para evitar - Spriting

    [TUTORIAL] Usando e Escolhendo Cores - Spriting

    [TUTORIAL] Pensando em Cores - Spriting

    [TUTORIAL] Adicionando novos Pokémons em seu PDA com e sem Icon System

    [TUTORIAL] [OLD/OTC] Criando link de Download Direto para seu cliente!

     

    Meu Show-off :P

     

    Thayam's Show Off

     

  • Citar
  • Mention

    • 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
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.7k

    Informação Importante

    Confirmação de Termo

    I accept