Postado Fevereiro 20, 2011 14 anos 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)
Postado Fevereiro 20, 2011 14 anos Em 20/02/2011 em 16:38, Private Sub Robssito disse: 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."
Postado Fevereiro 20, 2011 14 anos Autor @Chaos Vou tentar ponhar isso mais pra frente Agora estou sem tempo, qualquer coisa posto no fórum, vo la assistir. Abçs.
Postado Fevereiro 20, 2011 14 anos Man aqui ficou dando os seguintes errors: E-mail para contato: lucas@tibiaking.com Visitem: Galeria Lucas S.
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.