side scrolling background needs space craft :(

Author

Message

PowerMan

20

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: Manchester

Posted: 25th Jan 2005 07:55

Link

Hello all 2D Masters how are you all doing,
you see the problem is i've come to an obsticle lol. (Big Brick Wall really).

i have a side scrolling dot star background (thats fine)
the problem is: - i have an animated spacecraft with arrowkey funtions, and i need to get the craft ontop of the star background. has any of you gurus got any idea how i do this. thanks for your time

Powerman

Attachments

Login to view attachments

Back to top

Profile PM

PowerMan

20

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: Manchester

Posted: 26th Jan 2005 03:09

Link

sorry the source code is below

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load SCROLLING STARS //////////////////
REM /////////////////////////////////////////////////////////////
REM screen refresh manually, copies double buffer onto screen
_load_stars:
sync rate 0 
sync on

n=500
dim x(n,3)

for i=1 to n
	x(i,1)=rnd(639)+1
	x(i,2)=rnd(479)+ 1
	x(i,3)=rnd(9)+1
next i

DO
	cls 0

for i=1 to n

x(i,1)=x(i,1)-x(i,3)
		
		if x(i,1)<=1
			x(i,1)=640
			x(i,2)=rnd(479)+1
		endif
	
		col=x(i,3)*30
		ink rgb(col,col,col),1

dot x(i,1),x(i,2)
	
	next i
	sync
loop

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load spaceship/////////////////////////
REM /////////////////////////////////////////////////////////////
_load_player:

LOAD BITMAP "craft.bmp",1
FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0
ypos=300
image=1
REM Activate manual syncronization
sync on
REM Begin loop
DO
REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM Refresh screen now
SYNC
REM End Loop
LOOP
REM //////////////////////////////////////////////////////////////////
REM /////////////////// END OF SPACESHIP /////////////////////////////
REM //////////////////////////////////////////////////////////////////

+ Code Snippet

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load SCROLLING STARS //////////////////
REM /////////////////////////////////////////////////////////////
REM screen refresh manually, copies double buffer onto screen
_load_stars:
sync rate 0 
sync on

n=500
dim x(n,3)

for i=1 to n
	x(i,1)=rnd(639)+1
	x(i,2)=rnd(479)+ 1
	x(i,3)=rnd(9)+1
next i

DO
	cls 0


	for i=1 to n

		x(i,1)=x(i,1)-x(i,3)
		
		if x(i,1)<=1
			x(i,1)=640
			x(i,2)=rnd(479)+1
		endif
	
		col=x(i,3)*30
		ink rgb(col,col,col),1

		dot x(i,1),x(i,2)
	
	next i
	sync
loop

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load spaceship/////////////////////////
REM /////////////////////////////////////////////////////////////
_load_player:

LOAD BITMAP "craft.bmp",1
FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0
ypos=300
image=1
REM Activate manual syncronization
sync on
REM Begin loop
DO
REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM Refresh screen now
SYNC
REM End Loop
LOOP
REM //////////////////////////////////////////////////////////////////
REM /////////////////// END OF SPACESHIP /////////////////////////////
REM //////////////////////////////////////////////////////////////////

Back to top

Profile PM

PowerMan

20

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: Manchester

Posted: 26th Jan 2005 03:10

Link

here is the source code that i need help with

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load SCROLLING STARS //////////////////
REM /////////////////////////////////////////////////////////////
REM screen refresh manually, copies double buffer onto screen
_load_stars:
sync rate 0 
sync on

n=500
dim x(n,3)

for i=1 to n
	x(i,1)=rnd(639)+1
	x(i,2)=rnd(479)+ 1
	x(i,3)=rnd(9)+1
next i

DO
	cls 0

for i=1 to n

x(i,1)=x(i,1)-x(i,3)
		
		if x(i,1)<=1
			x(i,1)=640
			x(i,2)=rnd(479)+1
		endif
	
		col=x(i,3)*30
		ink rgb(col,col,col),1

dot x(i,1),x(i,2)
	
	next i
	sync
loop

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load spaceship/////////////////////////
REM /////////////////////////////////////////////////////////////
_load_player:

LOAD BITMAP "craft.bmp",1
FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0
ypos=300
image=1
REM Activate manual syncronization
sync on
REM Begin loop
DO
REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM Refresh screen now
SYNC
REM End Loop
LOOP
REM //////////////////////////////////////////////////////////////////
REM /////////////////// END OF SPACESHIP /////////////////////////////
REM //////////////////////////////////////////////////////////////////

+ Code Snippet

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load SCROLLING STARS //////////////////
REM /////////////////////////////////////////////////////////////
REM screen refresh manually, copies double buffer onto screen
_load_stars:
sync rate 0 
sync on

n=500
dim x(n,3)

for i=1 to n
	x(i,1)=rnd(639)+1
	x(i,2)=rnd(479)+ 1
	x(i,3)=rnd(9)+1
next i

DO
	cls 0


	for i=1 to n

		x(i,1)=x(i,1)-x(i,3)
		
		if x(i,1)<=1
			x(i,1)=640
			x(i,2)=rnd(479)+1
		endif
	
		col=x(i,3)*30
		ink rgb(col,col,col),1

		dot x(i,1),x(i,2)
	
	next i
	sync
loop

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load spaceship/////////////////////////
REM /////////////////////////////////////////////////////////////
_load_player:

LOAD BITMAP "craft.bmp",1
FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0
ypos=300
image=1
REM Activate manual syncronization
sync on
REM Begin loop
DO
REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM Refresh screen now
SYNC
REM End Loop
LOOP
REM //////////////////////////////////////////////////////////////////
REM /////////////////// END OF SPACESHIP /////////////////////////////
REM //////////////////////////////////////////////////////////////////

Back to top

Profile PM

Sol462

20

Years of Service

User Offline

Joined: 12th Sep 2004

Location: playing with the spazookeedoo

Posted: 26th Jan 2005 11:25 Edited at: 26th Jan 2005 11:26

Link

load the ship sprite thingie after you load the background. or was it load the ship first? i cant remember, try both. theres an order that they're displayed.

coffee + monkeys + creativity = games
Operation Pineapple - Multiplayer FPS WIP

Back to top

Profile PM Website

PowerMan

20

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: Manchester

Posted: 27th Jan 2005 05:07

Link

Well i have got the space craft on top of the stars, trial and error (but looking good). I have found that the sync and sync rate has took away my animation. can anyone tell me why?

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load SCROLLING STARS //////////////////
REM /////////////////////////////////////////////////////////////

sync
sync on

n=500
dim x(n,3)

for i=1 to n
	x(i,1)=rnd(639)+1
	x(i,2)=rnd(479)+ 1
	x(i,3)=rnd(9)+1
next i

DO
	cls 0
	for i=1 to n
		x(i,1)=x(i,1)-x(i,3)
		if x(i,1)<=1
			x(i,1)=640
			x(i,2)=rnd(479)+1
		endif
		col=x(i,3)*30
		ink rgb(col,col,col),1
		dot x(i,1),x(i,2)
	next i

LOAD BITMAP "craft.bmp",1

FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0:ypos=300
image=1

REM Activate manual syncronization

FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0:ypos=300
image=1

REM Activate manual syncronization
sync on
REM Begin loop
SPRITE 1,posx,posy,image

DO
REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

rem Spaceship constraints to stay onscreen
rem RIGHT
if xpos>400-sprite width(1) then xpos=600-sprite width(1)
rem LEFT
if xpos<10 then xpos=10
rem TOP
if ypos<10 then ypos=10

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM Begin loop
SPRITE 1,posx,posy,image

REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

rem Spaceship constraints to stay onscreen
rem RIGHT
if xpos>400-sprite width(1) then xpos=600-sprite width(1)
rem LEFT
if xpos<10 then xpos=10
rem TOP
if ypos<10 then ypos=10

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM End Loop	
loop
sync
CLS

+ Code Snippet

REM /////////////////////////////////////////////////////////////
REM ///////////////////// Load SCROLLING STARS //////////////////
REM /////////////////////////////////////////////////////////////


sync
sync on

n=500
dim x(n,3)

for i=1 to n
	x(i,1)=rnd(639)+1
	x(i,2)=rnd(479)+ 1
	x(i,3)=rnd(9)+1
next i

DO
	cls 0
	for i=1 to n
		x(i,1)=x(i,1)-x(i,3)
		if x(i,1)<=1
			x(i,1)=640
			x(i,2)=rnd(479)+1
		endif
		col=x(i,3)*30
		ink rgb(col,col,col),1
		dot x(i,1),x(i,2)
	next i

LOAD BITMAP "craft.bmp",1

FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0:ypos=300
image=1

REM Activate manual syncronization

FOR y=0 TO 1
FOR x=0 TO 2
REM Grab images for spaceship animation
GET IMAGE 1+x+(y*3),(x*50),(y*54),(x*50)+50,(y*54)+54
NEXT x
NEXT y
REM Delete spaceship bitmap
DELETE BITMAP 1
REM Set spaceship variables
xpos=0:ypos=300
image=1

REM Activate manual syncronization
sync on
REM Begin loop
SPRITE 1,posx,posy,image

DO
REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

rem Spaceship constraints to stay onscreen
rem RIGHT
if xpos>400-sprite width(1) then xpos=600-sprite width(1)
rem LEFT
if xpos<10 then xpos=10
rem TOP
if ypos<10 then ypos=10

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM Begin loop
SPRITE 1,posx,posy,image

REM Declare Key Movement Functions for craft
	if rightkey() 	= 1 then inc xpos
	if leftkey() 	= 1 then dec xpos
	if upkey() 		= 1 then dec ypos
	if downkey() 	= 1 then inc ypos

rem Spaceship constraints to stay onscreen
rem RIGHT
if xpos>400-sprite width(1) then xpos=600-sprite width(1)
rem LEFT
if xpos<10 then xpos=10
rem TOP
if ypos<10 then ypos=10

Rem Animate craft and wrap
  	image=image+1 : IF image>3 THEN image=1
REM Update sprite	
	sprite 1,xpos,ypos,image
REM End Loop	
loop
sync
CLS

Back to top

Profile PM

famdylan

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location:

Posted: 1st Feb 2005 12:41 Edited at: 1st Feb 2005 12:42

Link

Try this - I dont see any reason not to use the anijmated sprite command here. If anybody does please tell me why

Back to top

Profile PM Email Website

Sorry your browser is not supported!

2D All the way! / side scrolling background needs space craft :(

Attachments