Oi, vi o post do Augusto na seção de C# e pensei porque não fazer um tutorial para VB.NET também?

Primeiro, adiciona 2 buttons, 1 listbox e 1 timer.

Button1

        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)

Button2

Timer1.Enabled = True

Button3

Timer1.Enabled = False

Timer1

Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",") 'separa os items do ListBox1

        If p.IsWalking = False Then 'verifica se o player esta andando

            c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) 'manda o player para essa posição

            If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then 'se a posição do player for a que está seleciona no listbox

                If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then 'se listbox estiver no fim

                    ListBox1.SelectedIndex = 0 'ira mandar selecionar o primeiro item, fazendo assim um loop

                Else 

                    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 'se não estiver no fim, irá pular para o próximo item da lista

                End If

            End If

        End If

Não sei se esta bem esplicado, mas é isso

Quem gosto da +

ATENÇÃO: Para total funcionamento do código, você deve estar usando a DLL: TibiaAPI

Editado Fevereiro 21, 2011 14 anos por Guilherme.
TibiaAPI (veja o histórico de edições)

Oi, vi o post do Augusto na seção de C# e pensei porque não fazer um tutorial para VB.NET também?

Primeiro, adiciona 2 buttons, 1 listbox e 1 timer.

Button1

        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)

Button2

Timer1.Enabled = True

Button3

Timer1.Enabled = False

Timer1

Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",") 'separa os items do ListBox1

        If p.IsWalking = False Then 'verifica se o player esta andando

            c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) 'manda o player para essa posição

            If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then 'se a posição do player for a que está seleciona no listbox

                If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then 'se listbox estiver no fim

                    ListBox1.SelectedIndex = 0 'ira mandar selecionar o primeiro item, fazendo assim um loop

                Else 

                    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 'se não estiver no fim, irá pular para o próximo item da lista

                End If

            End If

        End If

Não sei se esta bem esplicado, mas é isso

Quem gosto da +

Bota um tutorial com lader etc =S tipo do elf fiquei lendo esse código e nao entendi pra faze tipo q nem o elf "north south east west etc."

@Chaos

Vou tentar ponhar isso mais pra frente

Agora estou sem tempo, qualquer coisa posto no fórum, vo la assistir.

Abçs.

Man aqui ficou dando os seguintes errors:

Precisa do TibiaApi