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