Ir para conteúdo
TK News
  • Cadastre-se

[DUVIDA] Cavebot - Rope - Shovel

Mek Fiuchem

Por ,
em Recursos Avançados

 Share Seguidores 0

Posts Recomendados

Mek Fiuchem

Mek Fiuchem 212

Postado
Postado

Alguem ai pode me passar 2 codigos tipo : 1 de Shovel e outro de Rope ? estou precisando , tentei lé umas apostila mais nao entendi mt e tentei axar uns tutorial so que tinha uns que n dava para entendar nada

Vlws a todos (y~

tk-melhor.png

KIIZH.png

Link para o post
Compartilhar em outros sites
Augusto

Augusto 660

Postado
Postado

é utilizando a TibiaAPI?

se for segue o código

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

c.Inventory.UseItemOnTile(Rope.Id, tile)

Onde em "coordenada" vai ser a coordenada no mapa.

Para o Shovel, troque o "Rope.Id" por "Shovel.Id".

# Regras Gerais - TibiaKing.com #
Contato: [email protected]
Não respondo dúvidas via MP.

1C2tu.png4Tlqo.png1C2tu.png

 

Link para o post
Compartilhar em outros sites
  • 1 year later...
iasbik

iasbik 1

Postado
Postado (editado)

Olá..

tava precisando de uma ajuda relacionada ao uso da rope

eu montei até agora o walker marcando a posição do char e posições norte, sul, leste e oeste..

coloquei o codigo pra rope, e como button funciona perfeitamente..

usei esse codigo do Augusto, e só alterei a rope.ID pelo próprio ID

to tentando fazer ele rodar pela listbox

ele segue as coordenadas normalmente por ela, mas qndo chega na rope dá um erro..

se puderem me dar uma ajuda, segue o codigo


Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

	 If c.LoggedIn Then

		 Dim loc As Tibia.Objects.Location

		 loc.X = p.Location.X

		 loc.Y = p.Location.Y

		 loc.Z = p.Location.Z

		 If ComboBoxa.SelectedItem = "Mine" Then

			 ListBox1.Items.Add(loc.X & "," & loc.Y & "," & loc.Z)

		 End If

		 If ComboBoxa.SelectedItem = "North" Then

			 ListBox1.Items.Add(loc.X & "," & (loc.Y - 1) & "," & loc.Z)

		 End If

		 If ComboBoxa.SelectedItem = "Soul" Then

			 ListBox1.Items.Add(loc.X & "," & (loc.Y + 1) & "," & loc.Z)

		 End If

		 If ComboBoxa.SelectedItem = "East" Then

			 ListBox1.Items.Add((loc.X + 1) & "," & loc.Y & "," & loc.Z)

		 End If

		 If ComboBoxa.SelectedItem = "West" Then

			 ListBox1.Items.Add((loc.X - 1) & "," & loc.Y & "," & loc.Z)

		 End If

		 If ComboBoxa.SelectedItem = "Rope" Then

			 ListBox1.Items.Add(ComboBoxa.Text)

		 End If

	 End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

	 Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",")

	 Dim tile As Tile = c.Map.GetTile(p.Location)

	 If ListBox1.SelectedIndex = "Rope" Then

		 c.Inventory.UseItemOnTile(3003, tile)

	 ElseIf p.IsWalking = False Then

		 c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2)))

		 If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then

			 If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then

				 ListBox1.SelectedIndex = 0 

			 Else

				 ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 

			 End If

		 End If

	 End If

End Sub
Eu faço a depuração normal, marco as posicoes e o uso da rope, mas qndo ativo e chega pra usar ela, da um erro marcando a parte seguinte no visual basic: If ListBox1.SelectedIndex = "Rope" Then e fala que "A conversão da seqüência de caracteres 'Rope' no tipo 'Double' não é válida." sei que falta colocar a posição em "Location", mas não to sabendo como pegar ela.. tentei outra maneira aqui, mas nao deu tb.. 


Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click


        If c.LoggedIn Then

            Dim loc As Tibia.Objects.Location

            Dim tile As Tile = c.Map.GetTile(p.Location)

            loc.X = p.Location.X

            loc.Y = p.Location.Y

            loc.Z = p.Location.Z

            If ComboBoxa.SelectedItem = "Mine" Then

                ListBox1.Items.Add(loc.X & "," & loc.Y & "," & loc.Z)

            End If

            If ComboBoxa.SelectedItem = "North" Then

                ListBox1.Items.Add(loc.X & "," & (loc.Y - 1) & "," & loc.Z)

            End If

            If ComboBoxa.SelectedItem = "Soul" Then

                ListBox1.Items.Add(loc.X & "," & (loc.Y + 1) & "," & loc.Z)

            End If

            If ComboBoxa.SelectedItem = "East" Then

                ListBox1.Items.Add((loc.X + 1) & "," & loc.Y & "," & loc.Z)

            End If

            If ComboBoxa.SelectedItem = "West" Then

                ListBox1.Items.Add((loc.X - 1) & "," & loc.Y & "," & loc.Z)

            End If

            If ComboBoxa.SelectedItem = "Rope" Then

                ListBox1.Items.Add((c.Inventory.UseItemOnTile(3003, tile)) & "," & loc.X & "," & loc.Y & "," & loc.Z)

            End If

        End If


    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",")

        If p.IsWalking = False Then

            c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2)))

            If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then 

                If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then 

                    ListBox1.SelectedIndex = 0 

                Else

                    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 

                End If

            End If

        End If

    End Sub

esse aparece erro na linha:

c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2)))

e diz "A conversão da seqüência de caracteres 'True' no tipo 'Integer' não é válida."

e se eu troco a posição no:

ListBox1.Items.Add((c.Inventory.UseItemOnTile(3003, tile)) & "," & loc.X & "," & loc.Y & "," & loc.Z)

para

ListBox1.Items.Add(loc.X & "," & loc.Y & "," & loc.Z & "," & (c.Inventory.UseItemOnTile(3003, tile)))

fica para e aparece a frase na parte debaixo do cliente: "First go upstairs."

obrigado pela atenção

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

Kimoszin 1160

Postado
Postado

Vocês estão fazendo errado pessoal

Aqui está um exemplo:

Imports Tibia.Util

Imports Tibia.Objects


Public Class Form1

Private p As Player

Private c As Client


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



c = ClientChooser.ShowBox

p = c.GetPlayer


comboboxPos.SelectedIndex = 0

End Sub


Private Sub btnAddPos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddPos.Click

Select Case comboboxPos.Text.ToLower()

Case "center"

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

Case "north"

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

Case "south"

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

Case "east"

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

Case "west"

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

End Select

End Sub


Private Sub btnRope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRope.Click

Select Case comboboxPos.Text.ToLower()

Case "center"

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

Case "north"

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

Case "south"

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

Case "east"

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

Case "west"

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

End Select

End Sub


Private Sub btnShovel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShovel.Click

Select Case comboboxPos.Text.ToLower()

Case "center"

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

Case "north"

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

Case "south"

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

Case "east"

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

Case "west"

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

End Select

End Sub


Private Sub timerWalker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerWalker.Tick

Dim myArrayAction() As String = listboxWalker.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 chkEnable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEnable.CheckedChanged

If (chkEnable.Checked) Then

timerWalker.Start()

Else

timerWalker.Stop()

End If

End Sub

End Class

Link para o post
Compartilhar em outros sites
iasbik

iasbik 1

Postado
Postado

obrigado Kimoszin

to tentando implementar esse codigo no bot aqui..

depurando normal, mas qndo vou ativar um stand da um erro..

segue imagem

post-2077-0-30651500-1355267244_thumb.jp

Link para o post
Compartilhar em outros sites
iasbik

iasbik 1

Postado
Postado

ah, blza.. nao tinha selecionado na listbox..

mas selecionando nao dá o erro, porém nao acontece nada.. nem se move o char

Link para o post
Compartilhar em outros sites
iasbik

iasbik 1

Postado
Postado

ta certo..

ae coloquei esse codigo pra mover:



ElseIf p.IsWalking = False Then

            c.GetPlayer.GoTo = New Location(CInt(myArrayLocation(0)), CInt(myArrayLocation(1)), CInt(myArrayLocation(2)))

            If p.Location = New Location(CInt(myArrayLocation(0)), CInt(myArrayLocation(1)), CInt(myArrayLocation(2))) Then

                If listboxWalker.SelectedIndex >= (listboxWalker.Items.Count - 1) Then

                    listboxWalker.SelectedIndex = 0

                Else

                    listboxWalker.SelectedIndex = listboxWalker.SelectedIndex + 1

                End If

            End If

        End If

ta funcionando blz..

mas o que acontece na rope, é que sobe e fica parado.. travado no listbox da rope e o char parado..

com isso, ele vai pra parte de cima e fica tentando usar a rope de novo, no lugar que subiu

vc sabe alguma função pra botar talvez um if pra resolver isso?

tipo, se travar num select na listbox, pular pro proximo?

alterei o timer pra 1000, axando que poderia ser questão de estar mto rapido e nao dar tempo de mudar

Link para o post
Compartilhar em outros sites
iasbik

iasbik 1

Postado
Postado

vou postar o codigo que estou usando no walker..

ele funciona, a rope tb, enfim..

mas qndo sobe pra parte de cima com a rope começam os problemas..

normalmente ele fica parado em cima..

caso eu desca um buraco, ele tb da problema..

a depuracao do vb.net para

segue o codigo



Private Sub btnAddPos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddPos.Click

        Select Case comboboxPos.Text.ToLower()

            Case "center"

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

            Case "north"

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

            Case "south"

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

            Case "east"

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

            Case "west"

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

        End Select

    End Sub


    Private Sub btnRope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRope.Click

        Select Case comboboxPos.Text.ToLower()

            Case "center"

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

            Case "north"

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

            Case "south"

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

            Case "east"

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

            Case "west"

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

        End Select

    End Sub


    Private Sub btnShovel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShovel.Click

        Select Case comboboxPos.Text.ToLower()

            Case "center"

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

            Case "north"

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

            Case "south"

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

            Case "east"

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

            Case "west"

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

        End Select

    End Sub


    Private Sub timerWalker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerWalker.Tick

        Dim myArrayAction() As String = listboxWalker.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

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

            c.Inventory.UseItemOnTile(3457, tile)

        End If

        If p.IsWalking = False Then

            c.GetPlayer.GoTo = New Location(CInt(myArrayLocation(0)), CInt(myArrayLocation(1)), CInt(myArrayLocation(2)))

            If p.Location = New Location(CInt(myArrayLocation(0)), CInt(myArrayLocation(1)), CInt(myArrayLocation(2))) Then

                If listboxWalker.SelectedIndex >= (listboxWalker.Items.Count - 1) Then

                    listboxWalker.SelectedIndex = 0

                Else

                    listboxWalker.SelectedIndex = listboxWalker.SelectedIndex + 1

                End If

            End If

        End If

    End Sub


    Private Sub chkEnable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEnable.CheckedChanged

        If (chkEnable.Checked) Then

            timerWalker.Start()

        Else

            timerWalker.Stop()

        End If

    End Sub

End Class

não faço ideia do que fazer pra resolver..

se puderem me ajudar...

Link para o post
Compartilhar em outros sites
Kimoszin

Kimoszin 1160

Postado
Postado 

    Private Sub timerWalker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerWalker.Tick

	    Dim myArrayAction() As String = listboxWalker.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)


	    Select Case myArrayAction(0)

		    Case "Rope"

			    c.Inventory.UseItemOnTile(3003, tile)

		    Case "Shovel"

			    c.Inventory.UseItemOnTile(3457, tile)

		    Case "Walk"

			    If p.IsWalking = False Then

				    c.GetPlayer.GoTo = New Location(CInt(myArrayLocation(0)), CInt(myArrayLocation(1)), CInt(myArrayLocation(2)))

			    End If

	    End Select


		    If listboxWalker.SelectedIndex >= (listboxWalker.Items.Count - 1) Then

			    listboxWalker.SelectedIndex = 0

		    Else

			    listboxWalker.SelectedIndex = listboxWalker.SelectedIndex + 1

		    End If

    End Sub

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