home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / DATABASE / SHARED.DIR / 01012.ls < prev    next >
Encoding:
Text File  |  1996-03-14  |  2.0 KB  |  63 lines
  1. on mouseDown
  2.   global gQTstatus, gcurtype
  3.   NavButtonClose()
  4.   if gQTstatus and (the frameLabel = "qt") and (gcurtype = "movie") then
  5.     set the movieRate of sprite 16 to 1
  6.   end if
  7.   pass()
  8. end
  9.  
  10. on rollOvers
  11.   global gChapters, gCurChap, gTotalChapters, gWorld, gQTbuttons, gcurtype
  12.   DoNugget()
  13.   repeat with i = 25 to 29
  14.     if rollOver(i) then
  15.       if (gWorld = "power") and (i = 25) then
  16.         if rollOver(34) then
  17.           exit
  18.         end if
  19.         set tmpcastnum to the castNum of sprite i
  20.         set the castNum of sprite i to tmpcastnum + 1
  21.         repeat while rollOver(i) and not (the mouseDown) and not rollOver(34)
  22.           updateStage()
  23.         end repeat
  24.         set the castNum of sprite i to tmpcastnum
  25.       else
  26.         puppetSprite(48, 1)
  27.         set the castNum of sprite 48 to the castNum of sprite i + 1
  28.         set the locH of sprite 48 to the locH of sprite i
  29.         set the locV of sprite 48 to the locV of sprite i
  30.         if (gWorld = "discover") or (gWorld = "senses") then
  31.           set tmpink to the ink of sprite 48
  32.           set the ink of sprite 48 to 8
  33.         end if
  34.         updateStage()
  35.         repeat while rollOver(48) and not (the mouseDown)
  36.           updateStage()
  37.         end repeat
  38.         puppetSprite(48, 0)
  39.         if (gWorld = "discover") or (gWorld = "senses") then
  40.           set the ink of sprite 48 to tmpink
  41.         end if
  42.       end if
  43.       exit
  44.     end if
  45.   end repeat
  46.   if (the frameLabel = "qt") and ((gcurtype = "qt") or (gcurtype = "movie")) then
  47.     if the type of sprite 16 = 16 then
  48.       if the movieRate of sprite 16 then
  49.         if the castNum of sprite 11 <> value(item 2 of gQTbuttons) then
  50.           puppetSprite(11, 1)
  51.           set the castNum of sprite 11 to value(item 2 of gQTbuttons)
  52.         end if
  53.       else
  54.         if the castNum of sprite 11 <> value(item 1 of gQTbuttons) then
  55.           puppetSprite(11, 1)
  56.           set the castNum of sprite 11 to value(item 1 of gQTbuttons)
  57.           set the movieTime of sprite 16 to 0
  58.         end if
  59.       end if
  60.     end if
  61.   end if
  62. end
  63.