Mek Fiuchem

ooooo cara eu fui testar tbm nao funfo oia como ta o form do cavebot + auto attacker Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form4 Dim c As Client Dim p As Player Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) c = Form1.ComboBox1.SelectedItem c = ClientChooser.ShowBox If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("Escolha seu personagem para o bot abrir.") End If End Sub Private Sub TimerAttacker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerAttacker.Tick If c.LoggedIn Then Dim BL As New BattleList(c) If p.TargetId = 0 Then Dim creature As Creature = BL.GetCreatures().FirstOrDefault(Function(m) Not m.IsSelf() AndAlso m.IsReachable() AndAlso Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name)) If creature IsNot Nothing Then creature.Attack() End If End If End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked Then TimerAttacker.Start() Else TimerAttacker.Stop() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim loc As Tibia.Objects.Location loc.X = p.Location.X loc.Y = p.Location.Y loc.Z = p.Location.Z ListBox1.Items.Add(loc.X & "," & loc.Y & "," & loc.Z) End Sub Private Sub TimerWalker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerWalker.Tick Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",") If p.IsWalking = False Then c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then ListBox1.SelectedIndex = 0 Else ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 End If End If End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TimerWalker.Start() Else TimerWalker.Stop() End If End Sub End Class o Auto Attacker e o Walker nao esta funcionando :/

Tipo para waypoints ? que em vez de andar sozinho ele vai cliclando automaticamente na area ?

Eu nao entendi , oque ele exatamente faz ?

baah tava fazendo meu bot assim tbm kkk , vo muda 1 poko ele agora mais me fala 1 coisa o FnBot nao tinha cavebot antes ?

Puts vo usar o Red agora asudhuasdhuasdh quero meu druid level 31 com ml 50 banido n kkk

Mals ai nem reparei uhasduashduasd pensei que a tag verdinha do lado era fixo

pode ser o crack , tente outro crack para ve se volta a funcionar

mais o do kara tbm e waypoint igual o meu e os topicos dele ta fixado , eu fiz mema coisa so que so muda a cave --'

Bom alguem poderia fazer 1 icone de 21x20 como o do RedBot so que em vez da Letra R ponha letra T e se poder mudar a cor tbm agradeço

mais quando vo testar a linha :<pre class="prettyprint">If c.LoggedIn Thenfika amarela , e nao ataka o bixo :/</pre>

Bom eu vi o tutorial do augusto de attacker simples , peguei o codigo e convert de c# para vb.net e saiu esse code If c.LoggedIn Then Dim BL As New BattleList(c) If p.TargetId = 0 Then Dim creature As Creature = BL.GetCreatures().FirstOrDefault(Function(m) Not m.IsSelf() AndAlso m.IsReachable() AndAlso Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name)) If creature IsNot Nothing Then creature.Attack() End If End If End If mais quando fui testar ele nao atava atacando os bixos alguem pode me dizer porque ?

Baah merecia 1 fixo tbm ne o outro la levo 2 fixo i eu nem 1 :/

Dei conta galera... fiz um autohealer.. kkkkkkkk.. ta aí o codigo... Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer.Tick If p.Health <= txt1.Text And p.Health > txt3.Text And txt1.Text <> "" And txt3.Text <> "" Then c.Console.Say(txt2.Text) If p.Health <= txt3.Text And p.Health > txt4.Text And txt3.Text <> "" And txt4.Text <> "" Then If cmb1.Text = "F1" Then c.Input.SendKey(Keys.F1) If cmb1.Text = "F2" Then c.Input.SendKey(Keys.F2) If cmb1.Text = "F3" Then c.Input.SendKey(Keys.F3) If cmb1.Text = "F4" Then c.Input.SendKey(Keys.F4) If cmb1.Text = "F5" Then c.Input.SendKey(Keys.F5) If cmb1.Text = "F6" Then c.Input.SendKey(Keys.F6) If cmb1.Text = "F7" Then c.Input.SendKey(Keys.F7) If cmb1.Text = "F8" Then c.Input.SendKey(Keys.F8) If cmb1.Text = "F9" Then c.Input.SendKey(Keys.F9) If cmb1.Text = "F10" Then c.Input.SendKey(Keys.F10) If cmb1.Text = "F11" Then c.Input.SendKey(Keys.F11) If cmb1.Text = "F12" Then c.Input.SendKey(Keys.F12) End If If p.Health <= txt4.Text And txt4.Text <> "" Then If cmb2.Text = "F1" Then c.Input.SendKey(Keys.F1) If cmb2.Text = "F2" Then c.Input.SendKey(Keys.F2) If cmb2.Text = "F3" Then c.Input.SendKey(Keys.F3) If cmb2.Text = "F4" Then c.Input.SendKey(Keys.F4) If cmb2.Text = "F5" Then c.Input.SendKey(Keys.F5) If cmb2.Text = "F6" Then c.Input.SendKey(Keys.F6) If cmb2.Text = "F7" Then c.Input.SendKey(Keys.F7) If cmb2.Text = "F8" Then c.Input.SendKey(Keys.F8) If cmb2.Text = "F9" Then c.Input.SendKey(Keys.F9) If cmb2.Text = "F10" Then c.Input.SendKey(Keys.F10) If cmb2.Text = "F11" Then c.Input.SendKey(Keys.F11) If cmb2.Text = "F12" Then c.Input.SendKey(Keys.F12) End If End Sub é para adicionar tudo isso em 1 time ai ele vai adc essas tag de F1 , F2 , F3 , F4 , F5 , F6 ?

mais ele nao ataka player e npc nao ne ? e esse codigo de vb que passei ai ele ta certo ?

Bom eu nao entendi ele vai atacar todas criaturas qui ela axar na cave ? tipo o tibiabot ng ?, eu converti o code para vb.net sera qui ta certo oia

Aff nao curti mano fui responde 1 topico la fiko assim desogarnizado e fika tipo apareçendo 1 code la de press ...

Tente esse codigo para o Light Hack

aff ia mandar esse link :/

Ai carinha que mora logo ali , bom pelo que andei pesquisando aqui nao tem nao so tem de ng memo :/

concordo mano antigamente tava melhor mais oque melhoro memo e akilo de quando vai criar 1 topico akilo eu curti mt mais mt memo se pudesse pelo menos aumentar a img deixava como antes 150x230

Alguem me ajuda a fazer 1 loot pro bot ? tipo eu vi uns tutorials mais eles nao ensina do que e preciso ai fica complicado fazer :/ ajuda eu nessa ai Vlws a todos (y~

Bom eu tava fazendo o level spy e axei esse topico qui o augusto me passo aki bom eu fui testar ele so que quando vo dar load no char o bot trava tudoo ai eu retire esse codigo o bot funciono ao normal alguem pode me ajudar nisso ?

Traduçao de Tudo , Ninguem entendeu nada kkkkkkkkkkkkk

Ai tava vendo aki agora so mostra a foto do user e nao o avatar? Preferia o Antigo fotinha mais grande e um estilo qui amei :/

Muito bom o tutorial me ajudo muito qui eu era novo no redbot , Exelente tutorial Rep +