home *** CD-ROM | disk | FTP | other *** search
/ Divinita Greche E Romane / MYTH.iso / INTRO.DIR / 00007_Script_7 < prev    next >
Text File  |  1996-06-12  |  502b  |  18 lines
  1. on StartMovie
  2.   global gCD
  3.   put the colorDepth into gCD
  4.   set the colordepth to 8
  5.   initPulsantiAnimati
  6.   set the randomseed to the timer
  7.   global gMainMovie
  8.   put the movieName into gMainMovie
  9.   global gLivelloArcheologo,gLivelloLettere,gLivelloPuzzle,gLivelloNote,gLivelloPick,gVoid
  10.   if gVoid=gLivelloArcheologo then
  11.     put 1 into gLivelloArcheologo
  12.     put 1 into gLivelloLettere
  13.     put 1 into gLivelloPuzzle
  14.     put 1 into gLivelloNote
  15.     put 1 into gLivelloPick
  16.   end if
  17. end
  18.