Bewegungsspiel erstellen

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Unwesen.

    Bewegungsspiel erstellen

    Hi Com,

    Ich bin gerade dabei ein kleines Spiel zu erstellen und komme leider nicht weiter.

    Wie bekomme ich es jetzt hin das wenn die Picturebox(oben links) über einer der LineShapes kommt zurück an den Startpunkt gesetzt wird?


    mfg. TwiTIn

    PS.: Man kann die Picturebox schon mit w,a,s,d bewegen! THX im vorraus

    Du machst ja iwie die Linien und da musst du dir die Koordinaten von merken und dann in den Background eine Fkt. setzen, die ständig überprüft ob die aktuelle Position des kleinen Kastens iwann mal mit welchen der Linien übereinstimmt.

    Also zB so in der Art:

    VB.NET-Quellcode

    1. dim linien_koords as string(,) '2dim. Array mit den Linienkoordinaten
    3. if lininen_koords.contains(akt_Pos_X, akt_Pos_Y) then
    4. ' was soll passieren, wenn übereinstimmen
    5. else
    6. ' ansonsten
    7. end if

    hey, das mit den koordinaten ist aber recht unsauber.
    wenn ihr in der schule schon lineare funktionen besprochen habt kannst du es damit machen, einfach berechnen ob sich die gerade zwischen den punkten PositionVorher und PositionNachher mit einer der Linien schneidet. wichtig ist, dass der schnittpunkt zwischen den beiden oben genannten punkten liegt - außerhalb ist KEIN schnittpunkt.

    Noch ein tipp nebenbei: eine picturebox zu bewegen ist recht unschön. mach es doch mit GDI+. Dann kannst du selbst entscheiden wie die spielfigur aussieht etc. ein einfaches kästchen ist ja recht langweilig^^

    ansonsten kann ich dir nur ans herz legen, das ganze auf gdi zu bauen. formelemente sind gaaarnicht dafür gemacht in realsize "animiert" bewegt zu werden.

    wenn du dann mit gdi halt ne linie zeichnest kannste deren einzelne pixel abspeichern und die dnan halt zum checken nutzen, oder noch besser du speicherst den pfad, der sozusagen nicht verlassen werden darf, währ besser als jeden linienpixel zu speichern

    @ kinsi
    desshalb ja die lineare funktion. dann braucht man die pixel nicht zu speichern. man braucht lediglich den start und endpunkt sowie die position des spielers (jetzt und davor!). dann kann man berechnen ob man gegen die wand gelaufen ist.

    Hab net wirklich Ahnung, was ich da tue, aber es funzt:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim posX, posY As Integer
    4. Dim PlayerLocation As Rectangle
    5. Dim RGrenzen As New List(Of Point)
    6. Dim LGrenzen As New List(Of Point)
    7. Dim SpielfeldShow As Boolean
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. Me.KeyPreview = True
    12. Me.DoubleBuffered = True
    14. 'Grenzen Zeichnen
    15. RGrenzen.Add(New Point(0, 0))
    16. RGrenzen.Add(New Point(5, 100))
    17. RGrenzen.Add(New Point(10, 120))
    18. RGrenzen.Add(New Point(10, 140))
    19. RGrenzen.Add(New Point(0, 160))
    20. RGrenzen.Add(New Point(30, 200))
    22. LGrenzen.Add(New Point(50, 0))
    23. LGrenzen.Add(New Point(55, 100))
    24. LGrenzen.Add(New Point(60, 120))
    25. LGrenzen.Add(New Point(60, 140))
    26. LGrenzen.Add(New Point(50, 160))
    27. LGrenzen.Add(New Point(80, 200))
    29. 'Spielfigur setzen
    30. PlayerLocation = New Rectangle(5, 5, 10, 10)
    31. posX = PlayerLocation.Left
    32. posY = PlayerLocation.Top
    34. 'Zeichnen erlauben
    35. SpielfeldShow = True
    37. End Sub
    39. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    40. 'Pfeiltasten abfragen
    41. Select Case e.KeyCode
    42. Case Keys.Up
    43. posY -= 1
    44. If posY < 0 Then posY = 0
    45. Case Keys.Down
    46. posY += 1
    47. If posY > Me.Height Then posY = Me.Height
    48. Case Keys.Left
    49. posX -= 1
    50. If posX < 0 Then posX = 0
    51. Case Keys.Right
    52. posX += 1
    53. If posX > Me.Width Then posX = Me.Width
    54. End Select
    56. PlayerLocation = New Rectangle(posX, posY, 10, 10)
    57. 'Paint auslösen
    58. Me.Invalidate()
    60. End Sub
    62. Dim pen As New Pen(Brushes.Black, 2)
    64. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    66. Dim bmp As Bitmap = New Bitmap(510, 512)
    67. Dim g As Graphics = Graphics.FromImage(bmp)
    68. If SpielfeldShow Then
    69. 'Spielfigur
    70. g.FillRectangle(Brushes.Red, PlayerLocation)
    71. 'Linke und rechte Grenze
    72. g.DrawLines(pen, RGrenzen.ToArray)
    73. g.DrawLines(pen, LGrenzen.ToArray)
    75. 'Prüfe, ob Farbe unter Pixel Schwarz ist
    76. If bmp.GetPixel(PlayerLocation.Left, PlayerLocation.Top).ToString = "Color [A=255, R=0, G=0, B=0]" OrElse _
    77. bmp.GetPixel(PlayerLocation.Left + 9, PlayerLocation.Top).ToString = "Color [A=255, R=0, G=0, B=0]" OrElse _
    78. bmp.GetPixel(PlayerLocation.Left, PlayerLocation.Top + 9).ToString = "Color [A=255, R=0, G=0, B=0]" OrElse
    79. bmp.GetPixel(PlayerLocation.Left + 9, PlayerLocation.Top + 9).ToString = "Color [A=255, R=0, G=0, B=0]" Then
    81. 'Kollision findet statt
    82. Me.Text = "BÄM"
    83. End If
    85. Me.BackgroundImage = bmp
    86. End If
    87. End Sub
    88. End Class

    Frag mich jetzt bloß keiner, warum ich das mache:
    .ToString = "Color [A=255, R=0, G=0, B=0]"

    Kann nämlich nur sagen, das es anders net funktionieren wollte. :wacko:

    :D

    Naja, knall es halt mal in ein neues Projekt. Bewegung über Pfeiltasten, Kollision wird in der Titelzeile der Form als "BÄM" angezeigt.
    Vermutlich ist der Code nicht als wirklich Lösung anzusehen, aber ich dachte ich poste ihn mal, damit jemand erklären kann, wie man es richtig machen sollte. Interessiert mich halt auch.

    Dann wäre es Nett, wenn du mir die Sachen, die du anders machen würdest, zeigst. Oder ins Detail gehst, was eventuell auf jeden Fall vermieden werden sollte.
    :whistling:

    //Edit

    Habe gerade erkannt, das man die Level dafür einfach mit einem Malprogramm erstellen kann.. Beispielbild ist im Anhang, rein in die Ressourcen und es kann losgehen. :D
    Angepasster Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim posX, posY As Integer
    4. Dim PlayerLocation As Rectangle
    5. Dim SpielfeldShow As Boolean
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. Me.KeyPreview = True
    9. Me.DoubleBuffered = True
    10. Me.Size = New Size(512, 512)
    11. Me.BackgroundImageLayout = ImageLayout.None
    13. 'Spielfigur setzen
    14. PlayerLocation = New Rectangle(15, 25, 10, 10)
    15. posX = PlayerLocation.Left
    16. posY = PlayerLocation.Top
    18. 'Zeichnen erlauben
    19. SpielfeldShow = True
    21. End Sub
    23. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    24. 'Pfeiltasten abfragen
    25. Select Case e.KeyCode
    26. Case Keys.Up
    27. posY -= 1
    28. If posY < 0 Then posY = 0
    29. Case Keys.Down
    30. posY += 1
    31. If posY > Me.Height Then posY = Me.Height
    32. Case Keys.Left
    33. posX -= 1
    34. If posX < 0 Then posX = 0
    35. Case Keys.Right
    36. posX += 1
    37. If posX > Me.Width Then posX = Me.Width
    38. End Select
    40. PlayerLocation = New Rectangle(posX, posY, 10, 10)
    41. 'Paint auslösen
    42. Me.Invalidate()
    44. End Sub
    46. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    47. Dim bmp As Bitmap = New Bitmap(My.Resources.Bild1)
    48. Dim g As Graphics = Graphics.FromImage(bmp)
    50. If SpielfeldShow Then
    52. If bmp.GetPixel(PlayerLocation.Left, PlayerLocation.Top).ToString = "Color [A=255, R=0, G=0, B=0]" OrElse _
    53. bmp.GetPixel(PlayerLocation.Left + 9, PlayerLocation.Top).ToString = "Color [A=255, R=0, G=0, B=0]" OrElse _
    54. bmp.GetPixel(PlayerLocation.Left, PlayerLocation.Top + 9).ToString = "Color [A=255, R=0, G=0, B=0]" OrElse
    55. bmp.GetPixel(PlayerLocation.Left + 9, PlayerLocation.Top + 9).ToString = "Color [A=255, R=0, G=0, B=0]" Then
    57. 'Kollision findet statt
    58. Me.Text = "BÄM"
    59. Else
    60. Me.Text = Nothing
    61. End If
    63. 'Spielfigur
    64. g.FillRectangle(Brushes.Red, PlayerLocation)
    66. Me.BackgroundImage = bmp
    67. End If
    68. End Sub
    69. End Class


    Die Steuerung sollte auf jeden Fall verbessert werden. The Maze kann man mit dieser jedenfalls vergessen. Mal gucken, das ganze noch auf Maussteuerung umbauen, damit da mal mehr Speed und freie Bewegung reinkommt. ^^
    Bilder

    • Bild1.png

      27,33 kB, 512×512, 135 mal angesehen

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Unwesen“ ()

Facebook
Telefonspende