[TibiaAPI] Attacker Simples

[Kimoszin 1160]

Dim n = "Rotworm"

	    For Each monster As Creature In c.BattleList.GetCreatures


		    If (monster.IsVisible And (monster.Name.ToLower = n.ToLower) And p.TargetId = 0) Then

			    monster.Attack()

		    End If

	    Next

[iasbik 1]

blz Augusto e Kimoszin

vou olhar com calma aqui e posto se conseguir..

mas esse material ja vai dar uma ajudada boa

[iasbik 1]

po, mto bom o code..

deu certinho

vou dar uma mexida no bot essa noite e qualquer duvida recorro ao forum denovo

obrigado novamente

[iasbik 1]

deixa eu recorrer novamente a ajuda de vcs

montei o esquema aqui do attack

coloquei um text box e um list box

ae tem um button pra adicionar o que digitar no text box pro list box, e desse list box ta pegando o nome do bicho pra atacar..

mas to apanhando pra quando é mais de um bicho..

tipo, ele só ataca o que ta em primeiro na lista do list box

vou postar meu codigo ai..

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

	 If c.LoggedIn Then

		 For Each monster As Creature In c.BattleList.GetCreatures

			 If (monster.IsVisible And (monster.Name.ToLower() = ListBox2.Text.ToLower()) And p.TargetId = 0) Then

				 monster.Attack()

			 End If

		 Next

	 End If

End Sub

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

	 If CheckBox1.Checked Then

		 ListBox2.SelectedIndex = 0

		 Timer1.Start()

	 Else

		 Timer1.Stop()

	 End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

	 If TextBox1.Text.ToLower() = ListBox2.Text Then

	 Else

		 ListBox2.Items.Add(TextBox1.Text.ToLower())

	 End If

End Sub

valeu a atenção

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

[Kimoszin 1160]

Oque você quer fazer? Ele só ataca o primeiro e não ataca os outros?

[iasbik 1]

é.. isso ai..

eu queria que atacasse o primeiro.. qndo o primeiro morresse, fosse pro segundo..

do jeito que ta o codigo ele ta ficando parado qndo mata o primeiro

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

[Kimoszin 1160]

ListBox1 é onde fica o nomes das criatuas.

    Private Sub timerAttack_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerAttack.Tick

	    For Each monsterName As String In ListBox1.Items

		    For Each cr As Creature In c.BattleList.GetCreatures

			    If (p.TargetId = 0 And cr.Name.ToLower() = monsterName.ToString().ToLower()) Then

				    cr.Attack()

			    End If

		    Next

	    Next

    End Sub

[iasbik 1]

parece que deu certo.. vou testar mais aqui..

só notei um problema..

eu passo perto de um montanha, ae o bixo que ta marcado ele tenta atacar, até o que ta na parte de cima da montanha, que nao ta no msmo nivel que eu

tem ideia do que fazer?

[Kimoszin 1160]

Tem que adaptar, só te mostrei o simples.

[iasbik 1]

sabe onde encontro algo sobre isso?

pra não misturar os niveis no bot? (montanha, cav...)