Try this, edit to your liking, the bulk of it (the collision part) is courtesy of Ian.
Rem Project: CollisionTest
Rem Created: 26/05/2003 17:26:03
Rem ***** Main Source File *****
LOAD IMAGE "spaceship1.bmp", 1,1
LOAD IMAGE "bullet_50x50.bmp", 2,1
SPRITE 1,X,Y,1
SPRITE 2,SpaceshipX,SpaceshipY,2
SYNC ON
BACKGROUND_BLACK()
_Start:
`Declare some variables
X = 320 : Y = 100
SpaceshipX = 320 : SpaceshipY = 250
`Main game loop
DO
SYNC
BACKGROUND_BLACK()
SPRITE 1,X,Y,1
SPRITE 2,SpaceshipX,SpaceshipY,2
GOSUB SPACESHIPMOVEMENT
if SpritePixelCollision(1,2)
text 0,0,"Collision"
endif
LOOP
`Begin spaceship movement detection
SPACESHIPMOVEMENT:
IF leftkey()=1 THEN SpaceshipX = SpaceshipX - 1
IF rightkey()=1 THEN SpaceshipX = SpaceshipX + 1
IF upkey()=1 THEN SpaceshipY = SpaceshipY - 1
IF downkey()=1 THEN SpaceshipY = SpaceshipY + 1
RETURN
`End spaceship movement detection
function SpritePixelCollision(sprite1 as integer, sprite2 as integer)
local Sprite1Base as dword
local Sprite2Base as dword
local Sprite1Addr as dword
local Sprite2Addr as dword
local V as byte
if sprite collision (sprite1, sprite2) > 0
make memblock from image 255,sprite image(sprite1)
make memblock from image 256,sprite image(sprite2)
Sprite1Base=get memblock ptr(255)
Sprite2Base=get memblock ptr(256)
XPos1=sprite x(sprite1)-sprite offset x(sprite1)
YPos1=sprite y(sprite1)-sprite offset y(sprite2)
Width1=*Sprite1Base
inc Sprite1Base, 4
Height1=*Sprite1Base
inc Sprite1Base, 11
XPos2=sprite x(sprite2)-sprite offset x(sprite2)
YPos2=sprite y(sprite2)-sprite offset y(sprite2)
Width2=*Sprite2Base
inc Sprite2Base, 4
Height2=*Sprite2Base
inc Sprite2Base, 11
if XPos2 > XPos1
XStart1=XPos2-XPos1
XStart2=0
XOverlapSize=(Width1-XStart1)-1
if XOverlapSize >= Width2 then XOverlapSize=Width2-1
else
XStart2=XPos1-XPos2
XStart1=0
XOverlapSize=(Width2-XStart2)-1
if XOverlapSize >= Width1 then XOverlapSize=Width1-1
endif
if YPos2 > YPos1
YStart1=YPos2-YPos1
YStart2=0
YOverlapSize=(Height1-YStart1)-1
if YOverlapSize >= Height2 then YOverlapSize=Height2-1
else
YStart2=YPos1-YPos2
YStart1=0
YOverlapSize=(Height2-YStart2)-1
if YOverlapSize >= Height1 then YOperlapSize=Height1-1
endif
XStart1=XStart1*4
XStart2=XStart2*4
Width1=Width1*4
Width2=Width2*4
for YOffset=YOverlapSize to 0 step -1
Sprite1Addr=Sprite1Base + ((YOffset+YStart1)*Width1) + XStart1
Sprite2Addr=Sprite2Base + ((YOffset+YStart2)*Width2) + XStart2
for XOffset=XOverlapSize to 0 step -1
v=*Sprite1Addr
if v <> 0
v=*Sprite2Addr
if v <> 0
delete memblock 255
delete memblock 256
exitfunction 1
endif
endif
inc Sprite1Addr, 4
inc Sprite2Addr, 4
next XOffset
next YOffset
delete memblock 255
delete memblock 256
endif
endFunction 0
FUNCTION BACKGROUND_BLACK()
CLS RGB(0,0,0)
ENDFUNCTION
sprite
text
I hear and I forget. I see and I remember. I do and I understand.
