Skull me

[Deleted]

Hello members,

a little fun physics.
Graphics here: www.zshare.net/download/19638562e6d30cac/

'Listing:
option explicit
Dim y,x,w,v,a

Sub Main()
Graphics.Initialize 640,480,false,16
Key.Initialize
Mouse.Initialize
a = graphics.loadImage("skull.png")
y = 500
while Key.Pressed(vk_escape) = false
if y >=470 then 'new skull
randomize()
x = rnd(600)
y = rnd(100)
v = rnd(1) * 30 -15
w = rnd(1) * (-20)
end if
graphics.clear
if x < 8 then v = abs(v) * (1)
if x > 590 then v = abs(v) * (-1)
if y < 10 then w = abs(w) * (0.1)
if y > 420 then w = abs(w) * (-0.1)
w = w + 0.51
x = x + v
y = y + w
Graphics.Setxy a,x,y
Graphics.SetImage a
graphics.display
'graphics.setfPS 40
wend
Graphics.Terminate
Key.Terminate
Mouse.Terminate
End Sub

call Main

[Guilect]

I had to uncomment the line :
graphics.setfPS 40
so that I could see what was going on.
Otherwise it ran too fast.

Nice start, I can see using this type of routine in a platform style game.

[matthew]

You should do some more of these Physics routines.

[Deleted]

Hi Matthew,

alright !!