[TibiaAPI] Usar exura sio no amigo

[Bruno 3]

usei: 1 timer , 1 checkbox , 1 numericupdown , 1 textbox , e um label

coloque um label em qlker lugar e ponha visible false com o texto " (aspas)

pra pode pega o exura sio vc tem q por nu valor do hp a porcentagem e n o hitpoints entao eu usei o numericupdown com max value 100, fica mais fácil

Textbox é aonde se poe o nome do cara

código no timer:

        For Each amigosio As Creature In c.BattleList.GetCreatures()

            If amigosio.Name = TextBox1.Text Then

                If amigosio.HPBar <= NumericUpDown1.Value.ToString Then

                    c.Console.Say("Exura Sio " & Label1.Text & amigosio.Name)

                End If

            End If

        Next

código do checkbox:

If CheckBoxUsado.Checked Then

TimerUsado.Start()

Else

TimerUsado.Stop()

End If

eu testei aqui e funciono certinho e eu que fiz entao creditos a min se for colocar em outro forum seila

eu usei o label porque o VB ve as aspas do exura sio "player como se tivesse fechando o texto, ai assim funciona xDDDD

tÃO simples qnto parece!!

fui

[Shooks 9]

kkkkkkkkkkk

gostei da idéia do label, bem bolada!!

aioehiaoe rep+ vlw

[JulinhoPiuPiu 99]

For Each amigosio As Creature In c.BattleList.GetCreatures()

                If amigosio.Name = TextBox1.Text Then

                    If amigosio.HPBar <= NumericUpDown1.Value.ToString Then

                        c.Inventory.UseItemOnCreature(Constants.Items.Rune.UltimateHealing.Id, 0, amigosio.Id)

                    End If

                End If

            Next

            

usar uh no seu amigo

[Bruno 3]

vlw ae shhoks e fn

[AL4sKiM 91]

Gostei dos dois codes ai Vlw Bruno e Fn

Ow tem como bota a vida pelos porcento

Exp 60% de Hp o bot da sio??

Deixa ja tava em percent eu q nao tinha testado kk

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

[Felipe Sartori 5]

No meu não funcionou!

Eu usei tudo que ele falou...

Mas, não foi!

FUNCIONOU PERFEITAMENTE!

Editado Janeiro 13, 2011 por Felipe Sartori (veja o histórico de edições)

[DragonBoss 28]

boa dica caraa.... eu vi la que você usou a label com text " e tals... mas, quando vc dobra a aspas, ele entende como uma no meio do code... por exemplo:

c.Console.Say("Exura Sio " & """" & amigosio.Name)

ta vendo que entre as aspas que determinam a string eu colokei mais duas? ... no meio do code, o vb entende como uma, assim fica:

Exura sio "Nome do Amigo

flw, abraços..

=]

[iasbik 1]

malz reviver o topico..

mas nao to conseguindo botar essa parada pra rodar..

se puderem me ajudar..

segui os passos direitinho..

rodo e nao acontece nada

segue code abaixo

Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick

	 For Each amigosio As Creature In c.BattleList.GetCreatures()

		 If amigosio.Name = TextBox7.Text Then

			 If amigosio.HPBar <= NumericUpDown1.Value.ToString Then

				 c.Console.Say("Exura Sio " & "Label9.Text" & amigosio.Name)

			 End If

		 End If

	 Next

End Sub

Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

	 If CheckBox5.Checked Then

		 Timer5.Start()

	 Else

		 Timer5.Stop()

	 End If

End Sub

Editado Dezembro 8, 2012 por iasbik (veja o histórico de edições)

[Augusto 660]

você chegou a fazer a depuração do codigo pra ver se a variável "amigosio.Name" esta recebendo algum valor?

[iasbik 1]

to depurando pra testar, mas nao acontece nada..

nem erro marcando msg ou algo do tipo

RESOLVIDO

o erro era que tinha que digitar o nome do amigo exatamente igual..

tava botando com iniciais minusculas, e nao tava reconhecendo parece

valeu a atenção

Editado Dezembro 8, 2012 por iasbik (veja o histórico de edições)

[Kimoszin 1160]

Bote um .ToLower() nas strings, que você podera digitar de qualquer maneira.

[iasbik 1]

valeu kimozin..

te devo mais um rep