iasbik

http://tibiadb.com/download.php

obrigado Augusto mas no caso dessa parte do address que o Blackd disponibilizou: tibiaModuleRegionSize=&H2F6000 MemLoginServer1=&H7B7558 MemLoginServer2=&H7B75C8 MemLoginServer3=&H7B7638 MemLoginServer4=&H7B76A8 MemLoginServer5=&H7B7718 MemLoginServer6=&H7B7788 MemLoginServer7=&H7B77F8 MemLoginServer8=&H7B7868 MemLoginServer9=&H7B78D8 MemLoginServer10=&H7B7948 MemPortLoginServer1=&H7B75BC MemPortLoginServer2=&H7B762C MemPortLoginServer3=&H7B769C MemPortLoginServer4=&H7B770C MemPortLoginServer5=&H7B777C MemPortLoginServer6=&H7B77EC MemPortLoginServer7=&H7B785C MemPortLoginServer8=&H7B78CC MemPortLoginServer9=&H7B793C MemPortLoginServer10=&H7B79AC adrMulticlient=&H532365 não axei essas partes de LoginServer, PortLoginServer.. tem isso tb no codigo da api 9.71 pra modificar? essas paradas que não encontro que me confundem e fico perdido

oi.. será que alguém poderia me dar uma dica de como eu atualizo o api pros address do client 9.80? to tentando usar esse do Blackd Tibia ; [[[[[[[[[[[[[[[[[[[[[[[[[[[ ; BEGIN AUTOMATIC UPDATE ZONE tibiaModuleRegionSize=&H2F6000 MemLoginServer1=&H7B7558 MemLoginServer2=&H7B75C8 MemLoginServer3=&H7B7638 MemLoginServer4=&H7B76A8 MemLoginServer5=&H7B7718 MemLoginServer6=&H7B7788 MemLoginServer7=&H7B77F8 MemLoginServer8=&H7B7868 MemLoginServer9=&H7B78D8 MemLoginServer10=&H7B7948 MemPortLoginServer1=&H7B75BC MemPortLoginServer2=&H7B762C MemPortLoginServer3=&H7B769C MemPortLoginServer4=&H7B770C MemPortLoginServer5=&H7B777C MemPortLoginServer6=&H7B77EC MemPortLoginServer7=&H7B785C MemPortLoginServer8=&H7B78CC MemPortLoginServer9=&H7B793C MemPortLoginServer10=&H7B79AC adrMulticlient=&H532365 PLAYER_Z=&H983EB0 LEVELSPY_NOP=&H4F5730 LEVELSPY_ABOVE=&H4F572C LEVELSPY_BELOW=&H4F5734 LIGHT_NOP=&H515BE9 LIGHT_AMOUNT=&H515BEE MAP_POINTER_ADDR=&H9DA5C4 OFFSET_POINTER_ADDR=&H9DA5E0 adrConnectionKey=&H7AEF6C adrXOR=&H7B6EF0 adrMyHP=&H94C000 adrMyMaxHP=&H983E9C adrMyMana=&H7B6F44 adrMyMaxMana=&H7B6EF4 adrMySoul=&H7B6F30 adrNameStart=&H94C008 adrNChar=&H94C008 adrNum=&H983EA4 adrXPos=&H983EA8 adrYPos=&H983EAC adrZPos=&H983EB0 adrConnected=&H7C0CF8 RedSquare=&H7B6F40 adrLastPacket=&H7BDDDA adrCharListPtr=&H949CE8 adrCharListPtrEND=&H949CEC adrSelectedCharIndex=&H949D34 adrXgo=&H983EA0 adrYgo=&H983E98 adrZgo=&H94C004 LAST_BATTLELISTPOS=1299 CharDist=&HB0 adrGo=&H94C058 adrPointerToInternalFPSminusH5D=&H9960CC adrNumberOfAttackClick=&H9D3FC8 ; ]]]]]]]]]]]]]]]]]]]]]]]]]]] ; END - AUTOMATIC UPDATE ZONE não sei como fazer pelo seguinte.. tem linhas ai que nao vejo no source do api que tenho.. baixei um que o kimoszin disponibilizou o link em um tópico do fórum, versao 9.60 até pensei em pegar os sources da versão 9.71 pra agilizar.. nao axei pra baixar, mas nesse link que o proprio kimoszin passou tb teria como montar http://code.google.c.../trunk/tibiaapi e essa parte por exemplo não encontrei na source pra modificar.. e outras tb tibiaModuleRegionSize=&H2F6000 MemLoginServer1=&H7B7558 MemLoginServer2=&H7B75C8 MemLoginServer3=&H7B7638 MemLoginServer4=&H7B76A8 MemLoginServer5=&H7B7718 MemLoginServer6=&H7B7788 MemLoginServer7=&H7B77F8 MemLoginServer8=&H7B7868 MemLoginServer9=&H7B78D8 MemLoginServer10=&H7B7948 MemPortLoginServer1=&H7B75BC MemPortLoginServer2=&H7B762C MemPortLoginServer3=&H7B769C MemPortLoginServer4=&H7B770C MemPortLoginServer5=&H7B777C MemPortLoginServer6=&H7B77EC MemPortLoginServer7=&H7B785C MemPortLoginServer8=&H7B78CC MemPortLoginServer9=&H7B793C MemPortLoginServer10=&H7B79AC adrMulticlient=&H532365 desculpa ta recorrendo ao forum pra isso, mas passei o dia inteiro procurando alternativas pra fazer e não saí do lugar..

po, eu nao manjo nada disso.. montei o bot aqui com um tibiaapi pronto ja, pra 9.71 to procurando algo sobre aqui pra ver se me ajuda

opa.. não sou programador como vcs, mas queria que me tirassem uma dúvida.. to montando um bot usando tibia api.. com a atualização do cliente pro 9.80, fico dependendo de atualizarem a api ou tem alguma alternativa pra rodar meu bot?

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

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

ah, blza.. nao tinha selecionado na listbox.. mas selecionando nao dá o erro, porém nao acontece nada.. nem se move o char

obrigado Kimoszin to tentando implementar esse codigo no bot aqui.. depurando normal, mas qndo vou ativar um stand da um erro.. segue imagem

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

sabe onde encontro algo sobre isso? pra não misturar os niveis no bot? (montanha, cav...)

parece que deu certo.. vou testar mais aqui.. só notei um problema.. eu passo perto de um montanha, ae o bixo que ta marcado ele tenta atacar, até o que ta na parte de cima da montanha, que nao ta no msmo nivel que eu tem ideia do que fazer?

é.. isso ai.. eu queria que atacasse o primeiro.. qndo o primeiro morresse, fosse pro segundo.. do jeito que ta o codigo ele ta ficando parado qndo mata o primeiro

deixa eu recorrer novamente a ajuda de vcs montei o esquema aqui do attack coloquei um text box e um list box ae tem um button pra adicionar o que digitar no text box pro list box, e desse list box ta pegando o nome do bicho pra atacar.. mas to apanhando pra quando é mais de um bicho.. tipo, ele só ataca o que ta em primeiro na lista do list box vou postar meu codigo ai.. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If c.LoggedIn Then For Each monster As Creature In c.BattleList.GetCreatures If (monster.IsVisible And (monster.Name.ToLower() = ListBox2.Text.ToLower()) And p.TargetId = 0) Then monster.Attack() End If Next End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then ListBox2.SelectedIndex = 0 Timer1.Start() Else Timer1.Stop() End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox1.Text.ToLower() = ListBox2.Text Then Else ListBox2.Items.Add(TextBox1.Text.ToLower()) End If End Sub valeu a atenção

po, mto bom o code.. deu certinho vou dar uma mexida no bot essa noite e qualquer duvida recorro ao forum denovo obrigado novamente