home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00469.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  489 b   |  19 lines
  1. on mouseDown
  2.   productSelect(#forward)
  3. end
  4.  
  5. on mouseUp
  6.   global tProductSelect, tSectionSelect
  7.   set the castNum of sprite the clickOn to the number of cast "rightArrow"
  8.   if tSectionSelect = "order" then
  9.     go(label(tProductSelect & tSectionSelect) + 6)
  10.   else
  11.     if (the machineType = 256) and (tSectionSelect = "demo") then
  12.       set tSectionSelect to "demoWIN"
  13.     end if
  14.     go(label(tProductSelect & tSectionSelect) + 3)
  15.   end if
  16.   puppetSprite(the clickOn, 0)
  17.   updateStage()
  18. end
  19.