Mini Tile Engine - GameCreators Forum

Author

Message

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 20th Mar 2003 08:33

Link

Hehe, I made a mini tile engine with a sprite you can move around with

Its not much at all but im still kinda new to DBPro.

Heres the code:
dim Map(4,4):Map(1,1)=2:Map(1,2)=3:Map(1,3)=3:Map(1,4)=3
Map(2,1)=2:Map(2,2)=2:Map(2,3)=3:Map(2,4)=3:Map(3,1)=3
Map(3,2)=2:Map(3,3)=3:Map(3,4)=3:Map(4,1)=3:Map(4,2)=2
Map(4,3)=2:Map(4,4)=2:load image "sprite.png",1,1:load image "wtile.png",2,1:load image "gtile.png",3,1
sprx=260:spry=160:set sprite 1,1,1
do
if upkey() and spry>152 then spry=spry-2
if downkey() and spry242 then sprx=sprx-2
if rightkey() and sprx

Back to top

Profile PM

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 20th Mar 2003 08:35 Edited at: 20th Mar 2003 08:37

Link

hmm...tags have problems x_x

+ Code Snippet

dim Map(4,4):Map(1,1)=2:Map(1,2)=3:Map(1,3)=3:Map(1,4)=3
Map(2,1)=2:Map(2,2)=2:Map(2,3)=3:Map(2,4)=3:Map(3,1)=3
Map(3,2)=2:Map(3,3)=3:Map(3,4)=3:Map(4,1)=3:Map(4,2)=2
Map(4,3)=2:Map(4,4)=2:load image "sprite.png",1,1:load image "wtile.png",2,1:load image "gtile.png",3,1
sprx=260:spry=160:set sprite 1,1,1
do
   if upkey() and spry>152 then spry=spry-2
   if downkey() and spry<280-31 then spry=spry+2
   if leftkey() and sprx>242 then sprx=sprx-2
   if rightkey() and sprx<370-22 then sprx=sprx+2
   sprite 1,sprx,spry,1
   for x=1 to 4
      for y=1 to 4
         paste image Map(y,x),x*32+210,y*32+120
      next y
   next x
loop
end

Media:

I know its not much, but im new so be gentle

I followed all the rules too, most commands i have on a line is 5.

So enjoy my crummy little Tile Engine ^_^

Back to top

Profile PM

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 21st Mar 2003 03:59

Link

Umm..feel free to post comments...heh

Back to top

Profile PM

lcfcfan

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location: North East, UK

Posted: 21st Mar 2003 20:52

Link

Very cool x-d

2ghz, ati radeon mobility 32mb DDR, 30gb, 256mb DDR ram, Win Xp

Back to top

Profile PM Email Website

Kanzure

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location:

Posted: 23rd Mar 2003 19:53

Link

Thats very helpful! Can you maybe code one that reads from a file?

~Morph
Owner of MultiCode.NET and Multi2k.NET.
Nothing is something, and something is then nothing. Life is an illusion.

Back to top

Profile PM Email Website

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 23rd Mar 2003 22:06

Link

I could probably, Though I havnt had much work with DBP and files, leme see what I can do

Back to top

Profile PM

Kanzure

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location:

Posted: 23rd Mar 2003 22:10

Link

I have been trying too, and well, its not really working..Contact me if you want my current code =).

~Morph
Owner of MultiCode.NET and Multi2k.NET.
Nothing is something, and something is then nothing. Life is an illusion.

Back to top

Profile PM Email Website

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 23rd Mar 2003 22:34

Link

Well,

I know that you could fit in more stuff in 20 liner.

Like saving and loading.

or actually editing.

Cheers.

1PH J00 C4|\| U|\|dER$T@|\||) +|-|I$, j00 |-|@\/3 4lR3Ady w0|\|! - p1r@T$$

Back to top

Profile PM

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 23rd Mar 2003 23:15

Link

Yes, but it was my 3rd thing ever made on DBP

Back to top

Profile PM

Kanzure

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location:

Posted: 24th Mar 2003 00:21

Link

Its purty good for the third thing only. I may base a game or two off of that code, if its okay with you

.

~Morph
Owner of MultiCode.NET and Multi2k.NET.
Nothing is something, and something is then nothing. Life is an illusion.

Back to top

Profile PM Email Website

Kanzure

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location:

Posted: 24th Mar 2003 00:37

Link

Hmm..When I try to make it read from a file, I use READ WORD..but that doesn't get the exact integer in the file!

+ Code Snippet

dim Map(4,4)

remstart
Map(1,1)=2
Map(1,2)=3
Map(1,3)=3
Map(1,4)=3
Map(2,1)=2
Map(2,2)=2
Map(2,3)=3
Map(2,4)=3
Map(3,1)=3
Map(3,2)=2
Map(3,3)=3
Map(3,4)=3
Map(4,1)=3
Map(4,2)=2
Map(4,3)=2
Map(4,4)=2
remend


		rem Open file for reading
		open to read 1,"map.txt"
	
		rem Read matrix of strings
		for x=1 to 4
			for y=1 to 4
				read word 1,a
				map(x,y)=a
print a
			next y
		next x
		rem Close file
		close file 1


load image "sprite.bmp",1,1
load image "wtile.bmp",2,1
load image "gtile.bmp",3,1

sprx=260
spry=160
set sprite 1,1,1

do
   if upkey() and spry>152 THEN spry=spry-4
   if downkey() and spry<280-31 THEN spry=spry+4
   if leftkey() and sprx>242 THEN sprx=sprx-4
   if rightkey() and sprx<370-22 THEN sprx=sprx+4
   sprite 1,sprx,spry,1
   for x=1 to 4
      for y=1 to 4
         paste image Map(y,x),x*32+210,y*32+120
      next y
   next x
loop
end

~Morph
Owner of MultiCode.NET and Multi2k.NET.
Nothing is something, and something is then nothing. Life is an illusion.

Back to top

Profile PM Email Website

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 24th Mar 2003 02:52

Link

Thats fine, Dont even need to put me in the credits.
Unless you wana..lol

I will mess with your code a bit and see what I can do

Back to top

Profile PM

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 24th Mar 2003 03:41

Link

Ok! I finished.

Here ya go

Hope you dont mind that I cleaned the code to how I code things

remstart
   I hope you dont mind but I cleaned up all the messy code
   to my style of coding. Ive always done things this way
   Sorry, I just got used to it. You can fix it back
   the way you had it if you want. Shouldnt be too
   hard.

~Eponick
remend

`The Game:
gosub Init

mapname$="map.txt"
gosub LoadMap

do
   gosub GetInput
   gosub DoGfx
loop
end
`The end of the game, heh

`Below is where the real work is done:
GetInput:
   if upkey() and spry>152 THEN spry=spry-4
   if downkey() and spry<280-31 THEN spry=spry+4
   if leftkey() and sprx>242 THEN sprx=sprx-4
   if rightkey() and sprx<370-22 THEN sprx=sprx+4
Return

DoGfx:
   for x=1 to 4
      for y=1 to 4
         paste image Map(y,x),x*32+210,y*32+120
      next y
   next x
   sprite 1,sprx,spry,1
Return

LoadMap:
   open to read 8,mapname$
      for x=1 to 4
         for y=1 to 4
            read byte 8,a
            Map(y,x)=a-48
         next y
      next x
   close file 8
Return

Init:
   dim Map(4,4)

load image "sprite.png",1,1
   load image "wtile.png",2,1
   load image "gtile.png",3,1

sprx=260
   spry=160
   set sprite 1,1,1
Return
`That was fun, now wasnt it?

+ Code Snippet

remstart
   I hope you dont mind but I cleaned up all the messy code
   to my style of coding. Ive always done things this way
   Sorry, I just got used to it. You can fix it back
   the way you had it if you want. Shouldnt be too
   hard.

   ~Eponick
remend


`The Game:
gosub Init

mapname$="map.txt"
gosub LoadMap

do
   gosub GetInput
   gosub DoGfx
loop
end
`The end of the game, heh


`Below is where the real work is done:
GetInput:
   if upkey() and spry>152 THEN spry=spry-4
   if downkey() and spry<280-31 THEN spry=spry+4
   if leftkey() and sprx>242 THEN sprx=sprx-4
   if rightkey() and sprx<370-22 THEN sprx=sprx+4
Return

DoGfx:
   for x=1 to 4
      for y=1 to 4
         paste image Map(y,x),x*32+210,y*32+120
      next y
   next x
   sprite 1,sprx,spry,1
Return

LoadMap:
   open to read 8,mapname$
      for x=1 to 4
         for y=1 to 4
            read byte 8,a
            Map(y,x)=a-48
         next y
      next x
   close file 8
Return

Init:
   dim Map(4,4)

   load image "sprite.png",1,1
   load image "wtile.png",2,1
   load image "gtile.png",3,1

   sprx=260
   spry=160
   set sprite 1,1,1
Return
`That was fun, now wasnt it?

Heh, change them back to .bmp's if you want.
Here is whats in my text file:

+ Code Snippet

2333223332333222

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Mini Tile Engine