Postado Janeiro 30, 2013 12 anos 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 + ---------------------------------- 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 Janeiro 30, 2013 12 anos 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 Janeiro 30, 2013 12 anos 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 + ---------------------------------- 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 Janeiro 30, 2013 12 anos Você tem que montar uma boa estrutura para o seu projeto, isso é muito importante. Tu precisa definir o client que o seu bot vai funcionar, então é preciso aquele Form para fazer isso para você, mas não precisa ficar chamando ele em cada Form. Aqui tem um Walker
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.