Ir para conteúdo

Featured Replies

Postado

Galera, estou com um problema no meu cavebot, fiz tudo certo, nas SCRIPTS não da nenhum erro. aperto f5 pra testar o bot abre normalmente sem nenhum erro. mas meu problema é o seguinte quando eu clico em Enabled / Disabled depois de ter marcado a cave o char não anda.

Eu clico STAND e adiciona as posições no listbox normalmente e na hora de ativar pra ele andar ele não anda, não da nenhum erro o char fica parado. mostra la no Checkbox que ele está ativado só que não anda.

Também queria 2 scripts. 1 pra da clean na listbox. e 1 pra da delete só na posição selecionada !

ah e quando eu clico com o botão em " Open Cavebot " pra abrir o Forms de cavebot aparece a seguinte imagem ...

http://img27.imagesh...523/chooseo.png

___

Quem poder me ajudar com minhas duvidas, e postar a scripts pedida ! agradeço ^^

...

PS: a Script q uso no meu form de cavebot é essa ! \ /

  Citar
Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form3

Private p As Player

Private c As Client

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

Select Case Combobox1.Text.ToLower()

Case "center"

listbox1.Items.Add("Walk:" & p.X & "," & p.Y & "," & p.Z)

Case "north"

listbox1.Items.Add("Walk:" & p.X & "," & (p.Y - 1) & "," & p.Z)

Case "south"

listbox1.Items.Add("Walk:" & p.X & "," & (p.Y - 1) & "," & p.Z)

Case "east"

listbox1.Items.Add("Walk:" & (p.X + 1) & "," & p.Y & "," & p.Z)

Case "west"

listbox1.Items.Add("Walk:" & (p.X - 1) & "," & p.Y & "," & p.Z)

End Select

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Select Case Combobox1.Text.ToLower()

Case "center"

listbox1.Items.Add("Rope:" & p.X & "," & p.Y & "," & p.Z)

Case "north"

listbox1.Items.Add("Rope:" & p.X & "," & (p.Y - 1) & "," & p.Z)

Case "south"

listbox1.Items.Add("Rope:" & p.X & "," & (p.Y - 1) & "," & p.Z)

Case "east"

listbox1.Items.Add("Rope:" & (p.X + 1) & "," & p.Y & "," & p.Z)

Case "west"

listbox1.Items.Add("Rope:" & (p.X - 1) & "," & p.Y & "," & p.Z)

End Select

End Sub

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

Select Case Combobox1.Text.ToLower()

Case "center"

listbox1.Items.Add("Shovel:" & p.X & "," & p.Y & "," & p.Z)

Case "north"

listbox1.Items.Add("Shovel:" & p.X & "," & (p.Y - 1) & "," & p.Z)

Case "south"

listbox1.Items.Add("Shovel:" & p.X & "," & (p.Y - 1) & "," & p.Z)

Case "east"

listbox1.Items.Add("Shovel:" & (p.X + 1) & "," & p.Y & "," & p.Z)

Case "west"

listbox1.Items.Add("Shovel:" & (p.X - 1) & "," & p.Y & "," & p.Z)

End Select

End Sub

Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick

Dim myArrayAction() As String = listbox1.SelectedItem.ToString().Split(":")

Dim myArrayLocation() As String = myArrayAction(1).Split(",")

Dim loc As Tibia.Objects.Location

loc.X = myArrayLocation(0)

loc.Y = myArrayLocation(1)

loc.Z = myArrayLocation(2)

Dim tile As Tile = c.Map.GetTile(loc)

If (myArrayAction(0) = "Rope") Then

c.Inventory.UseItemOnTile(3003, tile)

End If

End Sub

Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox.CheckedChanged

If (CheckBox.Checked) Then

timer1.Start()

Else

timer1.Stop()

End If

End Sub

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

c = ClientChooser.ShowBox

p = c.GetPlayer

Combobox1.SelectedIndex = 0

End Sub

End Class

te ajudei ?

REP +   :accept: 

 

----------------------------------

Holy Server ON-LINE

 

IP: Holyserver.no-ip.org

Site: Holyserver.no-ip.org

Versão: 8.6

 

Saiba mais no nosso site ! 

 

- Servidor online 24 horas -

Postado

A imagem que aparece é para você selecionar o client em que o bot funcionará.

E você não fez os codigos para o seu personagem andar.

Para limpar uma ListBox:

ListBox1.Items.Clear()
Para remover o selecionado:
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

DICA: Antes de começar a programar um bot, que é algo muito complexo, aconselho que você aprenda mais sobre programação em geral e sobre a linguagem VB.

Postado
  • Autor

Sim, a imagem eu sei que é pra selecionar o client e tal. mas eu gostaria que ela não aparece-se !

e eu acho q muda por aqui ..

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

c = ClientChooser.ShowBox

p = c.GetPlayer

Combobox1.SelectedIndex = 0

End Sub

Mas nao sei tirar.. e eu gostaria q nao aparece-se isto, gostaria de quando eu clica-se no botão pra abrir cavebot apenas abri-se o Form3 que é o do cavebot nada mais . igual qndo clico no Form1 e ja abri o form2..

e como faço os codigos pro meu personagem andar ? onde ponhos os codigos ? poderia me explicar ? ou mandar um link ?

te ajudei ?

REP +   :accept: 

 

----------------------------------

Holy Server ON-LINE

 

IP: Holyserver.no-ip.org

Site: Holyserver.no-ip.org

Versão: 8.6

 

Saiba mais no nosso site ! 

 

- Servidor online 24 horas -

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

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.7k

Informação Importante

Confirmação de Termo