Hallo alle,
Ich bin gerade dabei ein Snake-Spiel zu programmieren und ich hab so gut wie alles fertig, mir fehlt nur noch zweiwas:
Das, wenn die ihren Schwanz berührt Game-Over ist. Und das andere hab ich zur Hälfte fertig, das mit dem Fressen, bloß leider wird die Schlange beim Fressen nicht größer, sondern es kommt immer zum Absturz
Leider hab ich keinerlei Idee wie ich das anstellen soll.
Hier mein Quellcode:
Kann mir da jemand helfen?
MFG qauqau
Ich bin gerade dabei ein Snake-Spiel zu programmieren und ich hab so gut wie alles fertig, mir fehlt nur noch zweiwas:
Das, wenn die ihren Schwanz berührt Game-Over ist. Und das andere hab ich zur Hälfte fertig, das mit dem Fressen, bloß leider wird die Schlange beim Fressen nicht größer, sondern es kommt immer zum Absturz
Leider hab ich keinerlei Idee wie ich das anstellen soll.
Hier mein Quellcode:
VB.NET-Quellcode
- Dim b As New Bitmap(500, 500)
- Dim g As Graphics = Graphics.FromImage(b)
- If k = Keys.Left Then
- Timer2.Start()
- Timer3.Stop()
- Timer4.Stop()
- Timer5.Stop()
- End If
- If k = Keys.Right Then
- Timer3.Start()
- Timer2.Stop()
- Timer4.Stop()
- Timer5.Stop()
- End If
- If k = Keys.Up Then
- Timer4.Start()
- Timer2.Stop()
- Timer3.Stop()
- Timer5.Stop()
- End If
- If k = Keys.Down Then
- Timer5.Start()
- Timer2.Stop()
- Timer3.Stop()
- Timer4.Stop()
- End If
- For i As Integer = 1 To n - 1
- p(i) = p(i + 1)
- g.FillRectangle(Brushes.Gray, New Rectangle(p(i), New Size(10, 10)))
- Next
- g.FillRectangle(Brushes.Black, New Rectangle(p(n), New Size(10, 10)))
- g.Dispose()
- Me.BackgroundImage = b
- Me.ClientSize = b.Size
- Me.Refresh()
- End Sub
- Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
- If e.KeyCode = Keys.Left Then
- k = Keys.Left
- End If
- If e.KeyCode = Keys.Right Then
- k = Keys.Right
- End If
- If e.KeyCode = Keys.Up Then
- k = Keys.Up
- End If
- If e.KeyCode = Keys.Down Then
- k = Keys.Down
- End If
- If p(n).Y = PictureBox1.Location.Y And p(n).X = PictureBox1.Location.X Then
- l1 = rnd.Next(3, 50)
- l2 = rnd.Next(2, 50)
- z.X = l1 * 10
- z.Y = l2 * 10
- PictureBox1.Location = z
- n += 1
- End If
- If p(n).Y = PictureBox2.Location.Y And p(n).X = PictureBox2.Location.X Then
- l1 = rnd.Next(3, 50)
- l2 = rnd.Next(2, 50)
- z.X = l1 * 10
- z.Y = l2 * 10
- PictureBox2.Location = z
- n += 2
- End If
Kann mir da jemand helfen?
MFG qauqau