Sorry your browser is not supported!

sync on
sync rate 100

cls rgb(255,0,0)
get image 1,0,0,50,50,1

cls rgb(0,255,0)
get image 2,0,0,50,50,1

x1 = 50
y1 = 50

sprite 1,x1,y1,1


sprite 2,400,400,2
hide sprite 2

do

   if keystate(203) = 1 then dec x1
   if keystate(205) = 1 then inc x1
   if keystate(200) = 1 then dec y1
   if keystate(208) = 1 then inc y1

   if keystate(57) = 1
      show sprite 2
   else
      hide sprite 2
   endif

   if inkey$() = "h" then PasteSprite = 0
   if inkey$() = "s" then PasteSprite = 1

   if PasteSprite = 1 then paste sprite 2,400,400

   sprite 1,x1,y1,1

   text 0,0,"Use the arrow keys to move, and hold the space bar to show sprite 2"
   text 0,15,"Press S to paste sprite 2 to the screen and H to not paste sprite 2"
   text 0,30,"Have the sprites collided (1 = Yes,0 = No) " + str$(sprite collision(1,2))

   sync

loop