Ir para conteúdo

Líderes

Conteúdo Popular

Exibindo conteúdo com a maior reputação em 02/20/12 em todas áreas

  1. [TIBIA DOWNLOAD] Thais War

    gustavo156 e um outro reagiu a EddyHavoc por uma resposta no tópico

    2 pontos
    Moderadores este tópico é um servidor completo sem querer postei na área de mapping se for possível mover para OT 8.60 [ War Server ] Welcome to Perfection [EddyHavoc] [8.60] Olá Galera do TibiaKing, venho trazer a vocês um mapa que está 100% Totalmente sem bug pronto para deichar Online. Informações Cidade de Thais, totalmente fechada para Player versus Player (PVP) No Depot você encontrar alguns NPC's Novos e Editados. Depot de Thais é encontrado dois Teleport que vão para a Área de Treinamento e para a Hunt do servidor, como é um servidor de war eu fiz pequena, pois o interessante é a war mais está bem feita, a Área de Treinamente é NO-PVP para os players treinarem o quanto que quizer. O Resto acho que é legal que vocês baixem para ver. Imagens Download do Servidor Completo ! (APenas o mapa está sem BUG) DATABASE DO SERVIDOR SE VOCê FOR USA SQLITE-STUDIO. CLIQUE AQUI. Aguardem o Próximo Update. Ajudei? Gostou ? +REP, +REP é de graça, não custa nada.
  2. Primeiramente, faça seu waypoint. Lembrando de adicionar uma label Start no inicio, e uma label chamada REFILL na hora de voltar para a cidade. ____________________________________________________________________________________ Bom, eu ja havia tido essa idéia, mas nunca tinha testado. Pois então, todos que entedemos o mínimo de programação, sabemos que no BBot, a verificação de pots, spears e qualquer outro tipo de munição utilizando o Misc.ItemCountEx, é feita, apenas para os itens que estiverem na BP. Então, depois de um tempo sofrendo com bugs, resolvi tentar uma coisa e deu certo! Seguinte, antes da sua FullCheck ou da Sua Macro de verificação, adicione esta macro: Em seguida, adicione uma Macro no seu waypoint, como eu não uso FullCheck, utilizo Macro, ficaria desta forma: Explicação da Macro: Em seguida, adicione mais 2 macros LEMBRE DE ADICIONAR TAMBÉM LOGO APÓS O PRIMEIRO POINT DA LABEL REFILL, CASO NÃO SEJA FEITO, SEU CHAR FICARÁ COM AS SPEARS NA BP, POR ISSO DEVE SER ADICIONADO 2X ESSAS MACROS: Macro (X Y Z:Macro.Wait(2000) 1000 {Equipar Spears by Guiizao} Self.Equip.LeftHand(IDdaSPEAR) Macro.Wait(1200) Após isso, faça o caminho da label Refill. Caminhe para a cidade e a ordem das coisas deverá ser assim: 1 - Sell items caso você utilize 2 - Depositer no Bank 3 - Refill de Pot caso você utilize 4 - Depositer no dp caso você utilize 5 - Retirar Dinheiro no bank para spears 6 - Seguir até o NPC para comprar suas spears Explicação da Macro: F.A.Q Bom é isso galera, espero que tenham gostado do tutorial. É meio complicado, mas vale a pena o esforço. Afinal, Paladin é uma classe bem cobiçada e bem querida por todos. Só a falta de scripts que desmotiva a upar um. Eu upei um na mão pro 80 e usei o TibiaAuto e tomei delete. Apartir daí, resolvi me esforçar. ____________________________________________________________________________________ Créditos: Guiizão & darthluiz Agradecimentos: Al4sk1m (Fiz as macros, baseadas no refill de pot dele). Caso eu tenha ajudado, dê um REP+ não custa nada! Bom, feito isso, depositado seus itens, pego seus pots, você saberá a quantidade exata que você suporta carregar. Vamos dizer que sempre após você fazer tudo, você fique com 200 de cap. Se você utiliza a spear comum, você consegue carregar mais 10 além das que você ja tem, ou somente 10 se você não tiver nenhuma. Bom, vamos lá. Quando você fizer o caminho de volta para o bank para retirar seu dinheiro, adicione essa Macro ao chegar la. Lembre de adicionar um Fixed para seu char não andar enquanto estiver dando withdraw Explicação da Macro: Agora faça o caminho até o NPC de compra, e adicione a seguinte Macro: Lembre de adicionar um Fixed para seu char não andar enquanto estiver dando withdraw Macro (33130 32813 5:1000 {compra_spear} VarSetEx(Total, 20) VarSet(spear) Misc.ItemCountEx(3277) VarSub(Total, !spear!, 1) HUD.Display(!Total!) NPC.buy(3277, !Total!) NPC.Say(bye))
  3. Peça seu mapa

    3visan e um outro reagiu a ElderDark por uma resposta no tópico

    2 pontos
    Vittu, segue uma imagen do andamento do templo.
  4. [Perfect Server] Global Compacto

    rcx777 reagiu a EddyHavoc por uma resposta no tópico

    1 ponto
    Galera do TibiaKing venho aqui trazer o Servidor Global Compacto, criado normalmente por Soldoran, Agradecimentos a ele. Espero que a galera do Tibiaking possa fazer o Download do Servidor, Quanto mais conteúdo o TibiaKing tiver melhor para o seus úsuarios tiverem acessos e criarem coisas novas. info: O server consiste em tentar ofereçer as pessoas que não podem suportar um global full,um server leve,com oque muitas pessoas gostao que é os Teleportes,entao o projeto tras um server com hunts globais,quests globais,cidades globais,aproveitando principalmente as melhores hunts as melhores quests,deixando assim o server bem mais leve,e claro com a facilidade dos Teleportes.Peguei Carlin Apenas e começei do 0 editando,então esse é o unico servidor assim que vocês vao ver por ai! Changelog V1.0 Cidades + Carlin + Thais + Npcs nas cidades igual o global e alguns editados + Sistema de Addon Igual Global + Items de Addons Compra no Npc Bulma,todos com preços reformulados,para dificultar mais ainda ao fazer os addons + Sistema de Parcel para as Cidades 100% Quests + Desert Quest + Banshee Quest + Firewalker Boots Quest + Hota Quest + Anihilator Quest + Pits of Inferno Quest + Inquisition Quest + Yalahar Quest + Demon Helmet Quest + Demon Oak Quest + The Epiphany e Winged Helmet Quest [new] + Solar Axe e Great Shield Quest [new] Teleportes + 30 Teleportes hunts igual o Global + Teleportes de Demons e Heros Aumentados + Apenas Teleportes das Hunts mais usadas + E algumas hunts melhoradas Sistema Premium[VIP] Ao Inves de Fazer um Sistema Vip,pensei em usar a premium mesmo,com ela você pode ter acesso a nova cidade Premium[VIP] + Premium[VIP]comprando pelo !buypremium [Valor 5kk] + Acesso a Area Premium Pelo Npc Premium Teleporter + Troca de Sexo + 38 Teleportes para hunts + Hunts com respaw de 30 segundos + Sistema de Trainers com 4 Trainers com Fast Ataque + Varias Houses grandes espalhadas pela cidade + Hunts,a maioria areas grandes V1.3 Reformulado area,de teleportes Arrumado o tp de thais para os trainers que estava bugado Arrumado 2 erros de spawn,que apareçia quando iniciava o ot Arrumado alguns erros no mapa Bk Quest Adcionada Fibula Quest Adcionada Bs quest Adcionada Noble armor quest adcionada Mapa size almentado para 4200x4200 Bug dos Amuletos e rings infinitos arrumados Bug do Aol agora funcionando V1.7 Corrigido bugs no mapa Adcionada Cidade Farmine Adcionada Cidade Yalahar Area de Quests reformulada Area das Cidades reformudala Alterado level inicial,agora começa level 8 Alterado equipamentos iniciais Alterado level nas portas das quests igual global Reconpensa da yalahar quest igual global Quase 300 houses sistema de buy aol,fale !buy aol e vá até a ilha do Eremo sistema de Quest look(de look e veja quantas quests tem feita) BY Saymon14 retirado npc que vendia amuletos e rings Reformulada algumas Quests Teleportes da Poi,todos corrigido Npc que vendia amuletos e rings,retirado Revisão no script da quest de fibula Arrumado o Comando !frags Stone Skin Amulet 80% diminuido para 10% de protect V2.4 + Corrigido corpos de alguns monstros + Corrigido pequeno bug nos trainers + Corrigido um item de addon no npc Varkhal + Corrigido pequeno bug no teleport de dragons da area vip + Corrigido porcentagem da penalidade de morte + Corrigido bug da spear,agora ela não quebra + Adcionado hunt Orcs + Adcionado novos items no npc Bulma + Adcionado Hunt Trolls + Adcionado mais monstros no buero de carlin + Adcionada Cidade Ab'dendriel + Adcionado Trainers 2 + Adcionado Npc Lector nos trainers(food seller) + Adcionado comando para formação de guilds + Area De dwarfs Adcionada (dwarf mines) + Area de cyclops adcionada + Area de Amazon Adcionada (amazon camp) + Expanção na Area de Teleportes + Orc Fortress Quest Adcionada + Templo de Thais Reformulado + Teleport para Thais arrumado,vai para o barco como os outros V2.7 sistema de recompenças ao alcançar tal level Alguns bugs no mapa corrigidos talkaction de rank alterado para um melhor Systema de Parcel corrigido,todos dps corrigidos de acordo com sua city Principais Djins Adcionado,Nah'Bob e Alesar Npc que repara firewalker boots adcionado Debugs que ocorriam no god ao trocar outfit corrigidos Corrigidos alguns erros na area de teleport Nova Cidade Darashia Adcionada Hunt de Minotaurs Adcionado Hunts de Macacos Adcionado Vampire Quest Adcionada Blue legs Quest Adcionada V3.0 + Todos items vip players apartir do level 8 podem usar + Sistema de Guilslist,sabia quais as guilds do servidor,e quem esta em sua guild(by Vodkart) + !online inovador modificado (by gustavo010) + Bug das runas corrigido + Novo distro mix Yourots + Corrigido Items que caia ao criar novo knight + Adcionado Tortoise hunt(liberty bay) + Adcionado Pirate hunt(liberty bay) + Adcionado Earth Elemental hunt(edron) + adcionado demon hunt(edron) + Adcionado Cyclops hunt(edron) + Adcionado Grim Reaper e Nightmare hunt(yalahar) + Adcionado Adept of the Cult hunt(yalahar) + Adcionado Demon hunt(yalahar) + Adcionado Demon hunt 2(yalahar) + Adcionado Mutated Bat hunt + Adcionado Worker Golem hunt + Adcionado Behemoth hunt + Adcionado Behemoth Quest V3.4 + Nova Quest Wrath of the Emperor/The New Frontier Quest[tudo uma só] + Corrigidos alguns erros no mapa + Adcionado Pz em algumas locais de npc + Adcionado efeitos na hora de up level + Adcionado addons nos npcs de carlin + Pequenas Edições no mapa + Dialogo de todos Npcs foram revisados e alterados + Novos Efeitos nos Teleportes + Corrigido cap do knight + Corrigido addons do outfit warmaster + Corrigido pequeno erro no distro quando god logava + Novo Sistema,mostando Top Frags online[!topkill] + Novo Evento Blood Castle[sim igual do Mu] + Revisado comando de comprar aol,agora pode usar [!aol !buyaol] + Revisado script de comprar bless + Sistema de Refinamentos de Items Adcionado + Database corrigida,sem erros,podendo deletar contas,players,etc.. + Novo Templo,mais espaçoso + Pasta globalevents,certos arquivos mudados,outros sem uso deletados + Mais um efeito na hora de morrer xD + Todos npcs que vendem joias,fora retirados,para evitar bug de money + Corrigido bug do npc que recarrega firewalker,agora ele recarrega mesmo + Adcionado novo mapa para wars,opens[não perde level ao morrer] V3.6 + Mais 2 npcs djins adcionados + Nova sala de Treiners + Templo com mais detalhes + Corrigido a venda de aol no eremo + Agora Premium é de Graça + Adcionado Sistema de VIP (by Vodkat) + Adcionado Exp para VIP (by vodkat) + Adcionado Cidade Venore + Corrigido pequenos bugs do mapa + Distro Limpo,sem Erros + Nova entrada para Area Vip + Players Vips ganha,[Vip]no nome + Corrigido Depot de Liberty Bay V4.0 + Vip retirada + Adcionada Cidade Port Hope + Adcionada cidade Edron + Adcionada Cidade Ankrahmun + Adcionada Cidade Svargrond + todos npcs das cidades igual global + Todas Houses das novas cidades Corrigidos + Alguns Bugs do mapa Corrigidos + Distro Limpo sem erros V4.2 + Npc Oldrak vendendo hallowed axe + Retirado Todos npcs de bank e joias para evitar bugs com grana + Cidades Registradas no Town ID + Depot de todas as novas Cidades Corrigidos + Bug de Grana do Rashid corrigido + Corrigido cordenada do teleport para sala das Cidades + Bugs do Mapa + Novo Distro Distro Fixe V4.3 [09/01/2012] V4.3 + Retirado distro da Styller Yourots [muito virus] + Adcionado Distro Antigo da Mix Yourots Créditos. Créditos: EddyHavoc (Edição e Publicação) Soldoran (Criação Base) Mix Yourots (Distros) Download Clique Aqui Scan Aqui
  5. 1 ponto
    Olla Galerinha Estou Lhes Trazendo Meu Systema De Pk Em Monstro ! Quem Quiser Aprender Segue Esse Post De Baixo ! Vá Em Data/Monster/ é Procure O Monstro que Vc Quer Deixar Pk e Abrao Como Bloco De Notas Coloque Isto <flag Skull="5" /> Tem 5 Tipos De Skulls 1 pk Nao Aparesse 2 Nao Aparesse Ainda 3 Pk Normal 4 Red 5 Black Segue O Exemplo Há Baixo ! Exemplo ! Flags Yellow e Green ! Bom Ae Esta Meu Systema De Skull Monster ! Boa Sorte Em Seu Ot ! :]
  6. [ACTION] Upgrade System

    ManoTobira reagiu a Alberess por uma resposta no tópico

    1 ponto
    eae pessoal vim trazer esse script pro Tibia king e nao sei se voces vao gosta mais nao custa nada tenta agrada um sistema de refinamento usado em muitos ots,porém esse coloquei umas modificações e passei para portugês. Vamos lah... primeiro abra o bloco de notas e cole isso: Agora salve ele como upgrade.lua na pasta scripts agora em actions.xml adicione essa linha <action itemid="8306" script="upgrade.lua"/>[/font][/color] [color=#282828][font=helvetica, arial, sans-serif] e pronto seu script esta feito!!! mudanças: * Script atualizado para português * diminuido a chance de sucesso do upgrade(se nao todos no ot vai ter os itens fortes) * almentado os pontos que ganha quando o upgrade tem sucesso * almentado os pontos que perde quando o upgrade falha * em maxlvl = 10 , coloque qualquer numero que voce quizer espero que vocês gostem do novo script créditos 98% para Mock 2 % para min pelas mudanças. atualizado e antes de posta aki pedi permissao do Mock __________________________________________ Nao custa nada da +REP xD
  7. [MAGEBOMB] 8.60

    eltonaz reagiu a Pablorox por uma resposta no tópico

    1 ponto
    Ola galerinha da tibiaking, hoje eu eu vou fazer um tutorial de como usar magebomb 8.60. Então vamos la: Primeira coisa vamos baixar ele link: http://www.4shared.c...geBomb_860.html Segue o Scan -> http://www.virustota...328a-1316352838 Segunda Coisa: Quando For Abrir o Magebomb não abra mais nem um bot sinão da debug. Terceira Coisa Adicionando Contas e Pra Logar: Na Primeira Opção Account name: seu login Ex: test Na Segunda Opção Account Password: Sua senha Ex: 123123 ​Na Terceira Opção Character name: O Nome do char Ex: Pablo Na Quarta Opção Rune: Você escolhe runa que vai tacar Ex: SD Feito Isso Voce Clike Em Add E Pronto Adicionara Na Lista. Agora Você Pergunta Nossa mais é só isso? Agora Você Clika Em Main Do Lado de Options Marca Opição: Enable Magebomb Pronto Agora você é só entra no ot e dar /login Que o Char Logara Comandos Do Magebomb /login : Todos os personagens conectam /logout : Todos os personagens desconectam /edit : Abre o arquivo magebomb para poder editar /reload : Carrega novamente novas configurações /stop : Todos param /speak ... : Todos falam ao mesmo tempo ex: "/speak Utamo Vita /walk (n,s,w,e) : Todos andam nos comandos ex: /walk (Sul) /queue : todos ficam em fileira /use xxx : Troca de runa (SD/EXPLO/HMM) Obs: Você tem que ter um char no ot (: Ajudei? Da Rep +
  8. [TUTO] Configurando config.lua

    gloster122 reagiu a Huziwara por uma resposta no tópico

    1 ponto
    Olá galerinha TKbianos, Eu postei aqui, a tradução (as funções) que estão no config.lua, vejo muita pessoa com dúvidas que acha que precisa fazer script, mas naverdade essas dúvidas estão na cara de vocês, bem no config.lua! (Botei os necessários) Config.lua : accountManager = "no" (Utilização de account manager.) newPlayerChooseVoc = "yes" (Se o player pode escolher a vocação, caso esteja em "no" ele vai começar como "no vocation".) {newPlayerSpawnPosX = 155} {newPlayerSpawnPosY = 39} (Posição do player criado pelo account manager.) {newPlayerSpawnPosZ = 7} newPlayerTownId = 1 (ID da cidade [configurado no map editor].) newPlayerLevel = 8 ( Level do novo player criado pelo account manager.) newPlayerMagicLevel = 0 (Magic level do novo player criado pelo account manager.) generateAccountNumber = "no" (Se o player escolhe ou não o account, caso esteje "no" o account manager vai solicitar um Account Number sozinho.) ----------------------------------------------------------------------------------------------------- redSkullLength = 15 * 24 * 60 * 60 (Tempo para sair o Red Skull nesse caso aqui está como 15 dias.) blackSkullLength = 30 * 24 * 60 * 60 (Tempo para sair o Black Skull nesse caso aqui está como 15 dias.) dailyFragsToRedSkull = 10 ( Quantos frags necessários em dia pra pegar Red Skull.) weeklyFragsToRedSkull = 40 ( Quantos frags necessários em semana pra pegar Red Skull.) monthlyFragsToRedSkull = 90 ( Quantos frags necessários em mês pra pegar Red Skull.) dailyFragsToBlackSkull = dailyFragsToRedSkull ( Quantos frags necessários em dia pra pegar Black Skull (Sendo que você precisa pegar a mesma quantidade de frags de Red Skull, estando Red Skull).) weeklyFragsToBlackSkull = weeklyFragsToRedSkull ( Quantos frags necessários em semana pra pegar Black Skull (Sendo que você precisa pegar a mesma quantidade de frags de Red Skull, estando Red Skull).) monthlyFragsToBlackSkull = monthlyFragsToRedSkull ( Quantos frags necessários em mês pra pegar Black Skull (Sendo que você precisa pegar a mesma quantidade de frags de Red Skull, estando Red Skull).) blackSkulledDeathHealth = 40 ( A quantidade de vida que você fica após morrer de Black Skull.) blackSkulledDeathMana = 0 ( A quantidade de mana que você fica após morrer de Black Skull.) useBlackSkull = true (Se vai ter Black Skull no seu server, true ou false.) worldType = "open" ( Open = PVP / Optional = Non-PVP / Hardscore (Acho que é assim) = Enforced) protectionLevel = 80 (Level para que os players possam cair na porrada se se matarem.) pzLocked = 30 * 1000 ( Quanto tempo demora pra sair o battle "Espadinhas" , aqui no caso está 30 segundos.) huntingDuration = 30 * 1000 ( Quanto tempo demora pra sair o hunting "Espadinhas Vermelhas", aqui no caso está 30 segundos.) criticalHitChance = 7 (Chance de attack critico, em %) criticalHitMultiplier = 1 (Quando o player da critico o attack dele vai multiplicar em : no caso "1") displayCriticalHitNotify = true (Aparece quando o player da um attack critico?) removeWeaponAmmunition = false (Remover munição) removeWeaponCharges = false (Remover carga) removeRuneCharges = "no" (Remover carga) whiteSkullTime = 5 * 60 * 1000 (Tempo para sair o White Skull, nesse caso 5 minutos.) showHealingDamage = true (Aparece a quantidade de health que recupera) showHealingDamageForMonsters = false (Aparece a quantidade de health que recupera (Nos Monstros)) stopAttackingAtExit = false (Se vai parar de atacar quando o player der exit) deathLostPercent = 10 (Quantidade em % de exp que o player vai perder ao morrer) onePlayerOnlinePerAccount = true (Se só pode entrar 1 player por account, caso bote false, e tiver 3 chars, vai ser possivel jogar com esses 3 chars) premiumPlayerSkipWaitList = false (Se o player for premium ele, nesse caso não pularia a fila de espera) ingameGuildManagement = true (Usar os comandos do tipo : !createguild/!joinguild.) cleanProtectedZones = true (Quando der clean, vai dar clean em todas as areas protection Zone, de DP até Templo.) allowChangeOutfit = true (Permitir se o player pode trocar o Outfit.) allowChangeColors = true (Permitir se o player pode trocar a Cor do Outfit.) allowChangeAddons = true (Permitir se o player pode trocar os Addons.) spellNameInsteadOfWords = true (Nesse caso a spell exura, quando usada sai a mensagem "exura", mas se tivesse false, ao usar exura, vai aparecer a mensagem "Light Healing".) emoteSpells = true (Mensagem laranja.) idleWarningTime = 239 * 60 * 1000 ( O tempo para dar o aviso de Idle (Quando o PLAYER fica muito tempo parada)) idleKickTime = 240 * 60 * 1000 (O tempo para o player se automaticamente kickado.) Bem, eu botei esses porque são esses que os caras tem mais dúvidas. Espero ter ajudado ! Att. Huziwara no Mokou
  9. Push Player

    SWAT O MITO reagiu a itroxz por uma resposta no tópico

    1 ponto
    Push Player :] Finalmente saiu o tão esperado ''PUXAR COM RUNA'' Já sei que alguns já deram uma editada para puxar com runa faiz tempo, mas ai está para quem não editou. Ali usei o ID 3172 Poison Rune, mas si preferir o Fire Field o ID é 3188. PODE DEIXAR TODAS ATIVAS!! COMO USAR? Para usar, pegue target em alguém e ative a hotkey assim ele puxarar normalmente. Postei ali o push sem runa e com runa. Você pode usar só o push com runa, pois si estiver sem a runa ele puxarar também. TARGET? Para quem não sabe, target seria a vítima que você está atacando. Está funcionando perfeitamente Qualquer duvida poste um comentário. Se Gostou também comentes Creditos~ Felipe Agora esta completo.. Graças ao Felipe
  10. Promotion Item (MySQL)

    Rafals reagiu a Huziwara por uma resposta no tópico

    1 ponto
    Olá TKbianos, Estou aqui para postar pra vocês o script do item que quando usa, ganha a promotion 2 (Caso seu server tenha 3 niveis de vocação. Exemplo : Sorcerer > Master Sorcerer > Demigod. Tag XML : <action itemid="9971" event="script" value="promoitem.lua"/> Crie um arquivo .lua dentro da pasta scripts da pasta action e nomeie para promoitem.lua e coloque isso : function onUse(cid, item, fromPosition, itemEx, toPosition) local vocation = getPlayerVocation(cid) local id = getPlayerGUID(cid) if(item.itemid == 9971) then if(isInArray({5,6,7,8,9,10,11,12}, getPlayerVocation(cid)) == TRUE) then elseif vocation == 5 then db.executeQuery("UPDATE `players` SET `vocation` = 9 WHERE `id` ='"..id.."';") elseif vocation == 6 then db.executeQuery("UPDATE `players` SET `vocation` = 10 WHERE `id` ='"..id.."';") elseif vocation == 7 then db.executeQuery("UPDATE `players` SET `vocation` = 11 WHERE `id` ='"..id.."';") elseif vocation == 8 then db.executeQuery("UPDATE `players` SET `vocation` = 12 WHERE `id` ='"..id.."';") end doSendMagicEffect(fromPosition, CCONST_ME_MAGIC_RED) doRemoveItem(item.uid, 1) doPlayerSendTextMessage(cid, 20, "You are a ".. getPlayerVocationName(cid) ..".") return true end end Espero ter ajudado ! Att. Huziwara no Mokou
  11. [VB.Net] Messagebox on FormClosing

    Guy Death reagiu a Mek Fiuchem por uma resposta no tópico

    1 ponto
    Fala galera do TibiaKing! , Hoje irei fazer um tutorial de como criar um Messagebox on Formclosing. Para começar a criar seu aplicativo, siga os passos abaixo: 1°Inicie o Visual Basic 2008. 2° Criar um novo Visual Basic project de File-> Project> New. 3° Botão direito do mouse no formulário e escolha Propriedades e clique no electrizity(Events) - ícone que apresenta eventos. Figura A: O painel de propriedades e eventos de formulário. 4. Escolha FormClosing dos eventos propriedades do formulário (clique 2x rapidamente). Adicione o seguinte código: Dim result As DialogResult = MessageBox.Show("Voce Realmente quer sair ?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) If result = DialogResult.No Then e.Cancel = True End If ou Seja ficaria assim Public Class Form1 Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Dim result As DialogResult = MessageBox.Show("Voce Realmente quer sair ?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) If result = DialogResult.No Then e.Cancel = True End If End Sub End Class Para depurar seu aplicativo pressione F5 do seu teclado. Como podemos ver na imagem abaixo, ele realmente funciona. Este código irá perguntar ao usuário se ele(a) quer sair do programa.
  12. Novo Refiller Por Cap

    ViictorWalking0 reagiu a AL4sKiM por uma resposta no tópico

    1 ponto
    Bom galera, vou explicar como usar novos macros criados por min 1º-Você vai levar o char até o banco e por essa macro. 3600 {New Withdraw By Cap} VarSet(CAP) Self.Capacity HUD.Display(!CAP!) VarDiv(CAP, 25) HUD.Display(!CAP!) VarMult(CAP, 15) HUD.Display(!CAP!) Self.Say(hi) Macro.Wait(2000) NPC.Say(withdraw) Macro.Wait(2000) NPC.Say(!CAP!) NPC.Say(yes) Explicando: 25: Pesso do item (Como Usei no Exemplo Macro para RS) 15: Preço de cada item (Royal Spear: 15 Gps) 2º- Depois do bot pegar o dinheiro leve o char para loja de Poções/Munições e colocar essa macro. 3600 {New Refiller By Cap} VarSetEx(iten, 3277) VarSet(cap) Self.Capacity VarDiv(cap, 20) Self.Say(hi) Macro.Wait(2000) HUD.Display(!iten!/!cap!) NPC.Say(trade) NPC.Buy(!iten!, !cap!, 1)) Explicando: 3277: ID do Item a ser comprado ( 3277 = Spear ) 20: Peso do Item ( Spear = 20 ) PS: Para evitar erros altere somente o explicado.
  13. 1 ponto
    Aqui está : local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_YALAHARIGHOST) setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SNOWBALL) setCombatFormula(combat, COMBAT_FORMULA_SKILL, 1, 0, 1, 0) function onGetFormulaValues(cid, level) local danoporlevel = 5 local min = -((level*danoporlevel)-500) local max = -((level*danoporlevel)+2000) return min, max end setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues") function onUseWeapon(cid, var) return doCombat(cid, combat, var) end Só subistituir pelo o que eu te passei lá ! Espero ter ajudado ! Att. Huziwara no Mokou
  14. [Resolvido] Exp quando morre

    Jeff Delay reagiu a Huziwara por uma resposta no tópico

    1 ponto
    Você quer isso para todos os levels, ou apartir de 1 level ? Se for para todos os levels, é só você diminuir no config.lua : deathLostPercent = 10 Quando o player morre, ele perde 10% de toda exp que ele tem... Dai é só você diminuir, espero ter ajudado ! Att. Huziwara no Mokou
  15. Galeria de Tirinhas

    EddyHavoc reagiu a GuuhTorres por uma resposta no tópico

    1 ponto
    Olá pessoal do Tibia King, aqui neste tópico, vou postar todas as minhas tirinhas, e por favor, fiquem a vontade para postarem as suas. Caso não seja sua poste os devidos créditos... Lá vai minha primeira : ----------OUTRA !
  16. Hit Kina, Pala . Armaduras.

    itroxz reagiu a 3visan por uma resposta no tópico

    1 ponto
    O level dos items é no movements.xml quando entrar aperte Ctrl+f e digite o id do item desejado, pronto lá você pode mudar o level. level="65" level="Level Desejado"
  17. Onde caçar ED level 52...

    Lucas Pace reagiu a edilsonoriginal por uma resposta no tópico

    1 ponto
    cara poem dragon west ... de yalahar la é bom coloca correndo do dragon ..] __________Ajudei rep+__________
  18. (Resolvido) [Pedido] Antidote rune

    Skydangerous reagiu a Huziwara por uma resposta no tópico

    1 ponto
    Testei aqui, não porque eu preciso, mas sim, pra ajudar ! Funcionando 100% Att. Huziwara no Mokou
  19. (Resolvido) [Pedido] Antidote rune

    Mestre reagiu a Skydangerous por uma resposta no tópico

    1 ponto
    Tá aqui. local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_POISON) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_FIRE) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_ENERGY) function onCastSpell(cid, var) return doCombat(cid, combat, var) end Não testei. Qualquer coisa reporte o bug para eu arrumar.
  20. [Suporte] Gesior 0.3.8

    sonkis reagiu a Renato por uma resposta no tópico

    1 ponto
    Quando dão esses problemas, o erro não é do gesior, é imcompatibilidade com o banco de dados. Pois o gesior é programado pra adicionar x valores e y campos do banco, tais que, se tiver algo errado/diferente ele dá erro. Tente procurar um bd mais atualizado... Ou então uma versão de gesior mais antiga.
  21. [Suporte] Gesior 0.3.8

    GuuhTorres reagiu a Skydangerous por uma resposta no tópico

    1 ponto
    Testa esse aqui. Não sei exatamente o problema, mas a unica forma de arrumar é testando vários scripts diferentes. <?php /** * @package POT * @version 0.1.6 * @since 0.1.5 * @author Wrzasq <[email protected]> * @copyright 2007 - 2008 (C) by Wrzasq * @license http://www.gnu.org/licenses/lgpl-3.0.txt GNU Lesser General Public License, Version 3 */ /** * OTServ account ban. * * @package POT * @version 0.1.6 * @since 0.1.5 */ class OTS_AccountBan extends OTS_Ban { /** * Ban data. * * @var array * @version 0.1.6 * @since 0.1.5 */ protected $data = array('type' => POT::BAN_ACCOUNT, 'param' => 0, 'active' => true, 'admin_id' => 0, 'comment' => '', 'reason' => 0); /** * Loads account ban with given id. * * @version 0.1.5 * @since 0.1.5 * @param int $id Ban ID. * @throws PDOException On PDO operation error. */ public function load($id) { // SELECT query on database $this->data = $this->db->query('SELECT ' . $this->db->fieldName('id') . ', ' . $this->db->fieldName('type') . ', ' . $this->db->fieldName('value') . ', ' . $this->db->fieldName('param') . ', ' . $this->db->fieldName('active') . ', ' . $this->db->fieldName('expires') . ', ' . $this->db->fieldName('added') . ', ' . $this->db->fieldName('admin_id') . ', ' . $this->db->fieldName('comment') . ', ' . $this->db->fieldName('reason') . ' FROM ' . $this->db->tableName('bans') . ' WHERE ' . $this->db->fieldName('type') . ' = ' . POT::BAN_ACCOUNT . ' AND ' . $this->db->fieldName('id') . ' = ' . (int) $id)->fetch(); } /** * Loads account ban by banned account ID. * * @version 0.1.5 * @since 0.1.5 * @param int $id Account's ID. * @throws PDOException On PDO operation error. */ public function find($id) { // SELECT query on database $this->data = $this->db->query('SELECT ' . $this->db->fieldName('id') . ', ' . $this->db->fieldName('type') . ', ' . $this->db->fieldName('value') . ', ' . $this->db->fieldName('param') . ', ' . $this->db->fieldName('active') . ', ' . $this->db->fieldName('expires') . ', ' . $this->db->fieldName('added') . ', ' . $this->db->fieldName('admin_id') . ', ' . $this->db->fieldName('comment') . ', ' . $this->db->fieldName('reason') . ' FROM ' . $this->db->tableName('bans') . ' WHERE ' . $this->db->fieldName('type') . ' = ' . POT::BAN_ACCOUNT . ' AND ' . $this->db->fieldName('value') . ' = ' . (int) $id)->fetch(); } } ?>
  22. [SHOW-OFF] Bela Casa

    GuuhTorres reagiu a Skydangerous por uma resposta no tópico

    1 ponto
    Curti. Está bem planejada, limpa e muito coerente. Excelente mapa. Só lembrando para ler as regras da seção.
  23. [Pedido] player recebe metade dos danos

    Renato reagiu a Huziwara por uma resposta no tópico

    1 ponto
    Mestre, creio que isso sejá muito dificil em arquivos de lua, pois isso é configurado em C++. Att. Huziwara no Mokou
  24. [Pedido] Elemental

    1215171 reagiu a itroxz por uma resposta no tópico

    1 ponto
    acho que entendi.. você usa a pedra em uma spike sword por exemplo. ai ela ganhara um atributo.. *fire *Spike Sword atk: 20 Spike sword normal - /\ *Spike Sword atk: 20 Fire:+20 Spike com 1 refinamento /\ *Spike Sword atk: 20 Fire:+25 Spike com 2 refinamento /\ *exemplo
  25. (Resolvido) [PEDIDO] Item que da promotion

    samuel.show reagiu a Huziwara por uma resposta no tópico

    1 ponto
    Há, desculpe-me, esqueci de por um "end" no final. function onUse(cid, item, fromPosition, itemEx, toPosition) if(item.itemid == 9971) then local id = getPlayerGUID(cid) db.executeQuery("UPDATE `players` SET `promotion` = 2 WHERE `id` ='"..id.."';") doSendMagicEffect(fromPosition, CCONST_ME_MAGIC_RED) doRemoveItem(item.uid, 1) return true end end Se não funcionar tente mais uma vez com esse : function onUse(cid, item, fromPosition, itemEx, toPosition) local vocation = getPlayerVocation(cid) local id = getPlayerGUID(cid) if(item.itemid == 9971) then if(isInArray({5,6,7,8,9,10,11,12}, getPlayerVocation(cid)) == TRUE) then elseif vocation == 5 then db.executeQuery("UPDATE `players` SET `vocation` = 9, `promotion` = 2 WHERE `id` ='"..id.."';") elseif vocation == 6 then db.executeQuery("UPDATE `players` SET `vocation` = 10, `promotion` = 2 WHERE `id` ='"..id.."';") elseif vocation == 7 then db.executeQuery("UPDATE `players` SET `vocation` = 11, `promotion` = 2 WHERE `id` ='"..id.."';") elseif vocation == 8 then db.executeQuery("UPDATE `players` SET `vocation` = 12, `promotion` = 2 WHERE `id` ='"..id.."';") end doSendMagicEffect(fromPosition, CCONST_ME_MAGIC_RED) doRemoveItem(item.uid, 1) return true end end Espero ter ajudado ! Att. Huziwara no Mokou
  26. [SHOW-OFF] Castelo

    GuuhTorres reagiu a 3visan por uma resposta no tópico

    1 ponto
    O castelo fico agradavel, mas você poderia variar mais os tiles certo? Reputado.
  27. [Pedido] piso quando passa ganha iten

    1215171 reagiu a Kimoszin por uma resposta no tópico

    1 ponto
    function onStepIn(cid, item, pos, fromPos) local items = { ["brass legs"] = {id=2478, count=1}, ["brass armor"] = {id=2465, count=1}, ["crystal coin"] = {id=2160, count=100}, } for i, x in pairs(items) do doPlayerAddItem(cid, x.id, x.count) end return TRUE end <movevent type="StepIn" actionid="5004" event="script" value="ITEMS.lua"/>
  28. [Pedido] piso quando passa ganha iten

    1215171 reagiu a Renato por uma resposta no tópico

    1 ponto
    Caso queira que o player receba o item só na primeira vez: movements/scripts/itemtile.lua function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor) local itemid = 2160 local itemcount = 1 if getPlayerStorageValue(cid, 97864) < 1 then doPlayerAddItem(cid, itemid, itemcount) setPlayerStorageValue(cid, 97864, 1) end end [/code] [b]Caso ele ganhe todas as vezes que passar:[/b] [i]movements/scripts/itemtile.lua[/i] [code] function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor) local itemid = 2160 local itemcount = 1 doPlayerAddItem(cid, itemid, itemcount) end ------------------------ movements.xml <movevent type="StepIn" uniqueid="UNIQUE_ID" event="script" value="itemtile.lua"/> Só colocar qualquer UNIQUE_ID, e depois adicioná-lo pelo mapeditor no tile que desejar
  29. Peça seu mapa

    GuuhTorres reagiu a EddyHavoc por uma resposta no tópico

    1 ponto
    Parabens Guuh apesar de nao ser oq o lek pediu mais eu acho que é um ótimo castelo !! continue assim... +REP
  30. Peça seu mapa

    3visan reagiu a ElderDark por uma resposta no tópico

    1 ponto
    @Vittu Vi seu pedido e resolvi tentar fazer algo bem do estilo e bacana pra ti, levando em conta a criatividade, pode nao parecer com o original, mais estou fazeno pra ti @GuuhTorres Maulz qualquer coisa que esteja atrapalhando. @Toppic Como esta ficando Vittu. Esta é só a entrada e sim, não ta completo.
  31. [Votação Encerrada] Vittu x luuanzin

    3visan reagiu a IGlobal por uma resposta no tópico

    1 ponto
    Ta ae meu deus do fogo u.u
  32. [Votação Encerrada] Vittu x luuanzin

    Zathao reagiu a 3visan por uma resposta no tópico

    1 ponto
    Demorou mais saiu. bem não fico as 1000 maravilhas mais já vale algo.
  33. [Bot] Refugia Server 3

    Luuan Paradix reagiu a MadoxSilver por uma resposta no tópico

    1 ponto
    Cara, desculpa não responder antes, estava viajando...Bem, eu te recomendo altamente Elfbot NG...Primeiramente, o Refugia tem client próprio, que não aceita o Elfbot, mas isso é facilmente driblado, pois eles oferecem o endereço de IP...Entao, baixe o tibia 8.57 aqui, depois baixe o Tibia Multi ip Changer Aqui, baixe o Elfbot NG Aqui, e o Evolution (cracker do elf) Aqui, Instale o Tibia, o Multi Ip Changer (atualize-o também), Instale o Elfbot, extraia o Evolution e pronto. Agora abra o Tibia, e o Evolution, No Evolution Localize o Tibia.exe e o Loader.exe(elfbot), clique no botão para craquear. Pronto, elfbot craqueado(se craquear o tempo que o elfbot carrega de 3 segundos sumirá) Agora Abra o Tibia novamente, o ip changer, na caixa ip, digite "www.refugia.com.br", porta 7373, versão 8.57. e dê Change Ip, agora logue seu char e aproveite o Elfbot. Caso não saiba usar o Elfbot vá até a seção aqui do fórum, tem bastante coisa interessante....Caso algum link esteja quebrado, qualquer dúvida me manda uma Mensagem Privada e procurarei solucionar. Não se esqueça do REP+ se der tudo certo, abraço.
  34. [Resolvido] {PEDIDO}Anti Nuker..

    Denner02 reagiu a Bruno Carvalho por uma resposta no tópico

    1 ponto
    Sim, o nuker entra no computador como se fosse em um site, dai começa a mandar peso nas portas e esse arquivo irá bloquear o acesso. Como se fosse em um site.
  35. [Resolvido] {PEDIDO}Anti Nuker..

    Denner02 reagiu a Bruno Carvalho por uma resposta no tópico

    1 ponto
    Não e bem um ant nuker, ele passou no teste alissow server de segurança. Se tu não confia nele sem scan não baixa. Não estou obrigando ninguém. Ele faz o nuker ficar sem acesso somente.
  36. [Resolvido] {PEDIDO}Anti Nuker..

    locauty reagiu a Bruno Carvalho por uma resposta no tópico

    1 ponto
    Aqui: .rar Coloca 1 na pasta do sv, outro no desktop e outro na unidade c:/ ele e o melhor, foi usado no alissow server e isto que ajudou a deixar o distro do alissow um dos mais famosos.
Líderes está configurado para São Paulo/GMT-03:00

Informação Importante

Confirmação de Termo