icon bouncing...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|637\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> icon bouncing...
Mon, 10 Aug 2009, 14:21
spinal	Yup, its me again, trying to make my little squares look nice... I'm attempting to have them bounce, just once, then stop. Graphics 640,240,0,2 AppTitle "Bounce Icon" Dim icony(8),iconx(8) icon_pic = CreateImage(64,64) SetBuffer ImageBuffer(icon_pic) Color 1,1,1 Rect 4,4,56,56,1 Color 255,255,255 Rect 4,4,56,56,0 SetBuffer BackBuffer() For t=0 To 8 icony(t) = 0 iconx(t) = t64 Next gravity = 1 Dim force(8) Dim done(8) While Not KeyHit(1) Cls For t=0 To 8 DrawImage icon_pic,iconx(t),icony(t) Next For t=0 To 8 If done(t)=0 Then force(t) = force(t) + gravity icony(t) = icony(t) + force(t) If icony(t) >= 160 Then force(t) = - (force(t)4)/5 If force(t)>-1 Then done(t) = 1 End If End If Next VWait() Flip Wend End --v However, I think im going about stopping them the wrong way... -=-=- Check out my excellent homepage!
Mon, 10 Aug 2009, 14:38
Phoenix	Uhm... what is the question? To me, they seem to bounce and then stop.
Tue, 11 Aug 2009, 09:23
realtime	maybe you can give a line to act as a floor so you know whether they stop in the correct position or not. or maybe you can alter the code like this ... if icony(t) >= 160 then icony(t) = 160 ... -=-=- me blog: fork-garden