Sorry your browser is not supported!

sync on



 autocam off

rem chassis types
chassis_flat$= "flat"
chassis_narrow$="narrow"
chassis_cube$="cube"

chassis_info_flat$="flat info"
chassis_info_narrow$="narrow info"
chassis_info_cube$="cube info"

rem making the chassises
   rem flat
   make object box 5,4,1,4
   position object 5,20,20,20
   rem narrow
   make object box 6,2,4,3
   rem position object 6,20,20,20
   rem cube
   make object cube 7,3
   position object 7,20,20,20



rem background-a bit crude i know
   make object box 4,100,100,0
   color object 4,0
rem big 2 boxes
    rem left
    make object box 1,16,30,0
    rem right
    clone object 2,1
    position object 1,-18,5,0
    position object 2,18,5,0

    position camera -0.73,5,-37.5

rem small boxes
   make object box 3,10,2.5,0
   make mesh from object 1,3
   position object 3,0,-8,0
   add limb 1,1,1
   add limb 1,2,1
   add limb 1,3,1
   add limb 1,4,1
   add limb 1,5,1

   color limb 1,1,0
   color limb 1,2,0
   color limb 1,3,0
   color limb 1,4,0
   color limb 1,5,0


   offset limb 1,1,-2,5,0
   offset limb 1,2,-2,10,0
   offset limb 1,3,-2,-5,0
   offset limb 1,4,-2,-10,0
   offset limb 1,5,-2,0,0

rem the words-arent working
ink rgb(255,0,0),0
   text object screen x(1),object screen y(1), chassis_flat$
   set cursor object screen x(1),object screen y(1)
   print "hello"
   set cursor 300,300
   print "can u see this ?"




    do
    control camera using arrowkeys 0,0.1,0.1
    rem print camera position z()
    rem print camera position z()

    rem the actual selection
    rem first limb
      if mousex()>62
      if mousex()<168
      if mousey()>106
      if mousey()<130
      color limb 1,2,rgb(255,0,0)
      else color limb 1,2,rgb(0,0,0)
      endif
      endif
      endif
      endif

      if mousex()>62
      if mousex()<168
      if mousey()>106
      if mousey()<130
      if mouseclick()=1
      gosub flat
      endif
      endif
      endif
      endif
      endif

    rem second limb
      rem  print mousex()
      if mousex()>62
      if mousex()<168
      if mousey()>160
      if mousey()<184
      color limb 1,1,rgb(255,0,0)
      else color limb 1,1,rgb(0,0,0)
      endif
      endif
      endif
      endif

      if mousex()>62
      if mousex()<168
      if mousey()>160
      if mousey()<184
      if mouseclick()=1
      gosub narrow
      endif
      endif
      endif
      endif
      endif

    rem thrid limb
      if mousex()>62
      if mousex()<168
      if mousey()>212
      if mousey()<238
      color limb 1,5,rgb(255,0,0)
      else color limb 1,5,rgb(0,0,0)
      endif
      endif
      endif
      endif

      if mousex()>62
      if mousex()<168
      if mousey()>212
      if mousey()<238
      if mouseclick()=1
      gosub cube
      endif
      endif
      endif
      endif
      endif

    rem fourth limb
      if mousex()>62
      if mousex()<168
      if mousey()>265
      if mousey()<292
      color limb 1,3,rgb(255,0,0)
      else color limb 1,3,rgb(0,0,0)
      endif
      endif
      endif
      endif

   rem fifth limb
      if mousex()>62
      if mousex()<168
      if mousey()>318
      if mousey()<345
      color limb 1,4,rgb(255,0,0)
      else color limb 1,4,rgb(0,0,0)
      endif
      endif
      endif
      endif


      rem the next button
      remstart
      if mousex()>336
      if mousex()<360
      if mousey()>275
      if mousey()<382
      color object 3,rgb(255,0,0)
      else color object 3,rgb(255,255,255)
      endif
      endif
      endif
      endif
      remend


       rem print mousex()
      rem print mousex()

      if mousex()>274
      if mousex()<380
      if mousey()>350
      if mousey()<380
      if mouseclick()=1
      goto wheels
      endif
      endif
      endif
      endif
      endif

rem rotating the bots
yrotate object 5,object angle y(5)+0.1
yrotate object 6,object angle y(6)+0.1
yrotate object 7,object angle y(7)+0.1










    sync
    loop


  flat:
  position object 6,20,20,20
  position object 7,20,20,20
  position object 5,0,0,0
  return

  narrow:
  position object 5,20,20,20
  position object 7,20,20,20
  position object 6,0,0,0
  return


  cube:
  position object 5,20,20,20
  position object 6,20,20,20
  position object 7,0,0,0
  return


    sphere:





     wheels:


     position object 4, 0,0,-37.5
     wait 2500
     do
   position camera  0,-0.73,25,-37.5


    loop

REM At the moment, you do two big checks for the highlight and then for the clicking.
REM You only need to check once...
rem first limb
  if mousex()>62
    if mousex()<168
      if mousey()>106
        if mousey()<130
          REM At this point, we know the mouse is over the object.
          color limb 1,2,rgb(255,0,0)
          REM This variable, remembers that it's highlighted.
          temp_highlight = 1
          REM As it's over the object, check to see if we're clicking
          if mouseclick()=1
            gosub flat
          endif
        endif
      endif
    endif
  endif
  REM The variable remembers that it DIDN'T get highlighted, so we colour it 'unhighlighted'.
  if temp_highlight = 0
    color limb 1,2,rgb(0,0,0)
  endif
  temp_highlight = 0

  function position_flat()
    position object 6,20,20,20
    position object 7,20,20,20
    position object 5,0,0,0
  endfunction

function check_highlight(xmin,ymin,xmax,ymax)
  temp_mouseover = 0
  if mousex()>xmin
    if mousex()<xmax
      if mousey()>ymin
        if mousey()<ymax
          temp_mouseover = 1
        endif
      endif
    endif
  endif
endfunction temp_mouseover

REM Check for first limb
if check_highlight(62,106,168,130) = 1
  REM Do the highlight stuff, as a value of 1 means the mouse is there.
endif