PC Pro 1995 July/PCPRO.ISO/motoring/support/tech/workshop.dir/00041.ls

Text File | 1995-05-11 | 1.1 KB | 41 lines

on startMovie
  global gadgetRoll, whichGadget, Engine, Trans, Sus, Electrics, Steer, Body, Brakes, Tyres, whichLabel
  set Engine to the number of cast "Engine"
  set Trans to the number of cast "Transmission"
  set Sus to the number of cast "Suspension"
  set Electrics to the number of cast "Electrics"
  set Steer to the number of cast "Steering"
  set Body to the number of cast "Bodywork"
  set Brakes to the number of cast "Brakes"
  set Tyres to the number of cast "Tyres"
  set whichLabel to 1
end

on checkRoll
  global Engine, Trans, Sus, Electrics, Steer, Body, Brakes, Tyres
  if the mouseCast = Engine then
    go(label("Engine"))
  end if
  if the mouseCast = Trans then
    go(label("Trans"))
  end if
  if the mouseCast = Sus then
    go(label("Sus"))
  end if
  if the mouseCast = Electrics then
    go(label("LX"))
  end if
  if the mouseCast = Steer then
    go(label("Steer"))
  end if
  if the mouseCast = Body then
    go(label("Body"))
  end if
  if the mouseCast = Brakes then
    go(label("Brakes"))
  end if
  if the mouseCast = Tyres then
    go(label("Tyres"))
  end if
end