Tryller

Exato Augusto provavelmente ele usou a declaração Public c As Client Public p As Player eu Utilizo Public Shared Player As Player Public Shared Client As Client Achoq ue já pode fexar o tópico a dúvida do cara foi sanada

Outro jeito de fazer é If client.LoggedIn = True Then If checkbox1.Checked = True Then player.Light = LightSize.Full player.LightColor = LightColor.White Else player.Light = LightSize.None player.LightColor = LightColor.None End If End If

Não adiantou ;/ mesmo erro

t+ falow ai =D

Estou desenvolvendo um Novo Bot. Porém em VB.Net Ok is o meu problema Estou começando a desenvolver o cavebot com target all (igual NG) Só tem um problema nisso tudo.... Eu usava este code pro MBot e quando passei para VB.Net ocorreu o seguinte erro 1 - Eu crio o waypoint list para o char andar 2 - Eu ativo os waypoints 3 - Ativo o Target All Erro - Quando meu char ataca o monstro ele não para de seguir as waypoints e continua a andar, como arrumar? Eis o meus code OBS: Este code não utiliza timers, ele utiliza ThreadTimers Código Inicialização Public Sub New() InitializeComponent() WaypointWalcker = New ThreadTimer(500) TargetAll = New ThreadTimer(2000) End Sub Public WithEvents WaypointWalcker As ThreadTimer Public WithEvents TargetAll As ThreadTimer [/php] Este seria o suposto "Timer" do Target All [php]Private Sub TargetAll_OnExecute() Handles TargetAll.OnExecute If client.LoggedIn = True Then Dim Bl As New BattleList(client) Dim BLMonsters As List(Of Creature) = Bl.GetCreatures().ToList Dim aux As String = "" For ind As Integer = 0 To BLMonsters.Count - 1 If BLMonsters(ind).Z <> player.Z Then Continue For If Not BLMonsters.Item(ind).IsSelf Then aux = BLMonsters(ind).Name.ToLower If BLMonsters(ind).IsAttacking AndAlso BLMonsters(ind).IsReachable Then BLMonsters(ind).Attack() End If Exit For End If Next ind End If End Sub Este é o checkbox para ativar o Target All Private Sub btnAttack_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttack.CheckedChanged If btnAttack.Checked = True Then TargetAll.StartTimer() Else TargetAll.StopTimer() End If End Sub[/php] Este é o código do meu walcker para ler os waypoints [php]Private Sub WaypointWalcker_OnExecute() Handles WaypointWalcker.OnExecute If client.LoggedIn = True Then If listWaypoints.SelectedItem.ToString() <> "North" AndAlso listWaypoints.SelectedItem.ToString() <> "South" AndAlso listWaypoints.SelectedItem.ToString() <> "West" AndAlso listWaypoints.SelectedItem.ToString() <> "East" Then Dim chek As String() = listWaypoints.SelectedItem.ToString().Split("|"c) Dim pos As String = chek(1) Dim output As String = pos.Substring(pos.IndexOf("(") + 1, pos.IndexOf(")") - pos.IndexOf("(") - 1) arrayWalker = output.Split(","c) If player.Location = New Location(Convert.ToInt32(arrayWalker(0)), Convert.ToInt32(arrayWalker(1)), Convert.ToInt32(arrayWalker(2))) Or player.Location.Z <> Convert.ToInt32(arrayWalker(2)) Then If listWaypoints.SelectedIndex >= (listWaypoints.Items.Count - 1) Then listWaypoints.SelectedIndex = 0 Else listWaypoints.SelectedIndex = listWaypoints.SelectedIndex + 1 End If End If If chek(0) = "Waypoint" Then player.[GoTo] = New Location(Convert.ToInt32(arrayWalker(0)), Convert.ToInt32(arrayWalker(1)), Convert.ToInt32(arrayWalker(2))) Else If chek(0) = "Rope" Then Dim rope__1 As New Location(Convert.ToInt32(arrayWalker(0)), Convert.ToInt32(arrayWalker(1)), Convert.ToInt32(arrayWalker(2))) Dim tile As Tile = client.Map.GetTile(rope__1) client.Inventory.UseItemOnTile(Rope.Id, tile) Thread.Sleep(500) Else If chek(0) = "Shovel" Then Dim shovel__2 As New Location(Convert.ToInt32(arrayWalker(0)), Convert.ToInt32(arrayWalker(1)), Convert.ToInt32(arrayWalker(2))) Dim tile As Tile = client.Map.GetTile(shovel__2) client.Inventory.UseItemOnTile(Shovel.Id, tile) Thread.Sleep(500) listWaypoints.SelectedIndex = listWaypoints.SelectedIndex + 1 End If End If End If Else If listWaypoints.SelectedItem.ToString() = "North" Then player.Walk(Direction.Up) Thread.Sleep(1000) If listWaypoints.SelectedIndex >= (listWaypoints.Items.Count - 1) Then listWaypoints.SelectedIndex = 0 Else listWaypoints.SelectedIndex = listWaypoints.SelectedIndex + 1 End If Else If listWaypoints.SelectedItem.ToString() = "South" Then player.Walk(Direction.Down) Thread.Sleep(1000) If listWaypoints.SelectedIndex >= (listWaypoints.Items.Count - 1) Then listWaypoints.SelectedIndex = 0 Else listWaypoints.SelectedIndex = listWaypoints.SelectedIndex + 1 End If Else If listWaypoints.SelectedItem.ToString() = "East" Then player.Walk(Direction.Right) Thread.Sleep(1000) If listWaypoints.SelectedIndex >= (listWaypoints.Items.Count - 1) Then listWaypoints.SelectedIndex = 0 Else listWaypoints.SelectedIndex = listWaypoints.SelectedIndex + 1 End If Else If listWaypoints.SelectedItem.ToString() = "West" Then player.Walk(Direction.Left) Thread.Sleep(1000) If listWaypoints.SelectedIndex >= (listWaypoints.Items.Count - 1) Then listWaypoints.SelectedIndex = 0 Else listWaypoints.SelectedIndex = listWaypoints.SelectedIndex + 1 End If End If End If End If End If End If End If End Sub Só preciso que alguem me ajude a fazer o walcker paar de seguir os waypoints assim que meu char estiver atacando o monstro. Obviamente apos matar todos os monstros ele voltara a caçar

Tibia API pode ser postado em qualquer area relacionada a bots, já que não existe uma sessão para tal Mas acho que eles se apressaram demais para fazer este release. pois ainda tem varias coisas bugafas

Esse pet system éaquele ki tem o bug do ML uahauahaua

Bom script Simples mas ultil para pegar os player de surpresa em uma quest ahuahuahaa

Update to Tibia 9.00 very nice bot

Em vb eu só consigo usar Component Factory Mas se for em CSharp (C#) ai da de utilizar skins do windows também, meu bot usa skins do windows

Você acha que vai vir alguém e lhe dar os Address de mao beijada? uahauahua Vai a luta mano isso leva anos pra aprender. ninguèm vai te passar assim de bobeira não

Resolvido

Em minha opinião como desenvolvedor de OTServ, tenho certeza que é impossivel usar site em sqlite Pelo simples motivo de ele não haver conexão usando password, ou seja caso contrario seu site seria facilmente invadido E também por que os sites são desenvolvidos para trabalhar com MYSQL, descartando o SQLite

uahuahaua Eu usava um sistema parecido com esse nos OTServ ;x Bom código esse

Não é feio... mas é estranho :S tipo tenta fazer algo medievals e tals, achoq ue combina mais com tibia ;x

Creio quem VB.net pois fnBot já usa esta linguagem

A problema no VB lol antes ta na Tibia APi auhaua por isso eu não tinha entendido voce tem framework 3.5 ou superior?

Fixo merecido =D muito obm memso vai ajuda a galera ;p agora só falta um tuto de como por skins no VB ;x

O que você está tentando fazer.. eu nãointendi ;x

hum.... bacana Se precisa dre alguém para a equipe estou ai... posso conseguiri um repositorio privado pra gente xD

Boa garoto =D Muito boa essa versão Valeu por compartilhar xD

Para fazer isto você precisa ter o código fonte do seu bot, se você não tiver ai fica complicado ;x veja os tutoriais do Renato acho que vai lhe ajudar

days = 10, Esqueceu de tirar a viugula, pois é a ultima definição, após a ultima definição não se usa virgula ;x Isto causa erro no console ;x

Usa a do MBot (MTB futura sigla) ela está atualizada para 9.00 E o BBot já está atualizado sim

Renato tem uns erros no seu script Definições multiplas são definidas antes da funçãoe e faltou um sinal de = Não se ultiliza ; após uma definição e sim , Na ultima definição não se usa , E você esqueceu de por o config. nas definições dentro da função O Script correto ficaria assim --[Criado por Renato Ribeiro para www.TibiaKing.com]-- --[baseado em um script do Matheus Sesso]-- local config = { level = 100, days = 10 } function onAdvance(cid, oldlevel, newlevel) if getPlayerLevel(cid) >= config.level and getGlobalStorageValue(getPlayerAccountId(cid)+321) <= 0 then setGlobalStorageValue(getPlayerAccountId(cid)+321, 1) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você ganhou "..config.days.." dias de premium por alcançar level "..config.level.." em pelo menos um char de sua account. Você não irá ganhar de novo caso upe level "..config.level.." em outro char.") end return TRUE end