option explicit
option default none
const leftbar = 1, rightbar = 2, topbar=3, bottombar=4, rightapple=5, leftapple=6
dim integer moveright=1, movedown=1
box 250,100,10,280,,rgb(magenta),rgb(magenta)
box 50,50,150,10,,rgb(cyan),rgb(cyan)
SPRITE read leftbar,250,100,10,280
sprite copy leftbar, rightbar, 1 'make one copy
SPRITE read topbar,50,50,150,10
sprite copy topbar, bottombar, 1 'make one copy
load sprite rightapple,"apple"
sprite copy rightapple,leftapple,1 'make one copy
load image "tiger800"
sprite interrupt collision
SPRITE show rightapple,300,200,0
SPRITE show leftapple,100,200,0,2
SPRITE show leftbar,250,100,1
SPRITE show rightbar,580,100,1
SPRITE SHOW topbar,50,50,2
SPRITE SHOW bottombar,50,420,2
do
option autorefresh off
if moveright then
sprite scrollr 259,100,322,280,4,0
else
sprite scrollr 259,100,322,280,-4,0
endif
if movedown then
sprite scrollr 50,59,150,362,0,-4
else
sprite scrollr 50,59,150,362,0,4
endif
option autorefresh on
loop
'
'
sub collision
local integer i, c(10), j
if sprite(S) = 0 then 'collisions caused by scroll
j=sprite(c,0)
for i=1 to j 'store the collisions because a clearing scroll move will clear them from the list
c(i)=sprite(C,0,i)
next i
for i=1 to j 'now process them
process_collision(c(j))
next i
endif
end sub
' get details of the specific collisions for a given sprite
sub process_collision(S as integer)
option autorefresh off
select case S
case leftbar
sprite scrollr 259,100,322,280,4,0 'make a move to clear the collision
sprite show rightapple,sprite(x,rightapple),sprite(y,rightapple),0,0 'mirror the sprite
moveright=1
case rightbar
sprite scrollr 259,100,322,280,-4,0 'make a move to clear the collision
sprite show rightapple,sprite(x,rightapple),sprite(y,rightapple),0,1 'mirror the sprite
moveright=0
case topbar
sprite scrollr 50,59,150,362,0,-4 'make a move to clear the collision
sprite show leftapple,sprite(x,leftapple),sprite(y,leftapple),0,3 'invert the sprite
movedown=1
case bottombar
sprite scrollr 50,59,150,362,0,4 'make a move to clear the collision
sprite show leftapple,sprite(x,leftapple),sprite(y,leftapple),0,0 'invert the sprite
movedown=0
case else
end select
option autorefresh on

end sub