Líderes

Créditos no script. Explicação: no script, quando você upar level 50 você ganhará 30k (valores podem ser facilmente editádos através do config) 1. Crie um arquivo com o nome de "recompensa.lua" (sem aspas) em : data/creaturescripts/scripts. Ponha: --[script by Renato Ribeiro to TibiaKing.com]-- local config = { level = 50, -- level que irá ganhar storage = 9557, -- storage msg = "Você ganhou 30k por avaçar ao level 50.", -- mensagem ao ganhar qnt = 3; -- quantidade de crystal coin msgtp = MESSAGE_EVENT_ADVANCE, -- tipo da mensagem itemid = 2160, -- id do crystal coin (pode mudar se quiser) } function onAdvance(cid, oldLevel, newLevel) if getPlayerStorageValue(cid, config.storage) < 1 and getPlayerLevel(cid) >= config.level then doPlayerAddItem(cid, config.itemid, config.qnt) setPlayerStorageValue(cid, config.storage, 1) doPlayerSendTextMessage(cid, config.msgtp, config.msg) end return TRUE end [/code] [b]2. Em, data/creaturescripts abra o arquivo creaturescripts.xml.[/b] Adicione a tag: [code]<event type="advance" name="recompensa" event="script" value="recompensa.lua"/> 3. Em, data/creaturescripts/scripts abra o arquivo longin.lua. Adicione esta linha antes do ultimo return true: registerCreatureEvent(cid, "recompensa") Meu primeiro CreatureEvent Quem gostou pede Biiiis! (:

Sim, vejo que você esta tentando fazer um levelspy, então faça o seguinte: Declare a variavel: Private floor As Integer = 0 No botão pra cima: If floor < 7 OrElse floor > -7 Then c.Map.LevelSpyOn(floor + 1) floor += 1 End If No botão pra baixo: If floor < 7 OrElse floor > -7 Then c.Map.LevelSpyOn(floor - 1) floor -= 1 End If Botão para desativar: c.Map.LevelSpyOff() Creditos: Augusto

Simples, copie o XML do hellgorak, bote outro nome, registre no monster.xml e bote o script nele, vai no remeres adiciona o novo Hellgorak, e substitui no map.

não é seu waypoint,aqui tbm acontece isso se estiver step-by-step,olha,tem vez que mesmo selecionado map click,ele esta step-by-step,recomendo vc fazer assim: quando seu char comecar a andar,segure alt,se ele parar é porque esta step-by-step

É só mudar pra map click em vez de step-by-step.

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