Various 2D Questions - GameCreators Forum

Author

Message

Vid

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: United States

Posted: 9th Mar 2003 01:36

Link

ok I have several questions,

1.Extremely nooby question, how do i control the speed of the animation of my sprites... not FPS right?

2.Can i incorporate 3D particle effects to a two dimensional game with no glitches to images in the background?

3.With a 2D tile system, would i have to make a loop for the size of the map, then use a sprite for each tile?

4.I have more that will be posted on this thread shortly.

Thanks,
Vid

Back to top

Profile PM Email

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 9th Mar 2003 03:26

Link

1.Extremely nooby question, how do i control the speed of the animation of my sprites... not FPS right?

u can base the timing of each cell via your own timer commands or via the sync command and rely on play sprite.

2.Can i incorporate 3D particle effects to a two dimensional game with no glitches to images in the background?

hmm id use 3d plains as srites then u could access ghosting of psuedo sprites and particles will be seen through them if u wanted.

3.With a 2D tile system, would i have to make a loop for the size of the map, then use a sprite for each tile?

ya its 3 dimensions

so bascially something to this effect will be the for loop for a 3d tileset

assuming 640 x 480 using 32 x 32 sized sprites.
and sprites have been declared

for x = 1 to 10
for y = 1 to 20

position sprite 1,x*10,y*10,1

rem additional code here of course

print x
print y

next x
next y

u should always reduce the amount of work for the processor.
If u can make parts of the screen non interactive when not used or if u can mimic areas with blocks of images instead of one per tile u will gain a speed advantage.

it should be ok for DBP tho to use a sprite per tile.

4.I have more that will be posted on this thread shortly.

k

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

CloseToPerfect

21

Years of Service

User Offline

Joined: 20th Dec 2002

Location: United States

Posted: 9th Mar 2003 06:30

Link

you can't use the same sprite number for each tile.

for x = 1 to 10
for y = 1 to 20
inc s,1
position sprite s,x*10,y*10,1
next x
next y
s = 0

Back to top

Profile PM Email

Vid

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: United States

Posted: 10th Mar 2003 00:52

Link

Thanks guys, im a bit confused with using an external array of data for a tile based game, such as a file like:

111111111111111
111222222221111
111111122111111
111111122111111
111111122111111

where 1= grass sprite and 2= path or whatever. Whats the simplest way to explain to me how to get whatever number to become a certain tile srite.

I have been to www.underweardesign.com and have DLed the tuts on this but i just need in plain english what you have to do in order.

Thanks All

Vid

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 11th Mar 2003 04:18

Link

I hope this helps...

remstart 
The Tile Engine: Programmed by Edward Jomisko 2/2003

remend

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
	
	frame=0;			
	
	sync rate 60;	rem sets frame rate to 30 frames per second
	sync on
	
	
	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 **** WORLD DATA ****
	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
	dim Ar_World(WorldSizeX,WorldSizeY)

rem **** LOAD TILE-WORLD BMP'S ****
	load image "ice01.bmp" ,500
	load image "mossy01.bmp" ,502
	load image "grass.bmp" ,501
	load image "pave11.bmp",503
	
	rem **** LOAD WORLD FROM DATA ****
	restore worlddata;		rem restore data pointer to label worlddata
		
		for IndexY=0 to 19
			for IndexX=0 to 19
				read Val
				Ar_World(IndexX,IndexY) =Val
			next IndexX
		next IndexY

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
	
	rem !!!!!!!!!!!!!!!!!!!!!!! JUMPS to (MAIN)
	goto main
	set current bitmap 0
	
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)
	paste image TileNum,sx,sy
endfunction drawtile

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 ***** Screen fade_out function ****
function fade_out()
rem Fade picture out
		for f=0 to 255 step 8
			r=255-f
			g=255-f
			b=255-f
			set gamma r,g,b
		next f
	rem Short wait
	sleep 500
endfunction fade_out

rem **** Screen fade_in function ****
function fade_in()
		for f=0 to 255 step 8
			r=f
			g=f
			b=f*2
			set gamma r,g,b
		next f
	rem Short wait
	sleep 500
	rem Restore and End
	set gamma 255,255,255
endfunction fade_in

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

rem -----------------------------------------------------------------
rem /////////////////   M A I N  ///////////////////////////
main:
while FL_GameDone<>1

rem ------------------------------------------------------------------
rem ==================================================================
rem ////////////////////////////////////////////////////////
rem //
rem //       GAME LOOP ACTAULLY BEGINS HERE!!!!           //
rem //
rem ////////////////////////////////////////////////////////

rem **** Turn sync on to set framerate ****
	rem **** Count frames up to 4 then reset to 0
	
	frame=frame+1
	if frame=2 then frame=0
	sync

rem **** Draw the game world ****
		for IndexY=TopMost to BottomMost
			for IndexX=LeftMost to RightMost				
				tile=Ar_World(IndexX,IndexY)
				select tile
				case 0: TileNum=500: endcase
				case 1: TileNum=501: endcase
				case 2: TileNum=502: endcase
				case 3: TileNum=503: endcase
				draw_tile(TileNum,sx,sy)
				endselect	
			sx=sx+TileSize; ex=ex+TileSize 
			next IndexX
			sx=0; ex=39
			sy=sy+39; ey=ey+39
		next IndexY

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 **** Update player locationc ****
	rem **** only allow movement every 4th loop cycle
	if frame>0 then gosub getinput
	
	rem **** Reset data for next frame ****
	sx=0
	sy=0
	ex=39
	ey=39
	FL_Moved=0
endwhile
end
rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                  END OF GAME LOOP                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////
rem
rem ======================================================================
rem ----------------------------------------------------------------------

rem //////// Subroutines ///////////////////////////////////////////

rem **** Display character Attributes ****

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 Ar_World(PWLocX,PWLocY-1)>=1 then FL_Walkable=1
	
	if PGridLocY=MaxUp and FL_Walkable=1
	TopMost=TopMost-1
	BottomMost=BottomMost-1
	PWLocY=PWLocY-1
	endif

if FL_Walkable=1 and PGridLocY>MaxUp
	PWLocY=PWLocY-1 
	PGridLocY=PGridLocY-1
	endif

FL_Walkable=0
	FL_Moved=1
return

rem **** Verify that player can move down ****
chdwmov:
	if Ar_World(PWLocX,PWLocY+1)>=1 then FL_Walkable=1
	if PGridLocY=MaxDown and FL_Walkable=1
	TopMost=TopMost+1
	BottomMost=BottomMost+1
	PWLocY=PWLocY+1
	endif
	
	if FL_Walkable=1 and PGridLocY<MaxDown
	PWLocY=PWLocY+1
	PGridLocY=PGridLocY+1
	endif

FL_Walkable=0
	FL_Moved=1
return

rem **** Verify that player can move left ****
chltmov:
	if Ar_World(PWLocX-1,PWLocY)>=1 then FL_Walkable=1
	
	if PGridLocX=MaxLeft and FL_Walkable=1
   LeftMost=LeftMost-1
	RightMost=RightMost-1
	PWLocX=PWLocX-1
	endif
	
	if FL_Walkable=1 and PGridLocX>MaxLeft
	PWLocX=PWLocX-1
	PGridLocX=PGridLocX-1
	endif
	
	FL_Walkable=0
	FL_Moved=1
return

rem **** Verify that player can move right ****
chrtmov:
	if Ar_World(PWLocX+1,PWLocY)>=1 then FL_Walkable=1
	
	if PGridLocX=MaxRight and FL_Walkable=1 
   LeftMost=LeftMost+1
	RightMost=RightMost+1
	PWLocX=PWLocX+1
	endif

if FL_Walkable=1 and PGridLocX<MaxRight
	PWLocX=PWLocX+1
	PGridLocX=PGridLocX+1
	endif
	
	FL_Walkable=0
	FL_Moved=1
return

rem **** Player Run ****
plrun:
	FL_BattleOver=1
return

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

worlddata:
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

+ Code Snippet

	remstart 
The Tile Engine: Programmed by Edward Jomisko 2/2003



remend

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
	
	frame=0;			
	
	sync rate 60;	rem sets frame rate to 30 frames per second
	sync on
	
	
	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 **** WORLD DATA ****
	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
	dim Ar_World(WorldSizeX,WorldSizeY)

	
	rem **** LOAD TILE-WORLD BMP'S ****
	load image "ice01.bmp" ,500
	load image "mossy01.bmp" ,502
	load image "grass.bmp" ,501
	load image "pave11.bmp",503
	
	rem **** LOAD WORLD FROM DATA ****
	restore worlddata;		rem restore data pointer to label worlddata
		
		for IndexY=0 to 19
			for IndexX=0 to 19
				read Val
				Ar_World(IndexX,IndexY) =Val
			next IndexX
		next IndexY

	
	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
	
	rem !!!!!!!!!!!!!!!!!!!!!!! JUMPS to (MAIN)
	goto main
	set current bitmap 0
	
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)
	paste image TileNum,sx,sy
endfunction drawtile


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 ***** Screen fade_out function ****
function fade_out()
rem Fade picture out
		for f=0 to 255 step 8
			r=255-f
			g=255-f
			b=255-f
			set gamma r,g,b
		next f
	rem Short wait
	sleep 500
endfunction fade_out


rem **** Screen fade_in function ****
function fade_in()
		for f=0 to 255 step 8
			r=f
			g=f
			b=f*2
			set gamma r,g,b
		next f
	rem Short wait
	sleep 500
	rem Restore and End
	set gamma 255,255,255
endfunction fade_in

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

rem -----------------------------------------------------------------
rem /////////////////   M A I N  ///////////////////////////
main:
while FL_GameDone<>1
	

rem ------------------------------------------------------------------
rem ==================================================================
rem ////////////////////////////////////////////////////////
rem //
rem //       GAME LOOP ACTAULLY BEGINS HERE!!!!           //
rem //
rem ////////////////////////////////////////////////////////


	rem **** Turn sync on to set framerate ****
	rem **** Count frames up to 4 then reset to 0
	
	frame=frame+1
	if frame=2 then frame=0
	sync

	rem **** Draw the game world ****
		for IndexY=TopMost to BottomMost
			for IndexX=LeftMost to RightMost				
				tile=Ar_World(IndexX,IndexY)
				select tile
				case 0: TileNum=500: endcase
				case 1: TileNum=501: endcase
				case 2: TileNum=502: endcase
				case 3: TileNum=503: endcase
				draw_tile(TileNum,sx,sy)
				endselect	
			sx=sx+TileSize; ex=ex+TileSize 
			next IndexX
			sx=0; ex=39
			sy=sy+39; ey=ey+39
		next IndexY

	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 **** Update player locationc ****
	rem **** only allow movement every 4th loop cycle
	if frame>0 then gosub getinput
	
	rem **** Reset data for next frame ****
	sx=0
	sy=0
	ex=39
	ey=39
	FL_Moved=0
endwhile
end
rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                  END OF GAME LOOP                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////
rem
rem ======================================================================
rem ----------------------------------------------------------------------





rem //////// Subroutines ///////////////////////////////////////////

rem **** Display character Attributes ****



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 Ar_World(PWLocX,PWLocY-1)>=1 then FL_Walkable=1
	
	if PGridLocY=MaxUp and FL_Walkable=1
	TopMost=TopMost-1
	BottomMost=BottomMost-1
	PWLocY=PWLocY-1
	endif

	if FL_Walkable=1 and PGridLocY>MaxUp
	PWLocY=PWLocY-1 
	PGridLocY=PGridLocY-1
	endif

	FL_Walkable=0
	FL_Moved=1
return

rem **** Verify that player can move down ****
chdwmov:
	if Ar_World(PWLocX,PWLocY+1)>=1 then FL_Walkable=1
	if PGridLocY=MaxDown and FL_Walkable=1
	TopMost=TopMost+1
	BottomMost=BottomMost+1
	PWLocY=PWLocY+1
	endif
	
	if FL_Walkable=1 and PGridLocY<MaxDown
	PWLocY=PWLocY+1
	PGridLocY=PGridLocY+1
	endif

	FL_Walkable=0
	FL_Moved=1
return

rem **** Verify that player can move left ****
chltmov:
	if Ar_World(PWLocX-1,PWLocY)>=1 then FL_Walkable=1
	
	if PGridLocX=MaxLeft and FL_Walkable=1
   LeftMost=LeftMost-1
	RightMost=RightMost-1
	PWLocX=PWLocX-1
	endif
	
	if FL_Walkable=1 and PGridLocX>MaxLeft
	PWLocX=PWLocX-1
	PGridLocX=PGridLocX-1
	endif
	
	FL_Walkable=0
	FL_Moved=1
return

rem **** Verify that player can move right ****
chrtmov:
	if Ar_World(PWLocX+1,PWLocY)>=1 then FL_Walkable=1
	
	if PGridLocX=MaxRight and FL_Walkable=1 
   LeftMost=LeftMost+1
	RightMost=RightMost+1
	PWLocX=PWLocX+1
	endif

	if FL_Walkable=1 and PGridLocX<MaxRight
	PWLocX=PWLocX+1
	PGridLocX=PGridLocX+1
	endif
	
	FL_Walkable=0
	FL_Moved=1
return




rem **** Player Run ****
plrun:
	FL_BattleOver=1
return

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

worlddata:
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

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 11th Mar 2003 04:33

Link

I took out some of the extra stuff such as the viewable grid values and the movement so that you could just see the tile blit sections and the data elements

remstart 
The Tile Engine: Programmed by Edward Jomisko 2/2003

rem //////////////////////////////////////////////////////////////
rem //                                                          //
rem //        Initialize Game variables & objects               //
rem //                                                          //
rem //////////////////////////////////////////////////////////////
rem --------------------------------------------------------------
rem //////////////////////   INIT   //////////////////////////////
init:
	
	
	rem **** WORLD DATA ****
	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
	dim Ar_World(WorldSizeX,WorldSizeY)

rem **** LOAD TILE-WORLD BMP'S ****
	load image "ice01.bmp" ,500
	load image "mossy01.bmp" ,502
	load image "grass.bmp" ,501
	load image "pave11.bmp",503
	
	rem **** LOAD WORLD FROM DATA ****
	restore worlddata;		rem restore data pointer to label worlddata
		
		for IndexY=0 to 19
			for IndexX=0 to 19
				read Val
				Ar_World(IndexX,IndexY) =Val
			next IndexX
		next IndexY

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)
	paste image TileNum,sx,sy
endfunction drawtile

rem -----------------------------------------------------------------
rem /////////////////   M A I N  ///////////////////////////
main:
while FL_GameDone<>1

rem ------------------------------------------------------------------
rem ==================================================================
rem ////////////////////////////////////////////////////////
rem //
rem //       GAME LOOP ACTAULLY BEGINS HERE!!!!           //
rem //
rem ////////////////////////////////////////////////////////

rem **** Turn sync on to set framerate ****
	rem **** Count frames up to 4 then reset to 0
	
	
	sync

rem **** Draw the game world ****
		for IndexY=TopMost to BottomMost
			for IndexX=LeftMost to RightMost				
				tile=Ar_World(IndexX,IndexY)
				select tile
				case 0: TileNum=500: endcase
				case 1: TileNum=501: endcase
				case 2: TileNum=502: endcase
				case 3: TileNum=503: endcase
				draw_tile(TileNum,sx,sy)
				endselect	
			sx=sx+TileSize; ex=ex+TileSize 
			next IndexX
			sx=0; ex=39
			sy=sy+39; ey=ey+39
		next IndexY

rem **** Reset data for next frame ****
	sx=0
	sy=0
	ex=39
	ey=39
	FL_Moved=0
endwhile
end
rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                  END OF GAME LOOP                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////
rem
rem ======================================================================
rem ----------------------------------------------------------------------

rem //////// Subroutines ///////////////////////////////////////////

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

worlddata:
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

+ Code Snippet

	remstart 
The Tile Engine: Programmed by Edward Jomisko 2/2003



rem //////////////////////////////////////////////////////////////
rem //                                                          //
rem //        Initialize Game variables & objects               //
rem //                                                          //
rem //////////////////////////////////////////////////////////////
rem --------------------------------------------------------------
rem //////////////////////   INIT   //////////////////////////////
init:
	
	
	rem **** WORLD DATA ****
	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
	dim Ar_World(WorldSizeX,WorldSizeY)

	
	rem **** LOAD TILE-WORLD BMP'S ****
	load image "ice01.bmp" ,500
	load image "mossy01.bmp" ,502
	load image "grass.bmp" ,501
	load image "pave11.bmp",503
	
	rem **** LOAD WORLD FROM DATA ****
	restore worlddata;		rem restore data pointer to label worlddata
		
		for IndexY=0 to 19
			for IndexX=0 to 19
				read Val
				Ar_World(IndexX,IndexY) =Val
			next IndexX
		next IndexY

	
	
	
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)
	paste image TileNum,sx,sy
endfunction drawtile


rem -----------------------------------------------------------------
rem /////////////////   M A I N  ///////////////////////////
main:
while FL_GameDone<>1
	

rem ------------------------------------------------------------------
rem ==================================================================
rem ////////////////////////////////////////////////////////
rem //
rem //       GAME LOOP ACTAULLY BEGINS HERE!!!!           //
rem //
rem ////////////////////////////////////////////////////////


	rem **** Turn sync on to set framerate ****
	rem **** Count frames up to 4 then reset to 0
	
	
	sync

	rem **** Draw the game world ****
		for IndexY=TopMost to BottomMost
			for IndexX=LeftMost to RightMost				
				tile=Ar_World(IndexX,IndexY)
				select tile
				case 0: TileNum=500: endcase
				case 1: TileNum=501: endcase
				case 2: TileNum=502: endcase
				case 3: TileNum=503: endcase
				draw_tile(TileNum,sx,sy)
				endselect	
			sx=sx+TileSize; ex=ex+TileSize 
			next IndexX
			sx=0; ex=39
			sy=sy+39; ey=ey+39
		next IndexY

	
	
	rem **** Reset data for next frame ****
	sx=0
	sy=0
	ex=39
	ey=39
	FL_Moved=0
endwhile
end
rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                  END OF GAME LOOP                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////
rem
rem ======================================================================
rem ----------------------------------------------------------------------





rem //////// Subroutines ///////////////////////////////////////////


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

worlddata:
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

Back to top

Profile PM Email

Vid

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: United States

Posted: 12th Mar 2003 05:58

Link

Zenassem,
Thanks it helps majorly. Your an extremely organized code writer i dont see that often. thanks for al your help with the tiling engine i'll try my best to use your source as a basis of my own.

Again thanks,
-ViD-

Back to top

Profile PM Email

Vid

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: United States

Posted: 12th Mar 2003 06:20

Link

Zenassem,
I get one error with the code when i tried running yours exactly, for the draw_tile function, when it compiles it says that draw_tile is an unknown command, but its supposed to act as a function. is this because i am presently using the evaluation version of DBPro because im very sure the code is correct. If it is my version, no worries, my full version should be here tomorrow

thanks,
-ViD-

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 12th Mar 2003 21:20

Link

I'm not sure about the trial version. You can either try removing the underscore from the function name or take out the function and the function call all together and paste the code that's inside the function into the loop where the call was located.

This code was written in DBV113. I'll test it in DBPRO as soon as it arrives.

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 12th Mar 2003 21:25

Link

If you want I'll post up code more dedicated to your request later today. I pulled the prior code snippet from an app that had more stuff going on. Also the new code has an additional dimension to the array that allows for 5 layers.

Since your version may not like functions I'll code it straigth into the loop.

Back to top

Profile PM Email

Vid

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: United States

Posted: 13th Mar 2003 01:50

Link

Zenassem,
Thanks for all the help, i'll ook forward to the future posts.

-ViD-

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 13th Mar 2003 04:00

Link

here's the modified 3 dimensional array for 5 layers. Layer 2 is even with the character. I am going to release the completed code for the tile engine, mapmaker, and sample rpg when it's complete.

remstart
Tile Engine sample: Programmed by Edward Jomisko 2/2003

remend

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

sync rate 60;   rem sets frame rate to 30 frames per second
   sync on

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 **** 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 TILE-WORLD BMP'S ****
   load image "ice01.bmp" ,500
   load image "mossy01.bmp" ,502
   load image "grass.bmp" ,501
   load image "pave11.bmp",503

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 Val
            Ar_World(IndexX,IndexY,IndexZ) =Val
         next IndexX
      next IndexY
   next IndexZ

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

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

rem ------------------------------------------------------------------
rem =========================================================================================================
rem =========================================================================================================
rem ////////////////////////////////////////////////////////
rem //
rem //       GAME LOOP ACTAULLY BEGINS HERE!!!!           //
rem //
rem ////////////////////////////////////////////////////////
rem ------------------------------------------------------------------
rem /////////////////   M A I N  ///////////////////////////
main:
while FL_GameDone<>1

rem **** Turn sync on to set framerate ****
   sync

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
            if TileNum<>500
            paste image TileNum,sx,sy
            endif
            endselect
         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 ****

rem **** Update player locationc ****

rem **** Check for monster encounter ****

rem **** Reset data for next frame ****
   sx=0
   sy=0
   ex=39
   ey=39
   FL_Moved=0
endwhile
end
rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                  END OF GAME LOOP                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////
rem
rem ===========================================================================================================
rem ===========================================================================================================
rem ----------------------------------------------------------------------

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,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 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,2,2,2,2,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 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 3
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

+ Code Snippet

remstart
Tile Engine sample: Programmed by Edward Jomisko 2/2003



remend

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


   sync rate 60;   rem sets frame rate to 30 frames per second
   sync on




   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 **** 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 TILE-WORLD BMP'S ****
   load image "ice01.bmp" ,500
   load image "mossy01.bmp" ,502
   load image "grass.bmp" ,501
   load image "pave11.bmp",503

   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 Val
            Ar_World(IndexX,IndexY,IndexZ) =Val
         next IndexX
      next IndexY
   next IndexZ


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


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


rem ------------------------------------------------------------------
rem =========================================================================================================
rem =========================================================================================================
rem ////////////////////////////////////////////////////////
rem //
rem //       GAME LOOP ACTAULLY BEGINS HERE!!!!           //
rem //
rem ////////////////////////////////////////////////////////
rem ------------------------------------------------------------------
rem /////////////////   M A I N  ///////////////////////////
main:
while FL_GameDone<>1

   rem **** Turn sync on to set framerate ****
   sync

   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
            if TileNum<>500
            paste image TileNum,sx,sy
            endif
            endselect
         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 ****

   rem **** Update player locationc ****

   rem **** Check for monster encounter ****

   rem **** Reset data for next frame ****
   sx=0
   sy=0
   ex=39
   ey=39
   FL_Moved=0
endwhile
end
rem /////////////////////////////////////////////////////////////////
rem //                                                             //
rem //                  END OF GAME LOOP                           //
rem //                                                             //
rem /////////////////////////////////////////////////////////////////
rem
rem ===========================================================================================================
rem ===========================================================================================================
rem ----------------------------------------------------------------------



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,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 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,2,2,2,2,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 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 3
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

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 13th Mar 2003 04:04

Link

note:
In the above, I don't draw the water tiles. 0's represent transparent tiles.

Back to top

Profile PM Email

Magnum

21

Years of Service

User Offline

Joined: 3rd Apr 2003

Location:

Posted: 7th Apr 2003 00:20

Link

zennassem,

I am new to DBpro and have been looking over the board for info on how to create a background for a 2D game. This code snippet you posted has helped me understand what needs to be done.

I figured that might be the hardest part for me to learn, but turns out it might be fairly easy...

One thing I did notice, I had to move your If Tilenum<>500 command outside the SELECT CASE command to get it to work for me..

+ Code Snippet

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
            endselect
            if TileNum<>500
                paste image TileNum,sx,sy
            endif
         sx=sx+TileSize; ex=ex+TileSize
         next IndexX
         sx=0; ex=39
         sy=sy+39; ey=ey+39
      next IndexY
      sy=0
   next IndexZ

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / Various 2D Questions