Xet Bot

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

Seguinte voce foi testar ele ne tipo deu F5 ai add os walkers e foi ponhar para seguir os waypoints mais voce tem que começar do começo e cliclar na primeira coodernada adc no listbox1 se nao ele ira dar esse erro memo , estou tentando arrumar isso ai para ponhar para axar sozinho a coodernada de onde o player ta



AJUDEI ? CLICK EM CURTI

esta errado esses dias se me passo isso e nao funfo ai tu me passo outro ai funfo, tem que ter o form_load de dois click no form e coloque isso exemplo : c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If fikara assim ex: Private Sub Form2_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("You need choose your character") End If End Sub

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

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