GET IMAGE - GameCreators Forum

Author

Message

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 23rd Feb 2003 06:46

Link

How can I use GET IMAGE to produce an animation?

MM is good

Back to top

Profile PM Email

LLX

21

Years of Service

User Offline

Joined: 17th Feb 2003

Location:

Posted: 23rd Feb 2003 06:48

Link

make a strip of the animation frames
gram the cortinates the take only one section, one frame, of the stripe, grap the next motion in the strip and loop them...

Back to top

Profile PM

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 23rd Feb 2003 07:01

Link

Could you give me an example and explain me?

MM is good

Back to top

Profile PM Email

LLX

21

Years of Service

User Offline

Joined: 17th Feb 2003

Location:

Posted: 23rd Feb 2003 07:05

Link

Rem
Rem How to animate a 2D sprite on the screen under 8 axes
Rem
Rem Made by : Freddix
Edits by LLX

Rem Definition of the screen method.
set display mode 320,240,16
sync rate 60 : sync on

Rem One loads the picture or are stoqués all the 16 sprites
load image "images\sprites.bmp",1

Rem One creates the 16 organizations on 4 directions.
paste image 1,0,0
delete image 1
for boucle=1 to 16
  get image boucle,posx,posy,posx+16,posy+32
  posx=posx+17
 next boucle
cls

rem Set player starting point
xpos=5
ypos=200

Rem Beginning buckle of game.
repeat
  Remstart One stoque the 4 directions of the keyboard in 2 Low/High variables and Left/Upright
  cant move without this
  remend
  rem _vertical control vertical movement, can be removed for left to right only
 _vertical=downkey()-upkey()
rem
  _horizontal=rightkey()-leftkey()

remstart control verticle movement
Rem One sees if the player vertically moves itself.
  if _vertical<>0
    Rem One moves the sprite according to the direction High=-1 or low=+1
    ypos=ypos+_vertical
    Rem One defines which organization portion to use according to the direction
    if _vertical=1 then _anim_type=0 else _anim_type=1
   endif
remend end of vertical control

rem jump timer
Rem One sees if the player vertically moves itself.
  time=timer()
  if _vertical<>0
    Rem One moves the sprite according to the direction High=-1 or low=+1
    ypos=ypos+_vertical
    Rem One defines which organization portion to use according to the direction
    if _vertical=1 then _anim_type=0 else _anim_type=1
     endif
  repeat
  time2=timer()
  until time2-time=2000
  if time2-time=2000 then ypos=200

Rem Idem for the horizontal movement.
  if _horizontal<>0
    xpos=xpos+_horizontal
remstart horizontal end of screen loop
IF xpos>320 THEN xpos=0
IF xpos<0 THEN xpos=320
remend

rem horizontal end of screen check
IF xpos>300 THEN xpos=300
IF xpos<0 THEN xpos=0

remstart vertical end of screen check (buggy, doesnt work)
IF ypos>240 THEN ypos=0
IF ypos<0 THEN ypos=240
remend
    if _horizontal=1 then _anim_type=3 else _anim_type=2
   endif
  Rem If the player moves itself then one incrémente the picture meter In the organization.
  if _vertical<>0 or _horizontal<>0 then inc _animation
  Rem If the organization sort of the number of picture (32/8=4images)
  if _animation=32 then _animation=0
  Rem One posts the sprite with the required picture of the organization requested and to the positions xpos,ypos
  sprite 1,xpos,ypos,(_anim_type*4)+(_animation/8)+1
  Rem Synchro
  sync
  Rem Curls so as the space bar is not préssée.
 until spacekey()=1
Rem One obliterates the pictures create for the demo.
for boucle=1 to 16
  delete image boucle
 next boucle
 end
Rem end of demo.

+ Code Snippet

Rem
Rem How to animate a 2D sprite on the screen under 8 axes
Rem
Rem Made by : Freddix
Edits by LLX

Rem Definition of the screen method.
set display mode 320,240,16
sync rate 60 : sync on

Rem One loads the picture or are stoqués all the 16 sprites
load image "images\sprites.bmp",1

Rem One creates the 16 organizations on 4 directions.
paste image 1,0,0
delete image 1
for boucle=1 to 16
  get image boucle,posx,posy,posx+16,posy+32
  posx=posx+17
 next boucle
cls

rem Set player starting point
xpos=5
ypos=200

Rem Beginning buckle of game.
repeat
  Remstart One stoque the 4 directions of the keyboard in 2 Low/High variables and Left/Upright
  cant move without this
  remend
  rem _vertical control vertical movement, can be removed for left to right only
 _vertical=downkey()-upkey()
rem
  _horizontal=rightkey()-leftkey()


remstart control verticle movement
Rem One sees if the player vertically moves itself.
  if _vertical<>0
    Rem One moves the sprite according to the direction High=-1 or low=+1
    ypos=ypos+_vertical
    Rem One defines which organization portion to use according to the direction
    if _vertical=1 then _anim_type=0 else _anim_type=1
   endif
remend end of vertical control


rem jump timer
Rem One sees if the player vertically moves itself.
  time=timer()
  if _vertical<>0
    Rem One moves the sprite according to the direction High=-1 or low=+1
    ypos=ypos+_vertical
    Rem One defines which organization portion to use according to the direction
    if _vertical=1 then _anim_type=0 else _anim_type=1
     endif
  repeat
  time2=timer()
  until time2-time=2000
  if time2-time=2000 then ypos=200


  Rem Idem for the horizontal movement.
  if _horizontal<>0
    xpos=xpos+_horizontal
remstart horizontal end of screen loop
IF xpos>320 THEN xpos=0
IF xpos<0 THEN xpos=320
remend

rem horizontal end of screen check
IF xpos>300 THEN xpos=300
IF xpos<0 THEN xpos=0

remstart vertical end of screen check (buggy, doesnt work)
IF ypos>240 THEN ypos=0
IF ypos<0 THEN ypos=240
remend
    if _horizontal=1 then _anim_type=3 else _anim_type=2
   endif
  Rem If the player moves itself then one incrémente the picture meter In the organization.
  if _vertical<>0 or _horizontal<>0 then inc _animation
  Rem If the organization sort of the number of picture (32/8=4images)
  if _animation=32 then _animation=0
  Rem One posts the sprite with the required picture of the organization requested and to the positions xpos,ypos
  sprite 1,xpos,ypos,(_anim_type*4)+(_animation/8)+1
  Rem Synchro
  sync
  Rem Curls so as the space bar is not préssée.
 until spacekey()=1
Rem One obliterates the pictures create for the demo.
for boucle=1 to 16
  delete image boucle
 next boucle
 end
Rem end of demo.

Back to top

Profile PM

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 23rd Feb 2003 07:12

Link

It doesn't open in my navigator.

MM is good

Back to top

Profile PM Email

Jadelion

21

Years of Service

User Offline

Joined: 14th Jan 2003

Location:

Posted: 23rd Feb 2003 07:15

Link

Ok, here is a simple exampel of a SPRITE animation using GET IMAGE

+ Code Snippet

HIDE MOUSE


box 0,0,50,50

PRINT "A"

GET IMAGE 1,0,0,50,50

CLS


box 0,0,50,50

PRINT "B"

GET IMAGE 2,0,0,50,50

CLS

SPRITE_IMAGE# = 1

DO
SPRITE 1,320,240,SPRITE_IMAGE#
INC SPRITE_IMAGE#
IF SPRITE_IMAGE# = 3 THEN SPRITE_IMAGE# = 1

LOOP

Back to top

Profile PM Email

Jadelion

21

Years of Service

User Offline

Joined: 14th Jan 2003

Location:

Posted: 23rd Feb 2003 07:16

Link

Sorry here it is out of the code snippet box.

HIDE MOUSE

box 0,0,50,50

PRINT "A"

GET IMAGE 1,0,0,50,50

CLS

box 0,0,50,50

PRINT "B"

GET IMAGE 2,0,0,50,50

CLS

SPRITE_IMAGE# = 1

DO
SPRITE 1,320,240,SPRITE_IMAGE#
INC SPRITE_IMAGE#
IF SPRITE_IMAGE# = 3 THEN SPRITE_IMAGE# = 1

LOOP

Back to top

Profile PM Email

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 23rd Feb 2003 07:19

Link

Thank you very much.

MM is good

Back to top

Profile PM Email

CloseToPerfect

21

Years of Service

User Offline

Joined: 20th Dec 2002

Location: United States

Posted: 23rd Feb 2003 07:37

Link

of course if your using sprites, use play sprite and it will auto loop your animation for you.

Back to top

Profile PM Email

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 28th Feb 2003 15:21

Link

I tried out but how can I grab the cordinates?

MM is good

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 1st Mar 2003 05:51

Link

GET IMAGE 2,0,0,50,50

means

GET IMAGE imgnum,X1,Y1,X2,Y2

add a for loop to jump across the division size eg: 32
then use the get image command in the loop and it should
grab progressive windows to form cells for your animations

keep in mind

GET IMAGE imgnum,X1,Y1,X2,Y2

imgnum progressivley increases to make new image locations

the X1,Y1,X2,Y2 variables are incremented by the division factor and depending on which way u created the strip of cells eg: horizontally and vertically or in a 2d grid if there are lots of them

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 1st Mar 2003 07:15

Link

I think you didn't understand. I want to know where I find the cordinates.

MM is good

Back to top

Profile PM Email

John H

Retired Moderator

21

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Burlington, VT

Posted: 1st Mar 2003 16:39

Link

You need to find them yourself. I suggest just making a little snippet so if you click on a point it prints the coords, thats what I do

RPGamer

Current - RPG: Eternal Destiny
http://www.halbrosproductions.netfirms.com
Dont ask those questions! Read the help files lazy!

Back to top

Profile PM

Helmet

21

Years of Service

User Offline

Joined: 17th Oct 2002

Location: Brazil

Posted: 2nd Mar 2003 01:16

Link

I have this example:

SET DISPLAY MODE 512,384,16
rem DISABLE ESCAPEKEY
DIM Map(15,12)
REM Esta é a ordem 2D que será
REM usado segurar os dados de mapa.
text 512/2,384/2, "Loading..."
LOAD BITMAP "Map.bmp",1
FOR y=0 to 1
FOR x=0 to 3
GET IMAGE 1+x+(y*4),(x*32),(y*32),(x*32)+32,(y*32)+32
NEXT x
NEXT y
DELETE BITMAP 1

FOR Y = 0 TO 12
REM Estas pequenas leituras rotineiras do DATA
FOR X = 0 TO 15
REM na ordem de mapa. Nós usaremos
READ Map(X, Y) :REM o DATA para puxar o mapa e teste
REM na ordem de mapa. Nós usaremos
NEXT X :REM onde o jogador pode e não pode

NEXT Y :REM se mover.

sync on
HIDE MOUSE

Imagem=1
FOR Y = 0 TO 12
FOR X = 0 TO 15
Imagem=Map(X,Y) +1
paste image Imagem,(X*32),(Y*32)

NEXT X
NEXT Y

LOAD BITMAP "Hero.bmp",1
FOR y=0 to 3
FOR x=0 to 2
GET IMAGE 9+x+(y*3),(x*32),(y*32),(x*32)+32,(y*32)+32
NEXT x
NEXT y
DELETE BITMAP 1
SYNC OFF
PlayerX=7
PlayerY=8
Moved = 1
X = PlayerX * 32
Y = PlayerY * 32
SPRITE 1,X,Y,16
Sair=0
SYNC OFF
repeat
sync on
IF ESCAPEKEY()=1 THEN Sair=1
if rightkey()=1 or joystick right()=1
IF Map(PlayerX + 1, PlayerY) < 5
gosub DrawBackGround
PlayerX = PlayerX + 1
Moved = 1
ENDIF: ENDIF
if leftkey()=1 or joystick left()=1
IF Map(PlayerX - 1, PlayerY) < 5
GOSUB DrawBackGround
PlayerX = PlayerX - 1
Moved = 1
ENDIF:ENDIF
if downkey()=1 or joystick down()=1
IF Map(PlayerX, PlayerY + 1) < 5
GOSUB DrawBackGround
PlayerY = PlayerY + 1
Moved = 1
ENDIF:endif
if upkey()=1 or joystick up()=1
IF Map(PlayerX, PlayerY - 1) < 5
GOSUB DrawBackGround
PlayerY = PlayerY - 1
Moved = 1
ENDIF:endif
if Moved=1
sync off
X = PlayerX * 32
Y = PlayerY * 32
sprite 1,x,y,16
Moved=0
endif
until Sair=1
rem DISABLE ESCAPEKEY
DrawBackGround:
sync on
FOR Y = 0 TO 12
FOR X = 0 TO 15
Imagem=Map(X,Y) +1
paste image Imagem,(X*32),(Y*32)

NEXT X
NEXT Y

return
cls
text 512/2,384/2, "Obrigado por Jogar!"
suspend for key
delete sprite 1

REM Abaixo de é o dados para um pequeno nível enfadonho que eu criei. Você pode
REM mudar isto ao redor de qualquer forma você quer.

DATA 5,7,7,7,7,7,7,6,6,7,7,7,7,7,7,5

DATA 5,1,1,0,0,0,0,3,3,0,0,0,0,1,1,5

DATA 5,5,5,5,5,5,5,4,4,5,5,5,5,5,5,5

DATA 6,6,6,6,0,0,0,3,3,0,0,0,1,6,6,6

DATA 6,6,1,1,1,1,0,3,3,0,1,1,1,1,6,6

DATA 2,6,6,1,1,1,1,3,3,0,1,1,1,1,6,6

DATA 2,6,6,1,1,1,1,3,3,1,1,1,1,1,1,6

DATA 2,2,6,6,1,1,1,3,3,1,1,1,1,1,0,5

DATA 2,2,2,6,6,1,1,3,3,1,1,1,0,0,5,5

DATA 2,2,6,6,6,5,5,5,5,5,5,5,5,5,5,5

DATA 2,2,6,6,5,5,5,5,5,5,5,5,5,5,5,5

DATA 2,2,6,6,5,5,5,5,5,5,5,5,5,5,5,5

DATA 2,2,6,6,5,5,5,5,5,5,5,5,5,5,5,5

What is it?
FOR y=0 to 1
FOR x=0 to 3
GET IMAGE 1+x+(y*4),(x*32),(y*32),(x*32)+32,(y*32)+32
NEXT x
NEXT y

I didn't understand. Could anyone explain me?

MM is good

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / GET IMAGE