box 0,0,32,32,5,rgb(red),rgb(green)
sprite read 1,0,0,32,32
sprite copy 1,3,1
box 0,0,64,64,10,rgb(blue),rgb(yellow)
sprite read 2,0,0,64,64
cls
sprite interrupt myint
sprite show 1,100,100,0
sprite show 3,150,150,2
do
 for i=0 to 200
   sprite show 2,i,i,1
   pause 100
 next i
 for i=200 to 0 step -1
   sprite show 2,i,i,1
   pause 100
 next i
loop
sub myint
 ? i,sprite(s)
end sub

SPRITE LOADPNG 1, "CarL.png"  'CAR FACING LEFT SPRITE
SPRITE LOADPNG 2, "CarR.png"  'CAR FACING RIGHT SPRITE
SPRITE LOADPNG 3, "CarU.png"  'CAR FACING UP SPRITE
SPRITE LOADPNG 4, "CarD.png"  'CAR FACING DOWN SPRITE
SPRITE LOADPNG 5, "ManL.png"  'MAN FACING LEFT SPRITE
SPRITE LOADPNG 6, "ManR.png"  'MAN FACING RIGHT SPRITE
SPRITE LOADPNG 7, "TStone.png" 'TOMB STONE SPRITE


XR = MM.INFO(HPOS) + 52
YR = MM.INFO(VPOS) + 65

X = MM.HRES-100 'SIZE TO MOVE ON X AXIS
Y = MM.VRES-50  'SIZE TO MOVE ON Y AXIS

XM = X - 100
YM = Y - 100

SPRITE SHOW 2, XR, YR, 1  'SHOW THE CAR FACING RIGHT SPRITE
SPRITE SHOW 6, RND * XM, RND * YM, 0'SHOW MAN BASED RANDOMLY ON SCREEN

START:
DO
 IF KEYDOWN(0) THEN 'AT LEAST 1 KEY PRESSED
   IF TIMER > 200 THEN  'OPTIONAL-CHANGE TO ALTER RESPONSE TO KEY PRESSES
    TIMER = 0
    FOR I = 1 TO KEYDOWN(0) ' CHECK FOR ARROW KEYS AND ESC KEY
     

      IF KEYDOWN(I) = 27 THEN EXIT DO  'ESCAPE KEY TO EXIT
      IF KEYDOWN(I) = 130 THEN LEFT
      IF KEYDOWN(I) = 131 THEN RIGHT
      IF KEYDOWN(I) = 128 THEN UP
      IF KEYDOWN(I) = 129 THEN DOWN
    NEXT I

  END IF
 END IF  
LOOP

SUB LEFT

S = SPRITE(S)
PRINT SPRITE(S)

IF XR < 65 THEN GOTO START 'HITTING LEFT EDGE

DO
 IF XR < 65 THEN SPRITE SWAP 1, 2 : GOTO START

 XR = XR - SP
   
 IF KEYDOWN(1) = 130 THEN  
   SPRITE SHOW 1, XR, YR, 2          
   PAUSE 200
   SPRITE INTERRUPT CRASH
 END IF

LOOP UNTIL KEYDOWN(1) <> 130

SPRITE HIDE 1
END SUB



SUB CRASH
IF SPRITE(S) <> 0 THEN
 SPRITE SWAP 6, 7 'TURN MAN INTO TOMBSTONE

 PAUSE 200

 PLAY STOP
 PLAY MP3 "CRASH.mp3", ENGINE
 
 SPRITE SHOW 6, RND * XM, RND * YM, 0 'RANDOMLY SHOW MAN ON SCREEN
END IF  
END SUB