home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / MENU.DXR / 00105.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  1.2 KB  |  50 lines
  1. on mouseDown
  2.   global tempSprite
  3.   puppetSound(0)
  4.   put clickOn()
  5.   set tempSprite to clickOn() - 5
  6.   set tempNum to the castNum of sprite tempSprite
  7.   set the castNum of sprite tempSprite to the number of cast (the name of cast tempNum & "_DN")
  8.   updateStage()
  9.   sound stop 1
  10.   sound stop 2
  11.   puppetSound("clickSound")
  12.   updateStage()
  13.   repeat while the stillDown
  14.     if rollOver(clickOn()) then
  15.       if (the name of cast tempSprite contains "_DN") and (the visible of sprite tempSprite = 1) then
  16.         nothing()
  17.       else
  18.         set the visible of sprite tempSprite to 1
  19.         updateStage()
  20.       end if
  21.       next repeat
  22.     end if
  23.     set the visible of sprite tempSprite to 0
  24.     updateStage()
  25.   end repeat
  26.   set the castNum of sprite tempSprite to tempNum
  27.   updateStage()
  28. end
  29.  
  30. on mouseUp
  31.   global tempSprite
  32.   if rollOver(tempSprite) then
  33.     puppetSound("clickSound")
  34.     updateStage()
  35.     repeat while soundBusy(1)
  36.       nothing()
  37.     end repeat
  38.     updateStage()
  39.     puppetSound(0)
  40.     set tempName to the name of cast the castNum of sprite tempSprite
  41.     puppetTransition(6, 2, 16, 0)
  42.     go(the frame + 1)
  43.     repeat with nn = 2 to 6
  44.       set the visible of sprite nn to 1
  45.     end repeat
  46.     clearPuppets(7, 11)
  47.     goDemo(tempName)
  48.   end if
  49. end
  50.