Felipe Sartori

[TESTADO EM OTX 2.1+] 8.60
 
[TESTADO EM TFS 0.3.6] 8.54 ~ 8.60
 
 
 
Créditos: ~Mathias Kenfi

Fala galerinha do TK....tudo bom?
Como vocês provavelmente perceberam, o TK passou por uma atualização esta madrugada, para a nova versão do IPB 3.2.
Muitas coisas ainda precisam ser ajeitadas, então lhes peço um pouco de paciência que com o tempo iremos por tudo em ordem.
Caso encontrem bugs/erros, por favor, postem neste tópico ou contatem algum membro da equipe.

Obrigado.
Equipe TibiaKing.

Pessoal, hoje eu estava explorando as funções "p" e "c" e na função "p" achei uma coisinha interessante...

Você precisará apenas de um CheckBox, apenas!

Dentro do CheckBox você adiciona:

if c.LoggedIn Then If checkbox1.checked then p.Skull = Skull.Black else p.Skull = Skull.None end if End if Isto você ficará com o Black Skull... Você pode trocar o Black por: p.Skull = Skull.Green p.Skull = Skull.Yellow p.Skull = Skull.None p.Skull = Skull.Red p.Skull = Skull.White

Prontinho...

Créditos:

Felipe Sartori
Kaiofirma

DESCLASSIFICADO!

O que mais é usado, é Slime e Monk treiner.
Então você poderia adicionar um Slime Trainer, semelhante ao do flmR Auto:



Funciona da seguinte maneira:

Você ataca a Slime verdadeira (que sumona as outras), e clica em "Select Main Slime".
Isso faz com que não ataque essa Slime, somente ataca as sumonadas.

Na parte do Monk, é só colocar um "Stop attack if life is below 40%" (Pare de atacar se a vida é inferior a 40%).

Ficaria muito bom, e seria muito usado. Tem muita gente precisando de um Bot assim, simples, seguro e facil de usar

Felipe, tente usar o seguinte código


Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Public c As Client Public p As Player Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each cl In c.GetClients ComboBox1.Items.Add(cl) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End Sub End Class

Eu mudei o Client.GetClients e coloquei c.GetClients ali no "For".
Não testei (estou no trampo ).

AJUDEM, PODE DAR REP- '-'

1º Felipe, sua conta de usuario no computador tem permissões de Administrador?

2º Qual seu Windows? Se for Windows 7 desabilite o "Controle de Contas de Usuario", para tal siga estes passos: Menu iniciar -> Painel de Controle -> Contas de Usuario -> Alterar as configurações de Controle de Conta de Usuario.

3º A dll antiga se encontra dentro da pasta do Tibia? Quando adicionamos uma refência no Projeto, o mesmo cria algo semelhante a imagem abaixo:





Faça o seguinte, retire todas e quaisquer referências da API do seu projeto, coloque a dll na pasta do projeto ai sim adicione a API como referência.

Pela imagem que você postou, você tem restrições no Usuario, caso seja isso, veja qual usuario no seu computador tem direitos administrativos e tente os passos 2 e 3.

AJUDEM, PODE DAR REP- '-'

Pode dar Rep- por renacer, mas eu gostaria de falar que o tamanho seria 400 x 200 e no caso se possível em .png para mim editar no Fireworks!

Tibia NG 5.0.9

TibiaBot NG 5.0.9 referente ao Tibia 8.74
Com alguns bugs corrigidos.
Download.




Imagem do Bot.


Key funcionando (07/05).



Use esses itens com esse crack.
Se quiser crackear o NG incompleto, clique aqui.

Rep+

Pode dar Rep- por renacer, mas eu gostaria de falar que o tamanho seria 400 x 200 e no caso se possível em .png para mim editar no Fireworks!

Cap Alert:


1 Text Box
1 CheckBox
1 Timer


Timer:

If c.LoggedIn Then If p.Capacity <= TextBox9.Text Then My.Computer.Audio.Play("C:\Windows\Media\notify.wav") End If End If CheckBox: If CheckBox12.Checked Then TimerCap.Start() Else TimerCap.Stop() End If No TextBox, você irá escrever! Quando tiver com menos de 30 (Exemplo) de Cap o BOT irá apitar! Heal Alert: 1 Text Box 1 CheckBox 1 Timer Timer: If c.LoggedIn Then If p.Health <= TextBox10.Text Then My.Computer.Audio.Play("C:\Windows\Media\notify.wav") End If End If CheckBox: If CheckBox15.Checked Then TimerAlertH.Start() Else TimerAlertH.Stop() End If No TextBox, você irá escrever! Quando tiver com menos de 300 (Exemplo) de Health o BOT irá apitar! Mana Alert: 1 Text Box 1 CheckBox 1 Timer Timer: If c.LoggedIn Then If p.Mana <= TextBox12.Text Then My.Computer.Audio.Play("C:\Windows\Media\notify.wav") End If End If CheckBox: If CheckBox13.Checked Then TimerAlertM.Start() Else TimerAlertM.Stop() End If

No TextBox, você irá escrever! Quando tiver com menos de 700 (Exemplo) de Mana o BOT irá apitar!

______________________________________________________________________________________________



ADAPITE AOS SEUS!


Créditos:

Eu

Você vai fazer no FIREWORKS ou PHOTOSHOP?

Só usar radio button o.o'

Como o robson disse, bote Me.Text = "Portal BOT - [" + p.Name + "]" DEPOIS de p = c.Get.Player e funcionará.


Se não funcionou você não trocou ou fez merda em algo antes :}

Enable Click:

TextBox1.Text = "Enabled" TextBox1.ForeColor = Color.Green Disable Click: TextBox1.Text = "Disabled" TextBox1.ForeColor = Color.Red - Inverta a posição, ficando assim no evento Load do form: p = c.GetPlayer Me.Text = "Portal BOT - [" + p.Name + "]" - Quanto ao nome do player, tente fazer isso: Insira um Timer e coloque como Enabled e 1000 de intervalo Event Timer1 Me.Text = "Portal BOT - [" + p.Name + "]"

Olá pessoal, vim aqui para passar para todos vocês o TibiaAPI 8.72 (NOVO).

Download: Clique aqui

Arquivo totalmente limpo! Não há Scan pois o arquivo foi retirado do site do TibiaAPI então não fiz o scan.



Fonte:
GoogleCode.Com

Agora você poderá baixar o mais famoso BOT para Tibia de todos os tempos, o TibiaBot NG, ele é simplesmente incrível e tem diversas funções para você deixar o seu char cada vez mais forte, ele está na versão 8.71!



(Imagem de demonstração)

TibiaBot NG 5.0.4 (Tibia 8.71).rar Link Mirror

# Scan: http://www.virustotal.com/file-scan/report.html?id=0b5a2bd0871669b2a32f84f7f263cf6496f4f6fffe22b94dd6535bc3299d1b6d-1296360083
# Cracks: Crack Sem Potions | Crack Com Potions

Qualquer tipo de bug ou algo parecido, fale neste tópico!

AlienBot - Versão 1.0.0.2 (BETA)
Copyright © TibiaBots.NET - Todos os direitos reservados.
90% Indetectável - Não envia pacotes ao servidor do Tibia.
VERSÕES EM INGLÊS E PORTUGUÊS! [RECOMENDO INGLÊS]




Bot oficial do TibiaBots.NET





QUALQUER BUG POSTE AQUI! BOT EM FASE BETA!


Ferramentas:

Basic Functions:


Level Spy
Light Hack
Outfits and Addons
Show Invisible Monsters

Healing:


Heal - Spell, Potion, Rune
Mana Restore - Potion, per ID
Auto Cure Paralyse
Auto Cure Poison

AFK Tools:


Mana Caster (Train ML)
Rune Maker
Auto Eat Food
Anti-Kick (you choose minutes to rotate)

Com erros em Level Spy e Show Invisible Monsters.
Rune Maker não testado.

Clientes:


8.50
8.52
8.53
8.54
8.55
8.56
8.57
8.60
8.61
8.62

Criador:

Renato

Ajudante:

Puncker

Agradecimentos:


Matheus Sesso
Guilherme
Henrique M.
Todos do TibiaBots.NET
DarkstaR
klusbert

Screenshots:




Downloads:


Primeira Opção [iNGLÊS] [RECOMENDADO]: AlienBot 1.0.0.2 - BETA.rar
Segunda Opção [iNGLÊS] [RECOMENDADO]: AlienBot 1.0.0.2 - BETA.rar
Primeira Opção [PORTUGUÊS]: AlienBot 1.0.0.3 - BETA.rar
Segunda Opção [PORTUGUÊS]: AlienBot 1.0.0.3 - BETA.rar
Scan: 0/43 (0.0%)

Pessoal, hoje eu estava explorando as funções "p" e "c" e na função "p" achei uma coisinha interessante...

Você precisará apenas de um CheckBox, apenas!

Dentro do CheckBox você adiciona:

if c.LoggedIn Then If checkbox1.checked then p.Skull = Skull.Black else p.Skull = Skull.None end if End if Isto você ficará com o Black Skull... Você pode trocar o Black por: p.Skull = Skull.Green p.Skull = Skull.Yellow p.Skull = Skull.None p.Skull = Skull.Red p.Skull = Skull.White

Prontinho...

Créditos:

Felipe Sartori
Kaiofirma

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.

af cara, check box serve pra ativar e desativar algo, por exemplo um timer ou light
poe um botão que funfa

no checkbox voce vai ativar e vai ficar skull mas ae vc desativa e continua

bota ssim

If checkbox1.checked then
p.Skull = Skull.Black
else
p.Skull = Skull.None
End if

ai vc ativa/desativa

Entao gente, como eu estou comecando VB.Net
tou fazendo uns codigos leves mas bem uteis
Ai vou posta um Cap Alert pra vcs

Vamos prescisar de um Timer, CheckBox, Text Box
No timer coloque isso

No checkbox vc poe isso

e no textbox
vc coloca a cap pra alerta
exemplo 40
se o char tiver com uma cap 40 ou menor o bot apita

Traduzindo para noiz se a cap do char menor ou igual a que esta escrita no text box, o bot vai toca uma musiquinha legal

OBS: Se gostaram Rep++