[DUVIDA] Cavebot - Ladder

[Mek Fiuchem 212]

Eu queria saber se esse code eu ponho no timer :

Dim LadderTile As Tibia.Objects.Tile = client.Map.GetTileWithPlayer

For Each TileObject As Tibia.Objects.TileObject In LadderTile.Objects

	Dim i As Tibia.Objects.TileObject = TileObject

	If Tibia.Constants.TileLists.UpUse.FirstOrDefault(Function(l) l = i.Id) Then

    	Tibia.Packets.Outgoing.ItemUsePacket.Send(client, player.Location, i.Id, i.StackOrder, 0)

    	Exit For

	End If

Next

ou esse

Dim myArray() As String = loc2(0).Split(", ")

 		if myArray(0) = 'Walk' then

   MyPlayer.GoTo = New Location(CInt(myArray(1)), CInt(myArray(2)), CInt(myArray(3)))

   		end if

if myArray(0) = 'Say' then

'say

end if

if myArray(0) = 'ladder' then

'use ladder

end if

            If MyPlayer.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

se for , eu queria saber oque devo ponhar no button de rope , pra adicionar a coodernada no listbox1 como rope, se tiver algo errado nesse code /\ , me avisa

Obs : axei na net , nao intendo mt de cavebot

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

[Private Sub Teste 353]

VAI ESTUDAR ANTES DE VIM POSTAR ESSAS COISA AQUI, KRL

MEU DEUS, SE FOSSE SÓ COPIAR OS CÓDIGOS E PONHAR NA MERDA DO BOT ATÉ MINHA VÓ FAZIA

TU TEMQUE ENTENDER O CÓDIGO, SE TU NAO ENTENDER NAO VAI SABER ONDE PONHAR ESSA MERDA MESMO VELHO

PQP

[Kimoszin 1160]

Viu Mek?

É isso que ele me fala todos os dias,

#Topico

E outra, vc tem que adaptar o codigo, nao é so copiar e colar, se nao, nao vai funcionar

[Mek Fiuchem 212]

Chegaaaaaaaaaaaaaaaaaaaaaaaaaa , desistooooooooooooooooooooooo vo começa a estudar tabom ? felizes omg