sprite animation - GameCreators Forum

Author

Message

lokatsis

21

Years of Service

User Offline

Joined: 11th Feb 2004

Location: greece

Posted: 25th Jun 2004 16:54

Link

hi im trying to make animation for my sprites. i have a default animation and when i press the upkey the first animation is deleted and the second is desplayed and when i dont press the upkey the animation will return to the default. the problem is that when it returns to the default animation the second animation somehow cant be deleted.
here's my code

+ Code Snippet

 

 sync rate 0

load image "s8.bmp",1
load image "s9.bmp",2
load image "s10.bmp",3
load image "s4.bmp",4
load image "s5.bmp",5
load image "s6.bmp",6
load image "s7.bmp",7
load image "sw1.bmp",8
load image "sw2.bmp",9
load image "sw3.bmp",10



for t=1 to 7
sprite 1,100,100,t
if t=7 then t=1
while upkey()=1
delete sprite 1
for h=8 to 10
sprite 3,150,100,h
next h
endwhile
if sprite exist(3)=1
delete sprite 3
endif
next t


 sync

the problem here must be with the command
"if sprite exist(3)=1
delete sprite 3
endif"
pls help!

THE AOOS

Back to top

Profile PM Email Website

Sync

22

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hungary

Posted: 4th Jul 2004 06:51

Link

Here is your debugged code:

+ Code Snippet


for i=1 to 7
   load image str$(i)+".bmp",i
	if i<=3 then load image str$(i)+"a.bmp",i+7	
next i

backdrop on : color backdrop rgb(0,0,0) : sync on : sync rate 0

for t=1 to 7
	sprite 1,100,100,t : set sprite 1,0,1 : sync
`	wait 10
	if t=7 then t=0
	while upkey()=1
		if sprite exist(1)=1 then delete sprite 1
		for h=8 to 10
			sprite 3,150,100,h : set sprite 3,0,1 : sync
		next h
	endwhile
	if sprite exist(3)=1 then delete sprite 3
next t

And here's an another solution. Easier to switch between two animations.

+ Code Snippet

for i=1 to 7
   load image str$(i)+".bmp",i
	if i<=3 then load image str$(i)+"a.bmp",i+7	
next i

backdrop on : color backdrop rgb(0,0,0) : sync on : sync rate 0

dim spranim(100,6)
createanim(1,1,7,150,100)

do
if upkey()=1
	spranim(1,2)=8 : spranim(1,3)=10
	else
	spranim(1,2)=1 : spranim(1,3)=7
	endif
playanim
loop

function playanim
for j=1 to spranim(0,0)
	if spranim(j,1)<>0
`		wait 50
		spranim(j,1)=spranim(j,1)+1
		if spranim(j,1)>spranim(j,3) then spranim(j,1)=spranim(j,2)
		if spranim(j,1)<spranim(j,2) then spranim(j,1)=spranim(j,2)
		sprite spranim(j,4),spranim(j,5),spranim(j,6),spranim(j,1) : sync
		endif
next j
endfunction

function createanim(spr,animstart,animend,x,y)
spranim(0,0)=spranim(0,0)+1 : j=spranim(0,0)
spranim(j,1)=animstart
spranim(j,2)=animstart
spranim(j,3)=animend
spranim(j,4)=spr
spranim(j,5)=x
spranim(j,6)=y
sprite spr,x,y,animstart : set sprite spr,0,1
endfunction

386SX, 2MB EDO RAM, 512kB VESA video card, 40MB HDD, 5,25 FDD

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 4th Jul 2004 07:59

Link

hmm....

I'm trying to even figure out why you're deleting the sprites between the two animations. All you really need to do is just change the images used for the sprite, not delete and create a new one. Remember, sprites are "free" images, you just tell them to change what they look like when you use the sprite command.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / sprite animation