Sorry your browser is not supported!

global moveobj as float
global x1 as integer
global x2 as integer
global barspeed as integer

moveobj = 1
x1 = 0
x2 = 0
barspeed = 3

sync on
sync rate 60
backdrop on
color backdrop 0

make object sphere 1, 25

autocam off
move camera -200

make object box 2, 100, 10, 5
position object 2, x1, 120, 0

make object box 3, 100, 10, 5
position object 3, x2, -120, 0


do

position object 2, x1, 120, 0
position object 3, x2, -120, 0

rem top bar

    if rightkey() = 1
      inc x1, barspeed
    endif

   if x1 > 120
      x1 = 120
   endif

   if leftkey() = 1
      dec x1, barspeed
   endif

   if x1 < -120
      x1 = -120
   endif

rem bottom bar

   if upkey() = 1
      inc x2, barspeed
   endif

   if x2 > 120
      x2 = 120
   endif

   if downkey() = 1
      dec x2, barspeed
   endif

   if x2 < -120
      x2 = -120
   endif

sync
loop