How to create sprite/ moving figures?

[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

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:
Sprite library - V1.1