Liebe Member
Ich habe mit ein kleines Katz&Maus Spiel programmiert und habe nun ein paar Fragen:
1. Als erstes frage ich mich wieso nichts passiert, wenn die Spielfigur und "das Monster" (Gegenspieler) die gleiche Position haben (sprich man gefangen wurde)
Am Schluss des Codes, soll überprüft werden, ob man gefangen wurde
2. Wie kann ich das Spielfeld, welches sich in einem Panel befindet auf das Panel begrenzen, dass die Figuren nicht aus dem Panel raus gehen können?
Danke fürs Anschauen!
Ich habe mit ein kleines Katz&Maus Spiel programmiert und habe nun ein paar Fragen:
1. Als erstes frage ich mich wieso nichts passiert, wenn die Spielfigur und "das Monster" (Gegenspieler) die gleiche Position haben (sprich man gefangen wurde)
Am Schluss des Codes, soll überprüft werden, ob man gefangen wurde
2. Wie kann ich das Spielfeld, welches sich in einem Panel befindet auf das Panel begrenzen, dass die Figuren nicht aus dem Panel raus gehen können?
VB.NET-Quellcode
- Private Sub Form1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
- Select Case e.KeyChar
- Case "w"
- Player.Top = Player.Top - 10
- Case "s"
- Player.Top = Player.Top + 10
- Case "a"
- Player.Left = Player.Left - 10
- Case "d"
- Player.Left = Player.Left + 10
- End Select
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
- If (Player.Location.X > Monster.Location.X) Then
- Monster.Left = Monster.Left + 5
- End If
- If (Player.Location.X < Monster.Location.X) Then
- Monster.Left = Monster.Left - 5
- End If
- If (Player.Location.Y < Monster.Location.Y) Then
- Monster.Top = Monster.Top - 5
- End If
- If (Player.Location.Y > Monster.Location.Y) Then
- Monster.Top = Monster.Top + 5
- End If
- If Player.Location.X And Player.Location.Y = Monster.Location.X And Monster.Location.Y Then
- MsgBox("Verloren!")
- Player.Location = New Point(Player.Location.X = 50, Player.Location.Y = 50)
- End If
- End Sub
Danke fürs Anschauen!