[VB.Net] Player %

[JulinhoPiuPiu 100]

Obter a porcentagem de vida e mana, sem a TibiaAPI.

Obter a porcentagem de Vida:

Public Property HealthBar() As UInteger

        Get

            Return CInt(Memory_ReadLong(Player.Health) / Memory_ReadLong(Player.HealthMax) * 100 + 0.5)

        End Get

        Set(ByVal value As UInteger)

            val = CInt(Memory_ReadLong(Player.Health) / Memory_ReadLong(Player.HealthMax) * 100 + 0.5)

        End Set

End Property

Obter a porcentagem de Mana:

Public Property ManaBar() As UInteger

        Get

     		Return CInt(Memory_ReadLong(Player.Mana) / Memory_ReadLong(Player.ManaMax) * 100 + 0.5)

        End Get

        Set(ByVal value As UInteger)

            val = CInt(Memory_ReadLong(Player.Mana) / Memory_ReadLong(Player.ManaMax) * 100 + 0.5)

        End Set

End Property

Obter a porcentagem de qualquer coisa: TextBox3.Text é o TextBox de resultado. TextBox1.Text é o TextBox do numero que irá utilizar. TextBox2.Text é o TextBox do maximo do numero irá utilizar.

 TextBox3.Text = (TextBox1.Text / TextBox2.Text) * 100 + 0.5)

Editado Maio 20, 2011 por JulinhoPiuPiu (veja o histórico de edições)

[Renato 659]

VB Codes Return! hauhuah

Massa

Mas tem que avisar que isso ai é sem o TibiaAPI (:

Rep+

[EdsonJunior 966]

HAHA'

Rep+

Volta com os codes pra VB, seu lindo *_*