Josh Gauthier - 4 months ago 10x

Vb.net Question

I have set up a 2D game and used tile mapping to apply a maze theme, with a tile size of 48, I used the following code to draw the map.

`If LevelStart = True Then`

'Creates maze

a = 0 'a is the horizontal coordinate

b = 0 'b is the vertical coordinate

For X = 0 To Me.Width Step TileSize

For Y = 0 To Me.Height Step TileSize

If (a = 0 And b <= 18) Or (a = 22 And b <= 18) Or (b = 0 And a <= 22) Or (b = 18 And a <= 22) Then 'The wall border around the edge of the level

Map.DrawImage(bmpWall, X, Y, TileSize, TileSize)

ElseIf (a = 1 And ((b >= 1 And b <= 3) Or (b >= 5 And b <= 13) Or (b >= 15 And b <= 17))) Or (a = 2 And (b = 1 Or (b >= 3 And b <= 5) Or b = 11 Or (b >= 13 And b <= 15) Or b = 17)) Or (a = 3 And (b = 1 Or (b >= 7 And b <= 9) Or b = 11 Or b = 17)) Or (a = 4 And ((b >= 1 And b <= 5) Or b = 7 Or b = 9 Or (b >= 11 And b <= 14) Or b = 16 Or b = 17)) Or (a = 5 And (b = 5 Or b = 7 Or b = 9 Or b = 14 Or b = 16)) Or (a = 6 And ((b >= 1 And b <= 3) Or b = 5 Or b = 7 Or (b >= 9 And b <= 14) Or b = 16 Or b = 17)) Or (a = 7 And (b = 1 Or b = 3 Or b = 5 Or b = 7 Or b = 17)) Or (a = 8 And (b = 1 Or (b >= 5 And b <= 7) Or (b >= 9 And b <= 13) Or b = 15 Or b = 17)) Or (a = 9 And ((b >= 1 And b <= 3) Or b = 5 Or b = 9 Or b = 13 Or (b >= 15 And b <= 17)) Or (a = 10 And (b = 1 Or (b >= 3 And b <= 9) Or b = 11)) Or (a = 11 And (b = 1 Or b = 8 Or b = 11 Or (b >= 13 And b <= 17))) Or (a = 12 And (b = 1 Or (b >= 3 And b <= 11) Or b = 13 Or b = 15 Or b = 17)) Or (a = 13 And (b = 1 Or b = 3 Or b = 13 Or b = 15 Or b = 17))) Or (a = 14 And ((b >= 1 And b <= 13) Or b = 15 Or b = 17)) Or (a = 15 And (b = 1 Or b = 4 Or b = 10 Or (b >= 15 And b <= 17))) Or (a = 16 And ((b >= 1 And b <= 4) Or (b >= 6 And b <= 8) Or b = 10 Or (b >= 12 And b <= 15) Or b = 17)) Or (a = 17 And (b = 2 Or b = 8 Or b = 10 Or b = 12 Or b = 15 Or b = 17)) Or (a = 18 And (b = 2 Or (b >= 4 And b <= 6) Or (b >= 8 And b <= 10) Or b = 12 Or b = 13 Or b = 15 Or b = 17)) Or (a = 19 And (b = 1 Or b = 2 Or b = 4 Or b = 6 Or b = 8 Or b = 13 Or b = 15 Or b = 17)) Or (a = 20 And (b = 1 Or b = 4 Or b = 6 Or b = 8 Or (b >= 10 And b <= 13) Or b = 17)) Or (a = 21 And ((b >= 1 And b <= 4) Or (b >= 6 And b <= 10) Or (b >= 13 And b <= 17))) Then 'The path

Map.DrawImage(bmpPath, X, Y, TileSize, TileSize)

ElseIf a <= 22 And b <= 18 Then 'The walls

Map.DrawImage(bmpWall, X, Y, TileSize, TileSize)

End If

b += 1

Next Y

a += 1

b = 0

Next X

End If

Now, I'm wondering how I can detect collision from a

`PictureBox`

Answer

You can use 2D array to store the different tiles.

```
Dim stage = { { 1, 1, 1, 1, 1 },
{ 1, 0, 0, 0, 1 },
{ 1, 0, 1, 0, 1 },
{ 0, 0, 1, 0, 0 },
{ 1, 1, 1, 1, 1 } }
Dim playerX = 0, playerY = 3, TileSize = 48
For x = 0 to stage.GetLength(0) - 1
For y = 0 to stage.GetLength(1) - 1
Dim index = stage(x, y) ' gets 0 or 1 from the stage 2D array
Dim image = {bmpPath, bmpWall}(i) ' image = bmpPath if i is 0, or bmpPath if i is 1
Map.DrawImage(image, x * TileSize, y * TileSize, TileSize, TileSize)
Next y
Next x
Map.DrawImage(bmpPlayer, playerX * TileSize, playerY * TileSize, TileSize, TileSize)
Me.KeyPreview = True ' needed for the KeyPress event
```

Then in the KeyPress event, something like

```
Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = Keys.Right AndAlso
playerX < stage.GetLength(0) - 1 AndAlso ' if not at the right most tile
stage(playerX + 1, playerY) = 0 Then ' if the tile on the right is path
Map.DrawImage(bmpPath, playerX * TileSize, playerY * TileSize, TileSize, TileSize)
playerX = playerX + 1
Map.DrawImage(bmpPlayer, playerX * TileSize, playerY * TileSize, TileSize, TileSize)
Else If e.KeyChar = Keys.Left AndAlso playerX > 0 Then
' add the rest of the code for the other directions
End If
End Sub
```

Source (Stackoverflow)

Comments