option explicit
option default none
cls
load image "tiger640"
sprite load 1,"apple"
sprite load 2,"apple"
dim float x1,y1,x2, y2, i
box 8,98,304,304,2
box 328,98,304,304,2
sprite show 1,200,200,1
sprite show 2,450,200,1
do
for i=0 to PI*2-pi/50 step PI/50
x1=sin(i)*100+160-sprite(w,2)\2
y1=cos(i)*100+250-sprite(h,2)\2
x2=sin(i)*100+480-sprite(w,2)\2
y2=-cos(i)*100+250-sprite(h,2)\2
sprite next 1,x1,y1
sprite next 2,x2,y2
sprite scrollr 10,100,300,300,1,1
sprite scrollr 330,100,300,300,-1,-1
next i
loop

option explicit
option default none
cls
load image "tiger640"
load sprite 1,"apple"
load sprite 2,"apple"
load sprite 3,"apple"
load sprite 4,"apple"
dim float x1,y1,x2, y2, i, crash=0
box 8,98,304,304,2
box 328,98,304,304,2
sprite show 3,170,200,1
sprite show 1,200,200,2
sprite show 2,450,200,1
sprite show 4,400,200,2
blit read 5, 310,240,20,30
do
for i=0 to PI*2-pi/50 step PI/50
x1=sin(i)*230+220-sprite(w,2)\2
y1=cos(i)*230+250-sprite(h,2)\2
x2=sin(i)*230+420-sprite(w,2)\2
y2=-cos(i)*230+250-sprite(h,2)\2
sprite next 1,x1,y1
sprite next 2,x2,y2
' sprite move
sprite scrollr 10,100,300,300,2,2
if sprite(s)<>-1 and crash=0 then
if sprite(c,0,1)=1 then box 311,241,18,18,,rgb(red),rgb(red)
if sprite(c,0,1)=2 then box 311,241,18,18,,rgb(blue),rgb(blue)
timer=0
crash=1
endif
if sprite(s) = -1 and crash = 1 and timer > 500 then
blit write 5,310,240
crash=0
endif
sprite scrollr 330,100,300,300,-2,-2
next i
loop

const scrollxstart=100, scrollxwidth=280,newpoint=scrollxstart+scrollxwidth-2
const scrollystart=20,scrollyheight=232, scrolldirection=0
dim integer i, j, rp=130, bp=100, yp=160, wp=190, cp=70, xp=40, zp=220
cls
text scrollxstart+scrollxwidth\2,0,"Micromite eXtreme V5.4.13 with SSD1963",C,1,,rgb(white),rgb(black)
text newpoint+16,scrollystart-13+(scrollyheight\2),"Fixed",,2,,rgb(green),rgb(black)
text newpoint+16,scrollystart+13+(scrollyheight\2),"Area",,2,,rgb(green),rgb(black)
text 10,scrollystart-13+(scrollyheight\2),"Fixed",,2,,rgb(green),rgb(black)
text 10,scrollystart+13+(scrollyheight\2),"Area",,2,,rgb(green),rgb(black)
text scrollxstart+scrollxwidth\2,scrollystart+scrollyheight+5,"Demonstration of scrolling data",C,1,,rgb(white),rgb(black)
BOX scrollxstart-1,scrollystart-1,scrollxwidth+2, scrollyheight+2,1,rgb(white),rgb(gray)
do
' scroll an area defined by the x-y coordinates of the top left point
' the width of the area to be scrolled
' the height of the are to be scrolled
' the scroll driection
' define the colour of the scroll background
rp=nextpos(rp)'get the new data points
bp=nextpos(bp)
yp=nextpos(yp)
xp=nextpos(xp)
zp=nextpos(zp)
wp=nextpos(wp)
cp=nextpos(cp)
box newpoint,xp,2,2,1,rgb(yellow) 'write them to the space left
box newpoint,rp,2,2,1,rgb(blue)
box newpoint,yp,2,2,1,rgb(red))
box newpoint,bp,2,2,1,rgb(green)
box newpoint,wp,2,2,1,rgb(magenta)
box newpoint,cp,2,2,1,rgb(cyan)
box newpoint,zp,2,2,1,rgb(white))
blit scrollr scrollxstart,scrollystart,scrollxwidth,scrollyheight,-2,0,rgb(gray)
loop
'
function nextpos(d as integer) as integer
nextpos=d+(rnd()*4)-2
if nextpos<=scrollystart then nextpos=scrollystart+1
if nextpos>=scrollystart+scrollyheight then nextpos=scrollystart+scrollyheight-1
end function

SPRITE SCROLLH n {,col}
Scrolls the background and any sprites on layer 0 n pixels to the right. n can be any number between -31 and 31...

SPRITE SCROLLV n {,col}
Scrolls the background, and any sprites on layer 0, n pixels up. n can be any number between -MM.VRES-1 and MM.VRES-1...

SPRITE(N,n)
Returns the number of displayed (active) sprites on layer l

SPRITE(N,n)
Returns the number of displayed (active) sprites on layer N

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)
blit read leftbar,250,100,10,280
sprite copy leftbar, rightbar, 1 'make one copy
blit 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 "tiger640"
sprite interrupt collision
blit show rightapple,300,200,0
blit show leftapple,100,200,0,2
blit show leftbar,250,100,1
blit show rightbar,580,100,1
blit SHOW topbar,50,50,2
blit SHOW bottombar,50,420,2
do
if moveright then
sprite scrollr 259,100,322,280,2,0
else
sprite scrollr 259,100,322,280,-2,0
endif
if movedown then
sprite scrollr 50,59,150,362,0,-2
else
sprite scrollr 50,59,150,362,0,2
endif
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)
select case S
case leftbar
sprite scrollr 259,100,322,280,2,0 'make a move to clear the collision
sprite show rightapple,sprite(x,rightapple),sprite(y,rightapple),0,0 'normal orientation
moveright=1
case rightbar
sprite scrollr 259,100,322,280,-2,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,-2 'make a move to clear the collision
sprite show leftapple,sprite(x,leftapple),sprite(y,leftapple),0,3 'rotate the sprite 180 degrees
movedown=1
case bottombar
sprite scrollr 50,59,150,362,0,2 'make a move to clear the collision
sprite show leftapple,sprite(x,leftapple),sprite(y,leftapple),0,0 'normal orientation
movedown=0
case else
end select
end sub