[DUVIDA] Health

[Mek Fiuchem 212]

Bom eu criei 1 form e fiz 1 health so que quando eu ponho a health min , nome da spell e a mana requerida e a hotkey onde ta a magia ele fika soltando a magia ate acabar a mana e ainda fika soltando essas fumacinhas alguem me ajuda com isso oia o code

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form4

	Private Const WM_KEYUP = &H202

	Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

	Public Tibia As Process

	Public Shared WM_KeyDown = &H100

	Dim c As Client

	Dim p As Player

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

    	c = Form1.ComboBox1.SelectedItem

    	If c.LoggedIn Then

        	p = c.GetPlayer

        	Form1.Hide()

    	Else

        	Me.Hide()

        	MsgBox("Escolha seu Personagem.")

    	End If

	End Sub

	Private Sub TimerHealth_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHealth.Tick

    	If c.LoggedIn Then

        	If p.HealthMax > TextBox1.Text Then

            	c.Console.Say(TextBox2.Text)

            	If p.Mana > TextBox3.Text Then

            	End If

        	End If

    	End If

	End Sub

	Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    	TimerHealth.Start()

	End Sub

	Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    	TimerHealth.Stop()

	End Sub

	Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerKey.Tick

    	If ComboBox1.Text = "F1" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F2" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F3" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F4" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F5" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F6" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F7" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F8" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F9" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F10" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F11" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

    	If ComboBox1.Text = "F12" Then

        	SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0)

    	End If

	End Sub

End Class

[Kimoszin 1160]

O erro esta aqui:

    	Private Sub TimerHealth_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHealth.Tick

    	If c.LoggedIn Then

            	If p.HealthMax > TextBox1.Text Then

            	c.Console.Say(TextBox2.Text)

            	If p.Mana > TextBox3.Text Then

            	End If

            	End Ii

Ele verifico a mana e fez oque? :X

if (p.Health > Textbox1.text) and (p.Mana > Textbox2.text) then

C.console.say(Textbox3.text)

end if

Editado Agosto 10, 2011 por Kimoszin (veja o histórico de edições)

[Mek Fiuchem 212]

Solto exura ate a mana acabar e fiko soltando fumacinha Oo ele nao parava nem 1 segundo

[Kimoszin 1160]

Primeiro estude, depois leia o meu primeiro post e olhe pro codigo que eu vc fez !

[Augusto 660]

Vou mostrar o seu erro Mek, e ja não é a primeira vez que você faz isso...

O erro esta aqui

p.HealthMax > TextBox1.Text Then

Olha o que esta sendo verificado...esta assim...Se o HealthMax for maior que o TextBox1.Text então... O HealthMax sempre será maior, afinal é a life toda do char, ou seja, caso char tenha 300 de vida, e você coloque pra healar com 200 de life, o HealthMax SEMPRE será maior que o textbox... Pra isso, utilize o p.Health, que será a vida que o personagem esta no momento, ou seja, vai ficar assim

p.Health < TextBox1.Text Then

Caso a vida do personagem seja MENOR que a vida definida no textbox, ai sim ele soltará a magia.

Tente fazer dessa maneira pra ver se dará o erro.

Editado Agosto 11, 2011 por Augusto (veja o histórico de edições)

[Mek Fiuchem 212]

Vou mostrar o seu erro Mek, e ja não é a primeira vez que você faz isso...

O erro esta aqui

p.HealthMax > TextBox1.Text Then

Olha o que esta sendo verificado...esta assim...Se o HealthMax for maior que o TextBox1.Text então... O HealthMax sempre será maior, afinal é a life toda do char, ou seja, caso char tenha 300 de vida, e você coloque pra healar com 200 de life, o HealthMax SEMPRE será maior que o textbox... Pra isso, utilize o p.Health, que será a vida que o personagem esta no momento, ou seja, vai ficar assim

p.Health < TextBox1.Text Then

Caso a vida do personagem seja MENOR que a vida definida no textbox, ai sim ele soltará a magia. Tente fazer dessa maneira pra ver se dará o erro.

Bom eu coloquei assim

    	If c.LoggedIn Then

        	If (p.Health > TextBox1.Text) And (p.Mana > TextBox2.Text) Then

            	c.Console.Say(TextBox3.Text)

        	End If

    	End If

so que agora ele nao esta funcionando :/

@Kimoszin

calma mosso se ta ligado qui ti amo

Editado Agosto 11, 2011 por Mek Fiuchem (veja o histórico de edições)