(TIBIAAPI) Dúvida de como criar um Healer.

[Miichelc 3]

Então, como escrevi, =) estou com muitas dúvidas sobre como fazer um healer (não quero já feito,nem ctrl+c/v)

Uso VB 2008 express.

Se alguém ai puder me ajudar posta ai, vou estar entrando de vez em quando no blog =)

Tentei alguns healers que achei na internet mais nenhum deu certo =/

Sou iniciante em VB.

Agradeço se algum usuário experiente em programação puder me ajudar, tá dificil aqui (Tentei criar o meu próprio também, mais não deu certo).

Aqui está o code que estou usando, achei ele na internet

Private Sub TimerHealing_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHealing.Tick

		If p.Mana > TextBox1.Text Then

			c.Inventory.UseItemOnSelf(0)

		Else

			c.Inventory.UseItemOnSelf(238)

		End If

	End Sub

Obs: Mana Healing e Life Healing, com itens e spells quero tentar fazer.

=)

Abs

[Mek Fiuchem 212]

c.Inventory.UseItemOnSelf(238)

nao seria c.Inventory.UseItemOnSelf.GreatManaPotion ?

[Augusto 660]

De uma olhada nesta linha

http://code.google.com/p/lothusbot/source/browse/trunk/frmPrinc.cs#764

Caso não intenda, volte a postar que te direi como funciona a lógica, pois acredito que ai que esta o seu erro.

[Miichelc 3]

Mek Fiuchem, vou tentar se der certo irei avisar =)

Augusto,Olha, para falar a verdade eu não entendi muito mesmo, haha

Edit:

Estou quase conseguindo ! Valeu ai pela força =)

Mais estou com um pequeno erro aqui:

obs: Public i As Item - declarada

If c.LoggedIn Then

			If p.Mana > textbox1.Text Then

			    i.Inventory.UseItemOnSelf.GreatManaPotion(238)

			End If

		End If

	End Sub

Dando Erro: i.Inventory.UseItemOnSelf.GreatManaPotion(238)

Erro: 'Inventory' is not a member of 'Tibia.Objects.Item'

Agradeço se puderem me ajudar.

Abs

Editado Dezembro 13, 2011 por Miichelc (veja o histórico de edições)

[Augusto 660]

Crie um timer e ponha isso dentro

Dim vida As Double = Convert.ToDouble(p.HealthMax) //Aqui eu pego o valor da vida atual do player e coloco em uma variável chamada "vida"

Dim potion As UInteger = 238 //Aqui vai o ID da potion

If p.Health < vida Then //aqui é feito a verificação se a vida do player é menor que a vida

	For Each i As Item In c.Inventory.GetItems() //Aqui ele entra em um loop, ou seja, a cada item no inventário, ele faz a verificação

		If i.Id = potion Then //se o i.ID for igual ao da potion

			i.UseOnSelf() //ele usa o item no char

		End If

	Next

End If

[Miichelc 3]

'Inventory' is not a member of 'Tibia.Objects.Item'

Ainda não consegui resolver esse erro =/

Está assim ao todo:

Private Sub Timer_hp1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_hp1.Tick

	    Dim vida As Double = Convert.ToDouble(p.HealthMax)

	    Dim potion As UInteger = 238

	    If p.Health < vida Then

		    For Each i As Item In c.Inventory.GetItems()

		    Next

		    If i.Id = potion Then

			    i.UseOnSelf()

		    End If

	    End If

    End Sub

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

	    If c.LoggedIn Then

		    If p.Mana > textbox1.Text Then

			    i.Inventory.UseItemOnSelf.GreatManaPotion.id(238)

		    End If

	    End If

    End Sub

End Class

Se estiver algo errado, posta ae =)

Editado Dezembro 14, 2011 por Miichelc (veja o histórico de edições)

[Augusto 660]

Vai ficar assim

Private Sub Timer_hp1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_hp1.Tick

            Dim vida As Double = Convert.ToDouble(p.HealthMax)

            Dim potion As UInteger = 238

            If p.Health < vida Then

                    For Each i As Item In c.Inventory.GetItems()

                    Next

                    If i.Id = potion Then

                            i.UseOnSelf()

                    End If

            End If

    End Sub

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

            If c.LoggedIn Then

                    /*If p.Mana > textbox1.Text Then -> não precisa por essas coisas aqui, pois na hora que o form abrir, ele não precisa checar nada, a não ser que o char esteja logado, mais nada!

                            i.Inventory.UseItemOnSelf.GreatManaPotion.id(238)

                    End If*/

            End If

    End Sub

End Class

E tenha certeza que esteja importando a seguinte referencia no inicio

Import Tibia.Objects

[Miichelc 3]

Olha gente, obrigado por tudo ai.

Mais eu to parando com Tibia.

Essa coisa estraga vidas =/

Valeu mesmo gente, e desculpa se fiz vocês perderem tempo

Abs

[Emersonssss 114]

Desculpe reviver esse topico mais não achei nd relacionado ao oq eu preciso.

 

Preciso de um Timer que verifica se o char esta Target caso sim ele Solte uma Magia

 

Se possivel poderia me ajuda ?

[Cat 2606]

cara cuidado, preste atenção antes de comentar, creio que não seja a primeira vez.

 

Postado 16 dezembro 2011 - 04:17

 

o último post foi em 2011, nós estamos em 2013.