I just figured out an easier way using That1SmartGuy's idea.
I'm going to create the layer of red and black, but instead of using bitmap or memblock, I'm going to hide the sprites and use sprite collision between the two, I checked it out already and it works. I'll post a snippet to show in a second.
EDIT:
Here it is.
sync on : sync rate 200
radius=32
x=100
y=100
for r=0 to radius
circle x,y,r
circle x,y+1,r
next r
get image 1,100-32,100-32,100+33,100+33
shown:
next=0
xpos1=0 : ypos1=240 : xpos2=640-64 : ypos2=240
do
xpos1=xpos1+1
xpos2=xpos2-1
sprite 1,xpos1,ypos1,1
sprite 2,xpos2,ypos2,1
show sprite 1
show sprite 2
if sprite collision(1,2)<>0
center text 320,400,"HIT!"
next=1
endif
if next=1 then center text 320,100,"Press the spacekey to see it in action with the sprites hidden."
if next=1 and spacekey()=1 then gosub hidden
sync
cls
loop
return
hidden:
next=0
xpos1=0 : ypos1=240 : xpos2=640-64 : ypos2=240
do
xpos1=xpos1+1
xpos2=xpos2-1
center text xpos1+32,ypos1-50,"Sprite 1"
center text xpos1+32,ypos1-35,"V"
center text xpos2+32,ypos2-50,"Sprite 2"
center text xpos2+32,ypos2-35,"V"
sprite 1,xpos1,ypos1,1
sprite 2,xpos2,ypos2,1
hide sprite 1
hide sprite 2
if sprite collision(1,2)<>0
center text 320,400,"HIT!"
next=1
endif
if next=1 then center text 320,100,"Press the spacekey to see it in action with the sprites shown."
if next=1 and spacekey()=1 then gosub shown
sync
cls
loop
return
EDIT:
Sorry BN2 didn't see your post, that could work if i were using tilesets, but my map is just one large picture with multiple layers.