Ink

Faz um bom tempo que não entro aqui no fórum, hoje, entrei especialmente pra postar um crack do ibot especialmente pro Tibia King (meu presente de natal pra vocês)
O crack é bastante simples, só que é meio chato... Vamos lá:
 
- Faça download do IBot pelo link abaixo
- Digita um user/pass qualquer
- Clique em login e espere
- Caso não de certo, repita o passo anterior até conseguir
 
[LINK ATUALIZADO 05/01/2013 - EdsonJunior]
 Download - 4Shared
Senha: tibiaking.com
 
VERSÃO 10.31 FUNCIONANDO, AS OUTRAS NÃO SEI COMO VÃO SER
 
 
Não, eu não irei te dizer como o crack é feito.
ESTE CRACK É ESPECIALMENTE PARA O TIBIAKING, PARA POSTÁ-LO EM OUTRO LUGAR, FAVOR PEDIR PERMISSÃO OU BOTAR COMO FONTE O TIBIAKING.COM!

Vampira o caminho para trocar a versão do framework é o seguinte:
My Project> Compile > Advanced Compile Options > Target Framework.

Vampira o caminho para trocar a versão do framework é o seguinte:
My Project> Compile > Advanced Compile Options > Target Framework.

http://tpforums.org/forum/thread-8787-post-77386.html

=================================================
TibiaAPI v2.10.3 for Tibia 9.0 |-| A versão 9.1 encontra-se no final do Post.
=================================================

Sobre este Lançamento

Incluindo Suporte para Tibia 9.0, e obrigado klubster por atualizar a maioria dos endereços.
Não esta 100% correta. Recomendamos que você recompile apartir das sources para evitar quaisquer tipos de bug.

Sobre TibiaAPI
TibiaAPI is a .NET framework for writing programs that interact with the Tibia Client. Programmers: If you are interested in helping out with TibiaAPI (adding to the library, bugfixing, etc) please get familiar with the DLL and using it to write programs. Once you create a program using TibiaAPI and publish it, we will be more than happy to have you join the team. TibiaAPI is open source and available at Google Code code.google.com/p/tibiaapi Authors: Ian and ame, with special thanks to the KTibiaX project and Evremonde.
Main contributors: Jo3 e klubster.

Documentaçao
The docs are old, sorry! You can also view a list of the most important TibiaAPI objects and methods at Google Code: http://code.google.com/p/tibiaapi/wiki/Features In order to view the most recent documentation properly, it must be checked out of the SVN. See http://code.google.com/p/tibiaapi/source for more information. The best way to find out what TibiaAPI offers is to download it yourself and check out the autocompletion in Visual Studio (or your IDE of choice).
Downloads Lista Completa
TibiaAPI v2.10.3 DLL - Inside you will find a readme for use with Visual Studio. You can find many examples at the Google Code download page.
Questões e Idéias
Please see this thread: TibiaAPI Ideas/Suggestions/Comments
Próximos
Change Log
Veja o change log completo
Exemplo de Códigos
Mais exemplos de codigos

Link do Download da API 9.1 -> TibiaAPI.rar.
Não atualizei o Post Principal, pois a API está em versão beta, então na hora que sair a versão oficial, o post será atualizado.

Já que algumas pessoas daqui do forum andam tendo dificuldades com algumas coisas da própria linguagem de programação, resolvi fazer upload de um ebook ("Beginning Microsoft Visual Basic 2010" / "Começando No Visual Basic 2010") que achei há um tempo na internet. Até onde li, ele explica bastante o principal do Visual Basic (e lógica de programação em geral), e pra quem quiser se aprofundar tem alguns assuntos mais "avançados" sobre a plataforma .NET, programação orientada a objetos etc..

Acho que ele seria bastante útil pra quem está começando. E pra quem pensa que ler (não necessariamente todo) o livro é perda de tempo, não é. Você ganhará muito mais tempo programando sem ter que pausar pra procurar ajuda a cada linha que precisar escrever, ou tentando "entender" o código que alguém lhe deu.

Lembrando que o livro está em Inglês:

Link: http://www.multiupload.com/4FZV20J84F



Capítulos Interessantes:

Boa noite pessoal!
É com prazer que apresento meu primeiro e mais simples tutorial!
Você não é premmy e queria ter uma montaria!? Esse código é sua solução

Bom galera como é de costume de todo bom programador, vou listar todos os objetos que vou utilizar no tutorial, seus respectivos nomes e texto exibido.



1 Label = lbltitulo = Selecione a montaria desejada:
1 Combo Box = cmbmont = - Nenhuma -
1 Botão = cmdmontar = Montar


Agora já com os objetos listados vamos programar.
Vamos começar pelo Combo Box.

Selecione o cmblista e nas suas propriedades do lado direito do monitor localize a propriedade Items, clique no botão e uma janela vai aparecer.
Digite a lista de montarias.


- Nenhuma - Black Sheep Blazebringer Draptor Midnight Panther Rapid Bird Rapid Boar Stampor Tin Lizzard Titanica Undead Cavebear War Bear Widow Queen Agora em Text coloque: - Nenhuma - E na propriedade Sorted coloque True, assim a lista vai ficar em ordem alfabética. Feito isso de um duplo clique no cmdmontar e vamos aos códigos. If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if

Vou explicar o código por partes.
If c.LoggedIn Then - Uma condição para que as funções que vem abaixo dela sejam executadas sem problemas maiores, nesse caso ele valida se o player está ou não OnLine.
If cmbmont.Text = "Nome da montaria" Then - Outra condição, está define o id de cada montaria. Eu poderia ter usado Select Case preferi usar if pois o tutorial é para iniciantes.
p.MountId = ID - Essa função é aonde o seu char "monta", ela edita o Look do seu char para que ele monte o monstro selecionado na cmbmont
If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 - Faz seu personagem ficar sem montaria nenhuma.
End If - Fecha as condições.

Bom galera é isso.
Espero que vocês possam usar isso no seus Bot's
Qualquer dúvida eu respondo por mp ou postem ai!

Abraços!

Ink

Boa noite pessoal!
É com prazer que apresento meu primeiro e mais simples tutorial!
Você não é premmy e queria ter uma montaria!? Esse código é sua solução

Bom galera como é de costume de todo bom programador, vou listar todos os objetos que vou utilizar no tutorial, seus respectivos nomes e texto exibido.



1 Label = lbltitulo = Selecione a montaria desejada:
1 Combo Box = cmbmont = - Nenhuma -
1 Botão = cmdmontar = Montar


Agora já com os objetos listados vamos programar.
Vamos começar pelo Combo Box.

Selecione o cmblista e nas suas propriedades do lado direito do monitor localize a propriedade Items, clique no botão e uma janela vai aparecer.
Digite a lista de montarias.


- Nenhuma - Black Sheep Blazebringer Draptor Midnight Panther Rapid Bird Rapid Boar Stampor Tin Lizzard Titanica Undead Cavebear War Bear Widow Queen Agora em Text coloque: - Nenhuma - E na propriedade Sorted coloque True, assim a lista vai ficar em ordem alfabética. Feito isso de um duplo clique no cmdmontar e vamos aos códigos. If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if

Vou explicar o código por partes.
If c.LoggedIn Then - Uma condição para que as funções que vem abaixo dela sejam executadas sem problemas maiores, nesse caso ele valida se o player está ou não OnLine.
If cmbmont.Text = "Nome da montaria" Then - Outra condição, está define o id de cada montaria. Eu poderia ter usado Select Case preferi usar if pois o tutorial é para iniciantes.
p.MountId = ID - Essa função é aonde o seu char "monta", ela edita o Look do seu char para que ele monte o monstro selecionado na cmbmont
If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 - Faz seu personagem ficar sem montaria nenhuma.
End If - Fecha as condições.

Bom galera é isso.
Espero que vocês possam usar isso no seus Bot's
Qualquer dúvida eu respondo por mp ou postem ai!

Abraços!

Ink

Boa noite pessoal!
É com prazer que apresento meu primeiro e mais simples tutorial!
Você não é premmy e queria ter uma montaria!? Esse código é sua solução

Bom galera como é de costume de todo bom programador, vou listar todos os objetos que vou utilizar no tutorial, seus respectivos nomes e texto exibido.



1 Label = lbltitulo = Selecione a montaria desejada:
1 Combo Box = cmbmont = - Nenhuma -
1 Botão = cmdmontar = Montar


Agora já com os objetos listados vamos programar.
Vamos começar pelo Combo Box.

Selecione o cmblista e nas suas propriedades do lado direito do monitor localize a propriedade Items, clique no botão e uma janela vai aparecer.
Digite a lista de montarias.


- Nenhuma - Black Sheep Blazebringer Draptor Midnight Panther Rapid Bird Rapid Boar Stampor Tin Lizzard Titanica Undead Cavebear War Bear Widow Queen Agora em Text coloque: - Nenhuma - E na propriedade Sorted coloque True, assim a lista vai ficar em ordem alfabética. Feito isso de um duplo clique no cmdmontar e vamos aos códigos. If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if

Vou explicar o código por partes.
If c.LoggedIn Then - Uma condição para que as funções que vem abaixo dela sejam executadas sem problemas maiores, nesse caso ele valida se o player está ou não OnLine.
If cmbmont.Text = "Nome da montaria" Then - Outra condição, está define o id de cada montaria. Eu poderia ter usado Select Case preferi usar if pois o tutorial é para iniciantes.
p.MountId = ID - Essa função é aonde o seu char "monta", ela edita o Look do seu char para que ele monte o monstro selecionado na cmbmont
If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 - Faz seu personagem ficar sem montaria nenhuma.
End If - Fecha as condições.

Bom galera é isso.
Espero que vocês possam usar isso no seus Bot's
Qualquer dúvida eu respondo por mp ou postem ai!

Abraços!

Ink

Não é impossivel fazer esse tipo de calculadora...
Não entendo muito das sintaxes do TibiaAPI porem se for possível...
É só pegar o valor da ultima experiência que o char ganhou.
A formula é a seguinte:

resultado=(ExpNecessariaParaProxLvl-SuaExp)/ExpGanhaPorMonstro (Exemplo 40 do Rotworm)
Vamos a um exemplo:
Meu char está no Level 7 e tem 3420 de exp, o necessário para pegar level 8 é 4200
Formula:

resultado=(4200-3420)/40 resultado=(780)/40 resultado=19,5

Como no Tibia só é possível ganhar esses 0,5 de exp se alguem matar o mesmo Rotworm que você, é só colocar a variável para arredondar para +1 se o valor for um número decimal.
Ex: 19,5 = 20

Esse resultado (20) é o número de Rotworms que meu char precisa matar para passar de level, esse é o número que você deve apresentar ao usuário do seu bot.(EX: Faltam 20 Rotworms para o Level 8)...
40*20=800

Se você deixar a variável somente arredondar a variável e não colocar +1 sua calculadora estaria sujeita a erros.(Supor o ganho de 40 de exp constante)
40*19=760

O necessário para upar é 780, logo a calculadora estaria errada.
Fiz uma calculadora assim tem alguns anos, quando estava no colégio ainda funcionava perfeitamente só que ela atuava fora do Tibia, vou tentar implementa-la agora
Espero ter ajudado, qualquer dúvida é só chamar!

Att,
Ink.

c.Statusbar = "Mensagem"
[/code]

See ya.

Dim num As Integer For Each bp As Container In c.Inventory.GetContainers bp.Rename("'" & num & "' " & bp.Name) num = +1 Next

Boa noite pessoal!
É com prazer que apresento meu primeiro e mais simples tutorial!
Você não é premmy e queria ter uma montaria!? Esse código é sua solução

Bom galera como é de costume de todo bom programador, vou listar todos os objetos que vou utilizar no tutorial, seus respectivos nomes e texto exibido.



1 Label = lbltitulo = Selecione a montaria desejada:
1 Combo Box = cmbmont = - Nenhuma -
1 Botão = cmdmontar = Montar


Agora já com os objetos listados vamos programar.
Vamos começar pelo Combo Box.

Selecione o cmblista e nas suas propriedades do lado direito do monitor localize a propriedade Items, clique no botão e uma janela vai aparecer.
Digite a lista de montarias.


- Nenhuma - Black Sheep Blazebringer Draptor Midnight Panther Rapid Bird Rapid Boar Stampor Tin Lizzard Titanica Undead Cavebear War Bear Widow Queen Agora em Text coloque: - Nenhuma - E na propriedade Sorted coloque True, assim a lista vai ficar em ordem alfabética. Feito isso de um duplo clique no cmdmontar e vamos aos códigos. If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if

Vou explicar o código por partes.
If c.LoggedIn Then - Uma condição para que as funções que vem abaixo dela sejam executadas sem problemas maiores, nesse caso ele valida se o player está ou não OnLine.
If cmbmont.Text = "Nome da montaria" Then - Outra condição, está define o id de cada montaria. Eu poderia ter usado Select Case preferi usar if pois o tutorial é para iniciantes.
p.MountId = ID - Essa função é aonde o seu char "monta", ela edita o Look do seu char para que ele monte o monstro selecionado na cmbmont
If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 - Faz seu personagem ficar sem montaria nenhuma.
End If - Fecha as condições.

Bom galera é isso.
Espero que vocês possam usar isso no seus Bot's
Qualquer dúvida eu respondo por mp ou postem ai!

Abraços!

Ink

Boa noite pessoal!
É com prazer que apresento meu primeiro e mais simples tutorial!
Você não é premmy e queria ter uma montaria!? Esse código é sua solução

Bom galera como é de costume de todo bom programador, vou listar todos os objetos que vou utilizar no tutorial, seus respectivos nomes e texto exibido.



1 Label = lbltitulo = Selecione a montaria desejada:
1 Combo Box = cmbmont = - Nenhuma -
1 Botão = cmdmontar = Montar


Agora já com os objetos listados vamos programar.
Vamos começar pelo Combo Box.

Selecione o cmblista e nas suas propriedades do lado direito do monitor localize a propriedade Items, clique no botão e uma janela vai aparecer.
Digite a lista de montarias.


- Nenhuma - Black Sheep Blazebringer Draptor Midnight Panther Rapid Bird Rapid Boar Stampor Tin Lizzard Titanica Undead Cavebear War Bear Widow Queen Agora em Text coloque: - Nenhuma - E na propriedade Sorted coloque True, assim a lista vai ficar em ordem alfabética. Feito isso de um duplo clique no cmdmontar e vamos aos códigos. If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if

Vou explicar o código por partes.
If c.LoggedIn Then - Uma condição para que as funções que vem abaixo dela sejam executadas sem problemas maiores, nesse caso ele valida se o player está ou não OnLine.
If cmbmont.Text = "Nome da montaria" Then - Outra condição, está define o id de cada montaria. Eu poderia ter usado Select Case preferi usar if pois o tutorial é para iniciantes.
p.MountId = ID - Essa função é aonde o seu char "monta", ela edita o Look do seu char para que ele monte o monstro selecionado na cmbmont
If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 - Faz seu personagem ficar sem montaria nenhuma.
End If - Fecha as condições.

Bom galera é isso.
Espero que vocês possam usar isso no seus Bot's
Qualquer dúvida eu respondo por mp ou postem ai!

Abraços!

Ink

Beleza Felipe!
Qualquer coisa mensagem ae...

No chekbox

If text1.text="" then MenssageBox.show("Desculpe, mas você tem que preencher todos os campos.") chekbox1.cheked=false End if

Pronto só isso.
Não sei se a sintaxe está certa por que não estou com o VB aqui, mas a lógica é simples e é essa.
Se ele clicar no checkbox e não estiver preenchido a caixa de texto mostra a mensagem de erro e volta o valor do chk para falso.

Não é impossivel fazer esse tipo de calculadora...
Não entendo muito das sintaxes do TibiaAPI porem se for possível...
É só pegar o valor da ultima experiência que o char ganhou.
A formula é a seguinte:

resultado=(ExpNecessariaParaProxLvl-SuaExp)/ExpGanhaPorMonstro (Exemplo 40 do Rotworm)
Vamos a um exemplo:
Meu char está no Level 7 e tem 3420 de exp, o necessário para pegar level 8 é 4200
Formula:

resultado=(4200-3420)/40 resultado=(780)/40 resultado=19,5

Como no Tibia só é possível ganhar esses 0,5 de exp se alguem matar o mesmo Rotworm que você, é só colocar a variável para arredondar para +1 se o valor for um número decimal.
Ex: 19,5 = 20

Esse resultado (20) é o número de Rotworms que meu char precisa matar para passar de level, esse é o número que você deve apresentar ao usuário do seu bot.(EX: Faltam 20 Rotworms para o Level 8)...
40*20=800

Se você deixar a variável somente arredondar a variável e não colocar +1 sua calculadora estaria sujeita a erros.(Supor o ganho de 40 de exp constante)
40*19=760

O necessário para upar é 780, logo a calculadora estaria errada.
Fiz uma calculadora assim tem alguns anos, quando estava no colégio ainda funcionava perfeitamente só que ela atuava fora do Tibia, vou tentar implementa-la agora
Espero ter ajudado, qualquer dúvida é só chamar!

Att,
Ink.