Ink

É uma função bem simples mas é legal de vez em quando experimentar o que os premmys tem

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

Beleza Felipe! Qualquer coisa mensagem ae...

No chekbox If text1.text="" then MenssageBox.show("Desculpe, mas você tem que preencher todos os campos.") chekbox1.cheked=false End if Pronto só isso. Não sei se a sintaxe está certa por que não estou com o VB aqui, mas a lógica é simples e é essa. Se ele clicar no checkbox e não estiver preenchido a caixa de texto mostra a mensagem de erro e volta o valor do chk para falso.

To no trampo e vai ficar um pouco difícil de te ajudar daqui meus códigos estão em casa... Tenta setar os valores das textbox para 0 e do health e da mana também talvez ele esteja pegando algum valor sem ser 0 Não deve adiantar mas só para desencargo de consciência coloca .tostring no textbox. Cara, você está colocando o valor na caixa de texto certa? Verifica aonde você tá digitando o valor se é a caixa de texto correspondente a do código.

Cara tenta colocar assim... If p.Health < Val(TextBox16.Text) Then Ai ele vai pegar o valor numérico que tem na caixa de texto 16. Faça isso com o mana também.

Felipe você declarou p e c nas variáveis publicas do seu form? Aqui o link que pode te ajudar com essa declaração correta: Leia tudo, não vá só atrás dos códigos vá atrás de informações básicas de programação. Posta ai se resolveu ou se não pra gente tentar ajudar... Posta seu código inteiro ai também que ajuda bastante...

Então, mas nem tem como pegar o valor da ultima exp ganha? Se sim não é necessário colocar valores para todos os monstros...

Só quis exemplificar melhor o que você falou

Não é impossivel fazer esse tipo de calculadora... Não entendo muito das sintaxes do TibiaAPI porem se for possível... É só pegar o valor da ultima experiência que o char ganhou. A formula é a seguinte: resultado=(ExpNecessariaParaProxLvl-SuaExp)/ExpGanhaPorMonstro (Exemplo 40 do Rotworm) Vamos a um exemplo: Meu char está no Level 7 e tem 3420 de exp, o necessário para pegar level 8 é 4200 Formula: resultado=(4200-3420)/40 resultado=(780)/40 resultado=19,5 Como no Tibia só é possível ganhar esses 0,5 de exp se alguem matar o mesmo Rotworm que você, é só colocar a variável para arredondar para +1 se o valor for um número decimal. Ex: 19,5 = 20 Esse resultado (20) é o número de Rotworms que meu char precisa matar para passar de level, esse é o número que você deve apresentar ao usuário do seu bot.(EX: Faltam 20 Rotworms para o Level 8)... 40*20=800 Se você deixar a variável somente arredondar a variável e não colocar +1 sua calculadora estaria sujeita a erros.(Supor o ganho de 40 de exp constante) 40*19=760 O necessário para upar é 780, logo a calculadora estaria errada. Fiz uma calculadora assim tem alguns anos, quando estava no colégio ainda funcionava perfeitamente só que ela atuava fora do Tibia, vou tentar implementa-la agora Espero ter ajudado, qualquer dúvida é só chamar! Att, Ink.