[Tutorial] Walker Simples

[Private Sub Teste 353]

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 por Guilherme.
TibiaAPI (veja o histórico de edições)

[Chaos 18]

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."

[Private Sub Teste 353]

@Chaos

Vou tentar ponhar isso mais pra frente

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

Abçs.

[Lucas S. 122]

Man aqui ficou dando os seguintes errors:

[Private Sub Teste 353]

Precisa do TibiaApi

[Lucas S. 122]

Pow Sacanagem hein :/

Pede pra editar e por no Título "[TIBIAAPI]"

@Tópic:

Thanks :]

[Private Sub Teste 353]

AUHAUHAHU foi mal cara ;/

@Topic

Muda o título do posta para: [TibiaApi] Walker Simples?

Thanks

[Lucas S. 122]

Me tira uma outra dúvida Robson... cara,

Button 1 vai ser = Walker?

Button 2 = ?

Button 3 = ?

....

[Augusto 660]

Button 1 = adiciona as coordenadas no listbox

Button 2 = inicia o Walker (timer)

Button 3 = desliga o Walker (timer)

[Guilherme. 189]

Bom Tutorial, editei o tópico para avisar do uso da TibiaAPI, espero que não se importe (:

Abraço,

[Private Sub Teste 353]

Só vi agora que tinham postado, foi mal.

@Augusto

Muito obrigado por ajudar o membro Lucas S.

@Guilherme

Valeu , eu só olho os posts do 'Tópicos Recentes', tem como eu por pra ver mais posts recentes na pagina inicial?

[Guilherme. 189]

@UP

Não sei, eu faço isso também ;x

@TOPIC

Como faz pra ter a opção 'Learn' ?

[Private Sub Teste 353]

Hum, coloca um Checkbox pra ativar um timer.

Seleciona o Timer pra um interval de 3segundos e coloca o código pra add a position no ListBox

Forma rápida que encontrei ;P

[Guilherme. 189]

no Timer - 100 = 1 Segundo ?

[Private Sub Teste 353]

1000 = 1segundos

3000 = 3segundos

60000 = 1minuto

[Guilherme. 189]

O personagem também vai subir escadas, abrir buracos, subir com rope ou vou ter de adicionar ?

[Private Sub Teste 353]

Não, isso ainda não implantei no walker por falta de tempo, se modificar um pouco o código consegue fazer facil

[Cezinha 0]

Quando eu clico em ADD no meu Walker aparece esse erro:

Eu ja tentei de tudo mais nada da certo.

Será que alguem pode me ajudar?

Desde Já agradeço

[Kimoszin 1160]

Você tem que dizer para esse form qual é o personagem

c = c.getclients()(0)

p = c.getplayers

Acho que é isso

[Mek Fiuchem 212]

Você tem que dizer para esse form qual é o personagem

c = c.getclients()(0)

p = c.getplayers

Acho que é isso

Você tem que dizer para esse form qual é o personagem

c = c.getclients()(0)

p = c.getplayers

Acho que é isso

esta errado esses dias se me passo isso e nao funfo ai tu me passo outro ai funfo, tem que ter o form_load de dois click no form e coloque isso exemplo :

    	c = Form1.ComboBox1.SelectedItem

    	If c.LoggedIn Then

        	p = c.GetPlayer

        	Form1.Hide()

    	Else

        	Me.Hide()

        	MsgBox("You need choose your character")

    	End If

fikara assim ex:

	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

Editado Agosto 7, 2011 por Mek Fiuchem (veja o histórico de edições)