Bom dia / tarde / noite (Não sei o horário que alguém irá ler esse tópico... =) Bom galera, eu sou do 2º ano técnico em informática, e minha professora pediu um trabalho de desenvolvimento de jogos, e eu fiquei com o famoso jogo da cobrinha. Já pedi algumas coisas aqui, consegui auxílio, e consegui prosseguir com o programa, mas agora estou com uma dúvida, e não consigo de modo algum resolve-la. Até então, eu já consegui fazer o caractere que será a cobrinha, e ele se mexe sozinho, trocando de posição e aquilo tudo. Fiz uma bobeira pra iniciar o programa apertar um botão , e quando se pressiona alguma das setinhas, ele se move para a posição, corretamente. Entretanto, agora preciso de ajuda pra fazer a comida da cobrinha aparecer aleatoriamente na tela, e quando ela aparecer e a cobrinha a tocar, que acrescente +1 do mesmo caractere (chr1) para que a cobra cresça. No momento, é basicamente isso. Se eu conseguir resolver, irei modelar para quando tocar o próprio "corpo", o jogo termine com o game over, mas no momento isso é o de menos. A ajuda que preciso é a comida E, quando ela conseguir toca-la, que cresça +1. Segue o atual código fonte do meu programa (Visual Studio 2010 - VB Console) ' Module Module1 Class Cobra Private intTamanho As Integer Private intPosicaoX As Integer Private intPosicaoY As Integer Private objCor As ConsoleColor Private strCaracter As String Public Property Tamanho() As Integer Get Return intTamanho End Get Set(ByVal value As Integer) intTamanho = value End Set End Property Public Property PosicaoX() As Integer Get Return intPosicaoX End Get Set(ByVal value As Integer) intPosicaoX = value End Set End Property Public Property PosicaoY() As Integer Get Return intPosicaoY End Get Set(ByVal value As Integer) intPosicaoY = value End Set End Property Public Property Cor() As ConsoleColor Get Return objCor End Get Set(ByVal value As ConsoleColor) objCor = value End Set End Property Public Property Caracter() As String Get Return strCaracter End Get Set(ByVal value As String) strCaracter = value End Set End Property End Class Sub Main() Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.WriteLine(" ") Console.ForegroundColor = ConsoleColor.Black Console.BackgroundColor = ConsoleColor.White Console.WriteLine(" ## SNAKE GAME - GD INIMA RODRIGUES - 2341. PRESSIONE UMA TECLA ## ") Console.ReadKey() Console.Clear() Dim tecla, ultimaPosicaoX, ultimaPosicaoY, velocidade As Integer Dim objCobra As New Cobra 'ESSE ITEM FARÁ A COBRA CRESCER. SÓ FALTA FAZER A COMIDA PRA ELA '-' objCobra.Cor = ConsoleColor.Black objCobra.Tamanho = 1 objCobra.PosicaoX = 40 objCobra.PosicaoY = 12 objCobra.Caracter = Chr(1) velocidade = 500 'Pode aumentar de acordo com o tamanho While True While Not Console.KeyAvailable Console.SetCursorPosition(ultimaPosicaoX, ultimaPosicaoY) Console.Write(" ") Console.SetCursorPosition(objCobra.PosicaoX, objCobra.PosicaoY) Console.ForegroundColor = objCobra.Cor Console.Write(objCobra.Caracter) ultimaPosicaoX = objCobra.PosicaoX ultimaPosicaoY = objCobra.PosicaoY Threading.Thread.Sleep(velocidade) If tecla = 40 Then objCobra.PosicaoY = objCobra.PosicaoY + 1 End If If tecla = 39 Then objCobra.PosicaoX = objCobra.PosicaoX + 1 End If If tecla = 37 Then objCobra.PosicaoX = objCobra.PosicaoX - 1 End If If tecla = 38 Then objCobra.PosicaoY = objCobra.PosicaoY - 1 End If If tecla = 27 Then Exit While End If End While tecla = Console.ReadKey().Key End While End Sub End Module [/codebox] Quem puder me ajudar quanto a isso, ficarei bem agradecido. Eu já tentei de tantas formas, mas não consegui sucesso. Att .
