+ isFullScreen = false
+ vSync = true
+ winWidth = 640
+ winHeight = 480
+ canViewPortX = 0
+ canViewPortY = 0
+
+ OpenWindow("TestTileset", winWidth, winHeight, isFullScreen, vSync)
+ mCanvas = OpenCanvas(winWidth, winHeight, canViewPortX, canViewPortY, winWidth, winHeight, 1)
+ Canvas(mCanvas)
+
+ mAtlas = LoadImage("testTileSet.png") 'Load in our atlas or tile set image
+
+ mTileSet = CreateTileSet(mAtlas, 24, 24) 'Create a tile set and assign it a holder to access
+
+ mTileMap = CreateTileMap(mTileSet, 20, 20) 'Create a tile map with our tile set holder "mTileSet"
+
+ 'Now we have a blacnk tilemap to fill with tiles, we now use the mAtlas image to fill in the map
+ 'First we will assign a grass tile across our entire tile map. lets grab a grass tile to fill in.
+
+ FillTile(mTileMap, 166, 0, 0, 20, 20) 'The tile number goes by starting at the top left corner to the right edge of the image,
+ 'then wraps around and comntinues the count, the image is 13 wide (0-12) so 166 would be
+ '2 in from the end of the last row of images on the tileset.
+
+ SetTile(mTileMap, 15, 0, 0) 'With the map filled with grass tiles we can change a single tile, to a little guy in the
+ 'top left corner.
+
+ 'Before we begin our main loop, we need to make some variables for holding some important info
+ mOffsetX = 0
+ mOffsetY = 0 'Offset values for where the tile is to be drawn from, used for scrolling.
+ mViewportX = 640
+ mViewportY = 480 'How much of the tile map is to be drawn on the canvas
+
+ While Not Key(K_ESCAPE)
+ ClearCanvas()
+
+ DrawTileMap(mTileMap, 0, 0, mViewportX, mViewportY, mOffsetX, mOffsetY)
+
+ If Key(K_UP) Then
+ mOffsetY = mOffsetY - 0.5
+ ElseIf Key(K_DOWN) Then
+ mOffsetY = mOffsetY + 0.5
+ ElseIf Key(K_LEFT) Then
+ mOffsetX = mOffsetX - 0.5
+ ElseIf Key(K_RIGHT) Then
+ mOffsetX = mOffsetX + 0.5
+ End If
+
+ Update()
+ Wend
+
+ 'As you can see this replaces the grass tile with a character tile, if we wanted to place the character or any other object or image ontop of the tile
+ 'we would DrawImage() an image not using the tilemap.
+
Related: CreateTileMap + SetTile + FillTile + DrawTileMap
diff --git a/doc/doc_files/images/testTileSet.png b/doc/doc_files/images/testTileSet.png new file mode 100644 index 0000000..a0005d7 Binary files /dev/null and b/doc/doc_files/images/testTileSet.png differ diff --git a/doc/files/createtileset.txt b/doc/files/createtileset.txt index 7c0e90b..c9d3a10 100644 --- a/doc/files/createtileset.txt +++ b/doc/files/createtileset.txt @@ -10,4 +10,62 @@ Parameters: #li tile_h - The height of each tile #/list -#ref CreateTileMap +#code +isFullScreen = false +vSync = true +winWidth = 640 +winHeight = 480 +canViewPortX = 0 +canViewPortY = 0 + +OpenWindow("TestTileset", winWidth, winHeight, isFullScreen, vSync) +mCanvas = OpenCanvas(winWidth, winHeight, canViewPortX, canViewPortY, winWidth, winHeight, 1) +Canvas(mCanvas) + +mAtlas = LoadImage("testTileSet.png") 'Load in our atlas or tile set image + +mTileSet = CreateTileSet(mAtlas, 24, 24) 'Create a tile set and assign it a holder to access + +mTileMap = CreateTileMap(mTileSet, 20, 20) 'Create a tile map with our tile set holder "mTileSet" + +'Now we have a blacnk tilemap to fill with tiles, we now use the mAtlas image to fill in the map +'First we will assign a grass tile across our entire tile map. lets grab a grass tile to fill in. + +FillTile(mTileMap, 166, 0, 0, 20, 20) 'The tile number goes by starting at the top left corner to the right edge of the image, + 'then wraps around and comntinues the count, the image is 13 wide (0-12) so 166 would be + '2 in from the end of the last row of images on the tileset. + +SetTile(mTileMap, 15, 0, 0) 'With the map filled with grass tiles we can change a single tile, to a little guy in the + 'top left corner. + +'Before we begin our main loop, we need to make some variables for holding some important info +mOffsetX = 0 +mOffsetY = 0 'Offset values for where the tile is to be drawn from, used for scrolling. +mViewportX = 640 +mViewportY = 480 'How much of the tile map is to be drawn on the canvas + +While Not Key(K_ESCAPE) + ClearCanvas() + + DrawTileMap(mTileMap, 0, 0, mViewportX, mViewportY, mOffsetX, mOffsetY) + + If Key(K_UP) Then + mOffsetY = mOffsetY - 0.5 + ElseIf Key(K_DOWN) Then + mOffsetY = mOffsetY + 0.5 + ElseIf Key(K_LEFT) Then + mOffsetX = mOffsetX - 0.5 + ElseIf Key(K_RIGHT) Then + mOffsetX = mOffsetX + 0.5 + End If + + Update() +Wend + +'As you can see this replaces the grass tile with a character tile, if we wanted to place the character or any other object or image ontop of the tile +'we would DrawImage() an image not using the tilemap. +#/code + +#image "images/testTileSet.png" + +#ref CreateTileMap SetTile FillTile DrawTileMap