|
Post by Azan on Aug 13, 2005 12:41:07 GMT -5
Well I guess it can be used to show how to make a box bounce, and the demo is kindof neat too. Graphics 800,600 SetBuffer BackBuffer()
Global x=710 Global y=510 Global diry=5 Global dirx=5
While Not KeyHit(1) Flip ;Cls Text 10,10,dirx+" "+diry If x+20=800 Then dirx=dirx*-1 EndIf If x=0 Then dirx=dirx*-1 EndIf If y+20=600 Then diry=diry*-1 EndIf If y=0 Then diry=diry*-1 EndIf x=x+dirx y=y+diry Rect x,y,20,20
Wend
|
|
|
Post by Azan on Aug 13, 2005 13:00:35 GMT -5
Heres a double one Graphics 800,600 SetBuffer BackBuffer()
Global x=710 Global y=510 Global diry=5 Global dirx=5
Global x2=90 Global y2=90 Global diry2=-5 Global dirx2=-5 While Not KeyHit(1) Flip ;Cls Text 10,10,dirx+" "+diry If x+20=800 Then dirx=dirx*-1 EndIf If x=0 Then dirx=dirx*-1 EndIf If y+20=600 Then diry=diry*-1 EndIf If y=0 Then diry=diry*-1 EndIf x=x+dirx y=y+diry Rect x,y,20,20 If x2+20=800 Then dirx2=dirx2*-1 EndIf If x2=0 Then dirx2=dirx2*-1 EndIf If y2+20=600 Then diry2=diry2*-1 EndIf If y2=0 Then diry2=diry2*-1 EndIf x2=x2+dirx2 y2=y2+diry2 Rect x2,y2,20,20 Wend
|
|