home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 July / PCPRO.ISO / motoring / support / tech / shared.dir / 00928.ls < prev    next >
Encoding:
Text File  |  1995-05-11  |  1.3 KB  |  50 lines
  1. on checkSign
  2.   global whichPlank, gmotorPath
  3.   set whichPlank to the mouseV
  4.   if (whichPlank > 42) and (whichPlank < 100) then
  5.     put "Top" into field "whichPlank"
  6.   end if
  7.   if (whichPlank > 128) and (whichPlank < 174) then
  8.     put "Driving Seat" into field "whichPlank"
  9.     go(1, gmotorPath & "Support\Dashbrd\Dashbrd.dir")
  10.   end if
  11.   if (whichPlank > 189) and (whichPlank < 217) then
  12.     put "Garage" into field "whichPlank"
  13.     goTech()
  14.   end if
  15.   if (whichPlank > 237) and (whichPlank < 264) then
  16.     puppetSound("Click")
  17.   end if
  18.   if (whichPlank > 287) and (whichPlank < 315) then
  19.     put "Cars Exhibit" into field "whichPlank"
  20.   end if
  21.   if (whichPlank > 344) and (whichPlank < 364) then
  22.     put "Exit" into field "whichPlank"
  23.     go(1, gmotorPath & "Support\Credits.dir")
  24.   end if
  25. end
  26.  
  27. on goTech
  28.   global techSwitch
  29.   if techSwitch = 1 then
  30.     go("rejoin", "Workshop.dir")
  31.   else
  32.     go(1, "Garage.dir")
  33.   end if
  34. end
  35.  
  36. on animate theCast, theClicks
  37.   set whichSprite to the clickOn
  38.   set whichCast to the castNum of sprite whichSprite
  39.   set theFrames to whichCast + theCast
  40.   repeat while whichCast < theFrames
  41.     set the castNum of sprite whichSprite to whichCast
  42.     updateStage()
  43.     set whichCast to whichCast + 1
  44.     theTempo(theClicks)
  45.   end repeat
  46.   set whichCast to theFrames - theCast
  47.   set the castNum of sprite whichSprite to whichCast
  48.   updateStage()
  49. end
  50.