Almost have this animated. Can you help?

Author

Message

Stygian

14

Years of Service

User Offline

Joined: 6th Jan 2010

Location:

Posted: 6th Feb 2010 13:02

Link

So, I think I understand animation for the most part, but the in the code I am about to link I am attempting to display my animated sprite in different frames that change based on player input.

Behind the Sprite I have an image that moves coordinates based on player input as well. IE, you press rightkey and the image moves left to simulate movement, like in simple RPGs.

You can assume that I used GET IMAGE and LOAD IMAGE for everything correctly, because I see everything I need to see. Something isn't working correctly because there is still a blue flicker, and the char displays animation frames erratically.

+ Code Snippet

main_game:
sync on
cls
sprite 1,120,112,9
do
   idle_count = idle_count + 1
   paste image 4,map_x_position,map_y_position
   if downkey()=1
      for n=1 to 16
         dec map_y_position,1
         paste image 4,map_x_position,map_y_position
         play sprite 1,1,2,500
         sync
      next n
   endif
   if upkey()=1
      for n=1 to 16
         inc map_y_position,1
         paste image 4,map_x_position,map_y_position
         play sprite 1,5,6,500
         sync
      next n
   endif
   if leftkey()=1
      for n=1 to 16
         inc map_x_position,1
         paste image 4,map_x_position,map_y_position
         play sprite 1,3,4,500
         sync
      next n
   endif
   if rightkey()=1
      for n=1 to 16
         dec map_x_position,1
         paste image 4,map_x_position,map_y_position
         play sprite 1,3,4,500
         sync
      next n
   endif
   sync
loop

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 6th Feb 2010 19:42

Link

You only need the sync at the end of your do - loop. Try removing the extra syncs and see if that takes care of it.

Back to top

Profile PM Email

Stygian

14

Years of Service

User Offline

Joined: 6th Jan 2010

Location:

Posted: 8th Feb 2010 07:10 Edited at: 8th Feb 2010 07:21

Link

Whats wrong with this loop? Im just trying to simply animate a section of the image based on what direction you press. I am trying to simplify it in order to better understand the process. I have a feeling the duration of the looping animation is doing something weird.

+ Code Snippet

animation_test:
sprite 1,120,112,9
do
  play sprite 1,1,2,100
  if downkey()=1
    play sprite 1,1,2,100
  endif
  if upkey()=1
    play sprite 1,5,6,100
  endif
  if leftkey()=1
    play sprite 1,3,4,100
  endif
  if rightkey()=1
    play sprite 1,3,4,100
  endif
  sync
loop

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 8th Feb 2010 16:07

Link

You tell it to play the animation for when the downkey is pressed every loop. I would take this out. Secondly, you need to put in a delay between keypresses so that you can see the entire animation. Delaying it by 200ms should work. Like this:

+ Code Snippet

animation_test:
sprite 1,120,112,9
AnimDelay# = timer()
do
  if downkey() = 1 and timer() > AnimDelay#
    play sprite 1,1,2,100
    AnimDelay# = timer() + 200.0
  endif
  if upkey() = 1 and timer() > AnimDelay#
    play sprite 1,5,6,100
    AnimDelay# = timer() + 200.0
  endif
  if leftkey() = 1 and timer() > AnimDelay#
    play sprite 1,3,4,100
    AnimDelay# = timer() + 200.0
  endif
  if rightkey() = 1 and timer() > AnimDelay#
    play sprite 1,3,4,100
    AnimDelay# = timer() + 200.0
  endif
  sync
loop

Back to top

Profile PM Email

Stygian

14

Years of Service

User Offline

Joined: 6th Jan 2010

Location:

Posted: 11th Feb 2010 20:59 Edited at: 11th Feb 2010 21:14

Link

That doesnt seem to work still. Theres a delay between button presses. As in you have to press up twice before the right animation plays. The first time I press a button it works fine. It seems as if the delay is caused by my delay set by the PLAY SPRITE. Is that possible?

There has to be some code out there where some one has a Final Fantasy 1 or a Dragon Warrior clone working.

Are there better loops to use? Should I be asking for an inkey$ or something?

+ Code Snippet

sprite 1,120,112,9
do
  cls
  if downkey()=1
    play sprite 1,1,2,100
  endif
  if upkey()=1
    play sprite 1,5,6,100
  endif
  if leftkey()=1
    play sprite 1,3,4,100
  endif
  if rightkey()=1
    play sprite 1,3,4,100
  endif
  sync
loop

Back to top

Profile PM

jfroco

14

Years of Service

User Offline

Joined: 1st Dec 2009

Location: Chile

Posted: 12th Feb 2010 02:41

Link

Hi Stygian,

Does this work?

//1.- Setup screen 
sync on
sync rate 0

w = screen width()
h = screen height()

set display mode w,h,32,1
backdrop on
color backdrop 0

//2.- Create hero
hero as dword = 1
create animated sprite hero,"supercloud.png",3,4,hero
set sprite frame hero,8
delay as dword = 100

//Hero's position and speed
x as float
y as float
speed as float

//Initial position
x = w/2
y = h/2
speed = 2
key as dword

do
	
	key = scancode() 
	select key
	
		case 200: //Up
			if sprite frame(hero)>3 then set sprite frame hero,1 
			play sprite hero,1,3,delay 
			dec y,speed
		endcase

case 208: //Down
			if sprite frame(hero)<7 or sprite frame(hero)>9 then set sprite frame hero,7
			play sprite hero,7,9,delay
			inc y,speed
		endcase
	
		case 205: //Right
			if sprite frame(hero)<4 or sprite frame(hero)>6 then set sprite frame hero,4
			play sprite hero,4,6,delay
			inc x,speed
		endcase
		
		case 203: //Left
			if sprite frame(hero)<10 then set sprite frame hero,10
			play sprite hero,10,12,delay
			dec x,speed
		endcase
	endselect
	
	
	paste sprite hero,x,y
	text 0,0,str$(sprite frame(hero))+","+str$(key)
	sync	
loop

end

+ Code Snippet


//1.- Setup screen 
sync on
sync rate 0

w = screen width()
h = screen height()

set display mode w,h,32,1
backdrop on
color backdrop 0

//2.- Create hero
hero as dword = 1
create animated sprite hero,"supercloud.png",3,4,hero
set sprite frame hero,8
delay as dword = 100

//Hero's position and speed
x as float
y as float
speed as float

//Initial position
x = w/2
y = h/2
speed = 2
key as dword

do
	
	key = scancode() 
	select key
	
		case 200: //Up
			if sprite frame(hero)>3 then set sprite frame hero,1 
			play sprite hero,1,3,delay 
			dec y,speed
		endcase

		case 208: //Down
			if sprite frame(hero)<7 or sprite frame(hero)>9 then set sprite frame hero,7
			play sprite hero,7,9,delay
			inc y,speed
		endcase
	
		case 205: //Right
			if sprite frame(hero)<4 or sprite frame(hero)>6 then set sprite frame hero,4
			play sprite hero,4,6,delay
			inc x,speed
		endcase
		
		case 203: //Left
			if sprite frame(hero)<10 then set sprite frame hero,10
			play sprite hero,10,12,delay
			dec x,speed
		endcase
	endselect
	
	
	paste sprite hero,x,y
	text 0,0,str$(sprite frame(hero))+","+str$(key)
	sync	
loop

end

Media is attached.

Attachments

Login to view attachments

Back to top

Profile PM

Stygian

14

Years of Service

User Offline

Joined: 6th Jan 2010

Location:

Posted: 16th Feb 2010 02:01 Edited at: 16th Feb 2010 02:02

Link

Thanks to both of you for trying to help me out. This was a learning experience about SPRITE FRAMEs and the use of SELECT KEY. I ended up utilizing some of Jfroco's code to make my char move correctly. It was really cool of you to share your knowledge!

Back to top

Profile PM

jfroco

14

Years of Service

User Offline

Joined: 1st Dec 2009

Location: Chile

Posted: 16th Feb 2010 19:10

Link

Hi Stygian,

Excellent! Good luck with your project.

Best regards

JF

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Almost have this animated. Can you help?

Attachments