the code is not that right, the cavebot
Code:
Try
If Memory_ReadLong(iswalk) = 0 Then
If cavebot.SelectedIndex >= (cavebot.Items.Count - 1) Then
cavebot.SelectedIndex = 0
Else
cavebot.SelectedIndex = cavebot.SelectedIndex + 1
End If
Dim myArray() As String = cavebot.SelectedItem.ToString().Split("-")
Dim vaix = myArray(1)
Dim vaiy = myArray(2)
Dim vaiz = myArray(3)
Memory_WriteLong(gotoX, vaix)
Memory_WriteLong(gotoY, vaiy)
'Memory_WriteLong(gotoZ, vaiz)
Memory_WriteLong(iswalk, 1)
Else
End If
Catch ex As Exception
cabebot.Stop()
Button3.Text = "Start"
Button3.ForeColor = Color.Green
End Try
Anyone can see this is right
Code:
Public Const gotoZ As Long = &H63FED4
Public Const gotoY As Long = &H7AC038
Public Const gotoX As Long = &H7BA854
Public Const positionx As Long = &H7AC628
Public Const positiony As Long = &H7AC620
Public Const positionz As Long = &H7AC62C
Public Const iswalk As Long = &H946050
tibia in 860 runs in OTServ
is dont 9.42 :/
help