home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / oracle / oracle.exe / oracle.DXR / 00007.ls < prev    next >
Encoding:
Text File  |  1994-12-20  |  2.0 KB  |  94 lines
  1. on startMovie
  2.   repeat with a = 2 to 8
  3.     set the immediate of sprite a to 1
  4.   end repeat
  5. end
  6.  
  7. on leaveMovie
  8.   if rollOver(the clickOn) then
  9.     puppetSound("WELLRTN.SND", 1)
  10.     updateStage()
  11.     repeat while soundBusy(1)
  12.     end repeat
  13.   end if
  14. end
  15.  
  16. on clickSound
  17.   if rollOver(the clickOn) then
  18.     puppetSound("single click", 1)
  19.     updateStage()
  20.     repeat while soundBusy(1)
  21.     end repeat
  22.   end if
  23. end
  24.  
  25. on pushButton btnID
  26.   global hideCursor
  27.   puppetSprite(the clickOn, 1)
  28.   set UpBtn to the castNum of sprite the clickOn
  29.   set DwnBtn to UpBtn + 1
  30.   repeat while the mouseDown
  31.     if rollOver(the clickOn) then
  32.       if the castNum of sprite the clickOn = UpBtn then
  33.         set the castNum of sprite the clickOn to DwnBtn
  34.       end if
  35.     else
  36.       if the castNum of sprite the clickOn = DwnBtn then
  37.         set the castNum of sprite the clickOn to UpBtn
  38.       end if
  39.     end if
  40.     updateStage()
  41.   end repeat
  42.   if rollOver(the clickOn) then
  43.     if the castNum of sprite the clickOn = UpBtn then
  44.       set the castNum of sprite the clickOn to DwnBtn
  45.       updateStage()
  46.     end if
  47.     timePause(10)
  48.     set the castNum of sprite the clickOn to UpBtn
  49.     puppetSprite(the clickOn, 0)
  50.     updateStage()
  51.     updateStage()
  52.     if btnID = 1 then
  53.       clickSound()
  54.       go("video")
  55.     else
  56.       if btnID = 2 then
  57.         clickSound()
  58.         play movie "tour"
  59.       else
  60.         if btnID = 3 then
  61.           clickSound()
  62.           quit()
  63.         else
  64.           if btnID = 4 then
  65.             leaveMovie()
  66.             go(1, "Puzz_19")
  67.           else
  68.             if btnID = 5 then
  69.               leaveMovie()
  70.               go(1, "puzz_01")
  71.             else
  72.               if btnID = 6 then
  73.                 leaveMovie()
  74.                 go(1, "puzz_02")
  75.               end if
  76.             end if
  77.           end if
  78.         end if
  79.       end if
  80.     end if
  81.   else
  82.     puppetSprite(the clickOn, 0)
  83.     set the castNum of sprite the clickOn to UpBtn
  84.     updateStage()
  85.   end if
  86. end
  87.  
  88. on timePause theTime
  89.   startTimer()
  90.   repeat while the timer <= theTime
  91.     updateStage()
  92.   end repeat
  93. end
  94.