Ir para conteúdo
TK News
  • Cadastre-se

[Resolvido][Duvida] Walker

Teehvsx

Por ,
em Recursos Avançados

 Share Seguidores 0

Posts Recomendados

Teehvsx

Teehvsx 2

Postado
Postado (editado)

Bom hoje e meu aniversario ^^quequeissonodiadomeuaniversarioficoenfrenteopc queria que voces desce isso de presente para min ^^ bom eu vi aqui um tutorial de walker eu faço ele tudo certinho ai quando eu vo testar o bot eu cliclo para ele add a coodernada ele tipo trava e n volta mais alguem pode me ajudar nisso ai ?

Editado por Teehvsx (veja o histórico de edições)

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado (editado)

Esse aki so que tipo quando eu testo ele o bot trava ai eu vo ver no visual basic umas palavras fika amarelas essas aki o

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)

ele falo para add isso no button ai eu ponhei quando eu cliclo no button para testar ele trava ai vo no visual basic essas linhas tao amarelas pq ajuda eu ai aaa e vlws ai man

Editado por Teehvsx (veja o histórico de edições)

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Kimoszin

Kimoszin 1160

Postado
Postado

Vc cria um Button,

Vai ser o Button1, serve para colocar as posições no listbox, ai nele vc bota

        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)
Depois vc cria outro button, esse vai ser o Button2, vai ativar o Timer 
Timer1.Enabled = True
Crie mais outro Button, esse vai ser o Button3, vai desativar o Timer 
Timer1.Enabled = False
Crie um Timer, vai ser o Timer1, coloque esse codigo 
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

Ok, agr adicione um ListBox no seu Form, e test

Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado

Oia so eu criei 1 form so para o cavebot ve se ta certo ai

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form4

Dim c As Client

Dim p As Player

Dim loc As Tibia.Objects.Location

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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Walker.Enabled = True

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Walker.Enabled = False

End Sub

Private Sub Walker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Walker.Tick

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

End Sub

End Class

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Kimoszin

Kimoszin 1160

Postado
Postado (editado)

Crie um FormLoad e bote o codigo:

c = c.Getclient()(0)

p=c.GetPlayer()

Cara acho que é isso, desculpe se nao for pois nao tenho meu vb.net aqui e nao me lembro do codigo

Editado por Kimoszin (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado

O Cara agora da uma ajuda eu fui testar agora ai quando cliclo em Open Bot ele n abre ai vo no visual basic a linha Form2.Show () esta amarela pq isso eu fui em design tava Form2 tbm?

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado

An error occurred creating the form. See Exception.InnerException for details. The error is: Object reference not set to an instance of an object.

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado

tipo eu fui testar o bot ai eu cliclo eim open bot ele trava e n abre ai eu vo no vb a linha :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form2.Show()

End Sub

a palavra :

Form2.Show()
fika amarela

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado

Vo passa do form 1 e o form 2 bele

Form1:

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form1

Public c As Client

Public p As Player

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For Each cl In Client.GetClients

ComboBox1.Items.Add(cl)

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form2.Show()

End Sub

End Class

Form2:

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form2

Dim c As Client

Dim p As Player

Dim levelspy As Integer = p.Location.Z

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("Você precisa escolher o seu personagem.")

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

TimerDance.Start()

Else

TimerDance.Stop()

End If

End Sub

Private Sub TimerDance_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDance.Tick

p.Turn(Direction.Up)

p.Turn(Direction.Up)

p.Turn(Direction.Down)

p.Turn(Direction.Down)

End Sub

Private Sub EatFood_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EatFood.Tick

If c.LoggedIn Then

For Each id As Item In c.Inventory.GetItems

If id.Id = Constants.Items.Food.Apple.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Banana.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Blueberry.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Carrot.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Cheese.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Cherry.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.BrownMushroom.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Coconut.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Corncob.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.DragonHam.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Egg.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Fish.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Grapes.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.GreenMushroom.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Ham.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Meat.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Mellon.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Orange.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Roll.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Salmon.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.WhiteMushroom.Id Then

id.UseOnSelf()

End If

Next

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

EatFood.Interval = 30000

EatFood.Start()

Else

EatFood.Stop()

End If

End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

If CheckBox3.Checked Then

c.Map.NameSpyOn()

Else

c.Map.NameSpyOff()

End If

End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

If c.LoggedIn = True Then

If CheckBox4.Checked = True Then

p.Light = LightSize.Full

p.LightColor = LightColor.White

Else

p.Light = LightSize.None

p.LightColor = LightColor.None

End If

End If

End Sub

Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

End Sub

Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click

If levelspy = 14 Then

Else

c.Map.LevelSpyOn(levelspy + 1)

levelspy = levelspy + 1

End If

End Sub

Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click

If levelspy = 0 Or levelspy = 7 Then

Else

c.Map.LevelSpyOn(levelspy - 1)

levelspy = levelspy - 1

End If

End Sub

Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click

c.Map.LevelSpyOff()

levelspy = levelspy

End Sub

Private Sub cmbmont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbmont.Click

If c.LoggedIn Then

If cmbmont.Text = "Widow Queen" Then

p.MountId = 368

End If

If cmbmont.Text = "Rapid Bird" Then

p.MountId = 369

End If

If cmbmont.Text = "War Bear" Then

p.MountId = 370

End If

If cmbmont.Text = "Black Sheep" Then

p.MountId = 371

End If

If cmbmont.Text = "Midnight Panther" Then

p.MountId = 372

End If

If cmbmont.Text = "Draptor" Then

p.MountId = 373

End If

If cmbmont.Text = "Titanica" Then

p.MountId = 374

End If

If cmbmont.Text = "Tin Lizzard" Then

p.MountId = 375

End If

If cmbmont.Text = "Blazebringer" Then

p.MountId = 376

End If

If cmbmont.Text = "Rapid Boar" Then

p.MountId = 377

End If

If cmbmont.Text = "Stampor" Then

p.MountId = 378

End If

If cmbmont.Text = "Undead Cavebear" Then

p.MountId = 379

End If

If cmbmont.Text = "- Nenhuma -" Then

p.MountId = 0

End If

End If

End Sub

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

form3.show()

End Sub

End Class

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites
Teehvsx

Teehvsx 2

Postado
  • Autor
Postado

n funfo deixa pa la mano isso vai dar 1 trabalho melhor eu refazer ele todo :) vlws REP+ , Topico Fechado

Upando seu Knight level 8~50 em Thais

Tibia é arte, morrer faz parte, botear é moda, ser banido é foda!

Link para o post
Compartilhar em outros sites

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.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito