2D Jump and Rund Wie fall gravity?

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    In meinem aktuell Spiel (3D) nutze ich folgendes:

    C-Quellcode

    1. Player.Acceleration.Y = 1f; // für die Initialisierungs Geschwindigkeit
    3. Player.Acceleration.Y -= 9.81f * .005f; // für die Abnahme der Geschwindigkeit.

    Kann man garantiert noch verbessern, aber hey, es geht :D
    Position:

    C-Quellcode

    1. Player.Y += Player.Acceleration.Y

    Du erstellst erstma die Geschwindigkeits-Vektoren.

    VB.NET-Quellcode

    1. If Keys.IsKeyDown(Keys.W) Then
    2. Player.Acceleration.Y = 1
    3. If Keys.IsKeysDown (Keys.D)
    4. Player.Acceleration.X = 1
    5. If (Keys.IsKeyDown (Keys.A)
    6. Player.Acceleration.X = -1

    Dann die Gravitation erzeugen:

    VB.NET-Quellcode

    1. Player.Acceleration.Y -= 9.81f * .005f

    Und die neuen Positionen bestimmen:

    VB.NET-Quellcode

    1. Player.X += Player.Acceleration.X
    2. Player.Y += Player.Acceleration.Y

    Was du nutzt (Point2D oder Vektor2D ist egal)

    Bitteeee nicht immer Timer.
    Wenn dann nen Thread und ansonsten Events benutzen. Timer NUR und ausschließlich nur dann verwenden, wenn es um ne Zeit geht. Das heißt: Countdown,...


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Kein C&P :D

    VB.NET-Quellcode

    1. Public Class Player
    2. Public Property Acceleration As Vector2
    3. Public Property Position As PointF
    4. End Class
    5. Public Struct Vector2
    6. Public Property Single X
    7. Public Property Single Y
    8. End Struct
    10. Private Sub Update()
    11. HandleInput()
    12. Gravity()
    13. Move()
    14. End Sub
    16. Private Sub HandleInput()
    17. ' Wenn Taste D gedrückt:
    18. Player.Acceleration.X = 1
    19. ' Wenn A gedrückt:
    20. Player.Acceleration.X = -1
    21. ' Wenn Leertaste einmalig gedrückt:
    22. Player.Acceleration.Y = 1
    23. End Sub
    25. Private Sub Gravity()
    26. Player.Acceleration -= 9.81f * .005f
    27. End Sub
    29. Private Sub Move()
    30. Player.Position.X += Player.Acceleration.X
    31. Player.Position.Y += Player.Acceleration.Y
    32. ' Hier auch Kollision überprüfen!
    33. End Sub


    Wenn von "Player" gesprochen wird, bitte immer die Instanz von der Klasse Player nutzen.
    Und Update() dann immer aus einem Thread aufrufen.

    Ich glaub ich bin zu dumm^^ ich versteh das nicht...
    hier mal mein Code...Bitte helft mir xD^^

    VB.NET-Quellcode

    1. Public Class GamePlayer
    2. Inherits GameComponent
    3. WithEvents Form As Form = Form1
    5. Sub New(ByVal Position As Point, ByVal Type As GameComponentType, ByVal Map As GameMap, ByVal Sprite As Bitmap)
    6. MyBase.New(Position, Type, Map, Sprite)
    7. End Sub
    9. Private Sub Form_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Form.KeyDown
    10. Dim iCol As Boolean = False
    11. For i = 0 To Map.Components.Count - 1
    12. Dim ComponentPosition = Map.Components(i).Position
    13. Dim ComponentRect As New Rectangle(ComponentPosition.X, ComponentPosition.Y, Map.TileSize.Width, Map.TileSize.Height)
    14. Dim MyRectangle As New Rectangle(Me.Position.X, Me.Position.Y, Map.TileSize.Width, Map.TileSize.Width)
    16. Select Case e.KeyCode
    17. Case Keys.Right
    18. If ComponentRect.Top = MyRectangle.Top And ComponentRect.Left = MyRectangle.Right Then
    19. iCol = True
    20. Exit For
    21. End If
    22. Case Keys.Left
    23. If ComponentRect.Top = MyRectangle.Top And ComponentRect.Right = MyRectangle.Left Then
    24. iCol = True
    25. Exit For
    26. End If
    27. Case Keys.Up
    28. If ComponentRect.Left = MyRectangle.Left And ComponentRect.Bottom = MyRectangle.Top Then
    29. iCol = True
    30. Exit For
    31. End If
    32. End Select
    33. Next
    34. If iCol = False Then
    35. Select Case e.KeyCode
    36. Case Keys.Up
    37. Me.Position = New Point(Me.Position.X, Me.Position.Y - Map.TileSize.Height)
    38. Case Keys.Left
    39. Me.Position = New Point(Me.Position.X - Map.TileSize.Width, Me.Position.Y)
    40. Case Keys.Right
    41. Me.Position = New Point(Me.Position.X + Map.TileSize.Width, Me.Position.Y)
    42. End Select
    43. End If
    44. End Sub
    47. End Class

Facebook
Telefonspende