Líderes

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

Quando acontecer um erro, EXPLIQUE QUAL O ERRO. Loggedin deve ser uma propriedade de c. If é uma função que compara termos, e você não esta comparando loggedin com nada. Provavelmente c.loggedin deve retornar um valor (provavelmente true, se for booleano). Antes de tentar programar um bot, procure entender a linguagem, procure alguma apostila para não cometer erros tão pequenos que deveriam ser sanados no primeiro capítulo de qualquer livro/apostila. Se não, quando estiver com seu programa pronto, poderão surgir problemas com usuários,e você não vai conseguir resolver.

Pessoal, hoje eu estava explorando as funções "p" e "c" e na função "p" achei uma coisinha interessante... Você precisará apenas de um CheckBox, apenas! Dentro do CheckBox você adiciona: if c.LoggedIn Then If checkbox1.checked then p.Skull = Skull.Black else p.Skull = Skull.None end if End if Isto você ficará com o Black Skull... Você pode trocar o Black por: p.Skull = Skull.Green p.Skull = Skull.Yellow p.Skull = Skull.None p.Skull = Skull.Red p.Skull = Skull.White Prontinho... Créditos: Felipe Sartori Kaiofirma

pqp voce coloco errado no tópico no tópico tá assim: se o player tiver on p.skull vai ser black se não tiver on p.skull vai ser none ioAHEOIHEOIAHEIOHE agora sei pq voce nao consegue fazer nada, você é destraído cara!! olha meu codigo e olha o seu!! se ker ter o c.LoggedIn entao poe assim if c.LoggedIn Then If checkbox1.checked then p.Skull = Skull.Black else p.Skull = Skull.None end if End if

af cara, check box serve pra ativar e desativar algo, por exemplo um timer ou light poe um botão que funfa no checkbox voce vai ativar e vai ficar skull mas ae vc desativa e continua bota ssim If checkbox1.checked then p.Skull = Skull.Black else p.Skull = Skull.None End if ai vc ativa/desativa