sync on: sync rate 60
set display mode 1024, 768, 16

car_img = 1
car1 = 1
car2 = 2

create bitmap 1,50,100 
box 0,0,50,100
get image car_img,0,0,50,100
delete bitmap 1 


rem create car number 1
sprite car1, 1024/3, 768/3, car_img
x = sprite width(car1) / 2
y = sprite height(car1) / 2
OFFSET SPRITE car1, x, y

rem create car number 2
sprite car2, 1024/1.5, 768/1.5, car_img
x = sprite width(car2) / 2
y = sprite height(car2) / 2
OFFSET SPRITE car2, x, y


do  

    rem car number 1 control
    m = upkey() - downkey() 
    r = rightkey() - leftkey()    
    
    move sprite car1, m 
    a# = wrapvalue(SPRITE ANGLE(car1)+r) 
    rotate sprite car1, a#
     

    rem car number 2 control
    m = keystate(17) - keystate(31) 
    r = keystate(32) - keystate(30)    
    
    move sprite car2, m 
    a# = wrapvalue(SPRITE ANGLE(car2)+r) 
    rotate sprite car2, a#

    
    set cursor 1,1        
    print "FPS:"+str$(screen fps())
    print "control: car1: arrows, car2: w,s,a,d"
    print "Two car collision: "+str$(SPRITE COLLISION(car1, car2))
    print "Two car hit:" + str$(SPRITE HIT(car1, car2))
    

    sync
loop

offset sprite spr,sprite width(spr)/2,sprite height(spr)/2,img

spr get collision(spr,spr_2)