Ajuda com bot

[Chaos 18]

Acho que aqui é a area certa, Então eu vi o tuto do Renato e queria sabe como faz pra coloca as funções:

Mana Caster

Auto eat

Auto cure poison

Auto cure paralise

Se alguem souber fala rápido

[Renato 659]

Cara, mas é sobre Visual Basic e TibiaAPI?

Se for aqui não é a area certa, a área certa seria no próprio fórum do VB.NET (fale que eu movo)

Se não for então especifique o que é.

Suporte Geral para Bots de Tibia é dúvidas relacionadas ao mesmo.

Dúvidas sobre programação é na area de programação.

[Chaos 18]

Cara, mas é sobre Visual Basic e TibiaAPI?

Se for aqui não é a area certa, a área certa seria no próprio fórum do VB.NET (fale que eu movo)

Se não for então especifique o que é.

Suporte Geral para Bots de Tibia é dúvidas relacionadas ao mesmo.

Dúvidas sobre programação é na area de programação.

Atá entao move ai k e se sabe responde a pergunta eu consegui faze varias coisas, to com problema no healer e no Auto Eat

[Augusto 660]

Eu achei as sources de um Bot e tem esse auto eater aqui

não testei!

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkEatFood.CheckedChanged

If ChkEatFood.Checked Then

EatFood.StartTimer()

Else

EatFood.StopTimer()

End If

End Sub

Private Sub EatFood_OnExecute() Handles EatFood.OnExecute

On Error Resume Next

Dim Map As Tibia.Objects.Map = New Map(client)

Dim FoodOnFloor As List(Of Tibia.Constants.Items)

Dim Puerta As New Objects.ItemLocation

Puerta.GroundLocation.X = Player.Location.X - 1

Puerta.GroundLocation.Y = Player.Location.Y

Puerta.GroundLocation.Z = Player.Location.Z

Dim tile As Tile = Map.GetTile(Puerta.GroundLocation)

For Each i As Item In tile.Items

If i.IsInList(Tibia.Constants.ItemLists.Foods.Values) Then

i.Use()

Exit For

End If

Next

Dim food As Item = client.Inventory.GetItems().FirstOrDefault(Function(item) item.IsInList(Tibia.Constants.ItemLists.Foods.Values))

If food IsNot Nothing Then

food.Use()

End If

End Sub

[Renato 659]

Então cara, pra fazer Heal você vai precisar de um Timer.

Vou colocar um exemplo simples aqui com 2 textbox, Spell e HP, e um checkbox pra ativar/desativar

Crie um timer e ponha nele:

If p.Health <= TextBoxDoHp.Text Then

c.Console.Say(TextBoxDoSpell.Text)

End If

[/code]




Depois cria um evento no checkbox (CheckBox_CheckedChange) só clicar duas vezes nele porque é o evento padrão.

E ponha este exemplo: (lembre-se de adaptar ao seus)



[code]

If Checkbox1.Checked Then

TimerDoHeal.Start()

Else

TImerDoHeal.Stop()

End If

Pra Heal com potion você cria um combobox com os potions, um textbox pro HP e o checkbox E no timer você poe

If ComboBox1.Text = "HPotion" Then

   If p.Health <= TextBoxDoHP.Text Then

   	c.Inventory.UseItemOnSelf(Tibia.Constants.Items.Potion.HealthPotion.Id)

   End If

ElseIf ComboBox1.Text = "SHPotion" Then

   If p.Health <= TextBoxDoHP.Text Then

   	c.Inventory.UseItemOnSelf(Tibia.Constants.Items.Potion.StrongHealthPotion.Id)

   End If

End If 'acrescente o resto

[/code]

 

E no checkBox use o mesmo esquema do spell.

"Escrevi tudo por cabeça, qualquer erro avise"

[b]Qualquer dúvida pergunte![/b]

[JulinhoPiuPiu 100]

Cure Paralyze

If p.HasFlag(paralyzed) Then

c.Console.Say("utani hur")

End If

Cure Poison

If p.HasFlag(poisoned) Then

c.Console.Say("exana pox")

End If

[Puncker 201]

Auto Eat

Usando

Para usar coloque em algum timer ou algo que você preferir e recomendo interval 30000 (30 segundos).

Toda vez que esse timer for ativado ele irá verificar no inventário ou no slot de munição se há food e se tiver ele irá usar.

Verificando no Inventário

Dim Food As Item = client.Inventory.GetItems().FirstOrDefault(Function(ia) Constants.ItemLists.Foods.Keys.Contains(ia.Id))

If Food IsNot Nothing Then

Food.Use()

End If

Verificando no slot de munição

Dim Food3 As Tibia.Objects.Item = client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo)

If Food3 IsNot Nothing AndAlso Tibia.Constants.ItemLists.Foods.ContainsKey(Food3.Id) Then 

client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo).Use()

End If

[Renato 659]

Você pode adaptar o código do FnBot do cure paralyse.

Crie um textbox para que a pessoa digite a magia para curar, por exemplo se ele quiser Utani Gran Hur, ou somente Exura, ele irá escrever no textbox.

Então troque ("utani hur") por (TextBox1.Text)

[JulinhoPiuPiu 100]

Brigado renato!, tava com priguiça kk' abraços

[Chaos 18]

Ah uma outra pergunta, como eu coloco tipo no alien bot tem tipo 1 skin nos botoes como eu coloco akilo?'-'

[Renato 659]

Skin é uma coisa mais complexa.

O que eu fiz no Alien, foi simplesmente colocar uma imagem no botão.

Selecione o botão e vai nas propriedades procura por imagem e seleciona uma imagem.

www.repeatxy.com

Este site lhe oferece vários BG tipo Tile se você se interessar.

Abraços.

[AL4sKiM 91]

>O Healer está otimo

>Os cures do FN ta dando erro

paralysed not declared

poisoned not declared

>Eat FOod ta dando esse erro

reference to a no-shared menber requires an objet reference

[JulinhoPiuPiu 100]

mude paralyzed para: Constants.Flag.Paralyzed

mude poisoned para: Constants.Flag.Poisoned

[Renato 659]

Aonde da o erro: reference to a no-shared menber requires an objet reference

em Eat Food?

Especifique.

[Orbtitan 26]

lol , aqui ta parecendo aula particular , rsrs

[AL4sKiM 91]

Aonde da o erro: reference to a no-shared menber requires an objet reference

em Eat Food?

Sim é no Eatfood!

Eu mudei o poisoned e o paralyse

ficou otimo vlw ai

[Felipe Sartori 5]

Não consegui colocar o healler!

Aqui não funciona

[AL4sKiM 91]

Tente de novo rapaz

eu tentei umas 4 vez esse healer

comecei tudo do 0

nas 3 vez

ai na quarta presto de boa

[Renato 659]

AL4sKiM, mas em que parte do EatFood da esse erro?

Em que parte do código?

Abraços.

[Felipe Sartori 5]

Eat Food aqui está 100%...

If p.Health <= TextBoxDoHp.Text Then

c.Console.Say(TextBoxDoSpell.Text)

End If

Está dando erro no BOT quando eu ponho a Magia o quando de Life e ativo dai da esse erro e o BOT fexa!

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