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 :/

Editado Julho 28, 2011 13 anos por Mek Fiuchem (veja o histórico de edições)

Desculpe ao Double Post , mais estou esperando a resposta --'

Mais qual é o problema? O "Não funciona" é muito genérico, pode ser qualquer coisa ¬¬

Meu caro, você ja tinha sido avisado sobre o double post, alertado em 10%.

Mais qual é o problema? O "Não funciona" é muito genérico, pode ser qualquer coisa ¬¬

Meu caro, você ja tinha sido avisado sobre o double post, alertado em 10%.

LoL nunca fui avisa de double post essa foi a primeira vez Oo

@Mek

Realmente, me enganei, estou retirando o Alerta, mais por favor, leia as regras =)