home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / MENU.DXR / 00140.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  1.1 KB  |  42 lines
  1. on buttonHilite
  2.   global gAbort
  3.   puppetSound(0)
  4.   set gAbort to 0
  5.   put clickOn()
  6.   set tempName2 to the name of cast the castNum of sprite clickOn()
  7.   set tempName to chars(tempName2, 1, length(tempName2) - 5)
  8.   set tempUp to the number of cast tempName2
  9.   set tempDown to the number of cast (tempName & "_DN")
  10.   set the castNum of sprite clickOn() to tempDown
  11.   updateStage()
  12.   sound stop 1
  13.   sound stop 2
  14.   puppetSound("clickSound")
  15.   updateStage()
  16.   repeat while the stillDown
  17.     if rollOver(clickOn()) then
  18.       if the castNum of sprite clickOn() <> tempDown then
  19.         set the castNum of sprite clickOn() to tempDown
  20.         updateStage()
  21.         set gAbort to 0
  22.       end if
  23.       next repeat
  24.     end if
  25.     set the castNum of sprite clickOn() to tempUp
  26.     updateStage()
  27.     set gAbort to 1
  28.     go(the frame)
  29.   end repeat
  30.   if not gAbort then
  31.     puppetSound("clickSound")
  32.     updateStage()
  33.     repeat while soundBusy(1)
  34.       nothing()
  35.     end repeat
  36.     updateStage()
  37.     puppetSound(0)
  38.   end if
  39.   set the castNum of sprite clickOn() to tempUp
  40.   updateStage()
  41. end
  42.