Best way for tile system? - GameCreators Forum

Author

Message

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 30th Apr 2005 11:25 Edited at: 30th Apr 2005 11:26

Link

I know this question is the most asked question of the century, but I was wondering if it was ok to use an array, and put 0's and 1's to represent empty and solid tiles. Then I could make the game read the array and paste 32x32 tiles on the 640X480 Window. My question is, how would you go about doing this... and is this even the most efficient way to do it? or would it create slowdown? Or Should I use a Data Statment instead?

Here's what i Started with:

+ Code Snippet

Rem Project: Beta
Rem Created: 4/29/2005 7:42:00 PM

`//Startup//

sync on
sync rate 60

load image "solid.bmp"
load image "not_solid.bmp" `\lol, i'm a retard :D

`load image "samus.bmp"  \ not yet

DIM "TileMap" (20,15)

`// Main Loop //
Do
loop

Stan: OH MY GOD! THEY KILLED KENNY
Stan's Grandpa: You Bastards!
Kyle: HEY! ><

Back to top

Profile PM Website

FakeBlood

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Alabama, United States

Posted: 30th Apr 2005 12:00

Link

You could also use the DATA command. A simple example (the same i have in my tile editor for now)

This way you can draw out your map and can kind of see what it will look like.

Load Image "solid.bmp", 1
Load Image "not_solid.bmp", 2

PosY = 0

For X = 1 to 15
   For Y = 1 to 20
      Read Level
      paste image Level, 32 * (y - 1), PosY
      EndIf
      Next Y
   Inc PosY,32
Next X

suspend for key

Level:
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

+ Code Snippet

Load Image "solid.bmp", 1
Load Image "not_solid.bmp", 2

PosY = 0

For X = 1 to 15
   For Y = 1 to 20
      Read Level
      paste image Level, 32 * (y - 1), PosY
      EndIf
      Next Y
   Inc PosY,32
Next X

suspend for key

Level:
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
DATA 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

Back to top

Profile PM

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 1st May 2005 01:35 Edited at: 1st May 2005 01:51

Link

Wow Thanks, Thats a lot easier than what i was doing. I got An Excel Worksheet and mapped the level onto it. Then i took the coordinates and put in the ones, since the rest of the array would be 0 by default. But this way is waaay better. You saved me a lot of time

Thanks.

But why is there an EndIf at line 18?

EDIT: I took it out and it worked, but... the level doesnt show until i move the window... is there any way to make it render without moving the screen?

Stan: OH MY GOD! THEY KILLED KENNY
Stan's Grandpa: You Bastards!
Kyle: HEY! ><

Back to top

Profile PM Website

EddieB

20

Years of Service

User Offline

Joined: 29th Sep 2004

Location: United Kingdom

Posted: 1st May 2005 03:17

Link

Hey

Thanks that helped me aswell, ( I am just starting the 2D side ). Also I never have used data statments before.

Many Thanks
Eddie

http://www.graphics-monkey.co.uk

Back to top

Profile PM Email Website

FakeBlood

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Alabama, United States

Posted: 1st May 2005 09:19

Link

No problem, oh the Endif was there from a part of code I removed. Sorry guess I forgot to remove that

It should load right away, does for me. Not sure about what's causing that.

Back to top

Profile PM

pizzaman

21

Years of Service

User Offline

Joined: 18th Feb 2004

Location: Gateshead, UK

Posted: 2nd May 2005 01:28

Link

Have a look at this code it might help you.

`****************************************************************************************
`**************************** 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 ***********************************
`****************************************************************************************

`gosubs are here instead of actual code, just to make things look neat
gosub screensetup
gosub DeclareVariables
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 ***********************************
`****************************************************************************************

screensetup:

`delete anything stored in video memory
   flush video memory

`set screen resolution
   set display mode 800,600,32

`setup syncing
   sync on
   sync rate 150

return

DeclareVariables:

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

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

`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 = 380
   ScreenCentreY = 280

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

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

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 MapX
   if MapX < 0    then MapX = 0
   if MapX >= 798 then MapX = 798
   if MapY < 0    then MapY = 0
   if MapY >= 598 then MapY = 598

return

ScrollScreen:

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

`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)

`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 15

for x = 0 to 20

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$(X1)
   text 0,80,"Y1   " + str$(Y1)

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 ***********************************
`****************************************************************************************



`gosubs are here instead of actual code, just to make things look neat
gosub screensetup
gosub DeclareVariables
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 ***********************************
`****************************************************************************************



screensetup:

   `delete anything stored in video memory
   flush video memory

   `set screen resolution
   set display mode 800,600,32

   `setup syncing
   sync on
   sync rate 150

return



DeclareVariables:

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

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

   `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 = 380
   ScreenCentreY = 280

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

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

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 MapX
   if MapX < 0    then MapX = 0
   if MapX >= 798 then MapX = 798
   if MapY < 0    then MapY = 0
   if MapY >= 598 then MapY = 598

return



ScrollScreen:

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

   `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)

   `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 15

      for x = 0 to 20

         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$(X1)
   text 0,80,"Y1   " + str$(Y1)

   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

Bear in mind this is only one way to do it, and that this code is just the basics.

Back to top

Profile PM Email

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 3rd May 2005 10:48

Link

that looks more complicated lol. I figured out the whole problem where it doesnt show up. I had to put a Sync in my loop

lol I'm slow

Stan: OH MY GOD! THEY KILLED KENNY
Stan's Grandpa: You Bastards!
Kyle: HEY! ><

Back to top

Profile PM Website

FakeBlood

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Alabama, United States

Posted: 3rd May 2005 11:29 Edited at: 3rd May 2005 11:30

Link

good

and yes pizzaman's is more complicated because it does much more than simply load the images. It scrolls the map and has player control etc..
definitely a good source to keep around for when you need it.

Back to top

Profile PM

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 4th May 2005 05:34

Link

=O then I'll save it lol For now I'm gunna make a demo level with no scrolling though

. I might use it later.

Stan: OH MY GOD! THEY KILLED KENNY
Stan's Grandpa: You Bastards!
Kyle: HEY! ><

Back to top

Profile PM Website

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 4th May 2005 11:09

Link

Ok then... I have another Problem using this... I got my old animation code back from my old thread, and implemented it into this new program, but when I put the Sprite in, it makes the background blue. I added the transparency and now it makes the Background dark. Here's the code and a sprite sheet. I tried to figure it out, but i still couldnt get it to work..

Stan: OH MY GOD! THEY KILLED KENNY
Stan's Grandpa: You Bastards!
Kyle: HEY! ><

Attachments

Login to view attachments

Back to top

Profile PM Website

zenassem

22

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 5th May 2005 03:27 Edited at: 5th May 2005 03:36

Link

@They Killed Kenny,

I was working on a RPG 2d tilebased snippet a while ago. It is what actually prompted me to write the 2d Tutorial stickied above in this board, (that I have been away from for a while - Though I will be returning to and cleaning up shortly). I don't believe that it's too hard to follow, as I purposely tried to code it so that it could be part of a tutorial. I have posted this before, and have probably used it to death to explain a simple but effective layerd map systme, animation, and battle scenes. I'll repost links to the media, some of which is form RPG maker 2000 and other basic tilese that came with DBC. Let me know if it helps you. It's not the best implementation, as movement and collision is tilebased rather than a polar coordinate system. Let me know if can clear any of it up, and if it's what you are after.

remstart
The Craft: Programmed by Edward Jomisko 2/2003
The Craft version 1.0: A program adapted from the d20 RPG system
Tutorial for 2d top-down tile-based worlds with multiple layers
A simple tile-based world & battle system.
features:
20*20*5 world
1 character Ar_Class
3 different tiles
3 different monsters

Future additions:
version 1.1 will add bitmap graphics to the battle system
version 1.2 add bitmaps graphics to world map
            add sprite/bitmp graphics for player
remend

backdrop off
sync on
sync rate 30
goto init

rem //////////////////////////////////////////////////////////////
rem //                                                          //
rem //        Initialize Game variables & objects               //
rem //                                                          //
rem //////////////////////////////////////////////////////////////
rem --------------------------------------------------------------
rem //////////////////////   INIT   //////////////////////////////
init:
   rem //// game flags ////
   rem boolean logic: 0=FALSE a 1=TRUE

FL_GameDone=0 ;    rem flag to end game
   FL_BattleOver=0;   rem flag to end battle mode
   FL_Success=0;      rem flag to signify a FL_Successful attack
   FL_Moved=0;         rem flag to signify if the player was able to move
   FL_Walkable=0;    rem flag to signify if the tile the player is moving to is FL_Walkable

rem **** Index into world array to be displayed ****
   LeftMost=0
   TopMost=0
   RightMost=9
   BottomMost=9
   rem **** The max limits for the 10x10 grid ****
   MaxRight=7
   MaxLeft=2
   MaxUp=2
   MaxDown=7

rem **** PLAYER AttributeS ****
   rem Core Player Attributes
   Class$="Fighter";    rem this version has only 1 Class
   PLev=1;               rem               Level
   PStr=0;               rem               Strength
   PDex=0;               rem               Dexterity
   PCon=0;               rem               Constitution
   PInt=0;               rem               Intelligence
   PWis=0;               rem               Wisdom
   PCha=0;               rem               Charisma
   PVit=0;               rem               Vitality
   PWou=0;               rem               Wounds
   PDef=0;               rem               Defense
   PMag=100;             rem               Magic %
   PHp=32;               rem               Hit Points
   PGol=0;               rem               Gold
   PExp=0;               rem               Experience

rem Player Weapon Attributes
   dim Ar_PWeaponDb(10,20);   rem Weapons the player has
   PWeapon=0;               rem Currently selected weapon(c.s.w)
   PWeaponDam=0;            rem c.s.w. Damage
   PWeaponErr=0;            rem         error
   PWeaponBon=0;            rem         bonus

rem **** WEAPON AttributeS ****
   rem Games Weapon Database
   dim Ar_Weapon$(10,20)
   rem gosub playercreation

rem **** CHARACTER/NPC IMAGE CONSTANTS ****
   SpriteSizeX=24
   SpriteSizeY=32

rem **** WORLD CONSTANTS  ****
   TileSize=39;              rem Size of each tile is 40 (0-39)
   sx=0;                     rem sx is starting x position of tilebox
   sy=0;                     rem sy is starting y position of tilebox
   ex=TileSize;              rem ex is ending x position of tilebox
   ey=TileSize;              rem ey is ending y position of tilebox
   WorldSizeX=20;            rem amount of tiles in the x-axis of world
   WorldSizeY=20;            rem amount of tiles in the y-axis of world
   WorldHeightZ=5;           rem amount of layers in the z-axis of world
   dim Ar_World(WorldSizeX,WorldSizeY,WorldHeightZ)

Rem **** Load character animation frames ****
   load bitmap "Chubby1.bmp", 1

rem **** Images 1-12 Main character animation frames
   ImageNum=1
   for ImageSY=0 to 96   step SpriteSizeY
   for ImageSX=144 to 192 step SpriteSizeX
   get image ImageNum,ImageSX,ImageSY,ImageSX+24,ImageSY+32
   ImageNum=ImageNum+1
   next ImageSX
   next ImageSY

rem **** Images 13-24 "$" animation frames
   ImageNum=13
   for ImageSY=0 to 96 step SpriteSizeY
   for ImageSX=0 to 72 step SpriteSizeX
   get image ImageNum,ImageSX,ImageSY,ImageSX + SpriteSizeX - 1,ImageSY  +SpriteSizeY -1
   ImageNum=ImageNum+1
   next ImageSX
   next ImageSY
   delete bitmap 1

rem **** LOAD TILE-WORLD BMP'S ****
   load image "grass.bmp" ,501
   load image "mossy01.bmp" ,502
   load image "pave11.bmp",503
   load image "ice01.bmp" ,504

rem **** LOAD BACKDROP BMP,S
   PLAINS=8000
   FOREST=8001
   PAVE=8002
   load image "plainsG.bmp", PLAINS
   load image "pave.bmp", PAVE
   load image "forest1.bmp", FOREST

rem **** LOAD WORLD FROM DATA ****
   restore worlddata;      rem restore data pointer to label worlddata
   for IndexZ=0 to WorldHeightZ-1
      for IndexY=0 to WorldSizeY-1
         for IndexX=0 to WorldSizeX-1
            read Value
            Ar_World(IndexX,IndexY,IndexZ) =Value
         next IndexX
      next IndexY
   next IndexZ

rem **** MONSTER DATA ****

MAXMONSTERS=2
   MAXATTRS=3
   dim Ar_MonName$(MAXMONSTERS)
   dim Ar_MonAttr(MAXMONSTERS,4)

rem **** LOAD MONSTER BITMAPS ****
   WOLF = 900
   SNAKE = 901
   OGRE = 902
   load bitmap "wolf.bmp",1
   get image WOLF,0,0,71,71
   delete bitmap 1
   load bitmap "snake.bmp",1
   get image SNAKE,0,0,71,54
   delete bitmap 1
   load bitmap "ogre.bmp",1
   get image OGRE,0,0,62,64
   delete bitmap 1

rem **** LOAD MONSTER DATA ****
   restore monsterdata

for Index=0 to MAXMONSTERS
         read MonsterName$
         Ar_MonName$(Index)=MonsterName$
            for Attrs=0 to MAXATTRS
               read Attribute
               Ar_MonAttr(Index,Attrs)=Attribute
            next Attrs
      next Index

load music "aphrodit.mid",1
   load music "myFFBatt.mid",2
   loop music 1

rem **** PLAYERS STARTING POSITION ****
   CurrSpr=1;                  rem Current Sprite on world map
   PWLocX=3;                  rem Players X World location
   PWLocY=2;                  rem Players Y World location
   PGridLocX=3
   PGridLocY=2
   PLocX=125;                  rem Players x pixel location
   PLocY=80;                  rem Players y pixel location

sprite CurrSpr,PLocX,PLocY,1
   set current bitmap 0
   cls 0
   rem !!!!!!!!!!!!!!!!!!!!!!! JUMPS to (MAIN)
   goto main

rem //////////////////    END OF INIT    /////////////////////////
rem --------------------------------------------------------------

rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                 F U N C T I O N S                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////

rem drawtile function
function draw_tile(TileNum,sx,sy)
if TileNum<>500
   paste image TileNum,sx,sy,1
endif
endfunction drawtile

rem draws a player 10x10
function draw_player(PLocX,PLocY)
   rem ink rgb(200,200,0),1
   rem box PLocX,PLocY,PLocX+10,PLocY+10

rem sprite CurrSpr,PLocX,PLocY,lastmov
endfunction draw_player

rem //////////////// Dice Roll Functions ///////////////
remstart
These functions simulateValues of rolling dice
The function names are in the form:
xdy where x is the number of times a y sided die is rolled
i.e.
0d6 is equivalent to rolling a 6-sided die 0 times
remend

function d1d4()
   Value=rnd(3)+1
endfunction Value

rem returns aValue from 1-6
function d1d6()
   Value=rnd(5)+1
endfunction Value

function d2d6()
   Value=rnd(11)+1
endfunction Value

rem returns aValue from 0-18
function d3d6()
   Value=(rnd(5)+1)+(rnd(5)+1)+(rnd(5)+1)
endfunction Value

function d1d8()
   Value=rnd(7)+1
endfunction Value

rem //////////////// End Dice Roll Functions  /////////////////

rem ////////////// Screen & Dialogue Functions ////////////////
rem ***** Messagebox function ****
function pop_up_box(Message$)
   length=len(Message$)*15
   ink rgb(255,255,255),1
   box 100,320,290,380
   ink rgb(40,40,255),1
   box 102,322,288,378
   ink rgb(255,255,255),1
   text 105,330, Message$
endfunction pop_up_box

rem ///////// END OF SCREEN & DIALOGUE FUNCTIONS //////////

function mon_attack(DieSelect)
   select DieSelect
   case 4: Damage=d1d4(): endcase
   case 8: Damage=d1d8(): endcase
   endselect
   ink rgb(255,255,255),1
   text 380,360, "Success!!!"
   ink rgb(200,0,0),1
   text 380,380, "Causes "+str$(Damage)+" damage to player"
   wait 2000
endfunction Damage

rem ----------------------------------------------------------------------------------------
rem ========================================================================================
rem ========================================================================================
rem GAME LOOP ACTAULLY BEGINS HERE!!!!
rem ----------------------------------------------------------------------------------------
main:

movetimerset# = 1000/10
movetimer# = timer()

while FL_GameDone<>1
  rem if timer() - movetimer# > movetimerset#
  cls 0

rem **** Draw the game world ****
   for IndexZ=0 to WorldHeightZ-1
      for IndexY=TopMost to BottomMost
         for IndexX=LeftMost to RightMost
            tile=Ar_World(IndexX,IndexY,IndexZ)
            select tile
            case 0: TileNum=500: endcase
            case 1: TileNum=501: endcase
            case 2: TileNum=502: endcase
            case 3: TileNum=503: endcase
            case 4: TileNum=504: endcase
            endselect
            draw_tile(TileNum,sx,sy)

sx=sx+TileSize; ex=ex+TileSize
         next IndexX
         sx=0; ex=39
         sy=sy+39; ey=ey+39
      next IndexY
      sy=0
   next IndexZ

rem **** Draw Border ****
   ink rgb(255,255,255),1
   line 0,0,0,391
   line 0,0,391,0
   line 0,391,391,391
   line 391,0,391,391

rem **** Display character info ****
   gosub chattrdisp

rem **** Update player locationc ****
   gosub getinput

rem **** Check for monster encounter ****
   rem if FL_Moved=1 then gosub chencounter

rem **** Reset data for next frame ****
   sx=0
   sy=0
   ex=39
   ey=39
   FL_Moved=0
  sync
movetimer# = timer()
rem endif

endwhile

end

rem //                  END OF GAME LOOP                           //
rem ========================================================================================
rem ----------------------------------------------------------------------------------------

rem //////// Subroutines ///////////////////////////////////////////
rem **** Display character Attributes ****
chattrdisp:
   set text size 18
   set text font "monotype corsiva"
   ink rgb(150,150,0),1
   box 398,0,632,82
   ink rgb(120,20,40),1
   box 400,2,630,80
   ink rgb(255,255,255),1
   text 405,4, "Neenie"

set text size 16
   text 405,30, "HP = "
   text 490,30, "Magic = "
   text 405,45, "Level = "
   text 490,45, "Exp  ="
   ink rgb(255,255,0),1
   set cursor 440,30; print PHp
   set cursor 540,30; print PMag, "%"
   set cursor 445,45; print PLev
   set cursor 540,45; print PExp
   set cursor 405,60; print PGol, "  gp."
   rem sprite 2,575,20,1

return

rem **** Display monster Attributes in battlemode ****
MonAttrdisp:
   set text size 18
   set text font "monotype corsiva"
   ink rgb(150,150,150),1
   box 398,0,639,82
   ink rgb(20,120,40),1
   box 400,2,637,80
   ink rgb(255,255,255),1
   text 405,4, monster$

set text size 16
   text 405,30, "HP = "
   text 490,30, "Magic = "
   ink rgb(255,255,0),1
   set cursor 440,30; print monhp
   set cursor 540,30; print PMag, "%"
   SYNC
   return

rem **** Display character Attributes in battlemode ****
chattrdisp2:
   CLS 0
   set text size 18
   set text font "monotype corsiva"
   ink rgb(150,150,0),1
   box 0,0,234,82
   ink rgb(120,20,40),1
   box 2,2,232,80
   ink rgb(255,255,255),1
   text 5,4, "Neenie"

set text size 16
   text 5,30, "HP = "
   text 90,30, "Magic = "
   text 5,45, "Level = "
   text 90,45, "Exp  ="
   ink rgb(200,200,0),1
   set cursor 40,30; print PHp
   set cursor 140,30; print PMag, "%"
   set cursor 45,45; print PLev
   set cursor 140,45; print PExp
   set cursor 5,60; print PGol, "  gp."
   SYNC
   return

rem **** Check for user input *****
getinput:
   if upkey()=1 then gosub chupmov
   if downkey()=1 then gosub chdwmov
   if leftkey()=1 then gosub chltmov
   if rightkey()=1 then gosub chrtmov
   if escapekey()=1 then end
return

rem **** Verify that player can move up *****
chupmov:
   if anim>3 then anim=1
   if Ar_World(PWLocX,PWLocY-1,2)=0 then FL_Walkable=1

if PGridLocY=MaxUp and FL_Walkable=1
   TopMost=TopMost-1
   BottomMost=BottomMost-1
   PWLocY=PWLocY-1
   sprite CurrSpr,PLocX,PLocY,anim
   rem sprite CurrSpr,PLocX,PLocY, 2
   endif

if FL_Walkable=1 and PGridLocY>MaxUp
   PLocY=PLocY-39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocY=PWLocY-1
   PGridLocY=PGridLocY-1

rem sprite CurrSpr,PLocX,PLocY, 2
   endif

inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move down ****
chdwmov:
   if anim<7 or anim>9 then anim=7
   if Ar_World(PWLocX,PWLocY+1,2)=0 then FL_Walkable=1
   if PGridLocY=MaxDown and FL_Walkable=1
   TopMost=TopMost+1
   BottomMost=BottomMost+1
   PWLocY=PWLocY+1
   sprite CurrSpr,PLocX,PLocY,anim
   endif

if FL_Walkable=1 and PGridLocY<MaxDown

PLocY=PLocY+39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocY=PWLocY+1
   PGridLocY=PGridLocY+1

endif

inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move left ****
chltmov:
   if anim<10 or anim>12 then anim=10
   if Ar_World(PWLocX-1,PWLocY,2)=0 then FL_Walkable=1

if PGridLocX=MaxLeft and FL_Walkable=1
   sprite CurrSpr,PLocX,PLocY,anim
   LeftMost=LeftMost-1
   RightMost=RightMost-1
   PWLocX=PWLocX-1
   endif

if FL_Walkable=1 and PGridLocX>MaxLeft
   PLocX=PLocX-39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocX=PWLocX-1
   PGridLocX=PGridLocX-1
   endif

inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move right ****
chrtmov:
   if anim<4 or anim>6 then anim=4
   if Ar_World(PWLocX+1,PWLocY,2)=0 then FL_Walkable=1

if PGridLocX=MaxRight and FL_Walkable=1
   LeftMost=LeftMost+1
   RightMost=RightMost+1
   PWLocX=PWLocX+1
   sprite CurrSpr,PLocX,PLocY,anim
   endif

if FL_Walkable=1 and PGridLocX<MaxRight
   PLocX=PLocX+39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocX=PWLocX+1
   PGridLocX=PGridLocX+1
   endif

inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Check for random monster encounter ****
chencounter:
   battle=d3d6()
   if battle >= 7 then return
   stop music 1
   loop music 2
   ink rgb(255,255,255),1
   set text size 16
   set text font "teletype"
   bMessage$= "Entering Battle Mode..."
   pop_up_box(bMessage$)
   SYNC
   wait 600
   chosenmonster=rnd(MAXMONSTERS)
   monster$=Ar_MonName$(chosenmonster)
   CurrMon=Ar_MonAttr(chosenmonster,0)
   monattk=Ar_MonAttr(chosenmonster,1)
   monhp=Ar_MonAttr(chosenmonster,2)
   monexp=Ar_MonAttr(chosenmonster,3)
   turn=rnd(2)+1

Area=Ar_World(PWLocX,PWLocY,0)
   select Area
   case 1: CurrBackDrop=PLAINS: endcase
   case 2: CurrBackDrop=FOREST: endcase
   case 3: CurrBackDrop=PAVE: endcase
   endselect
   rem *** add battle code here

gosub battlescrn

wait 600

Delete sprite 2
   delete sprite CurrMon
   show sprite CurrSpr

gosub chupmov
   gosub chdwmov
   stop music 2
   loop music 1
   cls

FL_BattleOver=0
return

rem **** Draw The Battle Screen ****
battlescrn:
   hide sprite CurrSpr
   CLS 0
   gosub chattrdisp2
   gosub MonAttrdisp
   ink rgb(200,200,200),1
   paste image CurrBackDrop,160,130
   sprite 2,200,200,5
   sprite CurrMon,340,210,CurrMon
   box 0,300,609,479
   ink rgb(0,0,100),1
   box 0,300,636,476
   SYNC
return

rem ///////////////////// PLAYER CREATION ////////////////////////
playercreation:
ink rgb(255,0,0),1
box 0,0,150,20
ink rgb(255,255,255),1
print "  Character Generation"
print "-------------------------------------------------------------------"
print
print "Generating Character Attributes"
PStr=d3d6()+0 ; rem +0 modifier for fighter Ar_Class
PDex=d3d6()+2
PCon=d3d6()
PInt=d3d6()
PWis=d3d6()
PCha=d3d6()
PVit=d3d6()+2

ink rgb(0,100,0),1
box 0,80,150,200

ink rgb(200,200,0),1
print
print "  Strength - "; PStr
print "  Dexterity - "; PDex
print "  Constitution - "; PCon
print "  Intelligence - "; PInt
print "  Wisdom - "; PWis
print "  Charisma - "; PCha
print "  Vitality - "; PVit
print
ink rgb(255,255,255),1
rem stub place choice code here!!!
return
rem //////// END PLAYER CREATION /////////////////

rem --------------------------------------------------------------------
rem --                                                                --
rem --                G A M E   D A T A                               --
rem --                                                                --
rem --------------------------------------------------------------------

worlddata:
rem layer 0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,2,2,0,0,2,2,1,1,1,1,1,0,0
data 0,0,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,0,0
data 0,0,1,1,1,2,2,3,3,2,2,3,3,2,2,1,1,1,0,0
data 0,0,1,1,2,2,2,3,3,3,3,3,3,2,2,2,1,1,0,0
data 0,0,1,1,2,2,2,2,3,3,3,3,2,2,2,2,1,1,0,0
data 0,0,1,1,1,2,2,2,2,3,3,2,2,2,2,1,1,1,0,0
data 0,0,1,2,1,1,1,2,2,3,3,2,2,1,1,1,2,1,0,0
data 0,0,0,2,2,1,1,1,2,3,3,2,1,1,1,2,2,0,0,0
data 0,0,0,0,2,2,1,1,2,3,3,2,1,1,2,2,0,0,0,0
data 0,0,0,2,1,1,1,2,2,3,3,2,2,1,1,1,2,0,0,0
data 0,0,1,1,1,2,2,2,2,3,3,2,2,2,2,1,1,1,0,0
data 0,0,1,1,2,2,2,2,3,3,3,3,2,2,2,2,1,1,0,0
data 0,0,1,1,2,2,2,3,3,3,3,3,3,2,2,2,1,1,0,0
data 0,0,1,1,1,2,2,3,3,2,2,3,3,2,2,1,1,1,0,0
data 0,0,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,0,0
data 0,0,1,1,1,1,1,2,2,0,0,2,2,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
rem layer 1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
rem layer 2
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4
data 4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4
data 4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
rem layer 0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
rem layer 4
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
monsterdata:
data "Tiger Snake", 901, 4, 6, 10
data "Grey Wolf", 900, 4, 8, 15
data "Ogre", 902, 8, 8, 20

+ Code Snippet

remstart
The Craft: Programmed by Edward Jomisko 2/2003
The Craft version 1.0: A program adapted from the d20 RPG system
Tutorial for 2d top-down tile-based worlds with multiple layers
A simple tile-based world & battle system.
features:
20*20*5 world
1 character Ar_Class
3 different tiles
3 different monsters

Future additions:
version 1.1 will add bitmap graphics to the battle system
version 1.2 add bitmaps graphics to world map
            add sprite/bitmp graphics for player
remend

backdrop off
sync on
sync rate 30
goto init


rem //////////////////////////////////////////////////////////////
rem //                                                          //
rem //        Initialize Game variables & objects               //
rem //                                                          //
rem //////////////////////////////////////////////////////////////
rem --------------------------------------------------------------
rem //////////////////////   INIT   //////////////////////////////
init:
   rem //// game flags ////
   rem boolean logic: 0=FALSE a 1=TRUE

   FL_GameDone=0 ;    rem flag to end game
   FL_BattleOver=0;   rem flag to end battle mode
   FL_Success=0;      rem flag to signify a FL_Successful attack
   FL_Moved=0;         rem flag to signify if the player was able to move
   FL_Walkable=0;    rem flag to signify if the tile the player is moving to is FL_Walkable


   rem **** Index into world array to be displayed ****
   LeftMost=0
   TopMost=0
   RightMost=9
   BottomMost=9
   rem **** The max limits for the 10x10 grid ****
   MaxRight=7
   MaxLeft=2
   MaxUp=2
   MaxDown=7

   rem **** PLAYER AttributeS ****
   rem Core Player Attributes
   Class$="Fighter";    rem this version has only 1 Class
   PLev=1;               rem               Level
   PStr=0;               rem               Strength
   PDex=0;               rem               Dexterity
   PCon=0;               rem               Constitution
   PInt=0;               rem               Intelligence
   PWis=0;               rem               Wisdom
   PCha=0;               rem               Charisma
   PVit=0;               rem               Vitality
   PWou=0;               rem               Wounds
   PDef=0;               rem               Defense
   PMag=100;             rem               Magic %
   PHp=32;               rem               Hit Points
   PGol=0;               rem               Gold
   PExp=0;               rem               Experience


   rem Player Weapon Attributes
   dim Ar_PWeaponDb(10,20);   rem Weapons the player has
   PWeapon=0;               rem Currently selected weapon(c.s.w)
   PWeaponDam=0;            rem c.s.w. Damage
   PWeaponErr=0;            rem         error
   PWeaponBon=0;            rem         bonus

   rem **** WEAPON AttributeS ****
   rem Games Weapon Database
   dim Ar_Weapon$(10,20)
   rem gosub playercreation

   rem **** CHARACTER/NPC IMAGE CONSTANTS ****
   SpriteSizeX=24
   SpriteSizeY=32

   rem **** WORLD CONSTANTS  ****
   TileSize=39;              rem Size of each tile is 40 (0-39)
   sx=0;                     rem sx is starting x position of tilebox
   sy=0;                     rem sy is starting y position of tilebox
   ex=TileSize;              rem ex is ending x position of tilebox
   ey=TileSize;              rem ey is ending y position of tilebox
   WorldSizeX=20;            rem amount of tiles in the x-axis of world
   WorldSizeY=20;            rem amount of tiles in the y-axis of world
   WorldHeightZ=5;           rem amount of layers in the z-axis of world
   dim Ar_World(WorldSizeX,WorldSizeY,WorldHeightZ)

 Rem **** Load character animation frames ****
   load bitmap "Chubby1.bmp", 1

   rem **** Images 1-12 Main character animation frames
   ImageNum=1
   for ImageSY=0 to 96   step SpriteSizeY
   for ImageSX=144 to 192 step SpriteSizeX
   get image ImageNum,ImageSX,ImageSY,ImageSX+24,ImageSY+32
   ImageNum=ImageNum+1
   next ImageSX
   next ImageSY

   rem **** Images 13-24 "$" animation frames
   ImageNum=13
   for ImageSY=0 to 96 step SpriteSizeY
   for ImageSX=0 to 72 step SpriteSizeX
   get image ImageNum,ImageSX,ImageSY,ImageSX + SpriteSizeX - 1,ImageSY  +SpriteSizeY -1
   ImageNum=ImageNum+1
   next ImageSX
   next ImageSY
   delete bitmap 1


   rem **** LOAD TILE-WORLD BMP'S ****
   load image "grass.bmp" ,501
   load image "mossy01.bmp" ,502
   load image "pave11.bmp",503
   load image "ice01.bmp" ,504

   rem **** LOAD BACKDROP BMP,S
   PLAINS=8000
   FOREST=8001
   PAVE=8002
   load image "plainsG.bmp", PLAINS
   load image "pave.bmp", PAVE
   load image "forest1.bmp", FOREST

   rem **** LOAD WORLD FROM DATA ****
   restore worlddata;      rem restore data pointer to label worlddata
   for IndexZ=0 to WorldHeightZ-1
      for IndexY=0 to WorldSizeY-1
         for IndexX=0 to WorldSizeX-1
            read Value
            Ar_World(IndexX,IndexY,IndexZ) =Value
         next IndexX
      next IndexY
   next IndexZ

   rem **** MONSTER DATA ****


   MAXMONSTERS=2
   MAXATTRS=3
   dim Ar_MonName$(MAXMONSTERS)
   dim Ar_MonAttr(MAXMONSTERS,4)

   rem **** LOAD MONSTER BITMAPS ****
   WOLF = 900
   SNAKE = 901
   OGRE = 902
   load bitmap "wolf.bmp",1
   get image WOLF,0,0,71,71
   delete bitmap 1
   load bitmap "snake.bmp",1
   get image SNAKE,0,0,71,54
   delete bitmap 1
   load bitmap "ogre.bmp",1
   get image OGRE,0,0,62,64
   delete bitmap 1

   rem **** LOAD MONSTER DATA ****
   restore monsterdata

      for Index=0 to MAXMONSTERS
         read MonsterName$
         Ar_MonName$(Index)=MonsterName$
            for Attrs=0 to MAXATTRS
               read Attribute
               Ar_MonAttr(Index,Attrs)=Attribute
            next Attrs
      next Index


   load music "aphrodit.mid",1
   load music "myFFBatt.mid",2
   loop music 1

   rem **** PLAYERS STARTING POSITION ****
   CurrSpr=1;                  rem Current Sprite on world map
   PWLocX=3;                  rem Players X World location
   PWLocY=2;                  rem Players Y World location
   PGridLocX=3
   PGridLocY=2
   PLocX=125;                  rem Players x pixel location
   PLocY=80;                  rem Players y pixel location

   sprite CurrSpr,PLocX,PLocY,1
   set current bitmap 0
   cls 0
   rem !!!!!!!!!!!!!!!!!!!!!!! JUMPS to (MAIN)
   goto main

rem //////////////////    END OF INIT    /////////////////////////
rem --------------------------------------------------------------


rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                 F U N C T I O N S                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////



rem drawtile function
function draw_tile(TileNum,sx,sy)
if TileNum<>500
   paste image TileNum,sx,sy,1
endif
endfunction drawtile

rem draws a player 10x10
function draw_player(PLocX,PLocY)
   rem ink rgb(200,200,0),1
   rem box PLocX,PLocY,PLocX+10,PLocY+10

   rem sprite CurrSpr,PLocX,PLocY,lastmov
endfunction draw_player


rem //////////////// Dice Roll Functions ///////////////
remstart
These functions simulateValues of rolling dice
The function names are in the form:
xdy where x is the number of times a y sided die is rolled
i.e.
0d6 is equivalent to rolling a 6-sided die 0 times
remend

function d1d4()
   Value=rnd(3)+1
endfunction Value

rem returns aValue from 1-6
function d1d6()
   Value=rnd(5)+1
endfunction Value

function d2d6()
   Value=rnd(11)+1
endfunction Value

rem returns aValue from 0-18
function d3d6()
   Value=(rnd(5)+1)+(rnd(5)+1)+(rnd(5)+1)
endfunction Value

function d1d8()
   Value=rnd(7)+1
endfunction Value



rem //////////////// End Dice Roll Functions  /////////////////

rem ////////////// Screen & Dialogue Functions ////////////////
rem ***** Messagebox function ****
function pop_up_box(Message$)
   length=len(Message$)*15
   ink rgb(255,255,255),1
   box 100,320,290,380
   ink rgb(40,40,255),1
   box 102,322,288,378
   ink rgb(255,255,255),1
   text 105,330, Message$
endfunction pop_up_box



rem ///////// END OF SCREEN & DIALOGUE FUNCTIONS //////////

function mon_attack(DieSelect)
   select DieSelect
   case 4: Damage=d1d4(): endcase
   case 8: Damage=d1d8(): endcase
   endselect
   ink rgb(255,255,255),1
   text 380,360, "Success!!!"
   ink rgb(200,0,0),1
   text 380,380, "Causes "+str$(Damage)+" damage to player"
   wait 2000
endfunction Damage



rem ----------------------------------------------------------------------------------------
rem ========================================================================================
rem ========================================================================================
rem GAME LOOP ACTAULLY BEGINS HERE!!!!
rem ----------------------------------------------------------------------------------------
main:

movetimerset# = 1000/10
movetimer# = timer()


while FL_GameDone<>1
  rem if timer() - movetimer# > movetimerset#
  cls 0

   rem **** Draw the game world ****
   for IndexZ=0 to WorldHeightZ-1
      for IndexY=TopMost to BottomMost
         for IndexX=LeftMost to RightMost
            tile=Ar_World(IndexX,IndexY,IndexZ)
            select tile
            case 0: TileNum=500: endcase
            case 1: TileNum=501: endcase
            case 2: TileNum=502: endcase
            case 3: TileNum=503: endcase
            case 4: TileNum=504: endcase
            endselect
            draw_tile(TileNum,sx,sy)

         sx=sx+TileSize; ex=ex+TileSize
         next IndexX
         sx=0; ex=39
         sy=sy+39; ey=ey+39
      next IndexY
      sy=0
   next IndexZ

   rem **** Draw Border ****
   ink rgb(255,255,255),1
   line 0,0,0,391
   line 0,0,391,0
   line 0,391,391,391
   line 391,0,391,391

   rem **** Display character info ****
   gosub chattrdisp

   rem **** Update player locationc ****
   gosub getinput

   rem **** Check for monster encounter ****
   rem if FL_Moved=1 then gosub chencounter

   rem **** Reset data for next frame ****
   sx=0
   sy=0
   ex=39
   ey=39
   FL_Moved=0
  sync
movetimer# = timer()
rem endif


endwhile


end

rem //                  END OF GAME LOOP                           //
rem ========================================================================================
rem ----------------------------------------------------------------------------------------



rem //////// Subroutines ///////////////////////////////////////////
rem **** Display character Attributes ****
chattrdisp:
   set text size 18
   set text font "monotype corsiva"
   ink rgb(150,150,0),1
   box 398,0,632,82
   ink rgb(120,20,40),1
   box 400,2,630,80
   ink rgb(255,255,255),1
   text 405,4, "Neenie"

   set text size 16
   text 405,30, "HP = "
   text 490,30, "Magic = "
   text 405,45, "Level = "
   text 490,45, "Exp  ="
   ink rgb(255,255,0),1
   set cursor 440,30; print PHp
   set cursor 540,30; print PMag, "%"
   set cursor 445,45; print PLev
   set cursor 540,45; print PExp
   set cursor 405,60; print PGol, "  gp."
   rem sprite 2,575,20,1

   return

rem **** Display monster Attributes in battlemode ****
MonAttrdisp:
   set text size 18
   set text font "monotype corsiva"
   ink rgb(150,150,150),1
   box 398,0,639,82
   ink rgb(20,120,40),1
   box 400,2,637,80
   ink rgb(255,255,255),1
   text 405,4, monster$

   set text size 16
   text 405,30, "HP = "
   text 490,30, "Magic = "
   ink rgb(255,255,0),1
   set cursor 440,30; print monhp
   set cursor 540,30; print PMag, "%"
   SYNC
   return

rem **** Display character Attributes in battlemode ****
chattrdisp2:
   CLS 0
   set text size 18
   set text font "monotype corsiva"
   ink rgb(150,150,0),1
   box 0,0,234,82
   ink rgb(120,20,40),1
   box 2,2,232,80
   ink rgb(255,255,255),1
   text 5,4, "Neenie"

   set text size 16
   text 5,30, "HP = "
   text 90,30, "Magic = "
   text 5,45, "Level = "
   text 90,45, "Exp  ="
   ink rgb(200,200,0),1
   set cursor 40,30; print PHp
   set cursor 140,30; print PMag, "%"
   set cursor 45,45; print PLev
   set cursor 140,45; print PExp
   set cursor 5,60; print PGol, "  gp."
   SYNC
   return


rem **** Check for user input *****
getinput:
   if upkey()=1 then gosub chupmov
   if downkey()=1 then gosub chdwmov
   if leftkey()=1 then gosub chltmov
   if rightkey()=1 then gosub chrtmov
   if escapekey()=1 then end
return

rem **** Verify that player can move up *****
chupmov:
   if anim>3 then anim=1
   if Ar_World(PWLocX,PWLocY-1,2)=0 then FL_Walkable=1

   if PGridLocY=MaxUp and FL_Walkable=1
   TopMost=TopMost-1
   BottomMost=BottomMost-1
   PWLocY=PWLocY-1
   sprite CurrSpr,PLocX,PLocY,anim
   rem sprite CurrSpr,PLocX,PLocY, 2
   endif

   if FL_Walkable=1 and PGridLocY>MaxUp
   PLocY=PLocY-39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocY=PWLocY-1
   PGridLocY=PGridLocY-1


   rem sprite CurrSpr,PLocX,PLocY, 2
   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move down ****
chdwmov:
   if anim<7 or anim>9 then anim=7
   if Ar_World(PWLocX,PWLocY+1,2)=0 then FL_Walkable=1
   if PGridLocY=MaxDown and FL_Walkable=1
   TopMost=TopMost+1
   BottomMost=BottomMost+1
   PWLocY=PWLocY+1
   sprite CurrSpr,PLocX,PLocY,anim
   endif

   if FL_Walkable=1 and PGridLocY<MaxDown

   PLocY=PLocY+39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocY=PWLocY+1
   PGridLocY=PGridLocY+1

   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move left ****
chltmov:
   if anim<10 or anim>12 then anim=10
   if Ar_World(PWLocX-1,PWLocY,2)=0 then FL_Walkable=1

   if PGridLocX=MaxLeft and FL_Walkable=1
   sprite CurrSpr,PLocX,PLocY,anim
   LeftMost=LeftMost-1
   RightMost=RightMost-1
   PWLocX=PWLocX-1
   endif

   if FL_Walkable=1 and PGridLocX>MaxLeft
   PLocX=PLocX-39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocX=PWLocX-1
   PGridLocX=PGridLocX-1
   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move right ****
chrtmov:
   if anim<4 or anim>6 then anim=4
   if Ar_World(PWLocX+1,PWLocY,2)=0 then FL_Walkable=1

   if PGridLocX=MaxRight and FL_Walkable=1
   LeftMost=LeftMost+1
   RightMost=RightMost+1
   PWLocX=PWLocX+1
   sprite CurrSpr,PLocX,PLocY,anim
   endif

   if FL_Walkable=1 and PGridLocX<MaxRight
   PLocX=PLocX+39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocX=PWLocX+1
   PGridLocX=PGridLocX+1
   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Check for random monster encounter ****
chencounter:
   battle=d3d6()
   if battle >= 7 then return
   stop music 1
   loop music 2
   ink rgb(255,255,255),1
   set text size 16
   set text font "teletype"
   bMessage$= "Entering Battle Mode..."
   pop_up_box(bMessage$)
   SYNC
   wait 600
   chosenmonster=rnd(MAXMONSTERS)
   monster$=Ar_MonName$(chosenmonster)
   CurrMon=Ar_MonAttr(chosenmonster,0)
   monattk=Ar_MonAttr(chosenmonster,1)
   monhp=Ar_MonAttr(chosenmonster,2)
   monexp=Ar_MonAttr(chosenmonster,3)
   turn=rnd(2)+1

   Area=Ar_World(PWLocX,PWLocY,0)
   select Area
   case 1: CurrBackDrop=PLAINS: endcase
   case 2: CurrBackDrop=FOREST: endcase
   case 3: CurrBackDrop=PAVE: endcase
   endselect
   rem *** add battle code here

   gosub battlescrn

   wait 600

   Delete sprite 2
   delete sprite CurrMon
   show sprite CurrSpr

   gosub chupmov
   gosub chdwmov
   stop music 2
   loop music 1
   cls

   FL_BattleOver=0
return

rem **** Draw The Battle Screen ****
battlescrn:
   hide sprite CurrSpr
   CLS 0
   gosub chattrdisp2
   gosub MonAttrdisp
   ink rgb(200,200,200),1
   paste image CurrBackDrop,160,130
   sprite 2,200,200,5
   sprite CurrMon,340,210,CurrMon
   box 0,300,609,479
   ink rgb(0,0,100),1
   box 0,300,636,476
   SYNC
return






rem ///////////////////// PLAYER CREATION ////////////////////////
playercreation:
ink rgb(255,0,0),1
box 0,0,150,20
ink rgb(255,255,255),1
print "  Character Generation"
print "-------------------------------------------------------------------"
print
print "Generating Character Attributes"
PStr=d3d6()+0 ; rem +0 modifier for fighter Ar_Class
PDex=d3d6()+2
PCon=d3d6()
PInt=d3d6()
PWis=d3d6()
PCha=d3d6()
PVit=d3d6()+2

ink rgb(0,100,0),1
box 0,80,150,200

ink rgb(200,200,0),1
print
print "  Strength - "; PStr
print "  Dexterity - "; PDex
print "  Constitution - "; PCon
print "  Intelligence - "; PInt
print "  Wisdom - "; PWis
print "  Charisma - "; PCha
print "  Vitality - "; PVit
print
ink rgb(255,255,255),1
rem stub place choice code here!!!
return
rem //////// END PLAYER CREATION /////////////////

rem --------------------------------------------------------------------
rem --                                                                --
rem --                G A M E   D A T A                               --
rem --                                                                --
rem --------------------------------------------------------------------

worlddata:
rem layer 0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,2,2,0,0,2,2,1,1,1,1,1,0,0
data 0,0,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,0,0
data 0,0,1,1,1,2,2,3,3,2,2,3,3,2,2,1,1,1,0,0
data 0,0,1,1,2,2,2,3,3,3,3,3,3,2,2,2,1,1,0,0
data 0,0,1,1,2,2,2,2,3,3,3,3,2,2,2,2,1,1,0,0
data 0,0,1,1,1,2,2,2,2,3,3,2,2,2,2,1,1,1,0,0
data 0,0,1,2,1,1,1,2,2,3,3,2,2,1,1,1,2,1,0,0
data 0,0,0,2,2,1,1,1,2,3,3,2,1,1,1,2,2,0,0,0
data 0,0,0,0,2,2,1,1,2,3,3,2,1,1,2,2,0,0,0,0
data 0,0,0,2,1,1,1,2,2,3,3,2,2,1,1,1,2,0,0,0
data 0,0,1,1,1,2,2,2,2,3,3,2,2,2,2,1,1,1,0,0
data 0,0,1,1,2,2,2,2,3,3,3,3,2,2,2,2,1,1,0,0
data 0,0,1,1,2,2,2,3,3,3,3,3,3,2,2,2,1,1,0,0
data 0,0,1,1,1,2,2,3,3,2,2,3,3,2,2,1,1,1,0,0
data 0,0,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,0,0
data 0,0,1,1,1,1,1,2,2,0,0,2,2,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
rem layer 1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
rem layer 2
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4
data 4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4
data 4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4
data 4,4,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
rem layer 0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
rem layer 4
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
monsterdata:
data "Tiger Snake", 901, 4, 6, 10
data "Grey Wolf", 900, 4, 8, 15
data "Ogre", 902, 8, 8, 20

images coming in the next 10 minutes

This is basically what the overworld map looked like...

~zen

Back to top

Profile PM Email

zenassem

22

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 5th May 2005 06:57 Edited at: 5th May 2005 06:59

Link

@killed kenny,

The blue background should be solved by turning backdrop off.

command:
backdrop off

Did you include that in the code?

Also after you are finished creating sprites (or in the main loop, if your redrawing the entire screen each frame)

use the

cls 0

command to clear the screen to black.

~zen

Back to top

Profile PM Email

They Killed Kenny

20

Years of Service

User Offline

Joined: 18th Jul 2004

Location: FL, USA

Posted: 12th May 2005 07:32

Link

Oh. =P okay thanks. Glad to hear you're back and doing the tutorial again... we were wondering where you went =P

Stan: OH MY GOD! THEY KILLED KENNY
Stan's Grandpa: You Bastards!
Kyle: HEY! ><

Back to top

Profile PM Website

Sorry your browser is not supported!

2D All the way! / Best way for tile system?

Attachments