[TibiaAPI] Attacker Simples

[Augusto 660]

Auto Attacker com TibiaAPI

Bom, como o Kimoszin me pediu por MP, resolvi postar pra todo mundo, caso alguem queira, esta ae.

Crie um timer e ponha o seguinte código:

if (c.LoggedIn)

{

        BattleList BL = new BattleList(c);

        if (p.TargetId == 0)

        {

                Creature creature = BL.GetCreatures().FirstOrDefault(m => !m.IsSelf() && m.IsReachable() && Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name));

                if (creature != null)

                {

                    creature.Attack();

                }

       }

}

Feito isso, é só por um checkbox pra ativar/desativar o timer. O Problema que muita gente encontra no attack é exatamente o dessa linha:

Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name)

Coloquei ela, pois a variavel "creature" irá receber apenas os nomes dos monstros que ele deve atacar. Sem ela, ele ataca tudo (player, monstros, npcs, etc...)

Qualquer duvida, só postar

[Kimoszin 1160]

Isso ae cara,

Como ja disse, vc é demais

Obrigado por sanar minha duvidas diarias,

Abraços

[Tryller 100]

Bom demais isso

vai ajudar no inicio de um cavebo pra quem precisar auahaa

[Mek Fiuchem 212]

Bom eu nao entendi ele vai atacar todas criaturas qui ela axar na cave ? tipo o tibiabot ng ?, eu converti o code para vb.net sera qui ta certo oia

<pre class="prettyprint">If c.LoggedIn Then Dim BL As New BattleList© If p.TargetId = 0 Then Dim creature As Creature = BL.GetCreatures().FirstOrDefault(Function(m) Not m.IsSelf() AndAlso m.IsReachable() AndAlso Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name)) If creature IsNot Nothing Then creature.Attack() End If End IfEnd If</pre>

[Kimoszin 1160]

Ele vai atacar todo tipo de criatura,

[Mek Fiuchem 212]

Ele vai atacar todo tipo de criatura,

mais ele nao ataka player e npc nao ne ? e esse codigo de vb que passei ai ele ta certo ?

[Kimoszin 1160]

Criatura é diferente de Player e NPC

If c.LoggedIn Then

Dim BL As New BattleList(c)

If p.TargetId = 0 Then

  Dim creature As Creature = BL.GetCreatures().FirstOrDefault(Function(m) Not m.IsSelf() AndAlso m.IsReachable() AndAlso Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name))

  If creature IsNot Nothing Then

   creature.Attack()

  End If

End If

End If

[Private Sub Teste 353]

A função "isReachable" do TibiaApi ainda se encontra com problemas? Quando fui fazer um bot opensource (yOn), fiz até o attacker, quando fui testar ele demorava pra ver se a criatura "isReachable"

[theflammer 9]

@Robson Venturin

Sei n, comigo tava normal...

@Topic

Olha, mas com esse código ele soh vai atacar as creatures listadas na API, ou seja em um monstro que seja editado em OT, provavelmente naum vai funcionar, eu tenhu uma função aki que separa o q eh monstro e oq eh NPC e Player, ai soh ataca monstro, qualquer monstro.... Flws

[Kimoszin 1160]

Se quiser disponibilizar, ficariamos muito agradecidos

[leozynho123 34]

ALGUEM ME AJUDA AO ADICIONAR O CODIGO FICA COM UNS RISCOS EMBAIXO DO

Public Class Form3

If c.LoggedIn Then

Dim BL As New BattleList©

If p.TargetId = 0 Then

Dim creature As Creature

esse ai é o que o KIMO passo

[Mek Fiuchem 212]

declaro

Dim c  as Client

Dim p as Player

?

[iasbik 1]

olá..

vou reviver o topico pq to procurando uma funcao de attacker pro meu bot..

peguei o codigo ae pra vb

If c.LoggedIn Then

Dim BL As New BattleList(c)

If p.TargetId = 0 Then

  Dim creature As Creature = BL.GetCreatures().FirstOrDefault(Function(m) Not m.IsSelf() AndAlso m.IsReachable() AndAlso Tibia.Constants.CreatureLists.AllCreatures.ContainsKey(m.Name))

  If creature IsNot Nothing Then

   creature.Attack()

  End If

End If

End If

mas nao ta funcionando..

ativo a checkbox mas nada acontece

poderiam me dar uma ajuda nisso?

[Augusto 660]

Este código está em um outro form? esta declarado

Dim c  as Client

Dim p as Player

neste form?

[iasbik 1]

sim.. tem sim

[Augusto 660]

Na depuração não aparece nenhum erro?

Tem criaturas na tela?

[iasbik 1]

nao aparece erro nenhum..

to indo numa cav com bug pra testar..

ativo mas nao dá nada

nem erro nem depuração

tempo do timer fica no 100 mesmo?

isso tb nao faria diferença

[Augusto 660]

Vou testar e depois edito aqui!

[iasbik 1]

blz.. ae vc manda o code se puder

brigadao

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

[Augusto 660]

@iasbik

Cara, esse meu código funcionou normal, ta certo que esta em C#, mais esta normal

segue o video que fiz mostrando