Ir para conteúdo

Marlon B.

Membro
  • Registro em

  • Última visita

Histórico de Curtidas

  1. Gostei
    Ferobra Gesior, o melhor da atualidade!
    Esse é um fork destinado a servidores 8.60 que utilizam as versões mais atuais do TFS/OTX. Novos recursos para páginas, pagamento, anúncios, notícias e informações.
    The Real Gesior Ferobra
    Tópico: https://tibiaking.com/forums/topic/99226-gesior-ferobra-open-source/
     
     
    Demo: https://ferobraglobal.com/
     


    Gesior OTG Premium Version (tfs 1.x)
    Anti SQL Injection 100% seguro, Sistema de Donate com Mercado Pago, Pic Pay, Pag Seguro, Paypal, Caixa, Banco do Brasil e Nubank, login.php logando no cliente 12.31, Layout parecido com do Tibia.com
     
     Download Direto
     Projeto no GitHub
    Tópico: https://tibiaking.com/forums/topic/99589-otg-gesior-premium-tfs-1x/
     

     
    Gesior Baiak PVP

    Páginas Boosted Creatures, Anti Entrosa, Exibição e Seção de Pagamentos com Pagseguro, PicPay, PayGol, Paypal e Mercado Pago.
     Gesior 2012 Baiak
     
    Amostras:
     
     

     

    NTO World Site + Template
    Versão xampp: V1.8.2-2     Versão php: 5
     Download
     
    Amostras:

     

    Dragon Ball War
    Modern AAC TFS [0x / OTX]
    Layout Dragon Ball Brasil Online. Anti SQL Injection 100% seguro, pagseguro, paypal, deposito e Picpay.
     Download
     

     

    NTO Rox Site
    Modern AAC, Possui painel administrativo, adicionar noticias, itens para players e muito mais!
     Download
     

     

    Otset Layout
    Layout Exclusivo Fantasia RPG.
     Download
     

     

    Yin Landing Page
    Esse é um Landing page, geralmente usado para escolher entre dois ou mais servidores.
    No-PvP, Optional PvP, Hardcore PvP, PvP Oldschool ou entre versões.
     Download
     

     

    PZW Landing Page
    A landing page dá informações em vídeo do youtube. Todos os códigos estão comentados para que você consiga personalizar. Framework utilizado foi o "Bulma". A página não está responsiva. (HTML5/CSS3)
     Download

     
    PREMIAÇÕES TK MAGAZINE
    Membros que receberam o medalhão como forma de agradecimento por terem contribuído com um conteúdo exclusivo:
    @Movie, @Marco Oliveira, @Dev PHP, @WooX (medalha nv. 4 add), @Johncore, Leu (Buscando Perfil), Marcomoa (Buscando Perfil), @RicK Sanchez, @.HuRRiKaNe, @Cain Suicide, @So volto tarde e @Pedro..
     
    • [Informações] Tk Magazine
    • Lista de Medalhas TKM.
     
    Créditos pelas imagens: 
    Retiradas dos tópicos linkados.
  2. Gostei
    Marlon B. deu reputação a Movie em Loot Channel TFS 1.X   
    Loot Channel para TFS 1.X
     
    Liberando mais alguns conteúdos para vocês. Dessa vez o loot channel para tfs 1.x.
     
    Crie um arquivo chamado loot.lua na pasta chatchannels/scripts contendo isso
    local STORAGEVALUE_LOOT = 8914 function onSpeak(player, type, message) return false end function onJoin(player) player:setStorageValue(STORAGEVALUE_LOOT, 1) return true end function onLeave(player) player:setStorageValue(STORAGEVALUE_LOOT, 0) return true end  
    Agora em chatchannels.xml adicione a tag
    <channel id="11" name="Loot" script="loot.lua" />  
    Em events/scripts, abra o arquivo monster.lua e você provavelmente irá encontra-lo assim
    function Monster:onDropLoot(corpse) if configManager.getNumber(configKeys.RATE_LOOT) == 0 then return end local player = Player(corpse:getCorpseOwner()) local mType = self:getType() if not player or player:getStamina() > 840 then local monsterLoot = mType:getLoot() for i = 1, #monsterLoot do local item = corpse:createLootItem(monsterLoot[i]) if not item then print('[Warning] DropLoot:', 'Could not add loot item to corpse.') end end if player then local text = ("Loot of %s: %s"):format(mType:getNameDescription(), corpse:getContentDescription()) local party = player:getParty() if party then party:broadcastPartyLoot(text) else player:sendTextMessage(MESSAGE_INFO_DESCR, text) end end else local text = ("Loot of %s: nothing (due to low stamina)"):format(mType:getNameDescription()) local party = player:getParty() if party then party:broadcastPartyLoot(text) else player:sendTextMessage(MESSAGE_INFO_DESCR, text) end end end Altere para esse
    local STORAGEVALUE_LOOT = 8914 function Monster:onDropLoot(corpse) if configManager.getNumber(configKeys.RATE_LOOT) == 0 then return end local player = Player(corpse:getCorpseOwner()) local mType = self:getType() if not player or player:getStamina() > 840 then local monsterLoot = mType:getLoot() for i = 1, #monsterLoot do local item = corpse:createLootItem(monsterLoot[i]) if not item then print('[Warning] DropLoot:', 'Could not add loot item to corpse.') end end if player then local text = ("Loot de %s: %s"):format(mType:getNameDescription(), corpse:getContentDescription()) local party = player:getParty() if party then party:broadcastPartyLoot(text) else if player:getStorageValue(STORAGEVALUE_LOOT) == 1 then sendChannelMessage(11, TALKTYPE_CHANNEL_O, text) else player:sendTextMessage(MESSAGE_INFO_DESCR, text) end end end else local text = ("Loot de %s: nada (devivo a baixa stamina)"):format(mType:getNameDescription()) local party = player:getParty() if party then party:broadcastPartyLoot(text) else if player:getStorageValue(STORAGEVALUE_LOOT) == 1 then sendChannelMessage(11, TALKTYPE_CHANNEL_O, text) else player:sendTextMessage(MESSAGE_INFO_DESCR, text) end end end end  
    Pronto, adicionado o Loot Channel!
     
    Créditos: 100% meu
  3. Gostei
    Marlon B. deu reputação a Movie em Evento Monster Hunt TFS 1.X   
    Evento Monster Hunt
     
    Durante uma hora, o player que mais matar um monstro específico ganha o evento.
     
    Na pasta lib, crie um arquivo chamado monsterHunt.lua com isso dentro
    MONSTER_HUNT = { list = {"Demon", "Rotworm", "Cyclops"}, days = { ["Sunday"] = {"13:55"}, ["Monday"] = {"13:55"}, ["Tuesday"] = {"13:55"}, ["Wednesday"] = {"13:55"}, ["Thursday"] = {"13:55"}, ["Friday"] = {"13:55"}, ["Saturday"] = {"13:55"}, }, messages = { prefix = "[Monster Hunt] ", warnInit = "O evento irá começar em %d minuto%s. Seu objetivo será matar a maior quantidade de monstros escolhidos pelo sistema.", init = "O monstro escolhido pelo sistema foi %s. Você tem 1 hora para matar a maior quantidade desse monstro.", warnEnd = "Faltam %d minuto%s para acabar o evento. Se apressem!", final = "O jogador %s foi o ganhador do evento! Parabéns.", noWinner = "Não houve ganhadores no evento.", reward = "Você recebeu o seu prêmio no mailbox!", kill = "Você já matou {%d} %s do evento.", }, rewards = { {id = 2160, count = 100}, }, storages = { monster = 891641, player = 891642, }, players = {}, } function MONSTER_HUNT:initEvent() Game.setStorageValue(MONSTER_HUNT.storages.monster, 0) Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.warnInit:format(5, "s")) addEvent(function() Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.warnInit:format(3, "s")) end, 2 * 60 * 1000) addEvent(function() Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.warnInit:format(1, "")) end, 4 * 60 * 1000) addEvent(function() local rand = math.random(#MONSTER_HUNT.list) Game.setStorageValue(MONSTER_HUNT.storages.monster, rand) Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.init:format(MONSTER_HUNT.list[rand])) end, 5 * 60 * 1000) return true end function MONSTER_HUNT:endEvent() Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.warnEnd:format(5, "s")) addEvent(function() Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.warnEnd:format(3, "s")) end, 2 * 60 * 1000) addEvent(function() Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.warnEnd:format(1, "")) end, 4 * 60 * 1000) addEvent(function() if #MONSTER_HUNT.players == nil then Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.noWinner) return end table.sort(MONSTER_HUNT.players, function(a,b) return a[2] > b[2] end) local player = Player(MONSTER_HUNT.players[1][1]) if player then Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.final:format(player:getName())) player:setStorageValue(MONSTER_HUNT.storages.player, -1) for c, d in ipairs(MONSTER_HUNT.rewards) do local item = Game.createItem(d.id, d.count) player:addItemEx(item) player:sendTextMessage(MESSAGE_EVENT_ADVANCE, MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.reward) player:getPosition():sendMagicEffect(30) end --[[ Função exclusiva (ignore) else local player = Player(MONSTER_HUNT.players[1][1], true) if not player then return false end Game.broadcastMessage(MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.final:format(player:getName())) player:setStorageValue(MONSTER_HUNT.storages.player, -1) for c, d in ipairs(MONSTER_HUNT.rewards) do local item = Game.createItem(d.id, d.count) player:getInbox():addItemEx(item, INDEX_WHEREEVER, FLAG_NOLIMIT) end player:delete() --]] end for a, b in pairs(MONSTER_HUNT.players) do local player = Player(b[1]) if player then player:setStorageValue(MONSTER_HUNT.storages.player, 0) MONSTER_HUNT.players[a] = nil --[[ Função exclusiva (ignore) else player = Player(b[1], true) player:setStorageValue(MONSTER_HUNT.storages.player, 0) MONSTER_HUNT.players[a] = nil player:delete() --]] end end Game.setStorageValue(MONSTER_HUNT.storages.monster, -1) end, 5 * 60 * 1000) return true end  
    Não esqueça de registrar essa lib no lib.lua
     
    Agora em globalevents, crie um arquivo na pasta scripts com isso dentro
    function onThink(interval) if MONSTER_HUNT.days[os.date("%A")] then local hrs = tostring(os.date("%X")):sub(1, 5) if isInArray(MONSTER_HUNT.days[os.date("%A")], hrs) then MONSTER_HUNT:initEvent() end end return true end function onTime(interval) MONSTER_HUNT:endEvent() return true end Não esqueça de adicionar a tag no globalevents
    <globalevent name="MonsterHunt" interval="60000" script="custom/events/monsterHunt.lua" /> <globalevent name="MonsterHuntEnd" time="14:55" script="custom/events/monsterHunt.lua" />  
    Agora em creaturescripts, crie um arquivo na pasta scripts com isso dentro
    function onKill(player, target) if Game.getStorageValue(MONSTER_HUNT.storages.monster) == nil then return true end if not player or not target then return true end if player:getStorageValue(MONSTER_HUNT.storages.player) == -1 then player:setStorageValue(MONSTER_HUNT.storages.player, 0) end if target:isMonster() and target:getName():lower() == (MONSTER_HUNT.list[Game.getStorageValue(MONSTER_HUNT.storages.monster)]):lower() then player:setStorageValue(MONSTER_HUNT.storages.player, player:getStorageValue(MONSTER_HUNT.storages.player) + 1) player:sendTextMessage(MESSAGE_STATUS_BLUE_LIGHT, MONSTER_HUNT.messages.prefix .. MONSTER_HUNT.messages.kill:format(player:getStorageValue(MONSTER_HUNT.storages.player), target:getName())) table.insert(MONSTER_HUNT.players, {player:getId(), player:getStorageValue(MONSTER_HUNT.storages.player)}) end return true end  
    Com a tag no creaturescripts
    <event type="kill" name="MonsterHunt" script="custom/monsterHunt.lua" />  
    Não esqueça de registrar o evento no login.lua
    player:registerEvent("MonsterHunt")  
    Bom aproveito.
     
    Créditos: 100% meu  
  4. Curtir
    Marlon B. recebeu reputação de Cat em [8.60] Dragon Ball Z - Servidor & Client   
    Obrigado, tenho mais uma duvida vc pode responder? Aqueles arquivos Dlls eles são necessários pra rodar o servidor?

  5. Curtir
    Marlon B. deu reputação a trint em Dbo Absolut {Base}   
    Bom Dia, Boa Tarde, Boa Noite
    Hoje trago para vocês uma base minha que usei para muitos projetos.
    É um excelente servidor e tem poucos bugs, algumas arrumadas por me.
    Estou soltando por motivos pessoais!!!
    ---------------------------------------------------------------------------------------------------------------------
    Servidor de DBO
    Contém diversas caves e quests espalhadas pelo o servidor.
    Servidor contem ele em si, Client (Com .exe, spr e dat). NÃO ACOMPANHA A SOURCE CASO QUEIRA USAR UMA UTILIZE A DO @Yan Liima.
    Link: 
    https://tibiaking.com/forums/topic/96040-860-tfs-04-rev3996-war-cast/


    CASO QUEIRA ALGUMA IMAGEM OU VIDEO SO COLOCAR NO YOUTUBE "DBO ABSOLUT"

    OBS: NÃO PERMITO QUE O MESMO SEJA POSTADO EM OUTRO FORUM, SEM MINHA PERMISSÃO !!!!!!

    ---------------------------------------------------------------------------------------------------------------------

    CRETIDOS: EU(trint, crazy, yelpz, como queira chamar)

    Download AND Scan
     
     
    francis.sql

Informação Importante

Confirmação de Termo