Visual Basic Movement: Mauern

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von xChRoNiKx.

    Visual Basic Movement: Mauern

    Ich weiß, ist so 0815 aber ich habe das Problem dass ich bei einem Movement Spiel, ich hoffe ihr wisst was ich meine, "Mauern" einbaue welche Hindernisse sind.
    Hier ein Bild vom Grundgerüst:

    Das Bewegen an sich ist kein Problem, auch nicht die Spielränder. Man kann sich somit aktuell im gesamten bereich innerhalb der äußeren Spielränder bewegen. Nur wie setzte ich um, dass man nicht durch die Zwischenränder/Mauern kommt? Ich poste mal den gesamten Code (Grundgerüst zum Verständnis).

    Gesamter:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Up1 As Boolean
    3. Dim Down1 As Boolean
    4. Dim Left1 As Boolean
    5. Dim Right1 As Boolean
    7. Dim Up2 As Boolean
    8. Dim Down2 As Boolean
    9. Dim Left2 As Boolean
    10. Dim Right2 As Boolean
    12. Dim rnd As New Random
    14. Private Sub Form6_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    15. 'TASTATUR W A S D = MOUSE = UP1 DOWN1 RIGHT1 LEFT1
    16. 'PFEILTASTEN UP DOWN LEFT RIGHT = CAT = UP2 DOWN2 RIGHT2 LEFT2
    18. 'Mouse
    19. If e.KeyCode = Keys.Up Then
    20. Up1 = True
    21. End If
    23. If e.KeyCode = Keys.Down Then
    24. Down1 = True
    25. End If
    27. If e.KeyCode = Keys.Right Then
    28. Right1 = True
    29. End If
    31. If e.KeyCode = Keys.Left Then
    32. Left1 = True
    33. End If
    35. 'Cat
    36. If e.KeyCode = Keys.W Then
    37. Up2 = True
    38. End If
    40. If e.KeyCode = Keys.S Then
    41. Down2 = True
    42. End If
    44. If e.KeyCode = Keys.D Then
    45. Right2 = True
    46. End If
    48. If e.KeyCode = Keys.A Then
    49. Left2 = True
    50. End If
    52. End Sub
    54. Private Sub Form6_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
    55. If e.KeyCode = Keys.Up Then
    56. Up1 = False
    57. End If
    59. If e.KeyCode = Keys.Down Then
    60. Down1 = False
    61. End If
    63. If e.KeyCode = Keys.Right Then
    64. Right1 = False
    65. End If
    67. If e.KeyCode = Keys.Left Then
    68. Left1 = False
    69. End If
    71. If e.KeyCode = Keys.W Then
    72. Up2 = False
    73. End If
    75. If e.KeyCode = Keys.S Then
    76. Down2 = False
    77. End If
    79. If e.KeyCode = Keys.D Then
    80. Right2 = False
    81. End If
    83. If e.KeyCode = Keys.A Then
    84. Left2 = False
    85. End If
    86. End Sub
    88. Private Sub MovemenT_Tick(sender As Object, e As EventArgs) Handles MovemenT.Tick
    89. If playermouse.Bounds.IntersectsWith(PictureBox1.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox2.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox3.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox4.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox5.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox6.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox7.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox8.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox9.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox10.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox11.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox12.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox13.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox14.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox15.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox16.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox17.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox18.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox19.Bounds) Or playermouse.Bounds.IntersectsWith(PictureBox20.Bounds) Then
    90. 'berührt Mauer
    92. '???
    94. Else
    96. If Up1 = True Then
    97. playermouse.Top -= 3
    99. If playermouse.Top <= 12 Then
    100. playermouse.Top = 12
    101. End If
    103. End If
    104. If Down1 = True Then
    105. playermouse.Top += 3
    107. If playermouse.Top + 89 >= Me.Height Then
    108. playermouse.Top = Me.Height - 89
    109. End If
    110. End If
    112. If Left1 = True Then
    113. playermouse.Left -= 3
    115. If playermouse.Left <= 21 Then
    116. playermouse.Left = 21
    117. End If
    118. End If
    120. If Right1 = True Then
    121. playermouse.Left += 3
    123. If playermouse.Left + 64 >= Me.Width Then
    124. playermouse.Left = Me.Width - 64
    125. End If
    126. End If
    128. If Up2 = True Then
    129. playercat.Top -= 2
    131. If playercat.Top <= 12 Then
    132. playercat.Top = 12
    133. End If
    135. End If
    136. If Down2 = True Then
    137. playercat.Top += 2
    139. If playercat.Top + 89 >= Me.Height Then
    140. playercat.Top = Me.Height - 89
    141. End If
    142. End If
    144. If Left2 = True Then
    145. playercat.Left -= 2
    147. If playercat.Left <= 21 Then
    148. playercat.Left = 21
    149. End If
    150. End If
    152. If Right2 = True Then
    153. playercat.Left += 2
    155. If playercat.Left + 64 >= Me.Width Then
    156. playercat.Left = Me.Width - 64
    157. End If
    158. End If
    160. End If
    161. End Sub
    162. End Class





    Mein Problem liegt ca. ab Zeile 89. Wenn "playermouse" (ich entwickle hauptsächlich erst für die eine, dann für die andere Spielfigur) eine Wand berührt, kann sich der Spieler nicht mehr in diese Richtung bewegen. Das Problem habe ich gerade schon dargestellt, wie bekomme ich hin dass der Spieler sich dann nur noch 'zurück' bewegen kann?
    Hoffe ich habe mein Problem richtig definiert, bei Fragen: fragen :)





    Liebe grüße
    Bilder

    • Unbenannt.PNG

      222,73 kB, 794×542, 163 mal angesehen

    ╔══╦═╦╦╦═╦══╦══╦╗╔╦═╦╦═╦══╗
    ║║║║╩╠..╣╦╬╗╚╬╗╔╣╚╝║╠║║║╠╗╚╣
    ╚╩╩╩╩╩╩╩═╩══╝╚╝╚══╩═╩╩═╩══╝

    MaxeStudios schrieb:

    Mein Problem liegt ca. ab Zeile 89. Wenn "playermouse" (ich entwickle hauptsächlich erst für die eine, dann für die andere Spielfigur) eine Wand berührt, kann sich der Spieler nicht mehr in diese Richtung bewegen. Das Problem habe ich gerade schon dargestellt, wie bekomme ich hin dass der Spieler sich dann nur noch 'zurück' bewegen kann?
    Definiere 'zurück'.

    Weil in meiner Welt, wenn man sich in genügend richtungen nicht mehr bewegen kann, dann bleibt automatisch nur noch eine übrig - das wäre doch: 'zurück' - oder?

    Wenn man von Programmaufbau, Namensgebung, Objektorientierungsansatz etc. absieht: Definiere eine Variable LastGoodPosition, die die letzte valide Position des Spielers beinhaltet. Wenn der Spieler dann mit einer Wand kollidiert, wird er einfach auf jene valide Position zurückgesetzt, bevor er neu gezeichnet wird.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @ErfinderDesRades Genau, da wäre meine Frage gewesen wie ich auslese, wo zurück ist. Ist der Spieler mit einer Mauer unter ihm kollidiert, kann er nur noch nach oben/links/rechts aber nicht mehr nach unten.


    @VaporiZed klingt einfach und simple, werde ich ausprobieren.



    Ich melde mich nochmal wenn ich Fragen habe, danke

    Lg

    ╔══╦═╦╦╦═╦══╦══╦╗╔╦═╦╦═╦══╗
    ║║║║╩╠..╣╦╬╗╚╬╗╔╣╚╝║╠║║║╠╗╚╣
    ╚╩╩╩╩╩╩╩═╩══╝╚╝╚══╩═╩╩═╩══╝

    MaxeStudios schrieb:

    wie ich auslese, wo zurück ist
    Wenn die Figur 4 Möglichkeiten zur Bewegung hat, gib ihr ein Enum-Flag mit diesen 4 Möglichkeiten.
    Wenn links die Mauer ist, lösche das Links-Flag und es bleiben die 3 anderen Richtungen übrig.
    Form mit 3 Buttons und nem Label:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. <Flags>
    3. Enum Directions
    4. None = 0
    5. Top = 1
    6. Right = 2
    7. Down = 4
    8. Left = 8
    9. All = 15
    10. End Enum
    11. Dim Direction As Directions = Directions.All
    13. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    14. ' Reset
    15. Direction = Directions.All
    16. Label1.Text = Direction.ToString
    17. End Sub
    19. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    20. ' Mauer oben
    21. Direction = Direction And Not Directions.Top
    22. Label1.Text = Direction.ToString
    23. End Sub
    25. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    26. ' Mauer unten
    27. Direction = Direction And Not Directions.Down
    28. Label1.Text = Direction.ToString
    29. End Sub
    30. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!