[TibiaAPI] LevelSpy (Tutorial - Source)

[Renato 659]

Level Spy - Técnica Correta

Aplique a ferramente level spy em seu bot corretamente.

Aloha colequinhas!

Aqui vai mais um tutorial/code de um tool que tem em praticamente todos os bots. Level Spy.

Sim, esse mesmo que você está pensando, este que voce ve o andar de cima e o andar de baixo.

Teoria:

Usaremos sistema de botões, ao apertar o botão up, ele mostrará andar de cima, ao apertar down ele mostrará o andar de baixo e ao apertar desativar ele irá voltar ao normal.

Prática:

Lembrete:

Public c As Client

Muitos iniciantes usam:

c.LevelSpyOn(+1)

[/code]



[code]c.LevelSpyOn(-1)

c.LevelSpyOff()

[/code]




Não, não! Não está errado.

Porém ele só vai mostrar o andar de cima e o andar de baixo.

Porque?



O +1 simboliza seu local somado á um. Ou seja, sempre será o andar de cima, sómente. Ele não vai somar +1 ao andar que você está vendo, mas sim ao seu local.

Então bolei esta técninca.



[b]Primeiro, lá em cima onde você declara as variáveis, declare[/b]


[code]Dim levelspy As Integer = p.Location.Z

Depois no botão up em evento _Click ponha:

 If levelspy = 14 Then

Else

c.Map.LevelSpyOn(levelspy + 1)

levelspy = levelspy + 1

End If

[/code]




[b]No botão down em evento _Click ponha:[/b]


[code] If levelspy = 0 or levelspy = 7 Then

Else

c.Map.LevelSpyOn(levelspy - 1)

levelspy = levelspy - 1

End If

No botão desativar em evento _Click ponha:

 c.Map.LevelSpyOff()

levelspy = levelspy

[/code]


[color=#ff0000][b]Caso não entender algo sobre os códigos ou caso der algum erro, poste aqui.[/b][/color][/color]

[b]Bye babies.[/b]

[EdsonJunior 966]

Opa opa...

Você dá pra um bom programador \o/

ehQUWHEUIQHWUI'

Cara, love u ♥ muito.

REP+

[Renato 659]

São coisas extremamante fáceis, que só precisa de um pouco de raciocínio pra criar um cálculo.

Eu não sei nem 2% de programação =P

[Orbtitan 26]

Pois é por isso que eu digo de Tibia Bots para Tibia Bots Programing

[Renato 659]

O que quer dizer com isto orb?

Não está satisfeito com nossa área de programação?

[Orbtitan 26]

O que quer dizer com isto orb?

Não está satisfeito com nossa área de programação?

Não , pelo contrario , estou dizendo que aki só viro programação

[Renato 659]

Pelo contrário seria que você está bem satisfeito.

Ou voce não soube se expressar e quer dizer que está odiando?

É relacionado a bot cara, então também temos lol.

Temos todas as outras áreas também.

Porque não posta lá ué?

Eu posto aqui porque eu sou programador, agora cada um tem uma área que gosta, temos até area de design aqui, só que ninguém posta direito, mas se postarem iria ser fórum de design? Tem nada haver isso cara.

Desculpa se te ofendi, só estou explicando o porquê dos fatos.

[Guilherme. 189]

Pois é por isso que eu digo de Tibia Bots para Tibia Bots Programing

Isso foi um elogio à area de programação do TibiaBOTS, Renato.

[Guilherme. 189]

Primeiro, lá em cima onde você declara as variáveis, declare

Dim levelspy As Integer = p.Location.Z

Onde eu declaro isso ?

[Renato 659]

Nas variáveis da sua aplicação.

De obrigatóriedade ABAIXO de onde você define p, porque se não o bot não vai saber o que é p e vai travar (ele lê na ordem em que estão os códigos)

[Guilherme. 189]

Public Class Form2

Dim c As Client

Dim p As Player

Dim levelspy As Integer = p.Location.Z

?

[rickmattar 0]

Olá Renato, me perdoá por upar esse tópico nessa data.

Cara eu queria muito aprender um pouco mais de VB, em 1998 eu fiz um pequeno curso de visual basic 4, mas foi a muito tempo e esqueci quase tudo praticamente, gostaria de saber mais sobre essa linguagem para hacker e cheat, no VB 6 eu sei fazer poucas coisas, mas não preciso declarar nada e hoje me deparo com um problema no vb 2008.

Gostaria do amigo me ajudar se for possível, bem.. eu declaro o seguinte "Public c As Client" injeto o tibiaapi normalmente, mas da erro nessa declaração.

Como eu faço pra proceder isso sendo que da erro o "Dim levelspy As Integer = p.Location.Z" tenho que renomear os botões?

Posso te dar uma dica? na boa sem maldade alguma? porque você não faz os seus tutoriais pensando 70% nos novatos em VB? como? simples meu caro amigo, coloque pra download o projeto final do seu tuto, assim os novatos irão analisar usando o próprio VB e ficará de boa, assim daria pra tirar todas eu disse, todas as duvidas, assim você ajuda os novatos e os expert no assunto no mesmo tutorial, o que acha da idéia?

Tipo esse, vc poderia disponibilizar no final o projeto com com o source.. poderia nos ajudar por favor?

Sei que existem varios tutoriais básico dos básicos, mas entenda que as vezes da um branco e voce sabe que isso acontece sempre.

Tipo como eu vou declarar sendo que esta dando erro

[Augusto 660]

Cara, declarar é a primeira coisa que vc aprende em uma linguagem, não é por mal.

Acho que pra coisas simples, é inviavel a disponibilização de um projeto ensinando a fazer apenas uma unica coisa!

Como o Flamer costuma dizer, aprenda a programar na linguagem primeiro, faça programas que fazem apenas calculos (médias, pitágoras, etc..), porque começar direto com a API vc vai ter muita dificuldade, e as vezes irá se deparar com um erro bobo da linguagem! isto é um conselho.

Em relação a sua duvida, verifique se esta assim declarada suas variaveis

Dim c As Client

Dim p As Player

Dim levelspy As Integer = p.Location.Z

[rickmattar 0]

Cara, declarar é a primeira coisa que vc aprende em uma linguagem, não é por mal.

Acho que pra coisas simples, é inviavel a disponibilização de um projeto ensinando a fazer apenas uma unica coisa!

Como o Flamer costuma dizer, aprenda a programar na linguagem primeiro, faça programas que fazem apenas calculos (médias, pitágoras, etc..), porque começar direto com a API vc vai ter muita dificuldade, e as vezes irá se deparar com um erro bobo da linguagem! isto é um conselho.

Em relação a sua duvida, verifique se esta assim declarada suas variaveis

Dim c As Client

Dim p As Player

Dim levelspy As Integer = p.Location.Z

Augusto esse p.Location.Z não existe, eu coloco o imports.object.client, imports.object e mesmo assim não reconhece o location tanto que nem existe ele na list se eu coloco p e dou ponto, aparece uma lista e location não está nela

Acho que é ai que o Guilherme está confuso também

Eu sei o básico do básico de VB, eu pra fica aprendendo eu fico fazendo tocador simplesmente de mp3 no VB6 com ocx windows mediaplayer, mas não precisa importar ou declarar nada.

o amigo me entende?

VB.NET mudou muito

Esse TibiaAPI serve pra Delphi.NET tbm? a versão 8 do delphi.

[Augusto 660]

@Rick

intendo a sua duvida, veja este tópico do Renato, nele esta detalhado a criação "básica" de um bot utilizando a API.

agora em relação do Delphi, acredito que não funciona, pois até mesmo o Pucker aqui do forum tbm não conseguiu utiliza-la no Delphi 2010 - veja -> Link.

[rickmattar 0]

Cara mil perdão, cara foi mancada minha, estava utilizando uma versão antiga do TibiaAPI, agora deu certo *-*

desculpe qualquer coisa, um abraço.

P.S: ta dando erro o executável, tipo o código e a compilação sai sem erro, mas quando executo apareceu um erro de form, tanto no windows xp quanto no windows 7 x64, será que o TibiaAPI ta com bug? usei ele pra fazer um MC e Tibia Luz (Light) e da certo, só no spy da esse ERRO.

versão do TibiaAPI que estou usando é o 2.9.9.0 e o próprio site diz que é pra Tibia 8.71

alguém já teve esse erro? era no source ou no dll?

[Augusto 660]

Poste o código que vc esta usando para analizarmos!

[rickmattar 0]

Oi, Augusto, estou fazendo assim no VB.NET 2010 usando o .net 3.5 para compilar e o mesmo erro tbm está ocorrendo no VB 2008 com TibiaAPI 2.9.9 vejamos:

Imports Tibia

Imports Tibia.Objects

Imports Tibia.Objects.Map


Public Class Form1

    Public c As Client

    Public p As Player


    Dim levelspy As Integer = p.Location.Z



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If levelspy = 14 Then

        Else

            c.Map.LevelSpyOn(levelspy + 1)

            levelspy = levelspy + 1

        End If



    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If levelspy = 0 Or levelspy = 7 Then

        Else

            c.Map.LevelSpyOn(levelspy - 1)

            levelspy = levelspy - 1

        End If



    End Sub


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

        c.Map.LevelSpyOff()

        levelspy = levelspy



    End Sub

End Class

Dou build e não ocorre o erro, mas ao apertar F5 da esse erro aqui "Erro ao criar o Formulário. consulte Exception.InnerExcption para obter detalhes. O erro é: Refêrencia de objeto não definida para uma instância de objeto.

em WindowsApplication1.My.MyProject.MyForms.Create__Instance__[T](T Instance) na 17d14f5c-a337-4978-8281-53493378c1071.vb:linha 190

em WindowsApplication1.My.MyProject.MyForms.get_Form1()

em WindowsApplication1.My.MyApplication.OnCreateMainForm() na E:\vb\tibiatools\tibiatools\My Project\Application.Designer.vb:linha 35

em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

em WindowsApplication1.My.MyApplication.Main(String[] Args) na 17d14f5c-a337-4978-8281-53493378c1071.vb:linha 81

em System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)

em System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)

em Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()

em System.Threading.ThreadHelper.ThreadStart_Context(Object state)

em System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)

em System.Threading.ThreadHelper.ThreadStart()

abraços

[]'s

[Augusto 660]

Isso esta acontecendo porque vc não atribuiu valores as váriaveis c e p respectivamente client e player.

Se c esta nulo, ele irá dar este erro, pois não tem valor a ele, assim como em p.

Imports Tibia 

Imports Tibia.Objects 

Imports Tibia.Objects.Map 


Public Class Form1 

    Public c As Client 

    Public p As Player 


    Dim levelspy As Integer = p.Location.Z 



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        c = ClientChooser.ShowBox

        If c.LoggedIn Then 

            player = c.GetPlayer 

        Else 


        End If 

    End Sub 


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        If levelspy = 14 Then 

        Else 

            c.Map.LevelSpyOn(levelspy + 1) 

            levelspy = levelspy + 1 

        End If 



    End Sub 


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

        If levelspy = 0 Or levelspy = 7 Then 

        Else 

            c.Map.LevelSpyOn(levelspy - 1) 

            levelspy = levelspy - 1 

        End If 



    End Sub 


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

        c.Map.LevelSpyOff() 

        levelspy = levelspy 



    End Sub 

End Class

Veja no Load do Form!

Caso não de certo (fiz o cod no bloco de notas e não testei =/) aqui tem o tutorial do Julio ensinando a fazer isso

Link

Teste e dps nos fale!

PS: A API pode não funcionar em sistemas x64.

Editado Março 2, 2011 por Augusto (veja o histórico de edições)

[rickmattar 0]

Rapaz, o negocio está complicado, eu tentei de tudo quanto é jeito, encontrei alguns esquemas na net e não da certo, o erro é esse Dim levelspy As Integer = p.Location.Z

pois aperto F8 e ele fica grifado de amarelo, mas o maldito programa não da nenhuma dica ¬¬

Como eu posso instanciar o maldito objeto?

Não existe outra forma de fazer esse level spy? todos os exemplos do site do TibiaAPI, não existe level spy, se não conseguir, vou partir pro C# pelo menos a maioria dos exemplos e bot estão nessa linguagem =/