Once again... continous scrolling

Author

Message

Dextro

19

Years of Service

User Offline

Joined: 26th Feb 2005

Location:

Posted: 4th Sep 2007 02:43 Edited at: 5th Sep 2007 06:24

Link

Hello.
I have been trying to get smooth, continous scrolling for a tile engine for the past year or so, but to no avail.
I asked here in the forums, and I got a function from kevin picone that copies a temporary array onto the map array, so it scrolls continously.
Somehow, it seems that it is scrolling smoothly, but when you run the code and walk, you'll see that a block passes by completely and very fast, thus it's not a smooth, pixel scrolling.
I'm only using 1 layer for the map, so it's not parallax scrolling.
Here's the code:

gosub defTypes
gosub declareVariables
gosub screenSetup
gosub loadData
gosub createImages

do
	gosub Controls
	gosub ScrollScreen
	gosub DisplayPlayer
	sync
loop

screenSetup:
	sync on
	sync rate 30
	backdrop off
	set image colorkey 255,0,255
	set display mode 512, 480, 16
return

defTypes:
	type Tile
		x1 as integer
		x2 as integer
		y1 as integer
		y2 as integer
		image as integer
		mask as integer
		special as integer
	endtype

type Jugador
		x1 as integer
		x2 as integer
		y1 as integer
		y2 as integer
		image as integer
		moved as integer
		MX as integer
	endtype
return

declareVariables:
	TilesPerScreenX = 16                   
	TileSizeX = 32
	TileSizeY = 32
	mapwidth=40
	mapheight=10              
	speedx = 1
	NumOfTilesX = 40
	NumOfTilesY = 7
	player as Jugador
	player.moved = 1
	dim TileMap(NumOfTilesX-1, NumOfTilesY-1) as Tile
	dim temp(NumOfTilesX , NumOfTilesY)
return

createImages:
	load image "road.bmp",1,1
	load image "grass.png",2,0
	load image "fence.bmp", 3,1
	load image "player.bmp", 4,1
	load image "bar.bmp", 5, 1
return

loadData:
	restore lvl
		for y = 0 to NumOfTilesY - 1
			for x = 0 to NumOfTilesX - 1
				read TileMap(x,y).image
				temp(x,y) = TileMap(x,y).image
				TileMap(x,y).x1 = x * TilesizeX
				TileMap(x,y).x2 = (x*32) + TileSizeX
				TileMap(x,y).y1 = (y+6) * TileSizeY
				TileMap(x,y).y2 = ((y+6) * 32) + TileSizeY
			next x
		next y
		player.image = 4
		player.x1 = 320
		player.y1 = 320
		player.y2 = player.y1 + 64
return

Controls:
	if leftkey() = 1
		if player.x1 =< 192
		player.moved = 1
		dec xpos
			if xpos < 0 then inc xpos,mapwidth

player.MX = player.MX - speedx
		else
			player.x1 = player.x1 - speedx-3
		endif
	endif
	
	if rightkey() = 1
		if player.x1 => 320
			player.moved = 1
			inc xpos
			if xpos >= mapwidth then dec xpos, mapwidth
			player.MX = player.MX + speedx
		else
			player.x1 = player.x1 + speedx+3
		endif			
	endif
	if player.moved then gosub CopyMap
return

CopyMap:
	xpos = xpos mod mapwidth
	if xpos < 0 then xpos = mapwidth + xpos
	for y = 0 to NumOftilesY - 1
		for x = 0 to NumOfTilesX - 1
			total = (xpos + x) mod mapwidth
			Tilemap(x,y).image = temp(total,y)
		next x
	next y
return

ScrollScreen:
	mapx = player.MX / 32
	xoff = player.MX - mapx * 32
	for y = 0 to NumOfTilesY - 1
		for x = 0 to NumOfTilesX - 1
			paste image TileMap(x,y).image, (x)*32-xoff, (y+8) * 32
		next x
	next y
return

remstart
ScrollScreen:
		TileNumX = player.MX / TileSizeX
   	TempX = player.MX - (TileNumX * TileSizeX)
   	if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
	   for y = 0 to 6 - Temp2
      	for x = 0 to 15 - Temp1
      	paste image TileMap(x + TileNumX,y + TileNumY).image, TileMap(x,y).x1 - Tempx, (y+8)*TileSizeY, 0
      next x
   next y
remend
DisplayPlayer:
	sprite 1, player.x1, player.y2, 4
return

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

+ Code Snippet

gosub defTypes
gosub declareVariables
gosub screenSetup
gosub loadData
gosub createImages

do
	gosub Controls
	gosub ScrollScreen
	gosub DisplayPlayer
	sync
loop

screenSetup:
	sync on
	sync rate 30
	backdrop off
	set image colorkey 255,0,255
	set display mode 512, 480, 16
return 

defTypes:
	type Tile
		x1 as integer
		x2 as integer
		y1 as integer
		y2 as integer
		image as integer
		mask as integer
		special as integer
	endtype

	type Jugador
		x1 as integer
		x2 as integer
		y1 as integer
		y2 as integer
		image as integer
		moved as integer
		MX as integer
	endtype
return

declareVariables:
	TilesPerScreenX = 16                   
	TileSizeX = 32
	TileSizeY = 32
	mapwidth=40
	mapheight=10              
	speedx = 1
	NumOfTilesX = 40
	NumOfTilesY = 7
	player as Jugador
	player.moved = 1
	dim TileMap(NumOfTilesX-1, NumOfTilesY-1) as Tile
	dim temp(NumOfTilesX , NumOfTilesY)
return

createImages:
	load image "road.bmp",1,1
	load image "grass.png",2,0
	load image "fence.bmp", 3,1
	load image "player.bmp", 4,1
	load image "bar.bmp", 5, 1
return

loadData:
	restore lvl
		for y = 0 to NumOfTilesY - 1
			for x = 0 to NumOfTilesX - 1
				read TileMap(x,y).image
				temp(x,y) = TileMap(x,y).image
				TileMap(x,y).x1 = x * TilesizeX
				TileMap(x,y).x2 = (x*32) + TileSizeX
				TileMap(x,y).y1 = (y+6) * TileSizeY
				TileMap(x,y).y2 = ((y+6) * 32) + TileSizeY
			next x
		next y
		player.image = 4
		player.x1 = 320
		player.y1 = 320
		player.y2 = player.y1 + 64
return

Controls:
	if leftkey() = 1
		if player.x1 =< 192
		player.moved = 1
		dec xpos
			if xpos < 0 then inc xpos,mapwidth

			player.MX = player.MX - speedx
		else
			player.x1 = player.x1 - speedx-3
		endif
	endif
	
	if rightkey() = 1
		if player.x1 => 320
			player.moved = 1
			inc xpos
			if xpos >= mapwidth then dec xpos, mapwidth
			player.MX = player.MX + speedx
		else
			player.x1 = player.x1 + speedx+3
		endif			
	endif
	if player.moved then gosub CopyMap
return

CopyMap:
	xpos = xpos mod mapwidth
	if xpos < 0 then xpos = mapwidth + xpos
	for y = 0 to NumOftilesY - 1
		for x = 0 to NumOfTilesX - 1
			total = (xpos + x) mod mapwidth
			Tilemap(x,y).image = temp(total,y)
		next x
	next y
return

ScrollScreen:
	mapx = player.MX / 32
	xoff = player.MX - mapx * 32
	for y = 0 to NumOfTilesY - 1
		for x = 0 to NumOfTilesX - 1
			paste image TileMap(x,y).image, (x)*32-xoff, (y+8) * 32
		next x
	next y
return

remstart
ScrollScreen:
		TileNumX = player.MX / TileSizeX
   	TempX = player.MX - (TileNumX * TileSizeX)
   	if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
	   for y = 0 to 6 - Temp2
      	for x = 0 to 15 - Temp1
      	paste image TileMap(x + TileNumX,y + TileNumY).image, TileMap(x,y).x1 - Tempx, (y+8)*TileSizeY, 0
      next x
   next y
remend
DisplayPlayer:
	sprite 1, player.x1, player.y2, 4
return

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

By the way, the images are 32*32.

Edit:
Could a Mod please move this to Pro discussion?
Here's a XNA version of the source.

Attachments

Login to view attachments

Back to top

Profile PM Email

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 7th Sep 2007 03:28

Link

This might help you.

http://forum.thegamecreators.com/?m=forum_view&t=105905&b=6

Better to be dead, than to live your life afraid.

Back to top

Profile PM

Dextro

19

Years of Service

User Offline

Joined: 26th Feb 2005

Location:

Posted: 13th Sep 2007 07:00 Edited at: 13th Sep 2007 07:02

Link

Ok, I came up with this code, does the job flawlessly, but I'm sure it's not the best way to achieve it.
This might be interesting for those who like to play with 2d and tile based maps, and everyone in general as I think this might be useful in 3d apps as well.

gosub defTypes
gosub declareVariables
gosub screenSetup
gosub loadData
gosub createImages

do
   gosub Controls
   gosub ScrollScreen
   gosub DisplayPlayer
   sync
loop

screenSetup:
   sync on
   sync rate 60
   backdrop off
   set image colorkey 255,0,255
   set display mode 512, 480, 16
return

defTypes:
   type Tile
      x1 as integer
      x2 as integer
      y1 as integer
      y2 as integer
      image as integer
      mask as integer
      special as integer
   endtype

type Jugador
      x1 as integer
      x2 as integer
      y1 as integer
      y2 as integer
      image as integer
      PosX as integer
      SpeedX
   endtype
return

declareVariables:
   TilesPerScreenX = 16
   TilesPerScreenY = 6
   TileSizeX = 32
   TileSizeY = 32
   NumOfTilesX = 56
   NumOfTilesY = 7
   yOffset = 8
   player as Jugador
   dim TileMap(NumOfTilesX-1, NumOfTilesY-1) as Tile
   player.SpeedX = 5
   player.image = 100
   player.x1 = 320
   player.y1 = 320
   player.y2 = player.y1 + 64
return

createImages:
   load image "road2.bmp", 1, 1
   load image "grass2.bmp", 2, 1
   load image "fence2.bmp",3,1
   load image "player.bmp", 100,1
return

loadData:
   restore lvl
      for y = 0 to NumOfTilesY - 1
         for x = 0 to NumOfTilesX - 1
            read TileMap(x,y).image
            TileMap(x,y).x1 = x * TilesizeX
            TileMap(x,y).x2 = (x*32) + TileSizeX
            TileMap(x,y).y1 = (y+yOffset) * TileSizeY
            TileMap(x,y).y2 = ((y+yOffset) + 32) + TileSizeY
         next x
      next y     
return

Controls:
   if leftkey() = 1 and delay => 2
     `if player.x1 =< 192 then dec player.PosX, player.SpeedX
     `if player.x1 > 192 then dec player.x1, player.SpeedX
     dec player.PosX, player.SpeedX
      delay = 0
   endif

if rightkey() = 1 and delay => 2
         `if player.x1 => 320 then inc player.PosX, player.SpeedX
         `if player.x1 < 320 then inc player.x1, player.SpeedX
         inc player.PosX, player.SpeedX
         delay = 0
   endif
   inc delay
return

ScrollScreen:

if TileNumX = 40 `if TileNumX = the end of the map...
         TileNumX = 0  ` then reset the player coordinates so the player starts at the beginning of the map
         TempX = 0
         player.PosX = 0
         Temp1 = 0
      endif

if player.PosX < 0	`if TileNumX < the start of the map...
      	TileNumX = 50		`then set the player coordinates to the end of the map
      	TempX = 0
      	player.PosX = 1270
      endif
      
      TileNumX = player.PosX / TileSizeX
      TempX = player.PosX - (TileNumX * TileSizeX)
		if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
      for y = 0 to TilesPerScreenY - Temp2
         for x = 0 to TilesPerScreenX - Temp1
         paste image TileMap(x + TileNumX,y + TileNumY).image, TileMap(x,y).x1 - Tempx, TileMap(x,y).y1, 0
      	next x
    	next y
return

DisplayPlayer:
   sprite 1, player.x1, player.y2, player.image
return

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

+ Code Snippet

gosub defTypes
gosub declareVariables
gosub screenSetup
gosub loadData
gosub createImages

do
   gosub Controls
   gosub ScrollScreen
   gosub DisplayPlayer
   sync
loop

screenSetup:
   sync on
   sync rate 60
   backdrop off
   set image colorkey 255,0,255
   set display mode 512, 480, 16
return

defTypes:
   type Tile
      x1 as integer
      x2 as integer
      y1 as integer
      y2 as integer
      image as integer
      mask as integer
      special as integer
   endtype

   type Jugador
      x1 as integer
      x2 as integer
      y1 as integer
      y2 as integer
      image as integer
      PosX as integer
      SpeedX
   endtype
return

declareVariables:
   TilesPerScreenX = 16
   TilesPerScreenY = 6
   TileSizeX = 32
   TileSizeY = 32
   NumOfTilesX = 56
   NumOfTilesY = 7
   yOffset = 8
   player as Jugador
   dim TileMap(NumOfTilesX-1, NumOfTilesY-1) as Tile
   player.SpeedX = 5
   player.image = 100
   player.x1 = 320
   player.y1 = 320
   player.y2 = player.y1 + 64
return

createImages:
   load image "road2.bmp", 1, 1
   load image "grass2.bmp", 2, 1
   load image "fence2.bmp",3,1
   load image "player.bmp", 100,1
return

loadData:
   restore lvl
      for y = 0 to NumOfTilesY - 1
         for x = 0 to NumOfTilesX - 1
            read TileMap(x,y).image
            TileMap(x,y).x1 = x * TilesizeX
            TileMap(x,y).x2 = (x*32) + TileSizeX
            TileMap(x,y).y1 = (y+yOffset) * TileSizeY
            TileMap(x,y).y2 = ((y+yOffset) + 32) + TileSizeY
         next x
      next y     
return

Controls:
   if leftkey() = 1 and delay => 2
     `if player.x1 =< 192 then dec player.PosX, player.SpeedX
     `if player.x1 > 192 then dec player.x1, player.SpeedX
     dec player.PosX, player.SpeedX
      delay = 0
   endif

   if rightkey() = 1 and delay => 2
         `if player.x1 => 320 then inc player.PosX, player.SpeedX
         `if player.x1 < 320 then inc player.x1, player.SpeedX
         inc player.PosX, player.SpeedX
         delay = 0
   endif
   inc delay
return

ScrollScreen:

      if TileNumX = 40 `if TileNumX = the end of the map...
         TileNumX = 0  ` then reset the player coordinates so the player starts at the beginning of the map
         TempX = 0
         player.PosX = 0
         Temp1 = 0
      endif

      if player.PosX < 0	`if TileNumX < the start of the map...
      	TileNumX = 50		`then set the player coordinates to the end of the map
      	TempX = 0
      	player.PosX = 1270
      endif
      
      TileNumX = player.PosX / TileSizeX
      TempX = player.PosX - (TileNumX * TileSizeX)
		if TilesPerScreenX + TileNumX >= NumOfTilesX then Temp1 = 1
      for y = 0 to TilesPerScreenY - Temp2
         for x = 0 to TilesPerScreenX - Temp1
         paste image TileMap(x + TileNumX,y + TileNumY).image, TileMap(x,y).x1 - Tempx, TileMap(x,y).y1, 0
      	next x
    	next y
return

DisplayPlayer:
   sprite 1, player.x1, player.y2, player.image
return

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

By the way, the media consists of 3 images of 32*32 pixels each, and an image of 32*64.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Once again... continous scrolling

Attachments