rickmattar

Otg Server Global 

Somos o Otg Server, projeto baseado no TFS 1.3 e OTX3.2,
Se trata de um servidor baseado no GLOBAL MAP RL.
Aqui você encontrará baixo uso de recursos como CPU / memoria, prezamos muito por estabilidade e atualizações constantes.

Agradecemos primeiramente ao Tibiaking pela oportunidade nos concedida,
somos parceiros oficiais do Tibiaking.com melhor Forum Brasileiro!

 
  
Especificações :
- Global Map FULL RL
- Maioria das Quests com Quest Log 100%
- Anti Rollback + Auto Restart 100%
- Source Otimizada (baixo consumo de CPU e memoria)
- Sem Bug de Clonar dinheiro (Npcs Refeitos
- Exercise Training 100%
- Raids 100%
- Monstros 100%
 
 
 
 

Imagens :
 
THAIS TEMPLE
 

 
FALCONS
 

 
NEW ASURAS
 

 
WZ 4,5,6

 

 


Downloads :
 
PROJETO OFFICIAL GITHUB: 
https://github.com/otg-br/global-11x
 
TUTORIAL PARA COMPILAÇÃO:
https://github.com/otg-br/global-11x/wiki
 
EXE compilado WIN11 64bits:
https://github.com/otg-br/global-11x/blob/main/Executavel compilado win11 64bits.rar
 
GRUPO WHATSAPP OTG SERVER:
https://chat.whatsapp.com/EWV3dVvS6nt1em7q23FGu7
 
 
 

 Créditos :
The Forgotten Server
Otland
Mark Samman
Mattyx Otx
Erick Nunes
Johncore
Otg Server contribuidores
OTX contribuidores
Otservbr
Leu
Marcomoa
Marson Schneider
Leandro Baldissera
 

Cara, primeiramente, me desculpe...realmente o método que o Renato ensina no tópico não funciona mais, tentei fazer várias vezes e não funcionou, dai fui pesquisar o porque! Estudando a documentação da API "encontrei" o porque não funciona mais.
O p.location.Z indica o floor que o char se encontra, mais isso serve apenas para localização! Na ultima atualização da API ela passou a funcionar da seguinte maneira para o LevelSpy. O char sempre estara na posição 0, ou seja, onde seria o suposto p.location.Z se inicia com 0.

Vou postar o código que fiz apenas para você ver como é.

Váriaveis:

private Client client; private Player player; private int floor=0; Load do form: client = ClientChooser.ShowBox(); if (client.LoggedIn) { player = client.GetPlayer(); } Botão Acima: if (floor < 7 || floor > -7) { client.Map.LevelSpyOn(floor + 1); floor++; } Botão Abaixo: if (floor < 7 || floor > -7) { client.Map.LevelSpyOn(floor - 1); floor--; } Botão Desativar: client.Map.LevelSpyOff();

Fiz os testes e funcionou normalmente utilizando este método.

PS:O code esta em C#, utilize este link para transformar -> Link
Abraços!

É pq o FnBot necessita do .NET Framework 3.5:

"Requerimento: Microsoft .NET Framework 3.5"

Download: .NET Framework 3.5

Se ajudei, agradeça

@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.

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

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]

Criando seu tibia bot com TibiaAPI - Parte 3
{Desenvolvendo com TibiaAPI}



Depois de ter injetado a DLL como referência começaremos a desenvolver nosso Bot!

O Design:

Primeiro de tudo vamos criar o Loader, para que possamos carregar nosso char e o bot funcione.
No form1, ponha um combobox e um botão escrito Start, ou OK, ou Entrar, ou Abrir Bot, enfim, o que você achar melhor.
Se preferir também ponha uma frase para que o player saiba o que fazer. (eu puis: Escolha seu personagem...) segue a foto:





Códigos vbnet!

Agora vamos partir para os códigos. Os códigos do loader não são complicados. Basta usar a lógica para intender.
Na parte á direitas vá em Solution Explorer, clique com botão direito em cima do Form1 e depois em View Code. Ai estará todos os códigos do Form1.

Se você não modificou nada, vai estar assim:


Public Class Form1

End Class
[/code] [b][color=#800080][size=4]Importanto do TibiaAPI[/size][/color][/b] Então terá as duas abas no seu programa, a Form1.vb que é o codigo e a Form1.vb [Designer] que é o design obviamente. No code antes de Public Class Form1, ponha isto: [code]Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants Isto é para importar do DLL, para o resto funcionar. Declarando as Variáveis client e player Então logo depois, vamo definir as variáveis, para nos ajudar a longo do programa Após Public Class Form1, ponha: Public c as client
Public p as player[/code] Aqui você declarou que c é Client e p é Player. Em tutoriais pela net você pode encontrar funções com client.Map.. etc, pois eles declararam "Dim client as client" então mude para c.Map... etc O código ficará: [code]Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants

Public Class Form1

Public c As Client
Public p As Player

End Class
Form1_Load - Seu char no combobox. Volte no design e clique duas vezes no seu programa (em qualquer parte, menos no botão e no combobox). Verá que foi acrescentado um "Private Sub" no code (o que é isso? R: não te interessa agora).
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
[/code] Você abriu um evento para o Form1 que é o Load, ou seja, tudo que estará ai será executado quando o programa for carregado (quando abrir). Então ponha este código no Form1_Load: [code] For Each cl In Client.GetClients
ComboBox1.Items.Add(cl)
Next
Só entender inglês e usar a lógica para entender o código. Para cara cl em client.GetClients Adiciona o item cl no ComboBox1, Next é o que fecha o For Each. Carregando seu Bot Volte para o designer e clique duas vezes no botão. Aparecerá este code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
[/code] Reparem que não é mais _Load e sim _Click. Pois o evento será executado quando o botão for clicado e não carregado. Então ponha dentro do Private Sub: [code]
Form2.Show()
Mas pera ai, "mostrar form2"? Mas nem criamos o form2! Sim, isto é o que veremos no próximo tutorial O código final ficou assim:
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 Client.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
End Class

[/code]

Seu form2 ficara sublinhado com erro pois ainda não existe. Aguarde.

Até mais guys!