Option explicit
option default NONE
dim integer i
const move=4
load image "tiger640"
sprite load #1, "apple"
sprite show #1,270,190
for i=0 to 50
blit scrollH move
next i
for i=0 to 50
blit scrollV move
next i
do
for i=0 to 100
blit scrollH -move
next i
for i=0 to 100
blit scrollV -move
next i
for i=0 to 100
blit scrollH move
next i
for i=0 to 100
blit scrollV move
next i
loop

Option explicit
option default NONE
dim integer i
const move=3
load image "tiger640"
sprite load #1, "apple"
sprite load #2, "apple"
sprite show #2,200,190,0
sprite show #1,400,190
for i=0 to 50
blit scrollH move
next i
for i=0 to 50
blit scrollv move
next i
do
for i=0 to 100
blit scrollH -move
next i
for i=0 to 100
blit scrollV -move
next i
for i=0 to 100
blit scrollH move-2
next i
for i=0 to 100
blit scrollV move-2
next i
loop

Option explicit
option default NONE
load image "tiger640"
sprite INTERRUPT collision ' specify the interrupt routine to handle collisions
sprite load #4, "apple"
sprite load #17, "apple"
sprite show 4,-10,-10 'show a sprite overlapping the top and left of the screen
pause 1000
sprite show 4,600,440 'move the sprite to overlap the bottom and right of the screen
pause 1000
sprite show 17,550,400 'show a sprite overlapping the previous sprite and the bottom of the screen
do
loop
end
'
sub collision
' collison with the left of the screen returns code 100
' collision with the top of the screen returns code 101
' collision with the right of the screen returns code 102
' collision with the bottom of the screen returns code 103
local integer i
print "Collision on sprite ",sprite(S) 'sprite(S) returns the sprite that moved to cause the collision
print "Total of ",sprite(C,sprite(S))," collisions" 'sprite(C, #n) returns the number of current collisions
for i=1 to sprite(C,sprite(S))
print "Collision with item ",sprite(C,sprite(S),i) 'sprite(C, #n, #m) returns details of the mth collision
next i
print ""
end sub

void ProcessCollisions(int bnbr){
int k, j=1, n=1;
//We know that any collision is caused by movement of sprite bnbr
// a value of zero indicates that we are processing movement of layer 0 and any
// sprites on that layer
CollisionFound=false;
sprite_which_collided=-1;
if(blitbuff[bnbr].collisions!=NULL){
FreeMemory(blitbuff[bnbr].collisions); //clean up any previous collision result
blitbuff[bnbr].collisions=NULL;
}
if(bnbr!=0){ // a specific sprite has moved
if(layer_in_use[blitbuff[bnbr].layer]>1){ //other sprites in this layer
for(k=1;k<MAXBLITBUF;k++){
if(j == layer_in_use[blitbuff[bnbr].layer]) break; //nothing left to process
if(blitbuff[k].layer == blitbuff[bnbr].layer && k != bnbr){
j++;
if( !(blitbuff[k].x + blitbuff[k].w < blitbuff[bnbr].x ||
blitbuff[k].x > blitbuff[bnbr].x+blitbuff[bnbr].w ||
blitbuff[k].y + blitbuff[k].h < blitbuff[bnbr].y ||
blitbuff[k].y > blitbuff[bnbr].y + blitbuff[bnbr].h)){
if(blitbuff[bnbr].collisions==NULL){blitbuff[bnbr].collisions=GetMemory(256);}
blitbuff[bnbr].collisions[n++]=k;
CollisionFound=true;
sprite_which_collided=bnbr;
}
}
}
}
// now look for collisions with the edge of the screen
if(blitbuff[bnbr].x<0){
if(blitbuff[bnbr].collisions==NULL){blitbuff[bnbr].collisions=GetMemory(256);}
blitbuff[bnbr].collisions[n++]=100;
CollisionFound=true;
sprite_which_collided=bnbr;
}
if(blitbuff[bnbr].y<0){
if(blitbuff[bnbr].collisions==NULL){blitbuff[bnbr].collisions=GetMemory(256);}
blitbuff[bnbr].collisions[n++]=101;
CollisionFound=true;
sprite_which_collided=bnbr;
}
if(blitbuff[bnbr].x + blitbuff[bnbr].w > HRes){
if(blitbuff[bnbr].collisions==NULL){blitbuff[bnbr].collisions=GetMemory(256);}
blitbuff[bnbr].collisions[n++]=102;
CollisionFound=true;
sprite_which_collided=bnbr;
}
if(blitbuff[bnbr].y + blitbuff[bnbr].h > VRes){
if(blitbuff[bnbr].collisions==NULL){blitbuff[bnbr].collisions=GetMemory(256);}
blitbuff[bnbr].collisions[n++]=103;
CollisionFound=true;
sprite_which_collided=bnbr;
}
} else { //the background layer has moved

}
if(n>1) blitbuff[bnbr].collisions[0]=n-1;
}

Option explicit
option default NONE
dim integer testrun=1
load image "tiger640"
sprite INTERRUPT collision ' specify the interrupt routine to handle collisions
sprite load #4, "apple"
sprite load #2, "apple"
sprite load #17, "apple"
sprite load #49, "apple"
'
' test 1 - sprites on different layers don't collide except with layer 0
sprite show 4,10,10,1
sprite show 2,50,50,2
pause 200
sprite show 17,35,30,0
pause 1000
'
' test 2 - single sprite overlaps the corner
sprite hide 17
sprite hide 2
sprite show 4,-10,-10
pause 1000
'
' test 3 - one sprite moves and hits another
sprite show 4,10,10,7
sprite show 2,100,100,7
pause 200
sprite show 2,50,50,7
pause 1000
'
' test 4 - collision in contact with edge
sprite hide 2
sprite hide 4
sprite show 2,-10,10,7
pause 1000
'
' test 5 - all layers collide with layer 0
sprite hide 2
sprite show 17, 55,10, 0
sprite show 2, 100, 10
pause 1000
'
' test 6 - scroll causes collision with edge of screen for layer-0 sprite
sprite hide 2
BLIT scrollv 30
pause 1000
'
' test 7 - scroll causes collision between sprites
BLIT scrollv -120
sprite show 4,10,10,7
sprite show 2,110,10,7
blit scrollv 70
pause 1000
end
'
' This routine demonstrates a complete interrogation of collisions
'
sub collision
local integer i
print "Test : ",testrun
testrun = testrun +1
if sprite(S) <> 0 then 'collision of individual sprite
print "Collision on sprite ",sprite(S) 'sprite(S) returns the sprite that moved to cause the collision
process_collision(sprite(S))
print ""
else 'collision of one or more sprites caused by background scroll
print "Scroll caused a total of ",sprite(C,0)," sprites to have collisions"
for i=1 to sprite(C,0)
print "Sprite ",sprite(C,0,i)
process_collision(sprite(C,0,i))
next i
print ""
endif
end sub

sub process_collision(S as integer)
local integer i ,j
print "Total of ",sprite(C,S)," collisions" 'sprite(C, #n) returns the number of current collisions
for i=1 to sprite(C,S)
j=sprite(C,S,i)
if j=100 then
print "collision with left of screen"
else if j=101 then
print "collision with top of screen"
else if j=102 then
print "collision with right of screen"
else if j=103 then
print "collision with bottom of screen"
else
print "Collision with sprite ",sprite(C,S,i) 'sprite(C, #n, #m) returns details of the mth collision
endif
next i
end sub

settick 100,scrollit
do
loop
sub scrollit
sprite scrollh 5
end sub

void DoBlitVGA(unsigned int *p, int x1, int y1, int x2, int y2, int w, int h) {
int x, y, i;
unsigned int *p1, *p2;
int s1, s2;
i = (VGA_HRES_FULL/32); w--;
y1+=Y_OFFSET; //start at line VGAoffset
y2+=Y_OFFSET; //start at line VGAoffset
x1+=X_OFFSET;
x2+=X_OFFSET;
if(x1 >= x2 && y1 >= y2) {
for(y = 0; y < h; y++) {
p1 = &p[(y1 + y) * i + x1/32];
p2 = &p[(y2 + y) * i + x2/32];
s1 = 31 - (x1 & 0x1f);
s2 = 31 - (x2 & 0x1f);
for(x = 0; x <= w; x++) {
*p2 = (*p2 & (~(1 << s2))) | (((*p1 >> s1) & 1) << s2);
if(--s1 < 0) { p1++; s1 = 31; }
if(--s2 < 0) { p2++; s2 = 31; }
}
}
return;
}

if(x1 >= x2 && y1 < y2) {
for(y = h - 1; y >= 0; y--) {
p1 = &p[(y1 + y) * i + x1/32];
p2 = &p[(y2 + y) * i + x2/32];
s1 = 31 - (x1 & 0x1f);
s2 = 31 - (x2 & 0x1f);
for(x = 0; x <= w; x++) {
*p2 = (*p2 & (~(1 << s2))) | (((*p1 >> s1) & 1) << s2);
if(--s1 < 0) { p1++; s1 = 31; }
if(--s2 < 0) { p2++; s2 = 31; }
}
}
return;
}

if(x1 < x2 && y1 >= y2) {
for(y = 0; y < h; y++) {
p1 = &p[(y1 + y) * i + (x1 + w)/32];
p2 = &p[(y2 + y) * i + (x2 + w)/32];
s1 = 31 - ((x1 + w) & 0x1f);
s2 = 31 - ((x2 + w) & 0x1f);
for(x = w ; x >= 0; x--) {
*p2 = (*p2 & (~(1 << s2))) | (((*p1 >> s1) & 1) << s2);
if(++s1 > 31) { p1--; s1 = 0; }
if(++s2 > 31) { p2--; s2 = 0; }
}
}
return;
}

if(x1 < x2 && y1 < y2) {
for(y = h - 1; y >= 0; y--) {
p1 = &p[(y1 + y) * i + (x1 + w)/32];
p2 = &p[(y2 + y) * i + (x2 + w)/32];
s1 = 31 - ((x1 + w) & 0x1f);
s2 = 31 - ((x2 + w) & 0x1f);
for(x = w ; x >= 0; x--) {
*p2 = (*p2 & (~(1 << s2))) | (((*p1 >> s1) & 1) << s2);
if(++s1 > 31) { p1--; s1 = 0; }
if(++s2 > 31) { p2--; s2 = 0; }
}
}
}
}

sprite hide ALL
BLIT scroll dx,dy,region 'HEY! Vegipete changed the format! Bad Vegipete!
'more BLITs if required
sprite show ALL 'Note: only redraws sprites hidden by the previous hide ALL