Help with tile-based levels - GameCreators Forum

Author

Message

gameangel147

11

Years of Service

User Offline

Joined: 2nd Dec 2012

Location:

Posted: 26th Sep 2013 06:19

Link

I am working on a top-down 2D tower defense game and I am trying to figure out how to work tile-based levels. I seem to have figured it out but not really sure where to go from here and I have some questions. Also I have included the two tiles I am using.

-Unless I use the \"color backdrop\" command, regard less of number used, the background with flash blue, which hasn\'t happened to me in other programs where I just used the \"backdrop off\" command.

-I cannot create the sprites inside a repeat loop like I have had to before, it has to be done outside and I\'m not sure why.

`set display mode 600, 480, 32

`backdrop off
color backdrop 1

type positions
xPos as integer
yPos as integer
endtype

tilePos as positions
tilePos.xPos = 0
tilePos.yPos = 0

spriNum as integer

spriNum = 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, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1
data 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1

data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1

dim firstArray(20, 8) as integer

load image \"grass.png\", 1
load image \"dirt.png\", 2

for y = 1 to 8
	for x = 1 to 20
		read firstArray(x, y)
	next x
next y

for y = 1 to 8
	tilePos.xPos = 0
	for x = 1 to 20
		sprite spriNum, tilePos.xPos, tilePos.yPos, firstArray(x, y)
		inc spriNum, 1
		tilePos.xPos = x * 32
	next x
	tilePos.yPos = y * 32
next y

repeat
	cls

sync
until escapekey()

+ Code Snippet

`set display mode 600, 480, 32

`backdrop off
color backdrop 1


type positions
xPos as integer
yPos as integer
endtype

tilePos as positions
tilePos.xPos = 0
tilePos.yPos = 0

spriNum as integer

spriNum = 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, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1
data 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1

data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1

dim firstArray(20, 8) as integer



load image \"grass.png\", 1
load image \"dirt.png\", 2


for y = 1 to 8
	for x = 1 to 20
		read firstArray(x, y)
	next x
next y

for y = 1 to 8
	tilePos.xPos = 0
	for x = 1 to 20
		sprite spriNum, tilePos.xPos, tilePos.yPos, firstArray(x, y)
		inc spriNum, 1
		tilePos.xPos = x * 32
	next x
	tilePos.yPos = y * 32
next y



repeat
	cls

	sync
until escapekey()

Any information as to how my code is or how I can get tile-based levels and collision to work would be appreciated.

On a side note, I have a game I have mostly finished, but I would like to have my code looked at to get advice on how I can make it better and maybe get some bugs fixed. Where on the forums would be the best place to post it. And again thanks for the help!

Attachments

Login to view attachments

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 26th Sep 2013 08:11 Edited at: 26th Sep 2013 08:18

Link

The problem with DBPro, is that some functions do more than what they say on the tin. The functions for sprite and 3D object, creation will also turn the backdrop on. The backdrop color by default is blue. If you want to turn the backdrop off, do it after the creation functions. Also DBPro does some thing differently between do/loop and repeat/until. This may be the issue, but your seem to have that worked out. When the backdrop is on, the sync function will clear the backbuffer for you. So the CLS function is not necessary. Not to nitpick, but DATA statements are customarily at the end of the source.

For tile based collision, a lot of information can be found searching the forum on that. This board is a good place to post code for assistance. There are a lot of good folks here, that will be happy to help.

Back to top

Profile PM Email

gameangel147

11

Years of Service

User Offline

Joined: 2nd Dec 2012

Location:

Posted: 27th Sep 2013 01:46

Link

Thanks for the help, though I realized that I forgot to turn the sync on and set the sync rate. Derp. And I normally had trouble due to leaving out a CLS or a SYNC, so I tend to put them both there to be safe. Also thanks for the tip on the data statements, and I actually want to try putting them in a text file, might be easier to keep organized. Again thanks for the help.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 27th Sep 2013 07:30 Edited at: 27th Sep 2013 08:02

Link

If you mean reading the data from a text file? It would be faster to write a program to save the array to a binary file. Keep this file in your project folder, you may want to edit it latter. Then just load the array into the program.

Save array example:

+ Code Snippet

i as integer

dim firstArray(19, 7) as integer

for y = 0 to 7
   for x = 0 to 19
      read firstArray(x, y)
   next x
next y

if file exist("screenArray.dat")
   delete file "screenArray.dat"
endif

save array "screenArray.dat", firstArray()

print "Done! Press any key to exit."

wait key

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, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1
data 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1

data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
data 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1

Load array example:

+ Code Snippet

spriNum as integer

set display mode 600, 480, 32

sync on
sync rate 60

backdrop on
color backdrop 0

type positions
   xPos as integer
   yPos as integer
endtype

tilePos as positions

tilePos.xPos = 0
tilePos.yPos = 0

spriNum = 1

dim firstArray(19, 7) as integer
load array "screenArray.dat", firstArray()

load image "grass.png", 1
load image "dirt.png", 2

for y = 0 to 7
   tilePos.yPos = y * 32
   for x = 0 to 19
      tilePos.xPos = x * 32
      sprite spriNum, tilePos.xPos, tilePos.yPos, firstArray(x, y)
      inc spriNum, 1
   next x
next y

repeat

   sync
until escapekey()

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with tile-based levels

Attachments