Este é um post popular. Ink 12 Postado Janeiro 14, 2011 Este é um post popular. Share Postado Janeiro 14, 2011 Boa noite pessoal! É com prazer que apresento meu primeiro e mais simples tutorial! Você não é premmy e queria ter uma montaria!? Esse código é sua solução Bom galera como é de costume de todo bom programador, vou listar todos os objetos que vou utilizar no tutorial, seus respectivos nomes e texto exibido. 1 Label = lbltitulo = Selecione a montaria desejada: 1 Combo Box = cmbmont = - Nenhuma - 1 Botão = cmdmontar = Montar Agora já com os objetos listados vamos programar. Vamos começar pelo Combo Box. Selecione o cmblista e nas suas propriedades do lado direito do monitor localize a propriedade Items, clique no botão e uma janela vai aparecer. Digite a lista de montarias. - Nenhuma - Black Sheep Blazebringer Draptor Midnight Panther Rapid Bird Rapid Boar Stampor Tin Lizzard Titanica Undead Cavebear War Bear Widow Queen Agora em Text coloque: - Nenhuma - E na propriedade Sorted coloque True, assim a lista vai ficar em ordem alfabética. Feito isso de um duplo clique no cmdmontar e vamos aos códigos. If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if Vou explicar o código por partes. If c.LoggedIn Then - Uma condição para que as funções que vem abaixo dela sejam executadas sem problemas maiores, nesse caso ele valida se o player está ou não OnLine. If cmbmont.Text = "Nome da montaria" Then - Outra condição, está define o id de cada montaria. Eu poderia ter usado Select Case preferi usar if pois o tutorial é para iniciantes. p.MountId = ID - Essa função é aonde o seu char "monta", ela edita o Look do seu char para que ele monte o monstro selecionado na cmbmont If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 - Faz seu personagem ficar sem montaria nenhuma. End If - Fecha as condições. Bom galera é isso. Espero que vocês possam usar isso no seus Bot's Qualquer dúvida eu respondo por mp ou postem ai! Abraços! Ink Dioudiou, DragonBoss, Renato e 2 outros reagiu a isso 5 Citar Meus Tutoriais: Montarias Link para o post Compartilhar em outros sites
Guilherme. 189 Postado Janeiro 14, 2011 Share Postado Janeiro 14, 2011 Cara nem tinha pensado nisso, muito bom, muito bom mesmo. Vou adicionar no BlackBOT ! Abraços. Citar Link para o post Compartilhar em outros sites
Ink 12 Postado Janeiro 14, 2011 Autor Share Postado Janeiro 14, 2011 É uma função bem simples mas é legal de vez em quando experimentar o que os premmys tem Citar Meus Tutoriais: Montarias Link para o post Compartilhar em outros sites
AL4sKiM 91 Postado Janeiro 14, 2011 Share Postado Janeiro 14, 2011 Pena que essas mount so foram add no novo tibia api sera que ele só pega em 8.7? ou vem a escala 8.5-8.7? Citar Hunger - BBot Staff Link para o post Compartilhar em outros sites
Ink 12 Postado Janeiro 14, 2011 Autor Share Postado Janeiro 14, 2011 Pena que essas mount so foram add no novo tibia api sera que ele só pega em 8.7? ou vem a escala 8.5-8.7? Então cara, eu não testei em outras versões só na 8.7 Mas acho que eles só implementaram nos sprites nesse ultimo update... Citar Meus Tutoriais: Montarias Link para o post Compartilhar em outros sites
Renato 659 Postado Janeiro 14, 2011 Share Postado Janeiro 14, 2011 @Alaskim Se voce tiver com outra versão, seu Tibia.Pic não terá os sprites de montaria, muito menos configuraado no Tibia.Dat como ID de outfit, ou seja, irá travar seu bot. @Tuto Very good Detalhezinho... sua lista lá pra por no combobox já ta em ordem alfabética, nao precisa de sorted OAIHEIOEAAEH Mas é bom saberem como funciona rs. Abraços e REP+ Citar rena.to Link para o post Compartilhar em outros sites
Augusto 660 Postado Janeiro 14, 2011 Share Postado Janeiro 14, 2011 Testado, ele não travou o bot, deu erro e fechou! Bacana, tinha uns que eu nem tinha visto ainda! Rep+ Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
EdsonJunior 966 Postado Janeiro 14, 2011 Share Postado Janeiro 14, 2011 haha' Isso vai ajudar muitas pessoas que sonham em montar no seu black sheep D; Valeu dimais... Bem explicado \o/ La firma agradece ewhiuheiuqweu Citar Link para o post Compartilhar em outros sites
DragonBoss 28 Postado Janeiro 22, 2011 Share Postado Janeiro 22, 2011 Boa dica... ja havia feito algo similar (porem no delphi e sem auxilio de api).... esse tutorial me deu uma ideia de fazer um programa simples pra editar algumas coisas no jogo (e por preguiça, fiz em VB com API mesmo... kkk) =] vlw... rep + flw, abraços Citar Tutoriais de Programação com Delphi sem TibiaAPI: ReadProcessMemory - Lendo Valores de memoria sem TibiaAPI Função de Hotkey (Simula pressionamento de hotkeys no tibia) Função Say para o Tibia (Sem TibiaAPI) Link para o post Compartilhar em outros sites
Puncker 201 Postado Janeiro 22, 2011 Share Postado Janeiro 22, 2011 Parabéns cara, eu não conhecia essa função porque não faço testes em 8.7 xP muito bom o tutorial. REP+ Citar "A esperança é o sonho do homem acordado." Aristóteles Link para o post Compartilhar em outros sites
Teehvsx 2 Postado Junho 28, 2011 Share Postado Junho 28, 2011 Desculpe reviver o Topico mas queria uma ajuda onde eu ponho o If c.LoggedIn Then If cmbmont.Text = "Widow Queen" Then p.MountId = 368 End If If cmbmont.Text = "Rapid Bird" Then p.MountId = 369 End If If cmbmont.Text = "War Bear" Then p.MountId = 370 End If If cmbmont.Text = "Black Sheep" Then p.MountId = 371 End If If cmbmont.Text = "Midnight Panther" Then p.MountId = 372 End If If cmbmont.Text = "Draptor" Then p.MountId = 373 End If If cmbmont.Text = "Titanica" Then p.MountId = 374 End If If cmbmont.Text = "Tin Lizzard" Then p.MountId = 375 End If If cmbmont.Text = "Blazebringer" Then p.MountId = 376 End If If cmbmont.Text = "Rapid Boar" Then p.MountId = 377 End If If cmbmont.Text = "Stampor" Then p.MountId = 378 End If If cmbmont.Text = "Undead Cavebear" Then p.MountId = 379 End If If cmbmont.Text = "- Nenhuma -" Then p.MountId = 0 End If End if Eu cliclei 2x no Combox e Ponhei ele so que ta uns erros nos cmbmont me ajudem ai Citar Upando seu Knight level 8~50 em Thais Tibia é arte, morrer faz parte, botear é moda, ser banido é foda! Link para o post Compartilhar em outros sites
Augusto 660 Postado Junho 28, 2011 Share Postado Junho 28, 2011 Cara, você pelo jeito nem leu o tópico Siga todos os passos com MUITA atenção que você irá conseguir. E esse código você vai por no botão, e não no combobox. Citar # Regras Gerais - TibiaKing.com # Contato: [email protected]Não respondo dúvidas via MP. Link para o post Compartilhar em outros sites
Kimoszin 1160 Postado Junho 28, 2011 Share Postado Junho 28, 2011 Cara esse codigo é para botar no button que vc renomeio para cmdmontar Abraços Citar Link para o post Compartilhar em outros sites
.png.020ba42dce1a4aa16afd44c8368fd85d.png)
Posts Recomendados
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.