Keeping track of multiple animated sprites

Author

Message

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 14th Sep 2014 21:11

Link

I'm trying to keep track of multiple independently playing sprites, but I'm not sure if I fully understand how the play sprite or create animated sprite commands work. Either that, or I'm missing something else entirely.

The goal of this code is to simply start an explosion sprite where I click the mouse, and have it complete all the frames of the sprite. But if I click somewhere else before the first one finishes, I'd like a new sprite to start there. To do this, I'm using a short function to find an available sprite number to create a new animated sprite.

I'm wondering if I cannot use create animated sprite this way and need to use something like clone sprite?

+ Code Snippet

initGame()
runGame()
end

function runGame()
	do	
		if mouseclick()
			thisSprite = freeSprite()
			create animated sprite thisSprite, "media\smboom1.bmp", 6, 1, 1
			offset sprite thisSprite, 16, 16
    		set sprite frame thisSprite, 1
    		sprite thisSprite, mousex(), mousey(), 1
 		endif

		explosion()
   		sync
	loop
endfunction

rem this function just plays the next frame of all the explosions
function explosion()
	for x=1 to 50
		if sprite exist(x)
	    	if sprite frame(x)<6
    			play sprite x, 1, 6, 100
    		endif
    	endif
    next x
endfunction

function initGame()
	sync on
	sync rate 60

	backdrop on
	color backdrop 0
endfunction

function freeSprite() 
	availSprite = 0
	for y=1 to 50
		if y = 50
			availSprite = 1
		endif
		if (sprite exist(y) = 0)
			availSprite = y
		endif
	next y
endfunction availSprite

Back to top

Profile PM

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 15th Sep 2014 00:08 Edited at: 15th Sep 2014 00:09

Link

Okay, I'm a little closer now. I guess I don't have to worry about handling each frame with sync when using animated sprites and the play sprite command. This code will put a sprite where I click, but none of them appear to be going through all the frames, and sometimes, I'm getting the whole image back. Any ideas?

+ Code Snippet

initGame()
runGame()
end

function runGame()
	do	
		if mouseclick()	
    		        sprite currentSprite, mousex(), mousey(), 1
    		        play sprite currentSprite, 1, 6, 100
    		        currentSprite = currentSprite + 1
    		        if currentSprite = 11
    			        delete sprite 1
    			        currentSprite = 1
    		        endif
 		endif
   		sync
	loop
endfunction

rem this function just plays the next frame of all the explosions

function initGame()
	sync on
	sync rate 60

	backdrop on
	color backdrop 0
	create animated sprite 1, "media\smboom1.bmp", 6, 1, 1
	offset sprite 1, 16, 16
	set sprite frame 1, 1
	for t=2 to 10
		clone sprite 1, t
	next t
	global currentSprite = 1
endfunction

Back to top

Profile PM

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 15th Sep 2014 00:15

Link

Curiouser and curiouser...I'm very close now, and yet still utterly baffled. I don't understand the relationship between sync and play sprite.

This code will put one of my animated explosion sprites on the screen, but only a frame of it. If I hold the mouse button down, it'll play through all the frames continuously. In fact, it looks like it repeats each frame 2 or 3 times. I can also click elsewhere and a new sprite will be pasted there, but only up to about 3 sprites can be on the screen at a time. Any idea what's going on here?

+ Code Snippet

initGame()
runGame()
end

function runGame()
	do	
		if mouseclick()	
			if (sprite exist(currentSprite) = 0)
				delete sprite currentSprite
			endif
    		sprite currentSprite, mousex(), mousey(), 1
    		play sprite currentSprite, 1, 6, 100
    		currentSprite = currentSprite + 1
    		if currentSprite = 11
    			currentSprite = 1
    		endif
 		endif
   		sync
	loop
endfunction

rem this function just plays the next frame of all the explosions

function initGame()
	sync on
	sync rate 60

	backdrop on
	color backdrop 0
	create animated sprite 1, "media\smboom1.bmp", 6, 1, 1
	offset sprite 1, 16, 16
	set sprite frame 1, 1
	for t=2 to 10
		clone sprite 1, t
	next t
	global currentSprite = 1
endfunction

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Sep 2014 03:28 Edited at: 15th Sep 2014 03:41

Link

Try this:

+ Code Snippet

autocam off
sync on
make object sphere 1,5
velocidad=50
spr=1
position camera -40,40,-40
point camera 0,0,0
DO
set cursor 0,0
print "Sprite  ",spr
print screen fps()

`Creatin sprites with mouseclik
if mouseclick()=1
   ss=ss+1
   if ss=2 then create animated sprite spr,"exp35.png",6,5,1 :sprite spr,mousex()-64,mousey()-64,1:inc spr
   else
   ss=0
endif

`Playing sprites   ...we can add more than 20, it will reset sprites when we kill sprites.
for i= 1 to 20
   if sprite exist(i)
      play sprite i,1,30,velocidad
      if sprite frame(i)=30 then hide sprite i:delete sprite i
      if spr>20 then spr=1
   endif
next i

sync
LOOP

Attached example

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 15th Sep 2014 18:31

Link

Ah! I see now. It took me a while to figure out what your "ss" variable was doing. If I removed that part of the code, and just made it so a new sprite was created for every mouseclick, what actually happened was a new sprite was created every cycle the mousebutton was held for. Hold the button too long, and I quickly hit the sprite limit. It looks like the "ss" variable only kicks off one and only one sprite creation per mouse click, correct?

I'm just not sure when the "else ss=0" is ever evaluated, because I saw the as long as the mouse button is held, ss keeps incrementing. But as soon as the mouse button is let go, it would never get into the "if mouseclick()=1" condition statement. Can you explain this code a little more?

The code I created with my sprite graphic is attached.

Attachments

Login to view attachments

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Sep 2014 19:58

Link

Quote: "I'm just not sure when the "else ss=0" is ever evaluated, because I saw the as long as the mouse button is held, ss keeps incrementing. But as soon as the mouse button is let go, it would never get into the "if mouseclick()=1" condition statement. Can you explain this code a little more?"

" ss " is the name of the variable . It is like a counter that start when we mouseclick, and it reset when we release the mouse, to be ready to start again....remember that one more sprite will be create only if ss=2 ...not if ss is bigger , and the counter is always running while we press right-mouse.

This code is better.

+ Code Snippet

autocam off
sync on
make object sphere 1,5
velocidad=50
spr=1
position camera -40,40,-40
point camera 0,0,0
DO
set cursor 0,0
print "Sprite  ",spr
print screen fps()

`Creatin sprites with mouseclik
if mouseclick()=1
   counter=counter+1
   if counter=2 then create animated sprite spr,"exp35.png",6,5,1 :sprite spr,mousex()-64,mousey()-64,1:inc spr
   else
   counter=0      `resetting counter
endif

`Playing sprites   ...we can add more than 20, it will reset sprites when we kill sprites.
for i= 1 to 20
   if sprite exist(i)
      play sprite i,1,30,velocidad
      if sprite frame(i)=30 then delete sprite i
      if spr>20 then spr=1
   endif
next i

sync
LOOP

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 15th Sep 2014 20:07 Edited at: 15th Sep 2014 20:08

Link

I was able to understand most of your original code, and I'm not sure I understand anymore with this code.

I understand that the "counter" starts as soon as the mouse button is clicked, and when that counter hits 2, the sprite is created and drawn. But the "else counter=0" seems to me like the counter would always be resetting and never getting to 2.

On the initial pass:
1. counter=counter+1 (since counter was never initialized, counter is now equal to 1)
2. counter is NOT equal to 2, so the code in the IF statement is ignored
3. Since the IF wasn't satisfied, then counter should now be equal to 0 because of the ELSE, right?

But in my code, the counter just happily continues to increase. As soon as I let go of the mouse it resets to 0, but I don't understand why because when you let go of the mouse button, the IF/ELSE should no longer be evaluated at all.

Sorry if I seem exceptionally dense on this one. I just don't follow it.

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Sep 2014 20:19

Link

1 --We click mouse
2 --counter=counter +1
3 --if counter=2 then the sprite will be created
4 --the couter is increasing...we have to release the right-mouse
5 --we release the right-mouse
6 --right-mouse is released SO the statement says "ELSE" ...
that means in case contrary , then reset counter
7 --else counter=0
8 --Now if we press againg right-mouse....
1 --we click mouse
2 --counter=counter +1

That simmple !!

I'm not a grumpy grandpa

Back to top

Profile PM Email

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 15th Sep 2014 20:29

Link

Oh my goodness. I thought the ELSE was part of the nested IF.

I was reading it like:

+ Code Snippet

IF mouseclick()
     counter = counter + 1
     IF counter = 2 THEN create sprite
     IF counter != 2 THEN counter = 0
ENDIF

I didn't understand that the ELSE is included inside the IF-ENDIF block. Many many thanks for helping me sort this out! You've been very helpful!

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 15th Sep 2014 20:43

Link

Quote: "Oh my goodness. I thought the ELSE was part of the nested IF. "

Don't worry ! Sometimes I'm a bit grumpy with my own family

. Enjoy the code .

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Keeping track of multiple animated sprites

Attachments

Attachments