change backdrop color with slider

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    color backdrop 0

make object box 2,1,0.02,0.02
make object box 1,0.1,0.1,0.02
MAKE OBJECT box 3,0.1.5,0.1.5,0.02
MAKE OBJECT box 4,0.1.5,0.1.5,0.02
POSITION OBJECT 4,-0.5,-1,0.02
POSITION OBJECT 3,-1.5,-1,0.02
position object 1,-1,-1,0.02
position object 2,-1,-1,0.02

do
hit = 0
hit = collision_check()
 
 CENTER TEXT 320,140,"mouse left click to go left"
  CENTER TEXT 320,160,"change color"
  CENTER TEXT 320,240,"mouse right click to go right"
  CENTER TEXT 320,260,"change color"
  
if mouseclick() = 1 
 MOVE OBJECT LEFT 1,0.001
 if hit = 1 then MOVE OBJECT RIGHT 1 ,0.05
 COLOR BACKDROP rgb(255,100,255)
 endif  

if mouseclick() = 2 
 MOVE OBJECT right 1,0.001
if hit = 1 then MOVE OBJECT LEFT 1,0.05
 COLOR BACKDROP rgb(90,180,100)
endif


    
LOOP

function collision_check() 
    if object collision (1,3) = 1 then hit = 1
  
   if OBJECT COLLISION (1,4) = 1 then hit = 1

ENDFUNCTION hit