Kimoszin

Aqui tambem nao funcionou cara, nao sei se é o meu distro ou outra coisa, ai funcionou?

Ele botou um end sub a mais, e o end class no lugar errado, rs De nada amigo, sempre as ordens!

Opa, lembro bem desse forum... conseguia meus script de elfbot lá. Enfim, tambem era usuario desse forum, até lembro que fiz um LT, mais tive que parar pq esqueci a senha do char, o pessoal me zuo lá direto. Seja bem vindo ao nosso forum, espero que goste muito daqui e possa nos ajudar ao maximo, Abraços e bem vindo :]

Sim Sim, eu ja tinha mudado, mais acontece esse erro nos dois, enfim acho que é meu wpt.

Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Public c As Client Dim levelspy As Integer = p.Location.Z Public p As Player Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("Você precisa escolher o seu personagem.") End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click c.Map.FullLightOn() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click c.Map.FullLightOff() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If ComboBox1.SelectedItem = "Beggar" Then p.OutfitType = Tibia.Constants.OutfitType.BeggarMale ElseIf ComboBox1.SelectedItem = "Assassin" Then p.OutfitType = Tibia.Constants.OutfitType.AssassinMale End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If levelspy = 14 Then Else c.Map.LevelSpyOn(levelspy + 1) levelspy = levelspy + 1 End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If levelspy = 0 Or levelspy = 7 Then Else c.Map.LevelSpyOn(levelspy - 1) levelspy = levelspy - 1 End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) c.Map.LevelSpyOff() levelspy = levelspy End Sub Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click c.Map.LevelSpyOff() levelspy = levelspy End Sub Private Sub TimerDance_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDance.Tick Dim min As Integer = NumericUpDown1.Value TimerDance.Interval = min * 60000 p.Turn(Direction.Up) p.Turn(Direction.Up) p.Turn(Direction.Down) p.Turn(Direction.Down) p.Turn(Direction.Left) p.Turn(Direction.Left) p.Turn(Direction.Right) p.Turn(Direction.Right) End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TimerDance.Start() NumericUpDown1.Enabled = False Else TimerDance.Stop() NumericUpDown1.Enabled = True End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If c.LoggedIn Then If p.Mana > TextBox2.Text Then c.Console.Say(TextBox1.Text) End If End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox1.Checked Then Timer1.Start() Else Timer1.Stop() End If End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked Then Timer2.Interval = 30000 Timer2.Start() Else Timer2.Stop() End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If c.LoggedIn Then For Each id As Item In c.Inventory.GetItems If id.Id = Constants.Items.Food.Apple.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Banana.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Blueberry.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Carrot.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Cheese.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Cherry.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.BrownMushroom.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Coconut.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Corncob.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.DragonHam.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Egg.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Fish.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Grapes.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.GreenMushroom.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Ham.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Meat.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Mellon.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Orange.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Roll.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.Salmon.Id Then id.UseOnSelf() End If If id.Id = Constants.Items.Food.WhiteMushroom.Id Then id.UseOnSelf() End If Next End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click p.Addon = Tibia.Constants.OutfitAddon.Both End Sub End Class

Pode mandar cara, mais acho que para o corpo do bixo virar um teleport é facil.

Infelizmente, muitos chovens usam drogas pesadas!

Bote o End Class na ultima linha do seu projeto,

End Sub End Class

Você tem que abrir algumas portas para ele funcionar, Ex: 8090

Falta um End Class ali, Você só abriu a class e nao fechou

É cara, nunca consegui fazer funcionar para criar um teleport em ots 8.6 ): Desculpe...

*Você pode tentar isso, mais eu nao consigo fazer a função doCreateTeleport funcionar. Crie um arquivo lua em data\creaturescript. tpmonster.lua local tps = {["Demon"] = {pos = {x=XXX, y=YYYY, z=Z}, toPos = {x=XXX, y=YYYY, z=Z}}} function onDeath(cid) local tp = tps[getCreatureName(cid)] if tp then doCreateTeleport(1387, tp.toPos, tp.pos) end return TRUE end Demon = Nome do Monstro pos = Posição que vai ser criado o teleport toPos = Posição para onde o teleport levará as pessoas. creatuscript.lua <event type="death" name="tpmonster" event="script" value="tpmonster.lua"> Agora adicione isso no monster que você configurou <script> <event name="tpmonster"/> </script>

Aqui tem uns mais acho que são erros meus, acho que só e no meu wpt (foi o primeiro que eu fiz), Quando ele desce na escada, depois sobe, ele fica nisso pra sempre... ai eu desativo e ativo o walker e volta a funcionar.

Config.lua accountManager = false

Que bom que você voltou cara, saudades ): Espero que consiga seu cargo novamente, Abraços s2

Como o Edson disse, o BDAT é toda configuração do bot, ou seja, quando você dar load nao precisa mais configurar, Agora o BWPT é so o lugar que o char vai andar, sem loot, healer e etc.. incluido nele. O BDAT é carregado nos Settings, enquanto o BWPT só no Walker.

Cara, que coisa chata... Espero que isso nao abale os seus planos de criar um OTserver e que você possa seguir em frente, Infelizmente somos assim, confiamos nas pessoas e depois de um tempo elas mostram oque realmente são. Enfim, boa sorte para você e se precisar de alguma ajuda... só falar.

Oque você quer mudar no script!?

auto 200 mphigher X say 'Utito Tempo' Bom pensei que ia dar, fui pela logica das outras, Essa é diferente, você precisa selecionar a mana, troque o X pela mana que você quiser (Vai falar utito tempo se a mana for maior que X)

Status:Online Grupo:Imperador Posts:999 Cadastrado:22/08/2010 Membro Nº:1 Sexo:Masculino Localização:Brasília - DF Eu sou:Scripter Meu char:Alariak OT favorito:Real Server Bot preferido:BBot Tempo Online:11d 19h 15m 19s

Que mentira, seu troll

auto 1000 isattacking say 'divine frigo'

auto 200 charge Utito Tempo auto 200 bloodrage Utani Tempo Hur

Ouwn que fofo, ASIJIJASIJSAIJSA suave mano :]