How to create sprite/ moving figures?

[Stellaferox]

Hi,

Is there a way to create a sprite or a moving figure? I want to make a game in which things are moving against a background.
thnx for your input!
Marc

 

[Cableguy]

Can You please define "sprite" to me?

 

[Stellaferox]

Well, anything that moves, from created images to balls, figurines, animations etc

 

[Erel]

You can use the ForeLayer property of a form and draw the moving images on the fore layer.
On the background you can put an image too.
You will need to handle the movement.
It should be done using a Timer.

 

[Stellaferox]

How do I address the two different forelayers?

 

[RandomCoder]

You can use FDrawImage, but to make the image appear to move you will need to erase the area that the last image occupied before redrawing in a slightly different place.

Regards,
RandomCoder

 

[Stellaferox]

But if I use Erase won't I erase the Forelayer underneath? I'd like to address the 2 forelayers separately. Is that possible?
Marc

 

[RandomCoder]

You can use the normal (background) Form layer using DrawImage and then apply a separate image to the Forms forelayer using the FDrawImage command. Finally you can erase part or all of the forelayer using FErase before moving the image. Another useful aspect to using the forelayer is that it supports transparency so you can select a particular colour not to display on the forelayer.

Regards,
RandomCoder

 

[Stellaferox]

OK, thnx, that explains it. Is there, by any chance, an example of the "famous" bouncing ball in code around to see this in action?
Marc

 

[RandomCoder]

Stellaferox,

I'm not familiar with the 'famous' boucing ball but here's a little somthing I knocked up whist having my dinner at work -

Sub Globals
Height=100: LastHeight=100: Direction=5
End Sub

Sub App_Start
   Form1.Show
   Form1.Line(0,200,Form1.Width,200,cBlack)
   Form1.ForeLayer=True
   BounceBall
   Timer1.Enabled=True
End Sub

Sub BounceBall
   Form1.FCircle(Form1.Width/2,100,5,cRed,F)
   LastHeight=100
End Sub


Sub Timer1_Tick
   Height=LastHeight+Direction
   Form1.FErase(Form1.Width/2-5,LastHeight-5,Form1.Width/2+5,LastHeight+5)
   Form1.FCircle(Form1.Width/2,Height,5,cRed,F)
   LastHeight=Height
   If Height=195 Then Direction=-5
   If Height=100 Then Direction=5
End Sub

It's a never ending bouncing ball and the code needs some polishing up but at least it gives you the idea. I'm sure that you could gradually make the bounces smaller until finally coming to a stop and turn the timer off.

Regards,
RandomCoder

 

[Stellaferox]

I changed it somewhat to

Sub Globals
Height=5: LastHeight=5: dY=5
Width=5: LastWidth=5: dX=5
HeightMin = 5: HeightMax = Form1.Height-5
WidthMin = 5: WidthMax = Form1.Width-5
End Sub

Sub App_Start
Form1.Show
Form1.ForeLayer=True
BounceBall
End Sub

Sub BounceBall
Height = Rnd(HeightMin,HeightMax)
Width = Rnd(WidthMin,WidthMax)
FOR x=1 to 1000
For y=1 to 1000
NEXT
DoEvents
LastWidth=Width
LastHeight=Height
Form1.FErase(LastWidth-5,LastHeight-5,LastWidth+5,LastHeight+5)
Height=Height+dY
Width=Width+dX
Form1.FCircle(Width,Height,5,cRed,F)
IF Height>=HeightMax Then
Height = HeightMax
dY = -dY
END IF
IF Height<=HeightMin Then
Height = HeightMin
dY=-dY
END IF
IF Width >= WidthMax then
Width = WidthMax
dX = -dX
END IF
IF Width <= WidthMin then
Width = WidthMin
dX = -dX
END IF
NEXT
End Sub

 

[RandomCoder]

Looks like you've got the idea then :sign0060:

I thought afterwards that I could have just erased a full strip that would have covered the whole area the ball travels, however this might not have been as good a demonstration as actually recording the last position.
Furthermore, if you plan on using an image and moving that around then you should quite easily be able to erase the position it occupies just by locating it's top and left position.

Regards,
RandomCoder

 

[Shrek_Old]

Sub Globals
Height=10: Dim g
End Sub

Sub App_Start
g=1.05
Form1.Show
Form1.Line(0,200,Form1.Width,200,cBlack)
SetTransparentColor=cGreen
Form1.ForeLayer=True
Form1.FCircle(Form1.Width/2,Height,10,cBlack,F)
Timer1.Interval =50
Timer1.Enabled=True
End Sub


Sub Timer1_Tick
Form1.FCircle(Form1.Width/2,Height,10,cGreen,F)
direction=direction*g
Height=Height*g
If Height>190 Then
Height=190
g=0.95
End If
If Height<=10 Then g=1.05
Form1.FCircle(Form1.Width/2,Height,10,cBlack,F)
End Sub

 

[willisgt]

Isn't there already a Sprite library?

(...rummages through boxes looking...)

I'm sure there's a Sprite library in here somewhere...


Gary

 

[klaus]

Yes, it is here:
http://www.b4x.com/forum/official-updates/1861-sprite-library-v1-1-a.html