moving sprites - GameCreators Forum

Author

Message

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 11th Jul 2006 22:00

Link

i am having trouble moving sprites, i need the comp to move a sprite slowly so the player can go around it, i am workin on a 2d game for a start, and it is lookin down on the main charecter as they collect power ups to fight through the enemies. this is the code and i need another way of moving the sprite

gosub _load_lv1
while score = 0
gosub _play_lv1
gosub _movin
endwhile
cls
end
_load_lv1:
load image "media\boxxy.bmp",1
load image "media\boxxy-power up.bmp",2
load image "media\C-1.bmp",3
load image "media\upgrade chip.bmp",4
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
intlife= 1
intscore =1
rem this works fine
do
if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4 :print life
if sprite collision (1,5) then life = life + 1 : delete sprite 5 :print life
if sprite collision (1,3) then life = life - 1 : delete sprite 3 :print life : score = score + 1
if life < 1 then print "game Over!" : end
if life = 2 then set sprite image 1,2: print life
if life = 1 then set sprite image 1,1: print life
return
loop

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:
do
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
return
loop

+ Code Snippet

gosub _load_lv1
while score = 0
gosub _play_lv1
gosub _movin
endwhile
cls
end
_load_lv1:
load image "media\boxxy.bmp",1
load image "media\boxxy-power up.bmp",2
load image "media\C-1.bmp",3
load image "media\upgrade chip.bmp",4
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
intlife= 1
intscore =1
rem this works fine
do
if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4 :print life
if sprite collision (1,5) then life = life + 1 : delete sprite 5 :print life
if sprite collision (1,3) then life = life - 1 : delete sprite 3 :print life : score = score + 1
if life < 1 then print "game Over!" : end
if life = 2 then set sprite image 1,2: print life
if life = 1 then set sprite image 1,1: print life
return
loop

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:
do
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, -20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
move sprite 3, 20;wait 300
return
loop

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 11th Jul 2006 23:23

Link

I haven't tested this, but it should work better than what you have posted.

The problem was that it would go to play level and then be in a do-loop. It never leaves this loop, so it never returns, and therefore never goes to the _movin label.

gosub _load_lv1
gosub _play_lv1

_load_lv1:
load image "media\boxxy.bmp",1
load image "media\boxxy-power up.bmp",2
load image "media\C-1.bmp",3
load image "media\upgrade chip.bmp",4
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
intlife= 1
intscore =1
rem this works fine
do
if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4 :print life
if sprite collision (1,5) then life = life + 1 : delete sprite 5 :print life
if sprite collision (1,3) then life = life - 1 : delete sprite 3 :print life : score = score + 1
if life < 1 then print "game Over!" : end
if life = 2 then set sprite image 1,2: print life
if life = 1 then set sprite image 1,1: print life
return
gosub _movin
loop

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:

move sprite 3, -2

return

+ Code Snippet

gosub _load_lv1
gosub _play_lv1

_load_lv1:
load image "media\boxxy.bmp",1
load image "media\boxxy-power up.bmp",2
load image "media\C-1.bmp",3
load image "media\upgrade chip.bmp",4
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
intlife= 1
intscore =1
rem this works fine
do
if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4 :print life
if sprite collision (1,5) then life = life + 1 : delete sprite 5 :print life
if sprite collision (1,3) then life = life - 1 : delete sprite 3 :print life : score = score + 1
if life < 1 then print "game Over!" : end
if life = 2 then set sprite image 1,2: print life
if life = 1 then set sprite image 1,1: print life
return
gosub _movin
loop

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:

move sprite 3, -2

return

Back to top

Profile PM Website

D Ogre

20

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 11th Jul 2006 23:45 Edited at: 12th Jul 2006 00:22

Link

You will have to place all of the game action code within one loop.
I also suggest using sync within the game loop. This will keep your
game play consistant on any PC. Don't use the WAIT command to set a
delay inside of the main loop. It will cause the entire game to hault
temporarily for one action. You might want to look into using the
TIMER() function for that.

My mods (I did not test the code, but it should work):

sync on
sync rate 0

scrnx=screen width()
scrny=screen height()

gosub _load_lv1

life  = 1
score = 0

move  = 0
direction = 1
delay = timer()+300

repeat

cls
   ink rgb(255,255,255),0
   text 0, 0,"Score: "+str$(score)
   text 0,20,"Lives: "+str$(life)
   gosub _play_lv1
   gosub _movin
   sync

until life < 1

suspend for key
end

_load_lv1:
load image "mediaboxxy.bmp",1
load image "mediaboxxy-power up.bmp",2
load image "mediaC-1.bmp",3
load image "mediaupgrade chip.bmp",4
set sprite 1,0,0
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
rem this works fine

if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4
if sprite collision (1,5) then life = life + 1 : delete sprite 5
if sprite collision (1,3) then life = life - 1 : delete sprite 3 : score = score + 1
if life < 1 then center text scrnx/2,scrny/2,"game Over!"
if life = 2 then set sprite image 1,2
if life = 1 then set sprite image 1,1
sprite 1,sprite x(1),sprite y(1),sprite image(1)
return

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:

if sprite exist(3)=1

if timer() > delay

if move > 40 then direction = -1
   if move <  0 then direction =  1
   delay = timer()+300
   move = move + direction

endif

sprite 3,sprite x(3)+move,sprite y(3),3

endif

return

+ Code Snippet

sync on
sync rate 0

scrnx=screen width()
scrny=screen height()

gosub _load_lv1

life  = 1
score = 0

move  = 0
direction = 1
delay = timer()+300

repeat

   cls
   ink rgb(255,255,255),0
   text 0, 0,"Score: "+str$(score)
   text 0,20,"Lives: "+str$(life)
   gosub _play_lv1
   gosub _movin
   sync

until life < 1

suspend for key
end

_load_lv1:
load image "mediaboxxy.bmp",1
load image "mediaboxxy-power up.bmp",2
load image "mediaC-1.bmp",3
load image "mediaupgrade chip.bmp",4
set sprite 1,0,0
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
rem this works fine

if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4
if sprite collision (1,5) then life = life + 1 : delete sprite 5
if sprite collision (1,3) then life = life - 1 : delete sprite 3 : score = score + 1
if life < 1 then center text scrnx/2,scrny/2,"game Over!"
if life = 2 then set sprite image 1,2
if life = 1 then set sprite image 1,1
sprite 1,sprite x(1),sprite y(1),sprite image(1)
return

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:

if sprite exist(3)=1 

if timer() > delay

  
   if move > 40 then direction = -1
   if move <  0 then direction =  1
   delay = timer()+300
   move = move + direction

endif

sprite 3,sprite x(3)+move,sprite y(3),3

endif

return

All variables for sprite #3 are set up here as an example.
You can change the axis and speed of movement as you like.

Back to top

Profile PM

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 12th Jul 2006 03:11

Link

D ogre that almost works but it is moving left-right and i want it to move up-down then back up. i have thecode u suggested whichs looks like this

sync on
sync rate 0

scrnx=screen width()
scrny=screen height()

gosub _load_lv1

life  = 1
score = 0

move  = 0
direction = 1
delay = timer()+300

repeat

cls
   ink rgb(255,255,255),0
   text 0, 0,"Score: "+str$(score)
   text 0,20,"Lives: "+str$(life)
   gosub _play_lv1
   gosub _movin
   sync

until life < 1

suspend for key
end

_load_lv1:
load image "mediaboxxy.bmp",1
load image "mediaboxxy-power up.bmp",2
load image "mediaC-1.bmp",3
load image "mediaupgrade chip.bmp",4
set sprite 1,0,0
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
rem this works fine

if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4
if sprite collision (1,5) then life = life + 1 : delete sprite 5
if sprite collision (1,3) then life = life - 1 : delete sprite 3 : score = score + 1
if life < 1 then center text scrnx/2,scrny/2,"game Over!"
if life = 2 then set sprite image 1,2
if life = 1 then set sprite image 1,1
sprite 1,sprite x(1),sprite y(1),sprite image(1)
return

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:

if sprite exist(3)=1

if timer() > delay

if move > 40 then direction = -1
   if move <  0 then direction =  1
   delay = timer()+300
   move = move + direction

endif

sprite 3,sprite x(3)+move,sprite y(3),3

endif

return

+ Code Snippet

sync on
sync rate 0

scrnx=screen width()
scrny=screen height()

gosub _load_lv1

life  = 1
score = 0

move  = 0
direction = 1
delay = timer()+300

repeat

   cls
   ink rgb(255,255,255),0
   text 0, 0,"Score: "+str$(score)
   text 0,20,"Lives: "+str$(life)
   gosub _play_lv1
   gosub _movin
   sync

until life < 1

suspend for key
end

_load_lv1:
load image "mediaboxxy.bmp",1
load image "mediaboxxy-power up.bmp",2
load image "mediaC-1.bmp",3
load image "mediaupgrade chip.bmp",4
set sprite 1,0,0
SPRITE 1,20,200,1
SPRITE 4,20,200,4
SPRITE 5,400,200,4
SPRITE 3,300,0,3
return

_play_lv1:
rem this works fine

if upkey () =1 then rotate sprite 1,0 : move sprite 1,1
if downkey ()= 1 then rotate sprite 1,180 : move sprite 1,1
if leftkey ()= 1 then rotate sprite 1,270 : move sprite 1,1
if rightkey ()= 1 then rotate sprite 1,90 : move sprite 1,1
if sprite collision (1,4) then life = life + 1 : delete sprite 4
if sprite collision (1,5) then life = life + 1 : delete sprite 5
if sprite collision (1,3) then life = life - 1 : delete sprite 3 : score = score + 1
if life < 1 then center text scrnx/2,scrny/2,"game Over!"
if life = 2 then set sprite image 1,2
if life = 1 then set sprite image 1,1
sprite 1,sprite x(1),sprite y(1),sprite image(1)
return

rem this is the pesky sprite, it worrks fine too, but not at the samer time as the first loop
_movin:

if sprite exist(3)=1 

if timer() > delay

  
   if move > 40 then direction = -1
   if move <  0 then direction =  1
   delay = timer()+300
   move = move + direction

endif

sprite 3,sprite x(3)+move,sprite y(3),3

endif

return

and i cant figure out which part changes what, so that i could adjust it to what i want

Back to top

Profile PM Email Website

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 12th Jul 2006 06:33

Link

whoops i forgot to mention i am using DB Pro!

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 12th Jul 2006 06:39

Link

(untested)

Up and down is on the y axis just as it would be on a graph. That means you would change this-

sprite 3,sprite x(3)+move,sprite y(3),3

to this-

sprite 3,sprite x(3),sprite y(3)+move,3

or if that is going the wrong way it might be this

sprite 3,sprite x(3),sprite y(3)-move,3

Back to top

Profile PM Website

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 12th Jul 2006 06:45

Link

oh i see thank you so much.

Back to top

Profile PM Email Website

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 12th Jul 2006 07:01

Link

ok that seems to work, but how to i make it go so far then turn around and go back, on a loop?

Back to top

Profile PM Email Website

D Ogre

20

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 13th Jul 2006 01:30

Link

Try changing these two lines:

+ Code Snippet

if move > 40 then direction = -1
if move <  0 then direction =  1

The limit was set in my example code to 40 pixels. Just change it
to whatever works for you. If the code works as you say it does,
the first line above will reverse the direction of the sprite when
it exceeds 40 pixels, and the second line will reverse direction of
the sprite when it is less then 0 pixels from the starting position.

Keep this line as:

+ Code Snippet

sprite 3,sprite x(3),sprite y(3)+move,3

The variable move will be calculated like this:

if move is greater than forty, then move = 41 + (-1) = 40
if move is less than zero, then move = -1 + 1 = 0

and so on...

Remember, addition can be done with positive or negative values.

Move is then added to the current sprite position on the Y axis.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / moving sprites