Ir para conteúdo

Featured Replies

Postado

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

  • Respostas 29
  • Visualizações 3.6k
  • Created
  • Última resposta

Top Posters In This Topic

Most Popular Posts

  • 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.I

  • Private Sub Teste
    Private Sub Teste

    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"

  • @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, provavel

Postado

Bom demais isso

vai ajudar no inicio de um cavebo pra quem precisar auahaa

  • 4 weeks later...
Postado

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

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

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.6k

Informação Importante

Confirmação de Termo