TheGameCreators - CodeBase - Scrolling Tile Map

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Information

Uploaded: 21st Mar 2004 18:28

Modified: 21st Mar 2004 19:03

Author: Gav_b_uk

Summary

This is an example of how to make a scrolling 2D background using tiles.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem ***********************************************************************************************************

rem *                                                                                                         *

rem *                               Example of Scrolling Map using Tiles                                      *

rem *                                                                                                         *

rem *                                    Wriitten by Gavin Brennan                                            *

rem *                                                                                                         *

rem *                               Copyright Aftermath Developments 2004                                     *

rem *                                                                                                         *

rem ***********************************************************************************************************

rem Version Number = 1

rem Version Date = 21/03/2004

rem ***********************************************************************************************************

rem Setup Global Variables

rem ***********************************************************************************************************

global screenwidth=20            :rem Screen width in tiles (screen wide in pixels/ Tile width in pixels)

global screenheight=15           :rem Screen height in tiles (screen height in pixels/ Tile height in pixels)

global tilewidth=32              :rem Tile width in pixels

global tileheight=32             :rem tile height in pixels

global mapwidth=44               :rem Width of map in tiles (has to be a minimum of 2 more than screen width)

global mapheight=40              :rem height of map in tiles (has to be a minimum of 2 more than screen height)

global mapy                      :rem Store Y coordinate of of top left hand tile on screen

global mapx                      :rem Store X coordinate of of top left hand tile on screen

mapy=(mapheight-screenheight)-1  :rem Set Y start position in map of top left hand tile

mapx=(mapwidth-screenwidth)-1    :rem Set Y start position in map[of top left hand tile

global xcoord=-tilewidth         :rem Xcoord on screen for top left hand tile

global ycoord=-tileheight        :rem ycoord on screen for top left hand tile

global scrollspeed=2             :rem Speed of scrolling in number of pixels to move by

rem ***********************************************************************************************************

rem Load Tile images

rem ***********************************************************************************************************

rem Map data must comply with the image numbers that tiles are loaded to.

load image "tile1.jpg",1

load image "tile2.jpg",2

rem ***********************************************************************************************************

rem setup map array

rem ***********************************************************************************************************

dim map(mapheight,mapwidth)

rem load data in to map array

for i=0 to mapheight-1

for j=0 to mapwidth-1

read map(i,j)

next j

next i

rem ***********************************************************************************************************

rem Setup system

rem ***********************************************************************************************************

sync on

rem sync rate 50                  :rem Remark this out to speed things up in editor

rem ***********************************************************************************************************

rem start main loop

rem ***********************************************************************************************************

rem Check for keypresses and adjust map position as appropriate

if upkey()=1 then ycoord=ycoord+scrollspeed

if downkey()=1 then ycoord=ycoord-scrollspeed

if leftkey()=1 then xcoord=xcoord+scrollspeed

if rightkey()=1 then xcoord=xcoord-scrollspeed

if spacekey()=1 then exit

drawmap()

text 0,0,str$(screen fps())

sync

loop

rem ***********************************************************************************************************

rem Functions

rem ***********************************************************************************************************

rem Function to Draw map on screen

function drawmap()

rem first see if its time to put new tiles at edge of screen

if ycoord>=0

rem see if the top edge of the map has been reached

if mapy>1

rem if not, shift display area one tile up

rem and reset pastin coordinates

ycoord=-tileheight

mapy=mapy-1

else

rem if edge of screen reached ensure pasting coordinate

rem doesnt change and leave display area as previously

ycoord=ycoord-scrollspeed

endif

if ycoord<=-tileheight-tileheight

rem see if the bottom edge of the map has been reached

if mapy<(mapheight-screenheight)-1

rem if not, shift display area one tile down

rem and reset pasting coordinates

ycoord=-tileheight

mapy=mapy+1

else

rem if edge of screen reached ensure pasting coordinate

rem doesnt change and leave display area as previously

ycoord=ycoord+scrollspeed

endif

if xcoord>=0

rem see if the left edge of the map has been reached

if mapx>1

rem if not, shift display area one tile to left

rem and reset pasting coordinates

xcoord=-tilewidth

mapx=mapx-1

else

rem if edge of screen reached ensure pasting coordinate

rem doesnt change and leave display area as previously

xcoord=xcoord-scrollspeed

endif

if xcoord<=-tilewidth-tilewidth

rem see if the right edge of the map has been reached

if mapx<(mapwidth-screenwidth)-1

rem if not, shift display area one tile to right

rem and reset pasting coordinates

xcoord=-tilewidth

mapx=mapx+1

else

rem if edge of screen reached ensure pasting coordinate

rem doesnt change and leave display area as previously

xcoord=xcoord+scrollspeed

endif

rem Pass copies of x and y offsets to local variables to allow

rem manipulation

xoffset=xcoord

yoffset=ycoord

rem Display area of map on screen

for i=(mapy-1) to (mapy-1)+screenheight+1       :rem setup loop to provide X map positions

for j=(mapx-1) to (mapx-1)+screenwidth+1     :rem setup loop to provide Y map positions

paste image map(i,j),xoffset,yoffset      :rem Paste image on screen

xoffset=xoffset+tilewidth                 :rem move to next tile across screen

next j

xoffset=xcoord                               :rem reset X offset to first tile position

yoffset=yoffset+tileheight                   :rem move to next row of tiles

next i

endfunction

rem ***********************************************************************************************************

rem Map Data

rem ***********************************************************************************

Download

Please login to download

Comments

No comments yet.

Author Name:	Gav_b_uk
CodeBase Entries:	1

CodeBase - Scrolling Tile Map

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments