MAKING OBJECTS BOUNCE

[DJ]

HOW DO YOU MAKE ONE OBJECT BOUNCE FROM ONE WALL TO ANOTHER?

[programmer]

i dont want to explain it to you but heres an example of how to do it


DIM picture(1000), sprite(1000), spritesh(1000)
SCREEN 13
CIRCLE (10, 10), 10, 4
PAINT (10, 10), 1, 4
CIRCLE (10, 10), 4, 4
PAINT (10, 10), 0, 4
GET (0, 0)-(20, 20), sprite
LINE (0, 0)-(20, 20), 255, BF
CIRCLE (10, 10), 10, 4
PAINT (10, 10), 1, 4
CIRCLE (10, 10), 4, 4
PAINT (10, 10), 255, 4
GET (0, 0)-(20, 20), spritesh
CLS
x = 1: y = 1
xadj = 1: yadj = 1
delay = 10000
GET (x, y)-(x + 20, y + 20), picture
DO
press$ = INKEY$
PUT (x, y), spritesh, AND
PUT (x, y), sprite, OR
oldx = x
oldy = y
x = x + xadj
y = y + yadj
WAIT &H3DA, 8
(oldx, oldy), picture, PSET
GET (x, y)-(x + 20, y + 20), picture
PUT (x, y), spritesh, AND
PUT (x, y), sprite, OR
IF y > 170 THEN yadj = -1
IF y < 10 THEN yadj = 1
IF x > 290 THEN xadj = -1
IF x < 10 THEN xadj = 1
FOR i = 1 TO delay: NEXT
LOOP UNTIL press$ = CHR$(27)