Map wie in diesem Video vergrößern?

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Artentus.

    Map wie in diesem Video vergrößern?

    Hey,
    ich habe mir ein Video angeschaut zu einem 2d Spiel diesem hier: youtube.com/watch?v=jp4lvMorhMo

    Meine Frage ist nun wie kann ich bei mir die Map auch etwa so groß machen z.B ich setze fest das die Map 500x500 Blöcke groß ist und ein einzelner Block ist 32 Pixel groß

    Dann noch das eben in der Mitte der Spieler ist aber das bekomme ich selber hin.
    Danke an die Leute die mir dabei Helfen und bitte keine unnötigen kommentare oder irgentetwas was nicht Hilfreich ist!
    Ich suche nur Hilfe keine Kommentare die die Zeit von allen vergolden!

    Gruß SBot

    Hi
    einfach eine Tilemap (das war in dem komplizierten Text von mir letztens drin). Artentus hat auch ein Tutorial im Sourcecode-Austausch dazu veröffentlicht btw.
    Im Prinzip hast du einfach deine Tiles, das ist ein Array oder eine Liste von Bildern, die du über einen Index ansteuern kannst. Anschließend setzt du deine darstellende Karte aus diesen Tiles dar, indem du pro Block das zugehörige Tile über den Index abfrägst. D.h. du speicherst pro Block nur den Index, der auf das Tile verweist und zeichnest das anschließend, sofern der Block sichtbar ist.

    Gruß
    ~blaze~

    Die Map lädt sich halt nicht von alleine. Du musst die Daten aus der Datei irgendwie so auswerten, dass dein Programm damit was anfangen kann. In meinem Tutorial habe ich grundlegend beschrieben, wie sowas aussehen könnte und wie man da generell rangeht. Es ist jetzt deine Aufgabe das so anzupassen, dass es für deinen Anforderungen genügt.

    Ich bin jetzt soweit:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim KeyPushed As Short = 0
    3. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    4. Public Function GetKeyState(ByVal key1 As Integer) As Boolean
    5. Dim s As Short
    6. s = GetAsyncKeyState(key1)
    7. If s = 0 Then Return False
    9. Return True
    10. End Function
    12. Dim XTiles As Integer = 19
    13. Dim YTiles As Integer = 14
    14. Dim ResWidth As Integer = 750
    15. Dim ResHeight As Integer = 550
    16. Dim TileSize As Integer = 32
    18. Dim G As Graphics
    19. Dim BBG As Graphics
    20. Dim BB As Bitmap
    21. Dim bmpTile As Bitmap
    22. Dim sRect As Rectangle
    23. Dim dRect As Rectangle
    25. Dim MapHeight As Integer = 100
    26. Dim MapWidth As Integer = 100
    28. Dim Map(MapHeight, MapWidth, 10) As Integer
    29. Dim MapX As Integer = 20
    30. Dim MapY As Integer = 20
    32. Dim IsRunning As Boolean = True
    34. Dim mouseX As Integer
    35. Dim mouseY As Integer
    36. Dim mMapX As Integer
    37. Dim mMapY As Integer
    39. Dim bmpToon As Bitmap
    40. Dim xPos As Integer = 0
    41. Dim yPos As Integer = 0
    42. Dim MoveSpeed As Integer = 32
    43. Dim MoveDir As Short = 0
    44. Dim LastDir As Short = 2
    46. Dim PaintBrush As Integer = 0
    48. Dim OpenDialog As Boolean = False
    54. Private Sub LoadMap(ByVal MapFile As String)
    55. Try
    56. Dim sr As New IO.StreamReader(MapFile & ".map")
    57. Dim intValue As String = ""
    58. Dim strLine As String = ""
    59. Dim X As Integer = 0
    60. Dim Y As Integer = 0
    62. Do Until sr.EndOfStream
    63. strLine = sr.ReadLine
    64. strLine = strLine.Replace(strLine.LastIndexOf(","), "")
    65. For Each item As String In Split(strLine, ",", -1)
    66. If item = "" Then
    67. item = 0
    68. End If
    69. If X <= MapWidth Then
    70. Map(X, Y, 0) = Int(item)
    71. End If
    73. X = X + 1
    74. Next
    76. X = 0
    77. Y = Y + 1
    78. Loop
    80. sr.Close()
    81. sr.Dispose()
    82. Catch ex As Exception
    83. IsRunning = False
    84. End Try
    85. End Sub
    87. Private Sub SaveMap(ByVal MapFile As String)
    88. Try
    89. Dim sw As New IO.StreamWriter(MapFile & ".map")
    90. Dim intValue As String = ""
    91. Dim strLine As String = ""
    92. Dim X As Integer = 0
    93. Dim Y As Integer = 0
    95. For Y = 0 To MapHeight
    96. For X = 0 To MapWidth
    97. strLine = strLine & Map(X, Y, 0) & ","
    98. Next
    100. sw.WriteLine(strLine)
    101. strLine = ""
    102. Next
    104. sw.Close()
    105. sw.Dispose()
    107. Catch ex As Exception
    108. IsRunning = False
    109. End Try
    110. End Sub
    112. Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
    113. SaveMap("Auros")
    114. End Sub
    116. Private Sub LadenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LadenToolStripMenuItem.Click
    117. LoadMap("Auros")
    118. End Sub
    120. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    121. LoadMap("Auros")
    122. End Sub
    123. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    125. mouseX = Math.Floor(e.X / TileSize)
    126. mouseY = Math.Floor(e.Y / TileSize)
    128. mMapX = MapX + mouseX
    129. mMapY = MapY + mouseY
    131. End Sub
    132. Private Sub MoveToon(ByVal dir As Short)
    133. Select Case dir
    134. Case 1
    135. If MapY > 0 Then
    136. yPos += MoveSpeed
    138. If yPos >= TileSize Then
    139. yPos = 0
    140. MapY -= 1
    141. End If
    142. End If
    143. Case 2
    144. If MapY < MapHeight - YTiles Then
    145. yPos -= MoveSpeed
    147. If yPos <= TileSize * -1 Then
    148. yPos = 0
    149. MapY += 1
    150. End If
    151. End If
    152. Case 3
    153. If MapX > 0 Then
    154. xPos += MoveSpeed
    156. If xPos >= TileSize Then
    157. xPos = 0
    158. MapX -= 1
    159. End If
    160. End If
    161. Case 4
    162. If MapX < MapWidth - XTiles Then
    163. xPos -= MoveSpeed
    165. If xPos <= TileSize * -1 Then
    166. xPos = 0
    167. MapX += 1
    168. End If
    169. End If
    170. End Select
    171. End Sub
    172. End Class


    Ich habe Hilfe von einem Source aus dem I Net genommen weil das das erste mal für mich ist!
    Aber ich habe alles Selbst abgeändert bzw in die Richtige Stelle eingefügt bis ich kapiert habe was der ganze Source Code macht sind 3 Tage vergangen^^

    Bei allem Respekt, aber so programmiert man kein Spiel. Du benutzt die Form als zentralen Punkt und von Objektorientierung ist keine Spur.
    Als Orientierunghilfe kannst du z.B. [C#] [OpenSource] [Projektvorstellung] Langzeitprojekt - GameUtils nehmen, ist zwar noch nicht ganz fertig, aber die grundlegende Struktur sollte gut erkennbar sein.