Ir para conteúdo

Renato

Héroi
  • Registro em

  • Última visita

Tudo que Renato postou

  1. Eu uso a maioria no Alien D:
  2. Ola Tbnet! Aqui vou trazer para vocês algumas funções do player, as bem básicas. Para que possam usar em seus bots! Lembrando que usarei exemplos com a variável "p" Dim p As PlayerSe o seu for player As Player, edite todos os p. por player. p.Mana - se refere á mana do player, você pode usálo em um mana restore com timer e if. Exemplo em if: If p.Mana <= TextBox1.Text ThenSe a mana do player for menor ou igual ao texto do TextBox1, então.. p.Health - se refere ao health do player, você pode usárlo em um Heal com timer e if Exemplo em if: If p.Health <= TextBox1.Text ThenSe a hp do player for menor ou igual ao texto do TextBox1, então.. p.TargetId - se refere ao target do player, ou seja, o player ou bixo que ele está atacando. Exemplo em if: If p.TargetId = 0Se o target do player for igual a 0 (0 é o valor dado quando o player não está atacando ninguém) If p.Target > 0 Se o target do player for maior que 0 (1 ou mais é o valor dado quando o player está atacando alguém) p.Walk - se refere á onde o player andar. Exemplo em ação: p.Walk(Direction.Down) Player mova para baixo. p.Walk(Direction.Up) Player mova para cima. p.Walk(Direction.Left) Player mova para esquerda. p.Walk(Direction.Right) Player mova para direita. //usando em um botão por exemplo no event click, ao clicar no botão o player irá andar um sqm para a direção definida. p.Turn - se refere para onde o player está virado. Exemplo em ação: p.Turn(Direction.Down) Player vire para baixo. //não tem segredo, é igual o Walk só que aqui ele vai virar e não dar. p.BlackSquare - se refere ao ataque contra você [o quadrado preto] Exemplo em if: If p.BlackSquare = 1 Then Se o 'blacksquare' for igual a 1 então.. (1 é quando alguém atacou você, seja player ou monstro) If p.BlackSquare = 0 Then Se o blacksquare for igual a 0 então... (0 é quando ninguém está te atacando, seja player ou monstro) p.Capacity - se refere ao 'cap' do personagel Exemplo em if: If p.Capacity <= TextBox1.Text Se o cap do player foi menor ou igual ao texto do textbox1 então.. // da pra fazer um alert usando Process.Start("C:\...\tibiabotsnet.wav") ou My.Computer.Audio.Play(Application.StartupPath & "\tibiabotsnet.wav") • Skill Valor bruto: p.Level - Se refere ao level do player. p.Stamina - Se refere á stamina do player. p.Axe - Se refere ao axe skill do player. p.Club - Se refere ao club skill do player. p.Sword - Se refere ao sword skill do player. p.MagicLevel - Se refere ao magic level skill do player. p.Fist - Se refere ao fist skill do player. p.Fishing - Se refere ao fishing skill do player p.Shielding - Se refere ao shielding skill do player Valor porcentagem: p.LevelPercent - Se refere á valor da porcentagem do level. p.AxePercent - Se refere á valor da porcentagem do axe fighting. p.ClubPercent - Se refere á valor da porcentagem do club fighting p.SwordPercent - Se refere á valor da porcentagem do sword fighting. p.MagicLevelPercent - Se refere á valor da porcentagem do magic level. p.FistPercent - Se refere á valor da porcentagem do fist fighting. p.FishingPercent - Se refere á valor da porcentagem do fishing. p.ShieldingPercent - Se refere á valor da porcentagem do shielding. //com isto da pra você simular o skill do player no bot, parecido com o FerumbrasBot. • Posições. p.Location - Se refere á localização do personagem. Valores: p.Location.X - Se refere á localização X do personagem (x é a coordenada horizontal) p.Location.Y - Se refere á localização Y do personagem (y é a coordenada vertical) p.Location.Z - Se refere á localização Z do personagem (z é o floor, "andar") //da pra criar um tipo de "verificar coordenadas" no seu bot, em tempo real usando timer (Label1.Text = p.Location.X & p.Location.Y & p.Location.Z) e no load do form (Timer1.Start()) • Set Outfit Cores: p.HeadColor - Se refere á cor do cabelo. p.BodyColor - Se refere á cor da camisa. p.LegsColor - se refere á cor da calça. p.FeetColor - Se refere á cor do 'tenis'. //da pra mudar a cor usando este exemplo em uma ação: p.HeadColor = Tibia.Constants.OutfitColor.Black Outfit: p.OutfitType - Se refere ao type do outfit do player. //da pra mudar o outfit usando este exemplo em uma ação: p.OutfitType = OutfitType.AssassinMale ou p.OutfitType = OutfitType.Demon Addon: p.Addon - Se refere ao addon do player. //da pra trocar o addon usando este exemplo em uma ação: p.Addon = OutfitAddon.Addon1 ou p.Addon = OutfitAddon.Addon2 ou p.Addon = OutfitAddon.Both • Executando uma Ação Is: p.IsAttacking() - o player está full attack. p.IsBlocking - o player está full block. p.IsReachable() - se o player está na tela. p.IsSelf() - não sei oque é. p.IsVisible - se o player está visível. p.IsWalking - se o player está andando. Por enquanto é isso!
  3. Tem outras formas também.. Não é só ao abrir o programa, se quiser ao clicar um botão é só por no event _Click do botão Process.Start("www.url.com") [/code] Olha, é uma boa para o AlienBot, porém, o cara não vai querer mais usar se toda hora que abrir o bot der lag abrindo a internet. Mas poderei colocar em um button ou em um label. Agradeço. REP+
  4. Que bom que gostou do tutorial *-* Cara, criar bot sem tibiaapi é 100x mais foda, sem exagero mesmo... Só pra quem tem muita experiência mesmo =P Abraços.
  5. Renato postou uma resposta no tópico em Outros Bots
    Então não vai mudar mais o nome pra Eye?
  6. Renato postou uma resposta no tópico em ElfBot NG
    Png fica bem mais pesado... Mas mesmo assim prefiro png
  7. Só falta looting há! Faz um tutorial ai pra ini files, pra load/save settings, ai eu quero Valeu, abraços!
  8. Renato postou uma resposta no tópico em Outros Bots
    Organização + Design Atraente - Bugs = Sucesso Believe, you can.
  9. Renato postou uma resposta no tópico em Ouvidoria
    Não estamos interessados por enquanto. Mas agradeço a preocupação com nosso fórum. Fechado.
  10. Renato postou uma resposta no tópico em Ouvidoria
    Tópico Fechado.
  11. Renato postou uma resposta no tópico em Ouvidoria
    Tópico Fechado.
  12. Renato postou uma resposta no tópico em Tutoriais sobre Programação
    Automatic's = Automaticos Auto Utamo = Usar Utamo Vita Automaticamente Auto Haste = Usar Haste Automaticamente Auto Exana Pox = Usar Exana Pox Automaticamente Entendeu?
  13. Renato postou uma resposta no tópico em Tutoriais sobre Programação
    Sim, pra min estas funções são essenciais em um bot. São coisas que não podem faltar, porém, são coisas muito fáceis de se fazer. Então, ta ai pra vocês : D
  14. Renato postou uma resposta no tópico em Tutoriais sobre Programação
    Auto Haste No form ponha, 2 radiobutton: (name) = Utanihur e Utanigranhur //// Text = Utani Hur e Utani Gran Hur 1 checkbox: (name) = ChkAutoHaste /// Text = Active, Enable ou Ativar, tanto faz. 1 timer: Renomeie para TimerAutoHaste No TimerAutoHaste, dê dois clicks e então ponha este código: If Utanigranhur.Checked Then If p.Mana >= 100 And p.HasFlag(Tibia.Constants.Flag.Hasted) = False Then c.Console.Say("Utani Gran Hur") End If ElseIf Utanihur.Checked Then If p.Mana >= 60 And p.HasFlag(Tibia.Constants.Flag.Hasted) = False Then c.Console.Say("Utani Hur") End If End If [/code] Agora abra o ChkAutoHaste e ponha: [code] If ChkAutoHaste.Checked Then TimerAutoHaste.Start() Utanihur.Enabled = False Utanigranhur.Enabled = False Else TimerAutoHaste.Stop() Utanihur.Enabled = True Utanigranhur.Enabled = True End If Vá no Timer, properties e mude o Interval para 700. A cada 1000 é 1 segundo, se deixar 100 ele pode travar. Eu uso 700 nos timers do AlienBot. Explicação: Tente interpretar o código, se mesmo assim não entender, me pergunte. Auto Utamo Requer: 1 timer 1 checkbox Timer: If p.Mana >= 40 And p.HasFlag(Tibia.Constants.Flag.ProtectedByMagicShield) = False Then c.Console.Say("Utamo Vita") End If [/code] CheckBox [code] If CheckBox1.Checked Then Timer1.Start() Else Timer1.Stop() End If Não esqueça de Ligar os (names) dos items ás suas respectivas funções no código ou não irá funcionar. Por exemplo, se seu CheckBox for CheckBox12, troque o CheckBox1 por CheckBox12, e assim em diante. Mude o interval do timer para 700, não se esqueça. Auto Exana Pox Requer: 1 timer 1 checkbox Timer: (interval) = 700 If p.Mana >= 30 And p.HasFlag(Tibia.Constants.Flag.Poisoned) = True Then c.Console.Say("exana pox") End If [/code] CheckBox: [code] If CheckBox2.Enabled Then Timer2.Start() Else Timer2.Stop() End If Você pode criar outras funções parecidas usando p.HasFlag. p.HasFlag(Tibia.Constants.Flag.Burning) p.HasFlag(Tibia.Constants.Flag.InBattle) p.HasFlag(Tibia.Constants.Flag.WithinProtectionZone) p.HasFlag(Tibia.Constants.Flag.Electrified) p.HasFlag(Tibia.Constants.Flag.Paralyzed) Etc. [/code] Para ver o resto, só digite "p.HasFlag(" no VB que irá aparecer a lista. [b]Abraços.[/b]
  15. É Tibia.Util e não Tibia.Until Eu que errei no tópico, eu fiz a mão mesmo. Mas já arrumei lá. Mals ai. Cara, olha: http://tibiaapi.googlecode.com É o site do TibiaAPI, eu vou arrumar quando lançar ai É que esses bots mais famosos não são feitos por TibiaAPI, são feitos direto pelo Address, ai pra eles atualizarem não dependem de ngm. O TibiaAPI só simula os Address em Códigos pra facilitar você criar uma função sem precisar procurar, só pela lógica procurando pelas funções (fuçando). Sacou?
  16. Renato postou uma resposta no tópico em Tutoriais sobre Programação
    Nossa, mosquei, nem vi que tinha o Crack. AOSIHASHASOISHAOI Fmz, vlw
  17. Renato postou uma resposta no tópico em Tutoriais sobre Programação
    É freeware? Tava pensando esses dias em começar a usá-lo. =P
  18. Massa Da pra mudar o nome do Tibia? Rep
  19. Renato postou uma resposta no tópico em Tutoriais sobre Programação
    Olá TB's. Agora que já sabem criar seus proprios bots, já sabem o que fazer. Todos em Botões. First Addon. Code: p.Addon = Tibia.Constants.OutfitAddon.Addon1 [/code] Second Addon. Code: [code] p.Addon = Tibia.Constants.OutfitAddon.Addon2 First and Second Addon. Code: p.Addon = Tibia.Constants.OutfitAddon.Both [/code] Desativar. Code: [code] p.Addon = Tibia.Constants.OutfitAddon.None Abraços.
  20. Criando seu tibia bot com TibiaAPI Aprenda do 0, com nada de experiência e saia programando seu Bot! Criando seu tibia bot com TibiaAPI - Parte 1 "Conhecendo o Visual Basic e o TibiaAPI" Aprenda o princípio do Visual Basic e do TibiaAPI, como funcionam e para que servem. É a intro do Tutorial. Parte 1 [*]Criando seu tibia bot com TibiaAPI - Parte 2 "Visual Basic Interface" Conheça um pouco mais da Interface do Visual Basic, e aprenda a adicionar a referencia da DLL TibiaAPI no seu programa. Parte 2 [*]Criando seu tibia bot com TibiaAPI - Parte 3 "Desenvolvendo com TibiaAPI.dll" Aprenda o básico dos códigos do VBnet. Importar o TibiaAPI aos códigos, declarar variávies e criar o Loader. Parte 3 [*]Criando seu tibia bot com TibiaAPI - Parte 4 "Form2 e Funções Básicas" Aprenda a criar outras forms e criar funções básicas de um bot. Como por exemplo, Outfits e Light Hack. Parte 4 [*]Criando seu tibia bot com TibiaAPI - Parte 5 "Configurando e Compilando" Aprenda a configurar a Assembly e a Compilar seu bot pronto. Parte 5
  21. Criando seu tibia bot com TibiaAPI - Parte 5 [Última Parte] {Configurando e Compilando} Depois de colocar todas as funções no seu bot, você precisará compilar para ter o arquivo .exe e poder divulgá-lo. Colocando Icon no Form (do lado do nome) Vá no Form1, em properties aonde tiver Show Icon você escolhe True (se quiser que não apareça, ponha false). Depois em Icon você seleciona um arquivo .icon do seu computador. Aconselho este site www.iconspedia.com (caso nao saiba fazer). Depois vá no Form2 faça a mesma coisa. Maximize & Resize Em seu programa da pra aumentar a altura e largura dele e maximizar, assim fica feio. Então vá no Form1 em properties, procura por FormBorderStyle e mude pra FixedSingle ou Fixed3D. Depois procure por MaximizeBox e mude para False (caso queira que não possa minimizar mude MinimizeBox para False). Repita o processo no Form2. Assembly Em soluction explorer clique com botão direito em My Project e depois em Open. Na aba Application, mude o nome do bot em Assembly name se quiser e escolha o icon do .exe (de preferencia o mesmo que você pois no Form). Em Startup form deixe o form do Loader, no caso o Form1. (é o form que vai abrir primeiro quando você abrir o .exe) Depois disso clique em Assembly Information. Compilando Tudo pronto, agora vá em solution explorer, clica no primeiro arquivo com o botão direito e então clique em Build. Você terá acesso ao .exe em Meus Documentos > Visual Studio 2008 > Projects > seu bot > Bin > Release. Seu bot está pronto. Agora sempre que quiser compilar clique em Re-Build, não esqueça. Conclusão: é isso ai pessoal, agora é só vocês correrem atrás das funções, heal, mana restore, etc, e criar seus BOTS! Agradeço á todos que me acompanharam! Abraços!
  22. Renato postou uma resposta no tópico em Playground (Off-topic)
    AOIHEAEHOIa B)
  23. Renato postou uma resposta no tópico em Outros Bots
    Versão 2.0.0.0 [bETA] 8.7 esta para sair com CaveBot! Só falta o Looter e sair a API do 8.7 ¬¬ Aguardem (=
  24. Renato postou uma resposta no tópico em Playground (Off-topic)
    procurei por matheus sesso Acho que foi fotos engraçadas. Não lembro. Mas quando eu vi eu falei, pow, tenho que zuar alguem, OAIHSIAs.
  25. Criando seu tibia bot com TibiaAPI - Parte 4 {Form2 e Funções Básicas} Agora criaremos o Form2, aonde ficará as funções do bot. Criando outra Form. Do lado direito em Solution Explorer, onde está os arquivos do seu programa clique com o botão direito no nome do seu bot, o primeiro arquivo lá em cima. Vá em Add > New Item, então selecione Windows Form. Não renomeie. Pronto agora você criou uma outra form no seu programa, o Form2. Se não abrir automaticamente, clique com o botão direito em solution explorer e depois em Open. Adaptando o Form2. Abra o code do Form2. Verá que ele está 'seco' igual no começo do form1. Então importe o Tibia e Declare as variáveis de novo. Andes de Public Class Form2: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constantes [/code] Depois de Public Class Form2: [code] Dim c As Client Dim p As Player Então: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Dim c As Client Dim p As Player End Class [/code] [color=#006400][b][size=4]Terminando o Loader[/size][/b][/color] Clique duas vezes no form2 para abrir o Form2_Loader e então ponha o código: [code] c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("Você precisa escolher o seu personagem.") End If Explicando: If c.LoggedIn Then - se client estiver "loggedIn" (logado) então p = c.GetPlayer - define o p, que é o player. Form1.Hide() - fechará o form1. Else - (se não estiver logado) Me.Hide() - Me, se refere a ele mesmo, ou seja, form2, que irá "esconder" (hide) MsgBox("") - aparecerá a mensagem ao usuário. Dica: se quiser, coloque dentro do If, Me.Text = p.Name, ficará o nome do player em vez do nome do bot. Por exemplo o Alien Bot eu coloquei Me.Text = "AlienBot [" + p.Name + "] TibiaBots.NET", ou seja, fica (AlienBot [nomedoplayer] TibiaBots.NET) Como ficará o código: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Dim c As Client Dim p As Player Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If End Sub End Class [/code] Tudo está carregado, pronto para usar o bot. Mas, vou usar o que? O bot tá vazio.. [color=#006400][size=4][b]Funções Básicas[/b][/size][/color] [size=3][b]• Full Light[/b][/size] Vou lhes ensinar a criar um Light Hack. é a coisa mais fácil de um bot. Crie dois botões, em um botão ponha Ativar Light e outro Desativar Light. No botão de ativar ponha: [code] c.Map.FullLightOn() E no botão de desativar ponha: c.Map.FullLightOff() [/code] Pronto, abra o tibia 8.5 ao 8.62, entre em algum char e teste seu bot. (Aperte F5 para testar). [size=3][b]• Outfits[/b][/size] Outfits já é mais difícil pois tem If e ElseIf e eu não expliquei ElseIf ainda, mas vamos lá. Crie um ComboBox, selecione ele e em properties (abaixo do Solution Explorer) procure por Items = (collection). Clique em collection e irá aparecer um botão com reticências (...) do lado, então clique-o. Ai você vai colocar tudo que aparecerá no ComboBox. Ponha: [code] Assassin Beggar Que serão meus exemplos. Agora crie um Botão, ao lado ou abaixo do combobox escrito "Trocar Outfit". Acione o evento _Click do botão, clicando duas vezes nele. Então ponhe: If ComboBox1.SelectedItem = "Beggar" Then p.OutfitType = Tibia.Constants.OutfitType.BeggarMale ElseIf ComboBox1.SelectedItem = "Assassin" Then p.OutfitType = Tibia.Constants.OutfitType.AssassinMale End If [/code] Explicando: [b]If ComboBox1.SelectedItem = "Beggar" Then[/b] - [i]Se o Item selecionado do ComboBox1 for Beggar, então[/i] [b]p.OutfitType = Tibia.Constants.OutfitType.BeggarMale[/b] - [i]outfit do player vai ser beggarmale.[/i] [b]ElseIf ComboBox1.SelectedItem = "Assassin" Then[/b] - [i]Mas se o Item selecionado do ComboBox1 for Assassin, então[/i] [b]p.OutfitType = Tibia.Constants.OutfitType.AssassinMale[/b] - [i]outfit do player vai ser assassinmale.[/i] [b]End If[/b] - [i]Fechar condição 'se'.[/i] Não esqueça de conferir se o Name do combobox é combobox1. Se não for, substitua no código ComboBox2 ou ComboBox3, como for o "Name" dele. Para ver selecione ele e vá em properties (abaixo do solution explorer) e procure por 'Name'. Se quiser mude também (melhor para se organizar). Aperte F5 e teste seu bot (: Até o próximo tutorial! ;*

Informação Importante

Confirmação de Termo