home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00022.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  857 b   |  21 lines
  1. on exitFrame
  2.   global initialtime, lang, langPrefix, spacer, edMovie, BCmovie, KidMovie, pathToMain, ionamus, pathTolang, edmus, bcMus, intro
  3.   if initialtime > 800 then
  4.     set pathToMain to the pathName
  5.     set langPrefix to "b"
  6.     set lang to "eng"
  7.     set pathTolang to pathToMain & lang & spacer
  8.     set edMovie to pathToMain & "movies" & spacer & langPrefix & "edmark.dir"
  9.     set BCmovie to pathToMain & "movies" & spacer & langPrefix & "BChild.dir"
  10.     set intro to pathToMain & "movies" & spacer & "kids.dir"
  11.     set KidMovie to pathToMain & "movies" & spacer & "kids.dir"
  12.     set ionamus to pathToMain & "music" & spacer & "ionamus"
  13.     set edmus to pathToMain & "music" & spacer & "edmus"
  14.     set bcMus to pathToMain & "music" & spacer & "bcmus"
  15.     go(the frame + 1)
  16.   else
  17.     set initialtime to initialtime + 1
  18.     go(the frame)
  19.   end if
  20. end
  21.