home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / main.dir / 00053.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  2.1 KB  |  68 lines
  1. on exitFrame
  2.   global SelfRunDone, pathToMain, spacer, TS_gWindowRect, mouseLocationstore, edMovie, BCmovie, KidMovie, bcMus, langPrefix, barry
  3.   if the mouseH <> mouseLocationstore then
  4.     exitSelfRun()
  5.   end if
  6.   if SelfRunDone < 40 then
  7.     if barry = 1 then
  8.       set SelfRunDone to 10
  9.       set barry to 0
  10.     end if
  11.     if SelfRunDone = 0 then
  12.       set SelfRunDone to 50
  13.       sound stop 1
  14.       sound stop 2
  15.       initialiseSelfWindow(KidMovie)
  16.     end if
  17.     if SelfRunDone = 1 then
  18.       set SelfRunDone to 50
  19.       set theme to pathToMain & "music" & spacer & "edmus"
  20.       sound stop 1
  21.       sound stop 2
  22.       sound playFile 2, theme
  23.       initialiseSelfWindow(edMovie)
  24.     end if
  25.     if SelfRunDone > 1 then
  26.       set Order to the text of cast "movie script"
  27.       if SelfRunDone < 11 then
  28.         set temp to line SelfRunDone of Order
  29.         set themeMusic to word 1 of temp
  30.         set movieName to word 2 of temp
  31.         set movieTime to pathToMain & "Edmovies" & spacer & movieName
  32.         set theme to pathToMain & "music" & spacer & themeMusic
  33.         sound stop 1
  34.         sound stop 2
  35.         set SelfRunDone to 50
  36.         sound playFile 2, theme
  37.         put movieTime
  38.         initialiseSelfWindow(movieTime)
  39.       end if
  40.       if (SelfRunDone > 10) and (SelfRunDone < 14) then
  41.         if SelfRunDone = 11 then
  42.           set SelfRunDone to 50
  43.           sound stop 1
  44.           sound stop 2
  45.           sound playFile 1, bcMus
  46.           initialiseSelfWindow(BCmovie)
  47.         else
  48.           if SelfRunDone = 12 then
  49.             set mov to pathToMain & "muppets" & spacer & "rll" & spacer & langPrefix & "Rll.dir"
  50.             set SelfRunDone to 50
  51.             initialiseSelfWindow(mov)
  52.           else
  53.             if SelfRunDone = 13 then
  54.               set mov to pathToMain & "muppets" & spacer & "btr" & spacer & langPrefix & "btr.dir"
  55.               set SelfRunDone to 50
  56.               initialiseSelfWindow(mov)
  57.             end if
  58.           end if
  59.         end if
  60.       end if
  61.       if SelfRunDone = 14 then
  62.         exitSelfRun()
  63.       end if
  64.     end if
  65.   end if
  66.   go(the frame)
  67. end
  68.