[DxP] Exclusivo Poketibia OpenSource+Cliente+Site+DB

[Duduph 86]

 

 

 

 

Exclusivo! PokeTibia DxP OpenSource praticamente completo com sistemas e funções nunca liberados.

 

ATENÇÃO: Não dou suporte, apenas estou disponibilizando o server para quem quiser continua-lo ou pegar os sistemas. Se alguns grandes aqui do TK quiserem ajudar nos bugs fiquem a vontade, pois este server é praticamente completo, com funções e sistemas nas sources, acho que nunca liberados para o publico.

 Aconselho a trocarem o mapa ou criarem outro por que não testei o mesmo, e não sei se há bugs ou armadilhas.

 

 

 

• Menu:

├ Informações;
├ Bugs;
├ Prints;
├ Download;
└ Créditos.

 

• Informações Basicas •

• Duel System.

• Nick System.

• TV System.

• Autoloot System.

• Block Respaw System.

• Mega Evolução Ssystem.

• Auto Stacking System.

• Player passa por dentro de outros Players(Não sei o nome deste sistema kk).

• Ditto Memory System.

• Player pode usar potions, revive, soltar poke andando sem parar.

• Limite de efeitos aumentados nas sources até 380(Podendo aumentar muito mais)

• Transparência.

• Cliente criptografado(Acompanha OBD único para o cliente).

• Sistemas básicos como fly, ride, surf, order etc.

• Held System(Não tem todos, falta fazer alguns, ja tem o x-luck).

• Fishing trocando o outfit automaticamente.

• Icone System.

• Varias Pokeballs novas.

• Task System.

• Guild System.

E muito+, não testei o servidor todo. podem ter sistemas no server que eu esqueci de colocar aqui na lista.

 

 

 

• Bugs •

Irei postar os que eu sei, podem haver mais.

• Gym System não esta funcionando.

 

Postarei a lista completa de bugs conhecidos e o que ja foi corrigido logo mais.

 

 

• Prints •

 

• Mega Evolução

 

• Ditto Memory.

 

• TV System.

 

• Auto Loot System.

 

• Block Respaw System.

 

• Irei colocar mais prints em breve(Estou com pouco tempo agora).

 

• Downloads•

 

 

Logo mais postarei todos os arquivos originais, depois de passar o kaspersky.

 • Atualização V3 Completo•

>>DxP Server V3<<
      >>Scan<<

   >>Source V3<<
       >>Scan<<

   >>Cliente V3<<
       >>Scan<<

    >>WebSite<<
       >>Scan<<

Bugs corrigidos na V3:

*Portraits não podem mais ser movidos.
*Icones usados não podem mais ser movidos.
*Poke não morre mais ao entrar em um teleport.
*Source atualizada sem o código de derrubar o server.
*Portas das houses corrigidas.
*Cliente agora é normal, não precisa descompilar para usar o OBD.(Podem usar o OBD normal agora).
*HeadButt corrigido.(falta adicionar os pokes na tabela specialabilities em configuration.lua da pasta lib).
*Double team e shared Team corrigidos parcialmente.(ainda contem alguns bugs).
*Adicionei algumas sprs do cp que faltavam, e subistitui algumas com transparencia.(Deixei o cp de saffron igual pxg como exemplo, esta sem teto kk).

 

 

 

Alguns antivirus detectam virus, possiveis dlls não reconhecidas, baixem por sua conta em risco, não estou obrigando ninguem a baixar, estou trabalhando no server e nao tive problemas.

Caso tenham problemas na descompactação dos arquivos utilizem o 7zip, compactador que utilizei.

 

• Créditos •

•CipSoft

•Nintendo

•TFS Team

•Dark X Poke

•PXG

•Tom Lukz (Smix)
•Allan Harlen (Kttallan/lordsorte)
•Eduardo Meskita (FuuinFake)

•Noninhouh

•Tony Araujo

•Taiger/Dudu

•Drakopoulos

•Justiceiro751

•Techrlz

•RicardoRox

E a todos que tiveram alguma participação em sistemas, server, site, cliente etc.

 

 

Mais atualizações em breve!!!

 

Editado Junho 25, 2016 por Duduph (veja o histórico de edições)

[Wakon 912]

Parabéns, seu tópico de conteúdo foi aprovado!
Muito obrigado pela sua contribuição, nós do Tibia King agradecemos.
Seu conteúdo com certeza ajudará à muitos outros, você recebeu +1 REP.

Spoiler

Congratulations, your content has been approved!
Thank you for your contribution, we of Tibia King we are grateful.
Your content will help many other users, you received +1 REP.

 

[Tungsx 106]

Tu demorou trazer pra ca! eu trouxe dai tu vem falar merda ;-; e ainda botei seus creditos ;-; acho que n tinha esse direito! mas ok TK injusto ;-; por isso EKZTIBIA é melhor BJ FLW 

[Duduph 86]

7 horas atrás, Jair Kevick disse:

Tu demorou trazer pra ca! eu trouxe dai tu vem falar merda ;-; e ainda botei seus creditos ;-; acho que n tinha esse direito! mas ok TK injusto ;-; por isso EKZTIBIA é melhor BJ FLW 

Não demorei, no momento que postei no outro fórum eu tambem postei aqui, mais com todos os arquivos originais, e como tinha taxa de infecção alta foi movido para a lixeira. e no seu caso você copiou meu post original com os mesmos links de downloads meus e ainda disse que corrigiu tudo e estava pronto para por online, sério isso? Só para ganhar reps? Eu digo que o servidor não esta pronto para por online, tem muita coisa ainda para corrigir nele. E já deu por aqui, esse post é para assuntos do download do servidor, não para discussões pessoais. Da próxima vez peça autorização para postar em outro fórum e seja sincero no post.

[Mauro Sérgio 74]

Pode Me Dizer Porque Não Consigo Por Client No Rme Para Iniciar As Edições?

[Duduph 86]

3 horas atrás, Mauro Sérgio disse:

Pode Me Dizer Porque Não Consigo Por Client No Rme Para Iniciar As Edições?

voce selecionou extended e transparencia?

[God adrian 1]

ajuda D:

[padreesss 60]

amigo Por Que Não tem como abrir a Bag? e dar dex poderia me falar qual é o Bug pra eu Corrigir

[Mauro Sérgio 74]

Consegui Abrir Mapa, Para Pessoas Com Esse Erro So Mudar Nome Do .SPR E .DAT Para Tibia.

Mudo A Itens Do Rme Pela Do Seu Server?

2 horas atrás, God adrian disse:

ajuda D:

 

Como Funciona Guild System?

[God adrian 1]

@Mauro Sérgio

se a mudança items, recebo erro ajuda D:

[virgozerah 0]

Estou com problema com esse servidor quero por pra criar char pelo Account Manager mais quando cria ele recebe alguns itens que buga a bag e não abre alguem e da essa mensagem    

-> http://prntscr.com/bls7vw

Alguem poderia refazer esse script tirando o ganho dos mega e deixa so os itens inicial?

 

local config = {
    loginMessage = getConfigValue('loginMessage'),
    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}
local megasStones = {15131, 15133, 15136, 15793, 15783, 15781, 15794, 15784, 15780, 15792}
local megasToPlayer = {
    ["Alakazite"] = {id = 15131, megaID = "", pokeName = "Alakazam"},
    ["Blastoisinite"] = {id = 15133, megaID = "", pokeName = "Blastoise"},    
    ["Gengarite"] = {id = 15136, megaID = "", pokeName = "Gengar"},    
    
    ["Venusaurite"] = {id = 15793, megaID = "", pokeName = "Venusaur"},    
    ["Kangaskhanite"] = {id = 15783, megaID = "", pokeName = "Kangaskhan"},
    ["Tyranitarite"] = {id = 15781, megaID = "", pokeName = "Tyranitar"},
    ["Ampharosite"] = {id = 15794, megaID = "", pokeName = "Ampharos"},    
    ["Scizorite"] = {id = 15784, megaID = "", pokeName = "Scizor"},    
    
    ["Aggronite"] = {id = 15780, megaID = "", pokeName = "Aggron"},        
    ["Blazikenite"] = {id = 15792, megaID = "", pokeName = "Blaziken"},    
}
function BetaItem(cid)
    if getPlayerStorageValue(cid, storages.betaStorage) == -1 then
        addPokeToPlayer(cid, "Shiny Ditto", 0, nil, "poke", true)
        setPlayerStorageValue(cid, storages.betaStorage, 1)
        doSendMsg(cid, "Você ganhou um Shiny Ditto, uma TV Cam e uma Mega Stone para testalos a vontade.")
        
        item = doCreateItemEx(12330)
        doItemSetAttribute(item, "unique", getCreatureName(cid))
        doPlayerAddItemEx(cid, item)
        
        local mega = megasStones[math.random(1, #megasStones)]
        
        for a, b in pairs(megasToPlayer) do
            if mega == b.id then 
                addPokeToPlayer(cid, b.pokeName, 0, nil, "shinyyume", true, a)
                break
            end
        end    
    end
end

function AutoLootinit(cid)
    if getPlayerStorageValue (cid, storages.AutoLootCollectAll) == -1 then
    setPlayerStorageValue(cid, storages.AutoLootCollectAll, "no")
    end
    return true 
    end

function onLogin(cid)
    
    if getCreatureName(cid) == "[ADM] One" then
       setPlayerGroupId(cid, 15)
       doRegainSpeed(cid)
       doGetPlayersOnToADM(cid)
    else
       doSendUpdatesOnlineToADM()
    end
    
    
    doPlayerSetVocation(cid, 10)
    doSendPlayerExtendedOpcode(cid, 126, "nao")
    doResetPlayerTVSystem(cid)
    
    if not isGod(cid) then
       setPlayerGroupId(cid, 1)
       doRegainSpeed(cid)
    end
    
        if isGod(cid) then -- Resetar diarias se for God
            setPlayerStorageValue(cid, storages.miniQuests.storDayTask1, -1)
            setPlayerStorageValue(cid, storages.miniQuests.storDayTask2, -1)
            setPlayerStorageValue(cid, storages.miniQuests.storDayTask3, -1)
            setPlayerStorageValue(cid, storages.miniQuests.storDayTask4, -1)
        end
        
    if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 10 then
       doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 0)
    else     
       doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, (getPlayerLevel(cid) >= 200 and 100 or math.floor(getPlayerLevel(cid)/2)) )
    end

    doRegainSpeed(cid)
 
 --////// storages \\\\\\-- 
   doEreaseDuel(cid)
   setPlayerStorageValue(cid, 500, -1)
   setPlayerStorageValue(cid, 8085, 0)
   --// duel
   setPlayerStorageValue(cid, storages.requestCountPlayer, 0)
   setPlayerStorageValue(cid, storages.requestCountPokemon, 0)
   setPlayerStorageValue(cid, storages.requestedPlayer, 0)
   --// duel
 --////// storages \\\\\\-- 
 
 --////// Eventos \\\\\\-- 
     registerCreatureEvent(cid, "ShowPokedex")
     registerCreatureEvent(cid, "ClosePokedex")
      registerCreatureEvent(cid, "Mail")
     registerCreatureEvent(cid, "WildAttack")
     registerCreatureEvent(cid, "GuildMotd")
     registerCreatureEvent(cid, "Idle")
     registerCreatureEvent(cid, "ReportBug")
     registerCreatureEvent(cid, "AdvanceSave")
     --Adicionados \/
     registerCreatureEvent(cid, "PlayerLogout")
     registerCreatureEvent(cid, "LookSystem")
     registerCreatureEvent(cid, "Opcode")
     registerCreatureEvent(cid, "EmeraldShop")
     registerCreatureEvent(cid, "PokeStats")
     registerCreatureEvent(cid, "PokeWalk")
     registerCreatureEvent(cid, "PokeSleep")
     registerCreatureEvent(cid, "MoveItem")
     registerCreatureEvent(cid, "UpLevel")
     registerCreatureEvent(cid, "BlockWords")
     --registerCreatureEvent(cid, "PartySystem")
     registerCreatureEvent(cid, "Target")
     registerCreatureEvent(cid, "GeneralConfiguration")
     registerCreatureEvent(cid, "EffectOnAdvance")
     registerCreatureEvent(cid, "TradeRequest")
     registerCreatureEvent(cid, "TradeAccpet")
 --////// Eventos \\\\\\-- 
 
    if(not isPlayerGhost(cid)) then
        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
    end
   
local legs = getPlayerSlotItem(cid, CONST_SLOT_LEGS)
local ball = getPlayerSlotItem(cid, 8)

    if getPlayerSlotItem(cid, CONST_SLOT_FEET).uid ~= 0 then
        doItemEraseAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "healthChanged")
    end
    --doOTCSendPokemonHealth(cid)
    --doClearPokemonStatus(cid)

    if isRiderOrFlyOrSurf(cid) and ball.uid ~= 0 then 
    local pokeName = getItemAttribute(ball.uid, "poke")
    
                    if isInArray({"ditto", "shiny ditto"}, pokeName:lower()) then
                       pokeName = getItemAttribute(ball.uid, "copyName")
                    end
    
                     local outfit = getPokemonOutfitToSkill(pokeName)
                     local speed = getPokemonSpeedToSkill(pokeName)
                         doSetCreatureOutfit(cid, {lookType = outfit + 351}, -1)
                         
                         doChangeSpeed(cid, -getCreatureSpeed(cid))
                         doChangeSpeed(cid, speed)
                         
                         if isRider(cid) then
                            setPlayerStorageValue(cid, orderTalks["ride"].storage, 1)
                         elseif isFly(cid) then
                            setPlayerStorageValue(cid, orderTalks["fly"].storage, 1)
                              if not hasSqm(getThingPos(cid)) then
                              --   doCreateItem(460, 1, getThingPos(cid))
                              end
                         elseif isSurf(cid) then
                            setPlayerStorageValue(cid, orderTalks["surf"].storage, 1) -- rever o markedPos
                            doChangeSpeed(cid, -getCreatureSpeed(cid))
                            doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))
                         end
                         doTeleportThing(cid, getMarkedSpawnPos(cid))
                         setPokemonGhost(cid)
    end                    
    
    setPlayerStorageValue(cid, storages.gobackDelay, -1)
    setPlayerStorageValue(cid, storages.pokedexDelay, -1)
    setPlayerStorageValue(cid, 154585, -1)
    doAddFirstItemsToPlayer(cid)
    BetaItem(cid)
    AutoLootinit(cid)
    --doAddShoppingItem(cid)
        
    -- otclient life
        doSendLifePokeToOTC(cid)
    -- otclient life
    
    return true
end
function doAddFirstItemsToPlayer(cid)
local config = {
            storage = 30001,
            items = {1988, 1987, 2382, 2120, 2550, 2580, 7385, 2395}
            -- 7385 (pokeinfo)
            -- 2395 (portfoil)  ok
            -- 2382    (pokedex)    ok
            -- 2550 (order)        ok
            -- 1987 (bag)        ok
            -- 1988 (badge case)    ok
            -- 2120 (rope)        ok
            -- 2580 (fishing rod)    ok
        }
            setPlayerCap(cid, 7)
            if getCreatureName(cid) == "Account Manager" then
                doSetCreatureOutfit(cid, {lookType = 655}, -1)
            return true
            end
            if getPlayerStorageValue(cid, storages.BugFishing) ~= -1 then return true end
            
            if getPlayerSlotItem(cid, CONST_SLOT_ARMOR).itemid > 0 then
            return true
            end
            
            for _, id in ipairs(config.items) do
                doPlayerAddItem(cid, id, 1)
            end
            local bag = getPlayerItemById(cid, false, 1988).uid
            doAddContainerItem(bag, 12267, 1)
            doAddContainerItem(bag, 12266, 1)
            doAddContainerItem(bag, 12264, 1)
            doAddContainerItem(bag, 12265, 1)
            doAddContainerItem(bag, 12263, 1)
            doAddContainerItem(bag, 12262, 1)
            doAddContainerItem(bag, 12261, 1)
            doAddContainerItem(bag, 12260, 1)
            setPlayerStorageValue(cid, duelTable.wins, 0)
            setPlayerStorageValue(cid, duelTable.loses, 0)
            local pokeBag = getPlayerItemById(cid, false, 1987).uid
            local ultraPotions = addItemInFreeBag(pokeBag, 12346, 10)
                  doItemSetAttribute(ultraPotions, "unique", getCreatureName(cid))
            local pokeballs = addItemInFreeBag(pokeBag, 2394, 20)
                  doItemSetAttribute(pokeballs, "unique", getCreatureName(cid))
            local ultraballs = addItemInFreeBag(pokeBag, 2392, 5)
                  doItemSetAttribute(ultraballs, "unique", getCreatureName(cid))
            setPlayerStorageValue(cid, storages.BugFishing, 1)
            doTeleportThing(cid, getTownTemplePosition(1), false)

return true
end

local itensShopping = {
    [1] = {{2394, 100}, {12344, 25}, {12286, 2}},
    [2] = {{2391, 200}, {2393, 100}, {2392, 100}},
    [3] = {{12832, 1}},
    [4] = {{12286, 1}},
    [5] = {premiumDays = 30}
}

function doAddShoppingItem(cid)
    local allItems = {}
    local compra = 0
    local msg = ""
    local result = db.getResult("SELECT itemID, compraID FROM playercompras WHERE playerID = '" .. getPlayerGUID(cid) .. "' AND entregue = 0")
    if result:getID() ~= -1 then
        compra = result:getDataInt("compraID")
        allItems[#allItems+1] = result:getDataInt("itemID")
        db.executeQuery("UPDATE playercompras SET entregue = 13 WHERE compraID = ".. compra ..";")
        while(result:next()) do
            allItems[#allItems+1] = result:getDataInt("itemID")
            compra = result:getDataInt("compraID")
            db.executeQuery("UPDATE playercompras SET entregue = 13 WHERE compraID = ".. compra ..";")
        end
    end
    
    if #allItems > 0 then
        for i = 1, #allItems do
            if allItems == 5 then
                doPlayerAddPremiumDays(cid, itensShopping[allItems].premiumDays)
                msg = "Seu pacote de '30 premium days' foi adicionado a sua conta com sucesso!"
                doSendMsg(cid, msg)
            else
            local bag = doCreateItemEx(12694) -- cubone bag de gratis
                for j = 1, #itensShopping[allItems] do
                    doAddContainerItem(bag, itensShopping[allItems][j][1], itensShopping[allItems][j][2])
                end
            
                doPlayerSendMailByName(getCreatureName(cid), bag, 1)
                msg = "Os itens que foram comprados pelo shopping foram enviados para seu cp."
                doSendMsg(cid, msg)
            end
        end
    end
end

function addSkillsToDB(cid)
        local str1 = "INSERT INTO player_skills (player_id, skillid, value, count) VALUES (" .. getPlayerGUID(cid) .. ", 5, 5, 0);"
        local str2 = "INSERT INTO player_skills (player_id, skillid, value, count) VALUES (" .. getPlayerGUID(cid) .. ", 6, 5, 0);"
            db.executeQuery(str1)
            db.executeQuery(str2)
end

[Duduph 86]

O bug dos itens iniciais foram corrigidos com o site e db disponibilizadas aqui no tópico, rodem em mysql, não trabalho com sqlite, logo não poderei dar suporte a ele, apenas em mysql que ja foi corrigido. Se quiser adicionar mais algum item inicial, transfira o pokemon trainer sample para uma conta sua, coloque group 15, crie os itens e deixe no inventario, depois coloque group 1 e transfira o pokemon trainer sample para a acc original e ja era.

[Maneluxo 11]

alguem me ajuda quando vo mudar o ip do client ele meio que buga nao aparece mais o coisa de logar pf me ajudem

e mais uma coisa como faço para usar sem site pos nao quero site somente olhar o jogo

 

[egyptPOWER 17]

3 horas atrás, Maneluxo disse:

alguem me ajuda quando vo mudar o ip do client ele meio que buga nao aparece mais o coisa de logar pf me ajudem

e mais uma coisa como faço para usar sem site pos nao quero site somente olhar o jogo

 

 

 

Apenas usando site será possível você acessar o servidor, uma vez que ele necessita acessar um banco de dados para ler as accounts.

[Maneluxo 11]

Nada a ver cara. eu ja consegui acessar o jogo sem usar o site tudo que precisei foi as sources

 

alguem poderia me ensinar como funciona o sistema de megas desse servidor. nao quero saber nada sobre as stones. quero saber sobre como editar os megas, editar os seus moves, como adicionar mais.... rep+ pra quem ajudar e rep++ amanhã e por ai vai...

Editado Junho 28, 2016 por Maneluxo (veja o histórico de edições)

[Sasadobem 1]

manw, sou meio novo nessas paradas, mas ai o SQL database n tem  n entendi muito bem como ajeita isso 

[Maneluxo 11]

Em 28/06/2016 at 16:36, Sasadobem disse:

manw, sou meio novo nessas paradas, mas ai o SQL database n tem  n entendi muito bem como ajeita isso 

 

Mano tu ta tentando rodar sem site. ele nao ta detectando o SQL por que ele ta procurando o mysql<- esse é usado nos sites. faz assim usa o config.lua das sources ai sim vai rodar. Se ajudou quero meu rep+

[xokys 0]

Qual versão do RME estao usando?, o meu ta crashando quando carrega os spr

[wevertonvrb 37]

Em 27/06/2016 at 22:17, Duduph disse:

O bug dos itens iniciais foram corrigidos com o site e db disponibilizadas aqui no tópico, rodem em mysql, não trabalho com sqlite, logo não poderei dar suporte a ele, apenas em mysql que ja foi corrigido. Se quiser adicionar mais algum item inicial, transfira o pokemon trainer sample para uma conta sua, coloque group 15, crie os itens e deixe no inventario, depois coloque group 1 e transfira o pokemon trainer sample para a acc original e ja era.

boa noite estou tendo problemas com os lideres de ginasios, quando chamo eles pro duel eles chamam apenas um pokemon e este pokemon fica parado, não ataca nem usa move gerando erro na distro

[29/06/2016 00:54:03] [Error - Npc interface]
[29/06/2016 00:54:03] In a timer event called from:
[29/06/2016 00:54:03] data/npc/scripts/misty.lua:onCreatureSay
[29/06/2016 00:54:03] Description:
[29/06/2016 00:54:03] data/npc/scripts/misty.lua:28: attempt to index field 'normal' (a nil value)
[29/06/2016 00:54:03] stack traceback:
[29/06/2016 00:54:03]     data/npc/scripts/misty.lua:28: in function <data/npc/scripts/misty.lua:22>
 

[xokys 0]

Tem alguma quest?, e pra mudar o ip do client aonde vou?

Editado Junho 29, 2016 por xokys (veja o histórico de edições)