Líderes

Criando seu tibia bot com TibiaAPI - Parte 4 {Form2 e Funções Básicas} Agora criaremos o Form2, aonde ficará as funções do bot. Criando outra Form. Do lado direito em Solution Explorer, onde está os arquivos do seu programa clique com o botão direito no nome do seu bot, o primeiro arquivo lá em cima. Vá em Add > New Item, então selecione Windows Form. Não renomeie. Pronto agora você criou uma outra form no seu programa, o Form2. Se não abrir automaticamente, clique com o botão direito em solution explorer e depois em Open. Adaptando o Form2. Abra o code do Form2. Verá que ele está 'seco' igual no começo do form1. Então importe o Tibia e Declare as variáveis de novo. Andes de Public Class Form2: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constantes [/code] Depois de Public Class Form2: [code] Dim c As Client Dim p As Player Então: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Dim c As Client Dim p As Player End Class [/code] [color=#006400][b][size=4]Terminando o Loader[/size][/b][/color] Clique duas vezes no form2 para abrir o Form2_Loader e então ponha o código: [code] 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 Explicando: If c.LoggedIn Then - se client estiver "loggedIn" (logado) então p = c.GetPlayer - define o p, que é o player. Form1.Hide() - fechará o form1. Else - (se não estiver logado) Me.Hide() - Me, se refere a ele mesmo, ou seja, form2, que irá "esconder" (hide) MsgBox("") - aparecerá a mensagem ao usuário. Dica: se quiser, coloque dentro do If, Me.Text = p.Name, ficará o nome do player em vez do nome do bot. Por exemplo o Alien Bot eu coloquei Me.Text = "AlienBot [" + p.Name + "] TibiaBots.NET", ou seja, fica (AlienBot [nomedoplayer] TibiaBots.NET) Como ficará o código: Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form2 Dim c As Client Dim 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("You need choose your character") End If End Sub End Class [/code] Tudo está carregado, pronto para usar o bot. Mas, vou usar o que? O bot tá vazio.. [color=#006400][size=4][b]Funções Básicas[/b][/size][/color] [size=3][b]• Full Light[/b][/size] Vou lhes ensinar a criar um Light Hack. é a coisa mais fácil de um bot. Crie dois botões, em um botão ponha Ativar Light e outro Desativar Light. No botão de ativar ponha: [code] c.Map.FullLightOn() E no botão de desativar ponha: c.Map.FullLightOff() [/code] Pronto, abra o tibia 8.5 ao 8.62, entre em algum char e teste seu bot. (Aperte F5 para testar). [size=3][b]• Outfits[/b][/size] Outfits já é mais difícil pois tem If e ElseIf e eu não expliquei ElseIf ainda, mas vamos lá. Crie um ComboBox, selecione ele e em properties (abaixo do Solution Explorer) procure por Items = (collection). Clique em collection e irá aparecer um botão com reticências (...) do lado, então clique-o. Ai você vai colocar tudo que aparecerá no ComboBox. Ponha: [code] Assassin Beggar Que serão meus exemplos. Agora crie um Botão, ao lado ou abaixo do combobox escrito "Trocar Outfit". Acione o evento _Click do botão, clicando duas vezes nele. Então ponhe: If ComboBox1.SelectedItem = "Beggar" Then p.OutfitType = Tibia.Constants.OutfitType.BeggarMale ElseIf ComboBox1.SelectedItem = "Assassin" Then p.OutfitType = Tibia.Constants.OutfitType.AssassinMale End If [/code] Explicando: [b]If ComboBox1.SelectedItem = "Beggar" Then[/b] - [i]Se o Item selecionado do ComboBox1 for Beggar, então[/i] [b]p.OutfitType = Tibia.Constants.OutfitType.BeggarMale[/b] - [i]outfit do player vai ser beggarmale.[/i] [b]ElseIf ComboBox1.SelectedItem = "Assassin" Then[/b] - [i]Mas se o Item selecionado do ComboBox1 for Assassin, então[/i] [b]p.OutfitType = Tibia.Constants.OutfitType.AssassinMale[/b] - [i]outfit do player vai ser assassinmale.[/i] [b]End If[/b] - [i]Fechar condição 'se'.[/i] Não esqueça de conferir se o Name do combobox é combobox1. Se não for, substitua no código ComboBox2 ou ComboBox3, como for o "Name" dele. Para ver selecione ele e vá em properties (abaixo do solution explorer) e procure por 'Name'. Se quiser mude também (melhor para se organizar). Aperte F5 e teste seu bot (: Até o próximo tutorial! ;*

Criando seu tibia bot com TibiaAPI - Parte 5 [Última Parte] {Configurando e Compilando} Depois de colocar todas as funções no seu bot, você precisará compilar para ter o arquivo .exe e poder divulgá-lo. Colocando Icon no Form (do lado do nome) Vá no Form1, em properties aonde tiver Show Icon você escolhe True (se quiser que não apareça, ponha false). Depois em Icon você seleciona um arquivo .icon do seu computador. Aconselho este site www.iconspedia.com (caso nao saiba fazer). Depois vá no Form2 faça a mesma coisa. Maximize & Resize Em seu programa da pra aumentar a altura e largura dele e maximizar, assim fica feio. Então vá no Form1 em properties, procura por FormBorderStyle e mude pra FixedSingle ou Fixed3D. Depois procure por MaximizeBox e mude para False (caso queira que não possa minimizar mude MinimizeBox para False). Repita o processo no Form2. Assembly Em soluction explorer clique com botão direito em My Project e depois em Open. Na aba Application, mude o nome do bot em Assembly name se quiser e escolha o icon do .exe (de preferencia o mesmo que você pois no Form). Em Startup form deixe o form do Loader, no caso o Form1. (é o form que vai abrir primeiro quando você abrir o .exe) Depois disso clique em Assembly Information. Compilando Tudo pronto, agora vá em solution explorer, clica no primeiro arquivo com o botão direito e então clique em Build. Você terá acesso ao .exe em Meus Documentos > Visual Studio 2008 > Projects > seu bot > Bin > Release. Seu bot está pronto. Agora sempre que quiser compilar clique em Re-Build, não esqueça. Conclusão: é isso ai pessoal, agora é só vocês correrem atrás das funções, heal, mana restore, etc, e criar seus BOTS! Agradeço á todos que me acompanharam! Abraços!

Eae Galera Tudo Bom? Entao vim Aqui Postar um Tile que Voce pisa em Cima dele e Ganha um Outfit. Voce coloca a ActionId 2020 num Item ou Tile, quando o Player Pisar nele ganhará um Outfit Escolhi Por voce. Vá em Data>MoveMents>Scripts crie uma pasta.lua chamada changetile.lua e coloque isso: -- { By: GOD Dreamer } -- local female = {lookType = 269, lookHead = 79, lookBody = 91, lookLegs = 91, lookFeet = 91, lookTypeEx = 0, lookAddons = 3} -- Outfit Female local male = {lookType = 268, lookHead = 86, lookBody = 86, lookLegs = 86, lookFeet = 86, lookTypeEx = 0, lookAddons = 3} -- Outfit Male function onStepIn(cid, item, pos) if isPlayer(cid) == TRUE then if getPlayerSex(cid) == 0 then doCreatureChangeOutfit(cid, female) else doCreatureChangeOutfit(cid, male) end doSendMagicEffect(getThingPos(cid), 29) -- Efeito que dara quando o Player Pisar no Tile ou ItemId. doSendAnimatedText(getPlayerPosition(cid),"Wooaahh!", math.random(01,255)) -- Oque o Player vai Falar quando Mudar de Outfit. end return TRUE end [/codebox] Agora vá em Data>Movements.xml Adicione essa tag: [codebox] <movevent type="StepIn" actionid="2020" event="script" value="changetile.lua"/> Feche e Salve!! OBS: Veja se nao tenha a ActionId 2020 Primeiro antes de Salvar!! Agora Abra seu RME Coloque a ActionId no Tile e Seja Feliz. Duvidas Somente neste Topico. Abraços..

Cloner System , Sumona um Monstro , com Mesmo Outfit que o Seu Cor etc... Mesma Life e Tudo!!Gastando Mana Tipo um Jutso Clones Da Sombra vá em Data>Monster Crie um Arquivo.XML e Renomeie para Cloner coloque isso dentro! <?xml version="1.0" encoding="UTF-8"?> <monster name="Clone" nameDescription="a clone" race="undead" experience="0" speed="400" manacost="0"> <health now="10" max="10000"/> <look type="21" head="20" body="30" legs="40" feet="50" corpse="1397"/> <targetchange interval="50000" chance="0"/> <strategy attack="100" defense="0"/> <flags> <flag summonable="0"/> <flag attackable="1"/> <flag hostile="1"/> <flag illusionable="0"/> <flag convinceable="1"/> <flag pushable="0"/> <flag canpushitems="0"/> <flag canpushcreatures="0"/> <flag targetdistance="1"/> <flag staticattack="90"/> <flag runonhealth="0"/> </flags> <attacks> <attack name="melee" interval="2000" skill="15" attack="7"/> <attack name="arrow" interval="1000" chance="40" min="-2" max="-4"/> <attack name="throwing star" interval="3000" chance="50" min="-3" max="-5"/> <attack name="throwing knife" interval="2000" chance="60" min="-2" max="-4"/> </attacks> <defenses armor="1" defense="5"/> <defense name="haste" interval="3000" chance="40"/> <defense name="light healing" interval="6000" chance="70" min="20" max="40"/> <immunities> <immunity physical="0"/> <immunity energy="0"/> <immunity fire="0"/> <immunity poison="0"/> <immunity lifedrain="1"/> <immunity paralyze="1"/> <immunity outfit="1"/> <immunity drunk="1"/> <immunity invisible="0"/> </immunities> <loot> </loot> </monster> [/codebox] Agora em Monster.xml Bote isso [codebox] <monster name="Clone" file="clone.xml" /> Ok Agora voce ja tem o Monstro , Agora Vamos a Spell vá em Data>Spells>Scripts e coloque isso dentro!! function onCastSpell(cid, var) ----COPY PLAYER STATUS local playerpos = getPlayerPosition(cid) local cloth = getCreatureOutfit(cid) local health = getCreatureHealth(cid) local maxhealth = getCreatureMaxHealth(cid) ----CLONE THE PLAYER local clone = doCreateMonster("Clone", playerpos) doConvinceCreature(cid, Clone) setCreatureMaxHealth(clone, maxhealth) doCreatureAddHealth(clone, health) doSetCreatureOutfit(clone, cloth, -1) doSendMagicEffect(playerpos, 2) return TRUE end [/codebox] a Tag em Spells.xml [codebox] <instant name="Shadow Clone" words="utevo ani vid" selftarget="0" aggressive="0" direction="1" lvl="40" maglv="20" mana="300" soul="0" exhaustion="1000" prem="0" enabled="1" script="clone.lua"><vocation id="3"/><vocation id="7"/</instant> Muinto Obrigado espero que Gostem!! Topico Original Print Screen:

CSS Básico (AULA 1) O mundo da automatização. Para este tutorial você precisa entender pelo menos um pouco de HTML, se não, me desculpe, você não irá entender. Aula: 1 de X Créditos: Renato Ribeiro (eu eu eu) Dificuldade: :staropt: :staropt: :staropt: :staropt: Entendendo Função: Css nada mais é do que padronizar seu site/blog. Significado: CSS na realidade deveria ser escrito C.S.S. pois é uma sigla que significa cascading style sheet porém é mais fácil escrever css do que c.s.s. então não vamos discutir , e sua tradução para o português é folha de estilo em cascata. Colocando CSS no seu site A Renato, mas eu nem sei como coloca esse tal css em meu site... me ajuda? R Você pode colocar dentro do proprio site, dentro da tag <head>: <head> <style type="text/css"> </style> </head> [/code] Ou pode criar um arquivo ".CSS" e colocar no site HTML: [code] <link href="CAMINHO DO ARQUIVO/style.css" rel="stylesheet" type="text/css"/> Exemplos: Dentro da pasta CSS: <link href="css/style.css" rel="stylesheet" type="text/css"/> Junto ao arquivo html: <link href="style.css" rel="stylesheet" type="text/css"/> Aprendendo usar o CSS: A Mas agora me explica como é esse css e como eu uso ele R Vou ensiná-lo usando exemplos, pois acho ser um método mais fácil pra min que estou explicando e mais fácil pra você aprender. Aqui eu irei configurar a tag body "<body> </body>", que é onde fica o corpo do seu site. <head> <style type="text/css"> body {background: #000000; color: #FFFFFF;} </style> </head> [/code] Código organizado: [code] <head> <style type="text/css"> body { background: #000000; color: #FFFFFF; } </style> </head> R Vimos que para configurar qualquer tag só é necessário digitar o nome dela e configurar dentro de chaves "{" e "}". No exemplo eu configurei o background, coloquei preto, e configurei a cor do texto, que eu coloquei branco. R Aqui vai outro exemplo, vou configurar a tag <img>: img { opacity: 0.5; } [/code] [color=#FF0000][b]R[/b][/color] Com esse CSS, todas as imagens do seu site ficarão com opacidade de 50%... [color=#0000FF][b]A[/b][/color] Mas Renato, eu não quero que todas as imagens fiquem com opacidade, só quero aquelas que estão dentro das divs "<div>" [color=#FF0000][b]R[/b][/color] Então utilize este código ao invés do anterior: [code] div img { opacity: 0.5; } R Assim todas as Imagens das DIVs ficarão com opacidade, já as que estiverem fora ficarão normais. Ah não ser se você manter o código anterior no CSS ¬¬. A Mas Renato, eu quero deixar com opacidade somente as imagens de uma CERTA div, e não de todas as divs. R Ai já complica, agora teremos que usar classes para nomear a tal div que você quer. Para usar classes devemos especificar no CSS e passar para o html... Criando classes. R Para configurar uma classe é diferente de tag, teremos que colocar um ponto "." antes da classe para poder configura-la, se não seu browser não vai saber que é uma classe :} R Vou criar uma classe chamada renato e aplica-lá a uma div: .renato { width: 400px; height: 400px; background: #888888; color: #000000; } .renato img { opacity: 0.5; } [/code] [color=#FF0000][b]R[/b][/color] Agora aplicando em uma div [code] <div class="renato"><img src="http://1.bp.blogspot.com/-7DkUBiJmQKo/Tb8rEPeTxBI/AAAAAAAAAAM/oU2WiT2Zoko/s320/teste.png"></div> R Como pode ver eu criei uma div e dei a classe "Renato" à ela, agora ela vai atender a todas as configurações do css referidas a ".renato", então agora somente a div que você escolher vai ter opacidade (: Bom galera é isso ai, vamos recordar o que eu ensinei nesta aula: Colocar o CSS no seu HTML Criando seu CSS Aplicando CSS à Tags Criando e Aplicando CSS à classes Quem gostou levanta a mão e pede BIS! "BIIIIIIIIS"

Bom eu criei 1 form e fiz 1 health so que quando eu ponho a health min , nome da spell e a mana requerida e a hotkey onde ta a magia ele fika soltando a magia ate acabar a mana e ainda fika soltando essas fumacinhas alguem me ajuda com isso oia o code Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form4 Private Const WM_KEYUP = &H202 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Tibia As Process Public Shared WM_KeyDown = &H100 Dim c As Client Dim p As Player Private Sub Form4_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("Escolha seu Personagem.") End If End Sub Private Sub TimerHealth_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHealth.Tick If c.LoggedIn Then If p.HealthMax > TextBox1.Text Then c.Console.Say(TextBox2.Text) If p.Mana > TextBox3.Text Then End If End If End If End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TimerHealth.Start() End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TimerHealth.Stop() End Sub Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerKey.Tick If ComboBox1.Text = "F1" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F2" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F3" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F4" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F5" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F6" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F7" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F8" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F9" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F10" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F11" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F12" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If End Sub End Class

Bom eu coloquei assim If c.LoggedIn Then If (p.Health > TextBox1.Text) And (p.Mana > TextBox2.Text) Then c.Console.Say(TextBox3.Text) End If End If so que agora ele nao esta funcionando :/ @Kimoszin calma mosso se ta ligado qui ti amo

Vou mostrar o seu erro Mek, e ja não é a primeira vez que você faz isso... O erro esta aqui p.HealthMax > TextBox1.Text Then Olha o que esta sendo verificado...esta assim...Se o HealthMax for maior que o TextBox1.Text então... O HealthMax sempre será maior, afinal é a life toda do char, ou seja, caso char tenha 300 de vida, e você coloque pra healar com 200 de life, o HealthMax SEMPRE será maior que o textbox... Pra isso, utilize o p.Health, que será a vida que o personagem esta no momento, ou seja, vai ficar assim p.Health < TextBox1.Text Then Caso a vida do personagem seja MENOR que a vida definida no textbox, ai sim ele soltará a magia. Tente fazer dessa maneira pra ver se dará o erro.

Solto exura ate a mana acabar e fiko soltando fumacinha Oo ele nao parava nem 1 segundo

http://www.4shared.com/file/eb-urwRz/Venore_rotsDepositer_BY_Liri.html tae brother.. não consegui postar o arquivo aqui no forum oO

Adicione isso Public Shared wm_keydown = &H100 Private Const WM_KEYUP = &H202 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Seguinte voce foi testar ele ne tipo deu F5 ai add os walkers e foi ponhar para seguir os waypoints mais voce tem que começar do começo e cliclar na primeira coodernada adc no listbox1 se nao ele ira dar esse erro memo , estou tentando arrumar isso ai para ponhar para axar sozinho a coodernada de onde o player ta AJUDEI ? CLICK EM CURTI

esta errado esses dias se me passo isso e nao funfo ai tu me passo outro ai funfo, tem que ter o form_load de dois click no form e coloque isso exemplo : c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If fikara assim ex: 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("You need choose your character") End If End Sub

e a cipsoft botou aquela tela justamente para atrapalhar isso mais eu acho que ja sei como resolver, e so simular um mouseclick no meio da tela antes, mais priomeiro tenho que descobri quando ela ta la.

Olá galerinha do TB... Essa semana eu fiz novos BBCodes... só não postei antes porque estavamos verificando se poderia haver bug em algum deles. Então hoje vou mostrar á vocês. BBCode Title Descrição: Adiciona uma barra de título para que você possa organizar melhor seus tutoriais e afins. Como usar: [title]Título[/title] Exemplo: Título [download]LINK[/download] ... [download]http://tibiabots.net[/download] Exemplo: [scan]LINK[/scan] ... [scan]http://tibiabots.net[/scan] Exemplo: [char]Tubaina Limao[/char] Exemplo: Tubaina Limao [guild]Desbaratinado[/guild] Exemplo: Desbaratinado É isso ai galera. Abração á todos. BBCode Download Descrição: Adiciona uma imagem automaticamente de download. Só necessário colocar o link entre o bbcode. Como usar: BBCode Scan Descrição: Igual download só que adiciona imagem de scan. Como usar: BBCode TibiaCharacter Descrição: Adiciona link para o profile no site do tibia.com automaticamente só é necessário do nome do char entre o bbcode. Como usar: BBCode TibiaGuild Descrição: Igual tibia character só que é com nome da guild. Como usar: