home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00039.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  954 b   |  37 lines
  1. on startMovie
  2.   global edMovie, ionamus, edmus, bcMus, BCmovie, intro, spacer, KidMovie, myObj, pathToMain, firstStart, lang, langPrefix, pathTolang, muppetplayed, reallyQuit, initialtime
  3.   set initialtime to 0
  4.   set reallyQuit to 1
  5.   set muppetplayed to 0
  6.   if the machineType = 256 then
  7.     set spacer to "\"
  8.   else
  9.     set spacer to ":"
  10.   end if
  11.   if the machineType <> 256 then
  12.   end if
  13.   if the visible of window "EXERCISE" then
  14.     forget(window "EXERCISE")
  15.   end if
  16.   set the timeoutLength to 50 * 60
  17.   if the machineType <> 256 then
  18.     if not objectp(myObj) then
  19.       openXLib("rearWindow.xobj")
  20.       set myObj to rearwindow(mnew, "M")
  21.       set myPic to the picture of cast "black"
  22.       set resultCode to myObj(mCastToWindow, myPic, 0, 0)
  23.     end if
  24.   end if
  25. end
  26.  
  27. on stopMovie
  28.   global myObj, reallyQuit
  29.   if reallyQuit = 1 then
  30.     if objectp(myObj) then
  31.       myObj(mdispose)
  32.     end if
  33.     unLoadCast()
  34.     play frame "exit"
  35.   end if
  36. end
  37.