yet another "tilemaps suck, please help" post... (ok not exactly)

Author

Message

Caldar

20

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 14th Aug 2005 02:58

Link

I'm ready to go nuts.

I've spent 15 hours trying to learn how to make a tilemap with Pizzaman's code.
http://darkbasic.thegamecreators.com/?m=codebase_view&i=0ee878a92195ee8c39c59bc3196e47d1

I took his source and basically rewrote it with half of it ripped out

Why would I do this you might ask? I'm trying to change the resolution!!! argh... 800 x 600 is too low. I want 1024 x 768.

However, just changing the variables I see *LINKED* to the resolution doesn't work. If you just change those few obvious ones, you end up with crashes if you try to "move" downward.

The only thing I can figure is that the x and y of the "paste image" loop are too high and when the numbers get calculated, it runs out of tiles to paste down.

If I change the numbers, I run into other problems. (ahh it gets very messy)

I'm not asking for anyone to code everything for me. I'd just really like some help figuring out what concept I'm missing.

I know the code looks nuts, but if you check the link the original is fairly well remarked by Pizzaman.

Ty in advance

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 14th Aug 2005 03:57 Edited at: 14th Aug 2005 03:57

Link

It didn't work. Post it in code snips.

+ Code Snippet

Like this.

Maybe the dim statement for the map is too low.

Back to top

Profile PM Email

pizzaman

22

Years of Service

User Offline

Joined: 18th Feb 2004

Location: Gateshead, UK

Posted: 14th Aug 2005 04:33 Edited at: 14th Aug 2005 04:40

Link

Hi

I've now generalised my code so it should work with any resolution and tile sizes. The new code is in the code snippet.

`****************************************************************************************
`**************************** HOW TILE BASED COLLISION WORKS ****************************
`****************************          by pizzaman           ****************************
`**************************** Date:             14/6/04      ****************************
`**************************** Time to complete: 1 hour       ****************************
`****************************************************************************************

`THE PRINCIPLE -
`The visible screen is devided up into boxes which we call tiles. This means that each
`tile is sitting on a range of coordinates. For example a 20 pixel by 20 pixel tile that
`is the top-left most tile is sitting on the coordinates (0,0) to (19,19). Since we know
`each tile is sitting on a range of coordinates we can check to see whether a sprite (or
`image) has the same coordinates as the tile. However, we must take into consideration
`that a sprite (or image) is usually bigger than a pixel, so we have to form a collision
`box around the sprite.

`HOW TO IMPLEMENT A TILE BASED COLLISION SYSTEM -
`Firstly we need a 2 dimensional array to store tile data in (Tile data is the image
`numbers of the of the images you are going to use; e.g. 1 could be a wall, 2 could be
`a grass image etc. Note: the image sizes should be the same as the tile size you will
`use.
`Secondly we store the data in the array. Note: you could already store data in an array
`and just load the array - this would be faster for loading times.
`Next we create some collision points around our sprite, usually 4 points which would
`be placed at the corners of the sprite creating a collision box, you could have more
`collision points if a collision box is not suitable.
`Next we have to figure out which tile in the array each collision point is on to do
`this you have to use the formula
`
`                 Tile = (x / Tile Sise, y / Tile size)
`
`                 where Tile is the tile in the array, x is the x coordinate of the
`                 collision point your checking for and y is the y coordinate of the
`                 collision point your checking for
`
`Now if the tile is a tile you dont want your sprite to go on; just reset the sprites
`coordinates to what they were before the collision and voila!!!! you've got tile
`based collision.

`****************************************************************************************
`*********************************** SCROLLING THE MAP **********************************
`****************************************************************************************

`THE PRINCIPLE -
`To scroll a tile based map, you simply have to move all the tiles in the given direction
`then when the tiles have moved more pixels then the size of the tiles, the tiles get
`reset to the positions they were in before they were moved, but their images changed
`to simulated the tiles have moved, and generating a seamless transition.

`HOW TO IMPLEMENT A SCROLLING TILE BASED MAP -
`Instead of using a system that relies on screen coordinates, we need to build our map
`on a global coordinate system where coordinates (0,0) is the first tile (usually the
`top-left most tile). Everything we do will be based in this global coordinate system,
`which will include the player and their collision system. The coordinates then will be
`transferred to screen coordinates, where the images can be pasted correctly.
`Note that an extra row and column of tiles are pasted to the screen, this is to
`generate the seamless scrolling.

`****************************************************************************************
`*********************************** Start of program ***********************************
`****************************************************************************************

`Declare some constants, they are constants because their values will not change
`thoughout the program. There are placed at this point in the program to be easily
`modified.
#constant SCREENSIZEX 1024
#constant SCREENSIZEY 768

`gosubs are here instead of actual code, just to make things look neat
gosub DeclareVariables
gosub screensetup
gosub createimages
gosub loaddata
gosub makeplayer

`start the main loop
do

`exit the loop if space bar is pressed - effectively ending the program
   `Note: it has to be place here and not in a gosub as it wont work
   if spacekey() = 1 then exit

gosub controls
   gosub collision
   gosub ScrollScreen
   gosub displayplayer
   gosub DisplayDebugInfo

`update screen
   sync

loop

gosub cleanup

`end the program
end

`****************************************************************************************
`************************************* End of program ***********************************
`****************************************************************************************

DeclareVariables:

`store how many horizontal/verticle tiles there are
   NumOfTilesX = 40
   NumOfTilesY = 30

`store the size (in pixels) of a tile
   TileSizeX = 32
   TileSizeY = 32

`store the speed of the tile
   SpeedX = 2
   SpeedY = 2

`store the coordinates that will make the player be at the centre of the screen
   ScreenCentreX = SCREENSIZEX / 2
   ScreenCentreY = SCREENSIZEY / 2

`Work out out how many tiles there are on screen for x and y directions
   TilesPerScreenX = SCREENSIZEX / TileSizeX
   TilesPerScreenY = SCREENSIZEY / TileSizeY

`Works out if a tile is partially visible on screen, if so then add 1 to the
   `TilesPerScreen variable. This has the affect of drawing a whole column or/and row
   `of tiles to the screen, to cover up visual anomalies with tile sizes that do
   `not divide exactly into the screen resolution
   if SCREENSIZEX mod TileSizeX then TilesPerScreenX = TilesPerScreenX + 1
   if SCREENSIZEY mod TileSizeY then TilesPerScreenY = TilesPerScreenY + 1

`Calculates the largest co-ordinates the map can scroll too
   MaxMapX = (TileSizeX * NumOfTilesX) - (SCREENSIZEX + SpeedX)
   MaxMapY = (TileSizeY * NumOfTilesY) - (SCREENSIZEY + SpeedY)

`store predefined coordinates of player
   X1 = ScreenCentreX
   Y1 = ScreenCentreY

`store predefined coordinates of map
   MapX = 0
   MapY = 0

return

screensetup:

`delete anything stored in video memory
   flush video memory

`set screen resolution
   set display mode 1024, 768, 32

`setup syncing
   sync on
   sync rate 150

return

createimages:

`create a green box
   box 0, 0, TileSizeX, TileSizeY, rgb(0, 255, 0), rgb(0, 225, 0), rgb(0, 225, 0), rgb(0, 200, 0)
   get image 1, 0, 0, TileSizeX, TileSizeY, 1

`create a yellow/orange box as the player
   box 0, 0, TileSizeX, TileSizeY, rgb(255, 255, 0), rgb(255, 128, 0), rgb(255, 128, 0), rgb(255, 255, 0)
   get image 2, 0, 0, TileSizeX, TileSizeY, 1

`create a red box
   cls rgb(255, 0, 0)
   get image 10, 0, 0, TileSizeX, TileSizeY, 1

`create a blue box
   box 0, 0, TileSizeX, TileSizeY, rgb(0, 0, 255), rgb(0, 0, 225), rgb(0, 0, 225), rgb(0, 0, 200)
   get image 11,0,0,TileSizeX,TileSizeY,1

return

loaddata:

`create an array called TileMap - we will use this to store the tile data.
   `an array is like a file cabinet - in each drawer of the file cabinet there are
   `folders that hold our data. Therefore in our "file cabinet" we have 20 drawers; and
   `inside of each drawer we 15 folders; which hold data we want to access.
   `Also arrays can have up to 5 dimensions (ours has 2 dimensions) - you can visualise
   `this as being more folders inside of the other folders and so on; and of course you
   `can just have 1 dimension array as well (in other words just the drawers)
   dim TileMap(NumOfTilesX - 1, NumOfTilesY - 1)

`load data into the array - basically the computer will read 20 bits of data from one
   `data statment (at the end of the program), then move onto the next data statment
   `until all 15 data statments are read. Note: all 15 data statments could have been
   `combined into one large data statment of 300 items; the reason why its not currently
   `like that is its hard to read also you can kind of see the map the way its currently
   `written.
   for y = 0 to NumOfTilesY - 1

for x = 0 to NumOfTilesX - 1

read TileMap(x, y)

next x

next y

return

makeplayer:

`make the player
   sprite 1, X1, Y1, 2

`this sets the sprites properties; by placing a 0 in the backsave flag the background
   `behind sprite will not be saved by the computer, hence will speed up our program a
   `little. We are not using the backsave feature because we will be replacing the
   `background ourselves; this is due to when a sprite is created the 3d backdrop is
   `automatically created (a blue screen wiping any 2d images previously draw to the
   `screen) and cannot be turned off as long as you have a sprite on screen.
   set sprite 1, 0, 1

return

controls:

`store the map's x and y coordinates into the variables OldMapX and OldMapY
   OldMapX = MapX
   OldMapY = MapY

`store the x and y coordinates of the player into the variables oldX1 and oldY1
   OldX1 = X1
   OldY1 = Y1

`makes the player move by altering the sprites coordinates
   `makes the map move by altering the maps coordinates, if the player is roughly at the
   `centre of the screen
   if leftkey()  = 1
      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX - SpeedX
      X1 = X1 - SpeedX
   endif
   if rightkey() = 1
      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX + SpeedX
      X1 = X1 + SpeedX
   endif
   if upkey()    = 1
      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY - SpeedY
      Y1 = Y1 - SpeedY
   endif
   if downkey()  = 1
      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY + SpeedY
      Y1 = Y1 + SpeedY
   endif

return

collision:

`NOTE : you may have noticed the player sticking to the blocks, to stop this make the
   `       collision area of the player smaller and edit the players image to the same
   `       same size (so it doesn't look weird). You have to make the change in the
   `       players x and y sizes greater or equal to their speed or you wont notice a
   `       difference.

`the following 8 lines of code stores the old and new left,right,top,bottom edges of
   `the sprite in the respective variables

`gets which tiles the current left and right co-ordinates of the player are on
   LeftTileNum   = int(X1 / TileSizeX)
   RightTileNum  = int((X1 + (TileSizeX - 1)) / TileSizeX)
   `gets which tiles the current top and bottom co-ordinates of the player are on
   TopTileNum    = int(Y1 / TileSizeY)
   BottomTileNum = int((Y1 + (TileSizeY - 1)) / TileSizeY)

`gets which tiles the old left and right co-ordinates of the player are on
   OldLeftTileNum   = int(oldX1 / TileSizeX)
   OldRightTileNum  = int((oldX1 + (TileSizeX - 1)) / TileSizeX)
   `gets which tiles the old top and bottom co-ordinates of the player are on
   OldTopTileNum    = int(oldY1 / TileSizeY)
   OldBottomTileNum = int((oldY1 + (TileSizeY - 1)) / TileSizeY)

`this is where we check for those 4 collision points; if the collision point is on a
   `tile you are not able to pass through (in our case a tile that has an image number
   `of 10 or greater), then the old coordinates of the sprite are restored.
   `Note: to have sliding collision we must check the the current x tile against the
   `old y tile and vice versa.

`checks for top-left collision point
   if TileMap(LeftTileNum,    OldTopTileNum)     >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, TopTileNum)        >= 10 then Y1 = oldY1 : MapY = OldMapY

`checks for top-right collision point
   if TileMap(RightTileNum,    OldTopTileNum)    >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, TopTileNum)       >= 10 then Y1 = oldY1 : MapY = OldMapY

`checks for bottom-left collision point
   if TileMap(LeftTileNum,    OldBottomTileNum)  >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, BottomTileNum)     >= 10 then Y1 = oldY1 : MapY = OldMapY

`checks for bottom-right collision point
   if TileMap(RightTileNum,    OldBottomTileNum) >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, BottomTileNum)    >= 10 then Y1 = oldY1 : MapY = OldMapY

`stops player from scrolling past the edges of the map by resetting the maps
   `global coordinates to their maximum values. The maximum values are calculated by
   `(TileSizeX * NumOfTilesInRow) - SpeedX               - for MapX
   `(TileSizeY * NumOfTilesInColumn) - SpeedY            - for MapY
   if MapX < 0        then MapX = 0
   if MapX >= MaxMapX then MapX = MaxMapX
   if MapY < 0        then MapY = 0
   if MapY >= MaxMapY then MapY = MaxMapY

return

ScrollScreen:

`works out the tile number within array to start displaying tiles at
   TileNumX = MapX / TileSizeX
   TileNumY = MapY / TileSizeY

`cache calculation to tempX and TempY variables for a minor speed increase
   `this calculation works out how many pixels to offset the position where the tile
   `images should be placed.
   TempX = MapX - (TileNumX * TileSizeX)
   TempY = MapY - (TileNumY * TileSizeY)

`reset values
   Temp1 = 0
   Temp2 = 0

`Calculates if the map has scrolled to the last tile, if so we must remove a column
   `or/and row of tiles from the screen as they have no more map data to draw; also
   `because of this it would create an error
   if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
   if TilesPerScreenY + TileNumY >= NumOfTilesY then Temp2 = 1

`this pastes the images to screen in the correct order by working out where to start
   `pasting the images from in the array, then displaying the images at the correct
   `screen coordinates
   for y = 0 to TilesPerScreenY - Temp2

for x = 0 to TilesPerScreenX - Temp1

paste image TileMap(x + TileNumX, y + TileNumY), (x * TileSizeX) - TempX, (y * TileSizeY) - TempY

next x

next y

return

displayplayer:

`display sprite
   sprite 1,X1 - MapX,Y1 - MapY,2

return

DisplayDebugInfo:

text 0, 0,"FPS  " + str$(screen fps())
   text 0,20,"MapX " + str$(MapX)
   text 0,40,"MapY " + str$(MapY)
   text 0,60,"X1   " + str$(MaxMapX)
   text 0,80,"Y1   " + str$(MaxMapY)

text 100, 0,"Press spacebar to exit"

return

cleanup:

`delete any media involved in this program
   for x = 1 to 11
      if image exist(x) then delete image x
      if sprite exist(x) then delete sprite x
   next x

`delete anything thats left in the video memory - if anything
   flush video memory

return

`store tile data at the end of the program so its out of the way
data 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10

+ Code Snippet

`****************************************************************************************
`**************************** HOW TILE BASED COLLISION WORKS ****************************
`****************************          by pizzaman           ****************************
`**************************** Date:             14/6/04      ****************************
`**************************** Time to complete: 1 hour       ****************************
`****************************************************************************************

`THE PRINCIPLE -
`The visible screen is devided up into boxes which we call tiles. This means that each
`tile is sitting on a range of coordinates. For example a 20 pixel by 20 pixel tile that
`is the top-left most tile is sitting on the coordinates (0,0) to (19,19). Since we know
`each tile is sitting on a range of coordinates we can check to see whether a sprite (or
`image) has the same coordinates as the tile. However, we must take into consideration
`that a sprite (or image) is usually bigger than a pixel, so we have to form a collision
`box around the sprite.

`HOW TO IMPLEMENT A TILE BASED COLLISION SYSTEM -
`Firstly we need a 2 dimensional array to store tile data in (Tile data is the image
`numbers of the of the images you are going to use; e.g. 1 could be a wall, 2 could be
`a grass image etc. Note: the image sizes should be the same as the tile size you will
`use.
`Secondly we store the data in the array. Note: you could already store data in an array
`and just load the array - this would be faster for loading times.
`Next we create some collision points around our sprite, usually 4 points which would
`be placed at the corners of the sprite creating a collision box, you could have more
`collision points if a collision box is not suitable.
`Next we have to figure out which tile in the array each collision point is on to do
`this you have to use the formula
`
`                 Tile = (x / Tile Sise, y / Tile size)
`
`                 where Tile is the tile in the array, x is the x coordinate of the
`                 collision point your checking for and y is the y coordinate of the
`                 collision point your checking for
`
`Now if the tile is a tile you dont want your sprite to go on; just reset the sprites
`coordinates to what they were before the collision and voila!!!! you've got tile
`based collision.

`****************************************************************************************
`*********************************** SCROLLING THE MAP **********************************
`****************************************************************************************

`THE PRINCIPLE -
`To scroll a tile based map, you simply have to move all the tiles in the given direction
`then when the tiles have moved more pixels then the size of the tiles, the tiles get
`reset to the positions they were in before they were moved, but their images changed
`to simulated the tiles have moved, and generating a seamless transition.

`HOW TO IMPLEMENT A SCROLLING TILE BASED MAP -
`Instead of using a system that relies on screen coordinates, we need to build our map
`on a global coordinate system where coordinates (0,0) is the first tile (usually the
`top-left most tile). Everything we do will be based in this global coordinate system,
`which will include the player and their collision system. The coordinates then will be
`transferred to screen coordinates, where the images can be pasted correctly.
`Note that an extra row and column of tiles are pasted to the screen, this is to
`generate the seamless scrolling.



`****************************************************************************************
`*********************************** Start of program ***********************************
`****************************************************************************************


`Declare some constants, they are constants because their values will not change
`thoughout the program. There are placed at this point in the program to be easily
`modified.
#constant SCREENSIZEX 1024
#constant SCREENSIZEY 768

`gosubs are here instead of actual code, just to make things look neat
gosub DeclareVariables
gosub screensetup
gosub createimages
gosub loaddata
gosub makeplayer

`start the main loop
do

   `exit the loop if space bar is pressed - effectively ending the program
   `Note: it has to be place here and not in a gosub as it wont work
   if spacekey() = 1 then exit

   gosub controls
   gosub collision
   gosub ScrollScreen
   gosub displayplayer
   gosub DisplayDebugInfo

   `update screen
   sync

loop

gosub cleanup

`end the program
end



`****************************************************************************************
`************************************* End of program ***********************************
`****************************************************************************************



DeclareVariables:

   `store how many horizontal/verticle tiles there are
   NumOfTilesX = 40
   NumOfTilesY = 30

   `store the size (in pixels) of a tile
   TileSizeX = 32
   TileSizeY = 32

   `store the speed of the tile
   SpeedX = 2
   SpeedY = 2

   `store the coordinates that will make the player be at the centre of the screen
   ScreenCentreX = SCREENSIZEX / 2
   ScreenCentreY = SCREENSIZEY / 2

   `Work out out how many tiles there are on screen for x and y directions
   TilesPerScreenX = SCREENSIZEX / TileSizeX
   TilesPerScreenY = SCREENSIZEY / TileSizeY

   `Works out if a tile is partially visible on screen, if so then add 1 to the
   `TilesPerScreen variable. This has the affect of drawing a whole column or/and row
   `of tiles to the screen, to cover up visual anomalies with tile sizes that do
   `not divide exactly into the screen resolution
   if SCREENSIZEX mod TileSizeX then TilesPerScreenX = TilesPerScreenX + 1
   if SCREENSIZEY mod TileSizeY then TilesPerScreenY = TilesPerScreenY + 1

   `Calculates the largest co-ordinates the map can scroll too
   MaxMapX = (TileSizeX * NumOfTilesX) - (SCREENSIZEX + SpeedX)
   MaxMapY = (TileSizeY * NumOfTilesY) - (SCREENSIZEY + SpeedY)

   `store predefined coordinates of player
   X1 = ScreenCentreX
   Y1 = ScreenCentreY

   `store predefined coordinates of map
   MapX = 0
   MapY = 0

return



screensetup:

   `delete anything stored in video memory
   flush video memory

   `set screen resolution
   set display mode 1024, 768, 32

   `setup syncing
   sync on
   sync rate 150

return



createimages:

   `create a green box
   box 0, 0, TileSizeX, TileSizeY, rgb(0, 255, 0), rgb(0, 225, 0), rgb(0, 225, 0), rgb(0, 200, 0)
   get image 1, 0, 0, TileSizeX, TileSizeY, 1

   `create a yellow/orange box as the player
   box 0, 0, TileSizeX, TileSizeY, rgb(255, 255, 0), rgb(255, 128, 0), rgb(255, 128, 0), rgb(255, 255, 0)
   get image 2, 0, 0, TileSizeX, TileSizeY, 1

   `create a red box
   cls rgb(255, 0, 0)
   get image 10, 0, 0, TileSizeX, TileSizeY, 1

   `create a blue box
   box 0, 0, TileSizeX, TileSizeY, rgb(0, 0, 255), rgb(0, 0, 225), rgb(0, 0, 225), rgb(0, 0, 200)
   get image 11,0,0,TileSizeX,TileSizeY,1

return



loaddata:

   `create an array called TileMap - we will use this to store the tile data.
   `an array is like a file cabinet - in each drawer of the file cabinet there are
   `folders that hold our data. Therefore in our "file cabinet" we have 20 drawers; and
   `inside of each drawer we 15 folders; which hold data we want to access.
   `Also arrays can have up to 5 dimensions (ours has 2 dimensions) - you can visualise
   `this as being more folders inside of the other folders and so on; and of course you
   `can just have 1 dimension array as well (in other words just the drawers)
   dim TileMap(NumOfTilesX - 1, NumOfTilesY - 1)

   `load data into the array - basically the computer will read 20 bits of data from one
   `data statment (at the end of the program), then move onto the next data statment
   `until all 15 data statments are read. Note: all 15 data statments could have been
   `combined into one large data statment of 300 items; the reason why its not currently
   `like that is its hard to read also you can kind of see the map the way its currently
   `written.
   for y = 0 to NumOfTilesY - 1

      for x = 0 to NumOfTilesX - 1

         read TileMap(x, y)

      next x

   next y

return



makeplayer:

   `make the player
   sprite 1, X1, Y1, 2

   `this sets the sprites properties; by placing a 0 in the backsave flag the background
   `behind sprite will not be saved by the computer, hence will speed up our program a
   `little. We are not using the backsave feature because we will be replacing the
   `background ourselves; this is due to when a sprite is created the 3d backdrop is
   `automatically created (a blue screen wiping any 2d images previously draw to the
   `screen) and cannot be turned off as long as you have a sprite on screen.
   set sprite 1, 0, 1

return



controls:

   `store the map's x and y coordinates into the variables OldMapX and OldMapY
   OldMapX = MapX
   OldMapY = MapY

   `store the x and y coordinates of the player into the variables oldX1 and oldY1
   OldX1 = X1
   OldY1 = Y1

   `makes the player move by altering the sprites coordinates
   `makes the map move by altering the maps coordinates, if the player is roughly at the
   `centre of the screen
   if leftkey()  = 1
      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX - SpeedX
      X1 = X1 - SpeedX
   endif
   if rightkey() = 1
      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX + SpeedX
      X1 = X1 + SpeedX
   endif
   if upkey()    = 1
      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY - SpeedY
      Y1 = Y1 - SpeedY
   endif
   if downkey()  = 1
      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY + SpeedY
      Y1 = Y1 + SpeedY
   endif

return



collision:

   `NOTE : you may have noticed the player sticking to the blocks, to stop this make the
   `       collision area of the player smaller and edit the players image to the same
   `       same size (so it doesn't look weird). You have to make the change in the
   `       players x and y sizes greater or equal to their speed or you wont notice a
   `       difference.



   `the following 8 lines of code stores the old and new left,right,top,bottom edges of
   `the sprite in the respective variables

   `gets which tiles the current left and right co-ordinates of the player are on
   LeftTileNum   = int(X1 / TileSizeX)
   RightTileNum  = int((X1 + (TileSizeX - 1)) / TileSizeX)
   `gets which tiles the current top and bottom co-ordinates of the player are on
   TopTileNum    = int(Y1 / TileSizeY)
   BottomTileNum = int((Y1 + (TileSizeY - 1)) / TileSizeY)

   `gets which tiles the old left and right co-ordinates of the player are on
   OldLeftTileNum   = int(oldX1 / TileSizeX)
   OldRightTileNum  = int((oldX1 + (TileSizeX - 1)) / TileSizeX)
   `gets which tiles the old top and bottom co-ordinates of the player are on
   OldTopTileNum    = int(oldY1 / TileSizeY)
   OldBottomTileNum = int((oldY1 + (TileSizeY - 1)) / TileSizeY)


   `this is where we check for those 4 collision points; if the collision point is on a
   `tile you are not able to pass through (in our case a tile that has an image number
   `of 10 or greater), then the old coordinates of the sprite are restored.
   `Note: to have sliding collision we must check the the current x tile against the
   `old y tile and vice versa.

   `checks for top-left collision point
   if TileMap(LeftTileNum,    OldTopTileNum)     >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, TopTileNum)        >= 10 then Y1 = oldY1 : MapY = OldMapY

   `checks for top-right collision point
   if TileMap(RightTileNum,    OldTopTileNum)    >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, TopTileNum)       >= 10 then Y1 = oldY1 : MapY = OldMapY

   `checks for bottom-left collision point
   if TileMap(LeftTileNum,    OldBottomTileNum)  >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, BottomTileNum)     >= 10 then Y1 = oldY1 : MapY = OldMapY

   `checks for bottom-right collision point
   if TileMap(RightTileNum,    OldBottomTileNum) >= 10 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, BottomTileNum)    >= 10 then Y1 = oldY1 : MapY = OldMapY

   `stops player from scrolling past the edges of the map by resetting the maps
   `global coordinates to their maximum values. The maximum values are calculated by
   `(TileSizeX * NumOfTilesInRow) - SpeedX               - for MapX
   `(TileSizeY * NumOfTilesInColumn) - SpeedY            - for MapY
   if MapX < 0        then MapX = 0
   if MapX >= MaxMapX then MapX = MaxMapX
   if MapY < 0        then MapY = 0
   if MapY >= MaxMapY then MapY = MaxMapY

return



ScrollScreen:

   `works out the tile number within array to start displaying tiles at
   TileNumX = MapX / TileSizeX
   TileNumY = MapY / TileSizeY

   `cache calculation to tempX and TempY variables for a minor speed increase
   `this calculation works out how many pixels to offset the position where the tile
   `images should be placed.
   TempX = MapX - (TileNumX * TileSizeX)
   TempY = MapY - (TileNumY * TileSizeY)

   `reset values
   Temp1 = 0
   Temp2 = 0

   `Calculates if the map has scrolled to the last tile, if so we must remove a column
   `or/and row of tiles from the screen as they have no more map data to draw; also
   `because of this it would create an error
   if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
   if TilesPerScreenY + TileNumY >= NumOfTilesY then Temp2 = 1

   `this pastes the images to screen in the correct order by working out where to start
   `pasting the images from in the array, then displaying the images at the correct
   `screen coordinates
   for y = 0 to TilesPerScreenY - Temp2

      for x = 0 to TilesPerScreenX - Temp1


         paste image TileMap(x + TileNumX, y + TileNumY), (x * TileSizeX) - TempX, (y * TileSizeY) - TempY

      next x

   next y

return



displayplayer:

   `display sprite
   sprite 1,X1 - MapX,Y1 - MapY,2

return



DisplayDebugInfo:

   text 0, 0,"FPS  " + str$(screen fps())
   text 0,20,"MapX " + str$(MapX)
   text 0,40,"MapY " + str$(MapY)
   text 0,60,"X1   " + str$(MaxMapX)
   text 0,80,"Y1   " + str$(MaxMapY)

   text 100, 0,"Press spacebar to exit"

return



cleanup:

   `delete any media involved in this program
   for x = 1 to 11
      if image exist(x) then delete image x
      if sprite exist(x) then delete sprite x
   next x

   `delete anything thats left in the video memory - if anything
   flush video memory

return




`store tile data at the end of the program so its out of the way
data 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11, 1, 1,10
data 10, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1, 1, 1, 1, 1, 1, 1,11, 1,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1,11,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,11,11, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10
data 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10

The reason you had difficulty trying to rewrite the code is because it was only designed to run at 800 by 600 only. The code itself is only really meant to teach you how to scroll a tile map, so you can build your own. However, I must appologise as there were one or two bugs in the original code.

I've now amended the codebase entry with my new code so hopefully there will be no problems.

Back to top

Profile PM Email

Caldar

20

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 14th Aug 2005 14:44

Link

Sorry about the code-not-posting

why do they go through the trouble of giving us the code box if it doesn't work? lmao ...

Ty Pizzaman, I will check it out

I managed to find a website with 2000000 tutorials for tilemap engines .. it's all very old and it's for qbasic ... but it seems more understandable than c / c++

And ty for making such a useful tool.

Back to top

Profile PM

Caldar

20

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 14th Aug 2005 22:44

Link

I'm having another prob ;p lets see if I can actually put this stuff in...

good so far.
OKAY the problem I'm having is that I've added 5 sets of data to the
bottom of the data set. In theory it should lengthen the map by 5.
I changed the one variable that I know has to do with the length of the map. (was 30, now 35)

But (and I found out this happened even with only 30) sometimes when the ship moves across the map, the map stops moving and won't scroll. I'm not sure what's going on.

When I added the 5 extra sets of data, I can move the ship down but then the map will no longer scroll back up.

Any help for a poor newb ;P would be appreciated.

`Credits:
`The Tilemap and Tile Based Collision sytem are the work of "Pizzaman"
`
` Rewrite .03
`
` Code for sdorez
` .01 - rewrote all code from sdorez in the style of the tile scrolling engine
` .02 - first try at mixing in the tile engine
` .03 - time to add some more tiles!

#constant SCREENSIZEX 1024
#constant SCREENSIZEY 768

gosub DeclareVariables
gosub ScreenSetup
gosub CreateImages
gosub LoadSound
gosub LoadData
gosub MakePlayer

do

if spacekey() = 1 then exit

cls

gosub Controls
   gosub Collision
   gosub ScrollScreen
   gosub DisplayGraphics
   gosub DisplayDebugInfo

sync

loop

gosub CleanUp

end

DeclareVariables:

global shipmovex
   NumOfTilesX = 40
   NumOfTilesY = 35
   TileSizeX = 32
   TileSizeY = 32
   SpeedX = 2
   SpeedY = 2
   shipmovex = 512
   shipmovey = 384
   shield = 1
   acceleration# = .5
   ScreenCentreX = SCREENSIZEX / 2
   ScreenCentreY = SCREENSIZEY / 2
   TilesPerScreenX = SCREENSIZEX / TileSizeX
   TilesPerScreenY = SCREENSIZEY / TileSizeY

if SCREENSIZEX mod TileSizeX then TilesPerScreenX = TilesPerScreenX + 1
   if SCREENSIZEY mod TileSizeY then TilesPerScreenY = TilesPerScreenY + 1
   MaxMapX = (TileSizeX * NumOfTilesX) - (SCREENSIZEX + SpeedX)
   MaxMapY = (TileSizeY * NumOfTilesY) - (SCREENSIZEY + SpeedY)
   X1 = shipmovex
   Y1 = shipmovey
   MapX = 0
   MapY = 0

return

ScreenSetup:
flush video memory
set display mode 1024, 768, 32

sync on
sync rate 30
return

CreateImages:

load image "spaceship1.bmp", 1
   load image "shield1.bmp", 2
   load image "bullet.bmp",3

sprite 1, 512, 384, 1
   offset sprite 1, 32, 36
   sprite 2, 512, 384, 2
   offset sprite 2, 49, 49

load image "spacetile3.bmp", 11
   load image "spacetile4.bmp", 14
   load image "spacetile5.bmp", 15
   load image "spacetile6.bmp", 16
   load image "spacetile7.bmp", 17

`create a yellow/orange box as the player
   `box 0, 0, TileSizeX, TileSizeY, rgb(255, 255, 0), rgb(255, 128, 0), rgb(255, 128, 0), rgb(255, 255, 0)
   `get image 2, 0, 0, TileSizeX, TileSizeY, 1

`create a red box
   `cls rgb(255, 0, 0)
   `get image 10, 0, 0, TileSizeX, TileSizeY, 1

`create a blue box
   `box 0, 0, TileSizeX, TileSizeY, rgb(0, 0, 255), rgb(0, 0, 225), rgb(0, 0, 225), rgb(0, 0, 200)
   `get image 1,0,0,TileSizeX,TileSizeY,1

return

LoadData:

dim TileMap(NumOfTilesX - 1, NumOfTilesY - 1)
   for y = 0 to NumOfTilesY - 1
      for x = 0 to NumOfTilesX - 1
         read TileMap(x, y)
      next x
   next y

return

LoadSound:
load music "engine.wav",1

return

MakePlayer:

`sprite 1, X1, Y1, 2
   `set sprite 1, 0, 1

return

Controls:
mbinput = mouseclick()

if mbinput > 1 and mbinput < 4
   scale_x# = cos(angle# -90)
   scale_y# = sin(angle# -90)
   velocity_x# = velocity_x# + scale_x#
   velocity_y# = velocity_y# + scale_y#
   load image "spaceship2.bmp",1
   loop music 1
endif

if mbinput < 2 or mbinput > 3
   stop music 1
   load image "spaceship1.bmp", 1
endif

checkkey$ = inkey$()
if checkkey$ = "z"
   velocity_x# = velocity_x# * .95
   velocity_y# = velocity_y# * .95
   if velocity_x# > -.5 and velocity_x# < .5 then velocity_x# = 0
   if velocity_y# > -.5 and velocity_y# < .5 then velocity_y# = 0
endif

```````````````````````````
`this part is the controls from the tile engine
```````````````````````````

`   if leftkey()  = 1
`      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX - SpeedX
`      X1 = X1 - SpeedX
`   endif
`   if rightkey() = 1
`      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX + SpeedX
`      X1 = X1 + SpeedX
`   endif
`   if upkey()    = 1
`      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY - SpeedY
`      Y1 = Y1 - SpeedY
`   endif
`   if downkey()  = 1
`      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY + SpeedY
`      Y1 = Y1 + SpeedY
`   endif

if MapX < shipmovex - (ScreenCentreX - 16) and MapX > shipmovex - (ScreenCentreX + 16) then MapX = mapx + ((velocity_x# * -1)/2)
if MapX < shipmovex - (ScreenCentreX - 16) and MapX > shipmovex - (ScreenCentreX + 16) then MapX = mapx + ((velocity_x# * -1)/2)
if MapY < shipmovey - (ScreenCentreY - 16) and MapY > shipmovey - (ScreenCentreY + 16) then MapY = mapy + ((velocity_y# * -1)/2)
if MapY < shipmovey - (ScreenCentreY - 16) and MapY > shipmovey - (ScreenCentreY + 16) then MapY = mapy + ((velocity_y# * -1)/2)

`mapx = mapx + (velocity_x# * -1)
`mapy = mapy + (velocity_y# * -1)

return

Collision:
if shipmovex > 950
   shipmovex = 950
   velocity_x# = velocity_x# * -.25
endif
if shipmovex < 74
   shipmovex = 74
velocity_x# = velocity_x# * -.25
endif
if shipmovey > 694
   shipmovey = 694
velocity_y# = velocity_y# * -.25
endif
if shipmovey < 74
   shipmovey = 74
velocity_y# = velocity_y# * -.25
endif

``````````````````````````````````
`tile engine collision
``````````````````````````
   LeftTileNum   = int(X1 / TileSizeX)
   RightTileNum  = int((X1 + (TileSizeX - 1)) / TileSizeX)
   TopTileNum    = int(Y1 / TileSizeY)
   BottomTileNum = int((Y1 + (TileSizeY - 1)) / TileSizeY)
   OldLeftTileNum   = int(oldX1 / TileSizeX)
   OldRightTileNum  = int((oldX1 + (TileSizeX - 1)) / TileSizeX)
   OldTopTileNum    = int(oldY1 / TileSizeY)
   OldBottomTileNum = int((oldY1 + (TileSizeY - 1)) / TileSizeY)
   if TileMap(LeftTileNum,    OldTopTileNum)     >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, TopTileNum)        >= 14 then Y1 = oldY1 : MapY = OldMapY
   if TileMap(RightTileNum,    OldTopTileNum)    >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, TopTileNum)       >= 14 then Y1 = oldY1 : MapY = OldMapY
   if TileMap(LeftTileNum,    OldBottomTileNum)  >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, BottomTileNum)     >= 14 then Y1 = oldY1 : MapY = OldMapY
   if TileMap(RightTileNum,    OldBottomTileNum) >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, BottomTileNum)    >= 14 then Y1 = oldY1 : MapY = OldMapY
   if MapX < 0        then MapX = 0
   if MapX >= MaxMapX then MapX = MaxMapX
   if MapY < 0        then MapY = 0
   if MapY >= MaxMapY then MapY = MaxMapY

return

ScrollScreen:

TileNumX = MapX / TileSizeX
   TileNumY = MapY / TileSizeY
   TempX = MapX - (TileNumX * TileSizeX)
   TempY = MapY - (TileNumY * TileSizeY)
   Temp1 = 0
   Temp2 = 0
   if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
   if TilesPerScreenY + TileNumY >= NumOfTilesY then Temp2 = 1
   for y = 0 to TilesPerScreenY - Temp2
      for x = 0 to TilesPerScreenX - Temp1
         paste image TileMap(x + TileNumX, y + TileNumY), (x * TileSizeX) - TempX, (y * TileSizeY) - TempY
      next x
   next y

return

DisplayGraphics:

if velocity_x# > 10 then velocity_x# = 10
if velocity_x# < -10 then velocity_x# = -10
if velocity_y# > 10 then velocity_y# = 10
if velocity_y# < -10 then velocity_y# = -10
shipmovex = shipmovex + (velocity_x# * -1)
shipmovey = shipmovey + (velocity_y# * -1 )
xcurrentposition = 512
ycurrentposition = 384
mx = mousex()
my = mousey()
angle# = -1.0*atanfull(mx - shipmovex, my - shipmovey)
`now we rotate the ship sprite to face the mouse
sprite 2, shipmovex, shipmovey, 2
sprite 1, shipmovex, shipmovey, 1

rotate sprite 1, angle#

rotation = rotation + 3
if rotation > 360 then rotation = 0
rotate sprite 2, rotation

`sprite 2, 512, 384, 2
`sprite 1, 512, 384, 1

return

DisplayDebugInfo:
   text 0, 0,"FPS     " + str$(screen fps())
   text 0,20,"MapX    " + str$(MapX)
   text 0,40,"MapY    " + str$(MapY)
   text 0,60,"MaxMapX " + str$(MaxMapX)
   text 0,80,"MaxMapY " + str$(MaxMapY)
   text 0,100,"X1      " + str$(X1)
   text 0,120,"Y1      " + str$(Y1)

text 100, 0,"Press spacebar to exit"

text 80, 120, "scale_x: " + str$(scale_x#)
text 80, 150, "scale_y: " + str$(scale_y#)
text 80, 180, "shipmovex: " + str$(shipmovex)
text 80, 210, "shipmovey: " + str$(shipmovey)
text 80, 240, "angle: " + str$(angle#)
text 80, 270, "velocity_x#: " + str$(velocity_x#)
text 80, 300, "velocity_y#: " + str$(velocity_y#)
text 300,100,"mousex: " + str$(mx)
text 300,140,"mousey: " + str$(my)
return

CleanUp:

for x = 1 to 11
      if image exist(x) then delete image x
      if sprite exist(x) then delete sprite x
   next x
   flush video memory

return

data 11,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,11
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 11,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,11

+ Code Snippet

`Credits:
`The Tilemap and Tile Based Collision sytem are the work of "Pizzaman"
`
` Rewrite .03
`
` Code for sdorez
` .01 - rewrote all code from sdorez in the style of the tile scrolling engine
` .02 - first try at mixing in the tile engine
` .03 - time to add some more tiles!

#constant SCREENSIZEX 1024
#constant SCREENSIZEY 768


gosub DeclareVariables
gosub ScreenSetup
gosub CreateImages
gosub LoadSound
gosub LoadData
gosub MakePlayer



do

   if spacekey() = 1 then exit

   cls

   gosub Controls
   gosub Collision
   gosub ScrollScreen
   gosub DisplayGraphics
   gosub DisplayDebugInfo


   sync

loop

gosub CleanUp

end


DeclareVariables:


   global shipmovex
   NumOfTilesX = 40
   NumOfTilesY = 35
   TileSizeX = 32
   TileSizeY = 32
   SpeedX = 2
   SpeedY = 2
   shipmovex = 512
   shipmovey = 384
   shield = 1
   acceleration# = .5
   ScreenCentreX = SCREENSIZEX / 2
   ScreenCentreY = SCREENSIZEY / 2
   TilesPerScreenX = SCREENSIZEX / TileSizeX
   TilesPerScreenY = SCREENSIZEY / TileSizeY

   if SCREENSIZEX mod TileSizeX then TilesPerScreenX = TilesPerScreenX + 1
   if SCREENSIZEY mod TileSizeY then TilesPerScreenY = TilesPerScreenY + 1
   MaxMapX = (TileSizeX * NumOfTilesX) - (SCREENSIZEX + SpeedX)
   MaxMapY = (TileSizeY * NumOfTilesY) - (SCREENSIZEY + SpeedY)
   X1 = shipmovex
   Y1 = shipmovey
   MapX = 0
   MapY = 0



return

ScreenSetup:
flush video memory
set display mode 1024, 768, 32

sync on
sync rate 30
return

CreateImages:

   load image "spaceship1.bmp", 1
   load image "shield1.bmp", 2
   load image "bullet.bmp",3

   sprite 1, 512, 384, 1
   offset sprite 1, 32, 36
   sprite 2, 512, 384, 2
   offset sprite 2, 49, 49

   load image "spacetile3.bmp", 11
   load image "spacetile4.bmp", 14
   load image "spacetile5.bmp", 15
   load image "spacetile6.bmp", 16
   load image "spacetile7.bmp", 17

   `create a yellow/orange box as the player
   `box 0, 0, TileSizeX, TileSizeY, rgb(255, 255, 0), rgb(255, 128, 0), rgb(255, 128, 0), rgb(255, 255, 0)
   `get image 2, 0, 0, TileSizeX, TileSizeY, 1

   `create a red box
   `cls rgb(255, 0, 0)
   `get image 10, 0, 0, TileSizeX, TileSizeY, 1

   `create a blue box
   `box 0, 0, TileSizeX, TileSizeY, rgb(0, 0, 255), rgb(0, 0, 225), rgb(0, 0, 225), rgb(0, 0, 200)
   `get image 1,0,0,TileSizeX,TileSizeY,1

return



LoadData:

   dim TileMap(NumOfTilesX - 1, NumOfTilesY - 1)
   for y = 0 to NumOfTilesY - 1
      for x = 0 to NumOfTilesX - 1
         read TileMap(x, y)
      next x
   next y

return


LoadSound:
load music "engine.wav",1


return


MakePlayer:

   `sprite 1, X1, Y1, 2
   `set sprite 1, 0, 1

return



Controls:
mbinput = mouseclick()

if mbinput > 1 and mbinput < 4
   scale_x# = cos(angle# -90)
   scale_y# = sin(angle# -90)
   velocity_x# = velocity_x# + scale_x#
   velocity_y# = velocity_y# + scale_y#
   load image "spaceship2.bmp",1
   loop music 1
endif

if mbinput < 2 or mbinput > 3
   stop music 1
   load image "spaceship1.bmp", 1
endif

checkkey$ = inkey$()
if checkkey$ = "z"
   velocity_x# = velocity_x# * .95
   velocity_y# = velocity_y# * .95
   if velocity_x# > -.5 and velocity_x# < .5 then velocity_x# = 0
   if velocity_y# > -.5 and velocity_y# < .5 then velocity_y# = 0
endif

```````````````````````````
`this part is the controls from the tile engine
```````````````````````````

`   if leftkey()  = 1
`      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX - SpeedX
`      X1 = X1 - SpeedX
`   endif
`   if rightkey() = 1
`      if MapX < X1 - (ScreenCentreX - 5) and MapX > X1 - (ScreenCentreX + 5) then MapX = MapX + SpeedX
`      X1 = X1 + SpeedX
`   endif
`   if upkey()    = 1
`      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY - SpeedY
`      Y1 = Y1 - SpeedY
`   endif
`   if downkey()  = 1
`      if MapY < Y1 - (ScreenCentreY - 5) and MapY > Y1 - (ScreenCentreY + 5) then MapY = MapY + SpeedY
`      Y1 = Y1 + SpeedY
`   endif

if MapX < shipmovex - (ScreenCentreX - 16) and MapX > shipmovex - (ScreenCentreX + 16) then MapX = mapx + ((velocity_x# * -1)/2)
if MapX < shipmovex - (ScreenCentreX - 16) and MapX > shipmovex - (ScreenCentreX + 16) then MapX = mapx + ((velocity_x# * -1)/2)
if MapY < shipmovey - (ScreenCentreY - 16) and MapY > shipmovey - (ScreenCentreY + 16) then MapY = mapy + ((velocity_y# * -1)/2)
if MapY < shipmovey - (ScreenCentreY - 16) and MapY > shipmovey - (ScreenCentreY + 16) then MapY = mapy + ((velocity_y# * -1)/2)

`mapx = mapx + (velocity_x# * -1)
`mapy = mapy + (velocity_y# * -1)


return




Collision:
if shipmovex > 950
   shipmovex = 950
   velocity_x# = velocity_x# * -.25
endif
if shipmovex < 74
   shipmovex = 74
velocity_x# = velocity_x# * -.25
endif
if shipmovey > 694
   shipmovey = 694
velocity_y# = velocity_y# * -.25
endif
if shipmovey < 74
   shipmovey = 74
velocity_y# = velocity_y# * -.25
endif

``````````````````````````````````
`tile engine collision
``````````````````````````
   LeftTileNum   = int(X1 / TileSizeX)
   RightTileNum  = int((X1 + (TileSizeX - 1)) / TileSizeX)
   TopTileNum    = int(Y1 / TileSizeY)
   BottomTileNum = int((Y1 + (TileSizeY - 1)) / TileSizeY)
   OldLeftTileNum   = int(oldX1 / TileSizeX)
   OldRightTileNum  = int((oldX1 + (TileSizeX - 1)) / TileSizeX)
   OldTopTileNum    = int(oldY1 / TileSizeY)
   OldBottomTileNum = int((oldY1 + (TileSizeY - 1)) / TileSizeY)
   if TileMap(LeftTileNum,    OldTopTileNum)     >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, TopTileNum)        >= 14 then Y1 = oldY1 : MapY = OldMapY
   if TileMap(RightTileNum,    OldTopTileNum)    >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, TopTileNum)       >= 14 then Y1 = oldY1 : MapY = OldMapY
   if TileMap(LeftTileNum,    OldBottomTileNum)  >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldLeftTileNum, BottomTileNum)     >= 14 then Y1 = oldY1 : MapY = OldMapY
   if TileMap(RightTileNum,    OldBottomTileNum) >= 14 then X1 = oldX1 : MapX = OldMapX
   if TileMap(OldRightTileNum, BottomTileNum)    >= 14 then Y1 = oldY1 : MapY = OldMapY
   if MapX < 0        then MapX = 0
   if MapX >= MaxMapX then MapX = MaxMapX
   if MapY < 0        then MapY = 0
   if MapY >= MaxMapY then MapY = MaxMapY


return

ScrollScreen:

   TileNumX = MapX / TileSizeX
   TileNumY = MapY / TileSizeY
   TempX = MapX - (TileNumX * TileSizeX)
   TempY = MapY - (TileNumY * TileSizeY)
   Temp1 = 0
   Temp2 = 0
   if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
   if TilesPerScreenY + TileNumY >= NumOfTilesY then Temp2 = 1
   for y = 0 to TilesPerScreenY - Temp2
      for x = 0 to TilesPerScreenX - Temp1
         paste image TileMap(x + TileNumX, y + TileNumY), (x * TileSizeX) - TempX, (y * TileSizeY) - TempY
      next x
   next y

return

DisplayGraphics:

if velocity_x# > 10 then velocity_x# = 10
if velocity_x# < -10 then velocity_x# = -10
if velocity_y# > 10 then velocity_y# = 10
if velocity_y# < -10 then velocity_y# = -10
shipmovex = shipmovex + (velocity_x# * -1)
shipmovey = shipmovey + (velocity_y# * -1 )
xcurrentposition = 512
ycurrentposition = 384
mx = mousex()
my = mousey()
angle# = -1.0*atanfull(mx - shipmovex, my - shipmovey)
`now we rotate the ship sprite to face the mouse
sprite 2, shipmovex, shipmovey, 2
sprite 1, shipmovex, shipmovey, 1


rotate sprite 1, angle#

rotation = rotation + 3
if rotation > 360 then rotation = 0
rotate sprite 2, rotation





`sprite 2, 512, 384, 2
`sprite 1, 512, 384, 1


return

DisplayDebugInfo:
   text 0, 0,"FPS     " + str$(screen fps())
   text 0,20,"MapX    " + str$(MapX)
   text 0,40,"MapY    " + str$(MapY)
   text 0,60,"MaxMapX " + str$(MaxMapX)
   text 0,80,"MaxMapY " + str$(MaxMapY)
   text 0,100,"X1      " + str$(X1)
   text 0,120,"Y1      " + str$(Y1)


   text 100, 0,"Press spacebar to exit"


text 80, 120, "scale_x: " + str$(scale_x#)
text 80, 150, "scale_y: " + str$(scale_y#)
text 80, 180, "shipmovex: " + str$(shipmovex)
text 80, 210, "shipmovey: " + str$(shipmovey)
text 80, 240, "angle: " + str$(angle#)
text 80, 270, "velocity_x#: " + str$(velocity_x#)
text 80, 300, "velocity_y#: " + str$(velocity_y#)
text 300,100,"mousex: " + str$(mx)
text 300,140,"mousey: " + str$(my)
return

CleanUp:

   for x = 1 to 11
      if image exist(x) then delete image x
      if sprite exist(x) then delete sprite x
   next x
   flush video memory

return



data 11,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,11
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 17,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,15
data 11,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,11

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / yet another "tilemaps suck, please help" post... (ok not exactly)

Sorry your browser is not supported!

2D All the way! / yet another &quot;tilemaps suck, please help&quot; post... (ok not exactly)

2D All the way! / yet another "tilemaps suck, please help" post... (ok not exactly)